Visual basic ile Antivirüs yapımı

[serkan1315]

ilk olarak bir form açıyoruz

Ekli dosyayı görüntüle 10503Ekli dosyayı görüntüle 10503
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...