Visual basic ile Antivirüs yapımı

ilk olarak bir form açıyoruz


1 adet textbox

1 adet openfiledialog

2 adet button

300-300 bir sayfa açalım

sonra textbox'un sağ üst köşesindeki multine iconuna tıklıyoruz

ye bütün sayfaya yayıyoruz yalnız alt kısımda 1 parmak yer bırakın

1 parmak boş bıraktığınız yerlere buttonları yerleştin

button 1'e Dosya seç

button 2'ye Tara yazın

ve bu kodları yazın

button 1

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

button 2

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

YORUMLARINIZI BEKLİYORUM EMEĞE SAYGI...