Auto Downloader

[BeBeT0]

My Very Very Basic Silkroad Online TooL

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here



GUICreate("Downloader", 220, 130)
GUICtrlCreateLabel("Tool", 10, 10)
GUICtrlCreateLabel("Version", 100, 10)
GUICtrlCreateLabel("Testosterone", 10, 40)
$testosterone_v = GUICtrlCreateLabel("", 100, 40, 40)
$testosterone_button = GUICtrlCreateButton("Download", 150, 35, -1, 20)
GUICtrlCreateLabel("AgBot", 10, 70)
$agbot_v = GUICtrlCreateLabel("", 100, 70, 40)
$agbot_button = GUICtrlCreateButton("Download", 150, 65, -1, 20)
GUICtrlCreateLabel("iSRObot", 10, 100)
$isrobot_v = GUICtrlCreateLabel("", 100, 100, 40)
$isrobot_button = GUICtrlCreateButton("Download", 150, 95, -1, 20)
GUISetState()

$testosterone = getsource("http://recyfer.info/testosterone.htm")
$testosterone_version = StringRegExp($testosterone, "Last version (.*?)<", 3)
GUICtrlSetData($testosterone_v, $testosterone_version[0])
$agbot = getsource("http://rev6.com/bot/")
$agbot_version = StringRegExp($agbot, "Package(.*?).nomap.zip<", 3)
GUICtrlSetData($agbot_v, $agbot_version[0])
$isrobot = getsource("http://down.botsmall.com/iSRObot/")
$isrobot_version = StringRegExp($isrobot, ">SROBotEn(.*?).exe<", 3)
GUICtrlSetData($isrobot_v, $isrobot_version[0])

Do
    $msg=GUIGetMsg()
    If $msg = $testosterone_button Then
        testosterone()
    ElseIf $msg = $agbot_button Then
        agbot()
    ElseIf $msg = $isrobot_button Then
        isrobot()
    EndIf
    Sleep(1)
Until $msg=-3

Func testosterone()
$testosterone_save = FileSaveDialog("Download Dir", "C:\Download\", "zip (*.zip)", 16, "C19H28O2.v"&$testosterone_version[0]&".zip")
If Not @error Then
    $size = InetGetSize("http://recyfer.info/files/C19H28O2.v"&$testosterone_version[0]&".zip")
    InetGet("http://recyfer.info/files/C19H28O2.v"&$testosterone_version[0]&".zip", $testosterone_save, 1, 1)
    $stat = @InetGetBytesRead/$size*100
    While $stat<>100
        $stat = int(@InetGetBytesRead/$size*100)
        TrayTip("Downloading", int(@InetGetBytesRead/1024)&"kb/"&int($size/1024)&"kb ("&$stat&"%)", 10, 16)
        Sleep(1000)
    Wend
MsgBox(64, "Download Complete", "Password: recyfer.info"&@CRLF&"Have Fun with the Loader ")
EndIf
EndFunc

Func agbot()
$agbot_save = FileSaveDialog("Download Dir", "C:\Download\", "zip (*.zip)", 16, "Package"&$agbot_version[0]&".nomap.zip")
If Not @error Then
    $size = InetGetSize("http://rev6.com/bot/Package"&$agbot_version[0]&".nomap.zip")
    InetGet("http://rev6.com/bot/Package"&$agbot_version[0]&".nomap.zip", $agbot_save, 1, 1)
    $stat = int(@InetGetBytesRead/$size*100)
    While $stat<>100
        $stat = int(@InetGetBytesRead/$size*100)
        TrayTip("Downloading", int(@InetGetBytesRead/1024)&"kb/"&int($size/1024)&"kb ("&$stat&"%)", 10, 16)
        Sleep(1000)
    Wend
MsgBox(64, "Download Complete", "Have Fun with the Newest AgBot ")
EndIf
EndFunc

Func isrobot()
$isrobot_save = FileSaveDialog("Download Dir", "C:\Download\", "exe (*.exe)", 16, "SROBotEn"&$isrobot_version[0]&".exe")
If Not @error Then
    $size = InetGetSize("http://down.botsmall.com/iSRObot/SROBotEn"&$isrobot_version[0]&".exe")
    InetGet("http://down.botsmall.com/iSRObot/SROBotEn"&$isrobot_version[0]&".exe", $isrobot_save, 1, 1)
    $stat = int(@InetGetBytesRead/$size*100)
    While $stat<>100
        $stat = int(@InetGetBytesRead/$size*100)
        TrayTip("Downloading", int(@InetGetBytesRead/1024)&"kb/"&int($size/1024)&"kb ("&$stat&"%)", 10, 16)
        Sleep(1000)
    Wend
MsgBox(64, "Download Complete", "Have Fun with the Newest iSRObot ")
EndIf
EndFunc

Func getsource($url)
    $httpObj = ObjCreate("winhttp.winhttprequest.5.1")
    $httpObj.open("GET",$url)
    $httpObj.send()
    Return $httpObj.Responsetext
EndFunc

Edited November 9, 2008 by BeBeT0