help with auto update script

[FoxWizzy]

Func update_3()
Sleep(2000)
GUICtrlSetData($Label1, "Gating total file size...")
$log = FileOpen(@ScriptDir & "\error.log", 1)
Local $lines
$foserver = FileOpen(@ScriptDir & "\Launcher\version.dat")
$lines = _FileCountLines(@ScriptDir & "\Launcher\version.dat")
Local $record[1+$lines]
For $x = 0 To $lines
$record[$x] = FileReadLine($foserver)
Next
While $lines > 0
Local $fsize[1+$lines], $sizeadd
For $y = 0 To $lines
$fsize[$y] = InetGetSize($dec & "/update" & $record[$lines])
$sizeadd = $sizeadd + $fsize[$lines]
Next
$dw2 = InetGet($dec & "/update" & $record[$lines], @ScriptDir & $record[$lines], 1, 1)
Do
Sleep(100)
Until InetGetInfo($dw2, 2)
FileWrite($log, "Downloaded file : " & $record[$lines] & " ;;; File Size : " & $fsize[$lines] & @CRLF)
$lines = $lines -1
WEnd
FileWrite($log, @CRLF & "Total File Size : " & $sizeadd)
FileClose($log)
MsgBox(0, "", "Compleated")



EndFunc ;==>update_3

in the error.log file i have this :

[color=#ff0000]Downloaded file :  ;;; File Size : 1709[/color]
Downloaded file : /antihack.dll ;;; File Size : 194048
Downloaded file : /ogg.dll ;;; File Size : 53248
Downloaded file : /main.exe ;;; File Size : 10990592
Downloaded file : /Data/Local/Eng/movereq_eng.bmd ;;; File Size : 4204
Total File Size : 11243801

what is the 1709 i dont get it

[guinness]

Maybe the file contains whitespace. Little hard to debug when you've provide little to no information on the sites you're accessing and non-working/reproducible code.

What are you exactly downloading by the way? As one of those files looks suspicious from its name.

[BrewManNH]

Looks like a dl,l that gets copied over a legit dll so you can freely hack games without being blocked, to me.

Edited January 7, 2013 by BrewManNH

[FoxWizzy]

Looks like a dl,l that gets copied over a legit dll so you can freely hack games without being blocked, to me.

)

no...it's just an autoupdater i am making for my MuOnline server

the files in there are files i need to copy from my server to clients

here is my full code

expandcollapse popup

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

AutoIt Version: 3.3.8.1
Author: myName

Script Function:
Template AutoIt script.

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

; Script Start - Add your code below here

#include
#include
#include
#include
#include
#include

;~ Opt("TrayIconHide", 1)
Global $dec

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Oblivion Mu", 1030, 650, 191, 124)
$pic = GUICtrlCreatePic(@ScriptDir & "\mu copy2.bmp", 0, 0, 1030, 650)
GUICtrlSetState($pic, $GUI_DISABLE)
GUISetIcon("D:\Games\OblivionMU Client\main.exe", -1)
$iOE = ObjCreate("Shell.Explorer.2")
$com = GUICtrlCreateObj($iOE, 0, 200, 1030, 370)
$Button1 = GUICtrlCreateButton("Start", 920, 584, 91, 49)
GUICtrlSetFont(-1, 17, 800, 0, "MS Sans Serif")
GUICtrlSetState($Button1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Connecting to server...", 0, 584, 111, 17)
$Progress1 = GUICtrlCreateProgress(0, 610, 850, 9)
$Progress2 = GUICtrlCreateProgress(0, 630, 850, 9)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

$iOE.navigate("http://oblivionmu.dyndns.org")
$pass = "*********"
$lvl = 5
Call("update")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0, "", "")

EndSwitch
WEnd

Func update()
$fo = FileOpen(@ScriptDir & "\Launcher\Data\main.dat")
If $fo = -1 Then
MsgBox(0, "Error", "Missing file main.dat")
Exit
EndIf
$fr = FileRead($fo)
$dec = _StringEncrypt(0, $fr, $pass, $lvl)
FileClose($fo)

$dw = InetGet($dec & "/update/version.dat", @ScriptDir & "\Launcher\version.dat", 1, 1)
Do
Sleep(100)
Until InetGetInfo($dw, 2)
$info = InetGetInfo($dw, 3)
InetClose($dw)

If $info == True Then
Sleep(2000)
GUICtrlSetData($Label1, "Connected...")
Sleep(2000)
GUICtrlSetData($Label1, "Checking for updates...")
Call("update_2")
Else
GUICtrlSetData($Label1, "Can not connect to update server...")
GUICtrlSetState($Button1, $GUI_ENABLE)
EndIf
EndFunc ;==>update

Func update_2()
$fo_data = FileOpen(@ScriptDir & "\Launcher\Data\version.dat")
If $fo_data = -1 Then
MsgBox(0, "Error", "Missing file version.dat")
Exit
EndIf
$fr_data = FileReadLine($fo_data, 1)
FileClose($fo_data)
$dec_data = _StringEncrypt(0, $fr_data, $pass, $lvl)

$fo_serv = FileOpen(@ScriptDir & "\Launcher\version.dat")
If $fo_serv = -1 Then
MsgBox(0, "Error", "Missing file version.dat")
Exit
EndIf
$fr_server = FileReadLine($fo_serv, 1)
FileClose($fo_serv)

If $dec_data == $fr_server Then
Sleep(2000)
GUICtrlSetData($Label1, "Updated...")
GUICtrlSetState($Button1, $GUI_ENABLE)
FileDelete(@ScriptDir & "\Launcher\version.dat")
Else
Call("update_3")
EndIf


EndFunc ;==>update_2

Func update_3()
Sleep(2000)
GUICtrlSetData($Label1, "Gating total file size...")
$log = FileOpen(@ScriptDir & "\error.log", 1)
Local $lines
$foserver = FileOpen(@ScriptDir & "\Launcher\version.dat")
$lines = _FileCountLines(@ScriptDir & "\Launcher\version.dat")
Local $record[1 + $lines]
For $x = 0 To $lines
$record[$x] = FileReadLine($foserver)
Next
While $lines > 0
Local $fsize[1 + $lines], $sizeadd
For $y = 0 To $lines
$fsize[$y] = InetGetSize($dec & "/update" & $record[$lines])
$sizeadd = $sizeadd + $fsize[$lines]
Next
GUICtrlSetData($Label1, $sizeadd)
$dw2 = InetGet($dec & "/update" & $record[$lines], @ScriptDir & $record[$lines], 1, 1)
While Not InetGetInfo($dw2, 2)
Sleep(2000)
$bytesrecived = InetGetInfo($dw2, 0)
$pct = Int($bytesrecived / $fsize[$lines] * 100)
GUICtrlSetData($Progress2, $pct & "%")
WEnd
ProgressOff()
FileWrite($log, "Downloaded file : " & $record[$lines] & " ;;; File Size : " & $fsize[$lines] & @CRLF)
$lines = $lines - 1
WEnd
InetClose($dw2)
FileWrite($log, @CRLF & "Total File Size : " & $sizeadd)
FileClose($log)
MsgBox(0, "", "Compleated")



EndFunc ;==>update_3

Edited January 7, 2013 by FoxWizzy