Viusal Basic 2008 [Anti Virüs Yapımı] basit bir şey

[HighTurk99]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Viusal Basic 2008 [Anti Virüs Yapımı]

Arkadaşlar ben kısaca basit yaptım örneği çok basit

Gerekli olanlar 2 Buton - 1 TexBox - OpenFileDialog

Kod:



Button2:


Dim alltext As String = "", lineoftext As String = ""
OpenFileDialog1.Filter = "All Files | *.*"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then


End If
Try
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)


Do Until EOF(1)
lineoftext = LineInput(1)
alltext = alltext & lineoftext & vbCrLf
Loop
TextBox1.Text = alltext
Catch
Finally
FileClose()
End Try






================================================== ======






Button1:






If TextBox1.Text.Contains("Virus") Then
MsgBox("Virüslü Kodlama Algılandı !", MsgBoxStyle.Critical)
Else
MsgBox("Güvenli Kodlama")
End If

Video benim Değildir alıntıdır fakat bende yaptım.

Beğenin Lütfen