Sign in to follow this  
Followers 0
FoxWizzy

help with auto update script

4 posts in this topic

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

Share this post


Link to post
Share on other sites



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.


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

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

Edited by BrewManNH

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

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

#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 by FoxWizzy

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0