FoxWizzy Posted January 7, 2013 Share Posted January 7, 2013 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 Link to comment Share on other sites More sharing options...
guinness Posted January 7, 2013 Share Posted January 7, 2013 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. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _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 parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
BrewManNH Posted January 7, 2013 Share Posted January 7, 2013 (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 January 7, 2013 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 GudeHow 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 Link to comment Share on other sites More sharing options...
FoxWizzy Posted January 7, 2013 Author Share Posted January 7, 2013 (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 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now