Jump to content

Demon777

Active Members
  • Posts

    55
  • Joined

  • Last visited

Demon777's Achievements

Wayfarer

Wayfarer (2/7)

0

Reputation

  1. any help ? =/
  2. Well i tryed this out. This function was for updating =) But i got 1 more prob. Code : Func _Update() Local $Filelist = @ScriptDir & "\Filelist.bin" Local $List = IniReadSection($Filelist, "Files") For $i = 1 To $List[0][0] If StringInStr($List[$i][0], "File") Then If Not FileExists($List[$i][1]) Then Sleep(100) InetGet($List[$i + 1][1], $List[$i][1]) If @error Then GUICtrlSetData($Label1, "Error while downloading ...") EndIf Else Return Endif ;Local $Size = FileGetSize($List[$i][1]) ;Local $OSize = InetGetSize($List[$i + 1][1]) If Not FileGetSize($List[$i][1]) = InetGetSize($List[$i + 1][1]) Then Sleep(100) InetGet($List[$i + 1][1], $List[$i][1]) If @error Then GUICtrlSetData($Label1, "Error while downloading ...") EndIf EndIf EndIf Next Return EndFunc When there are no files in folder, it downloads them and if files exist but has another size then it deletes old ones and downloads new ones. But it dont want to work. It downloading when files are not exist but its not updaiting when files have different size ... any ideas ?
  3. Still testing and it works perfect for now =) thx for example. If i found an error i will post ! Thx again!
  4. This is a new try... Func _Check() $Filelist = @ScriptDir & "\Filelist.bin" $List = IniReadSection($Filelist, "Files") $Number = 1 For $i = 1 To $List[0] Local $url = IniRead($Filelist, $List[$i], "Url" & $Number, "") Local $path = IniRead($Filelist, $List[$i], "File" & $Number, "") If Not FileExists($path) Then InetGet($url, $path) Else Sleep(10) EndIf $Number = $Number + 1 Next EndFunc Please help =/
  5. No one ? =(
  6. Hello everyone. I got little prob here. I have an ini file. This ini file has following keys... :------------------------- [Files] FilePath1 = C:\Path\File FileUrl1 = http://site/file FilePath2 = C:\Path\File FileUrl2 = http://site/file FilePath3 = C:\Path\File FileUrl3 = http://site/file :------------------------- So. My script should check if file exist under FilePath, if not then download this file from FileUrl. So this is what i have atm : Func _Check() $Filelist = @ScriptDir & "\Filelist.bin" $List = IniReadSection($Filelist, "Files") For $i = 1 To $List[0][0] If FileExists($List[$i][1]) Then Sleep(100) Else ;Get file from inet under fileurl. ;I have no idea how to get this url for right file. Endif Next EndFuncAfter it has checked all files it should exit. Thx. So is there any way to do it ?
  7. Well. I cant find anythin in search thats why i posted it here.
  8. Hello there. i have one problem. Today i tryed to make something like updater for 1 game. This game has many ini files that are in other folders. There are 3 main folders. The folders are : \Data\...\ \Exe\...\ \Dlls\...\ And in each of this folders are more folders with files. I have a server with same folders. Now i need a script to check files on my server and compare it with files in game folder. If there any files that are not same size then updater should download last updated file from my server and replace it with old one. The question is how to do it. I tryed to search but i found nothing. All what i found were how to update just one file form inet. This is what i got : This code should read links from ini to every file on server and then compare size with current one but i cant get it work =( Func _Check() InetGet("http://myfileurl/check.ini", @TempDir & "\check.ini") Local $File = @TempDir & "\check.ini" $Var = IniReadSection($File, "Update") for $i = 1 To $Var[0][0] $Onlinesize = InetGetSize($Var[$i][1]) $Currentsize = FileGetSize($Path & "\Data\" & $Var[$i][1] If Not $OnlineSize = $Currentsize Then Exit Else InetGet($Var[$i][$1], $Path & "\Data\" & $Var[$i][1]) EndIf Next EndFunc InI File check.ini : [Update] Key1 = http://mysite/file.ini Key2 = http://mystie/file2.ini Thanks. P.s sry for bad english.
  9. I still have 1 prob =( I have ini file. This ini file has 2 Selections with Key's. Exp : [selection1] Key1 = "value" Key2 = "value" Key3 = "value" [selection2] Key1 = "value" Key2 = "value" Key3 = "value" So now if i add new Selection with Keys, my script should read it and show it in ListView.. Valuater your example works but it read only 1 Selection from InI File..And it shows only 1 in ListView Any way how i can show all Selections and keys in ListView ? Thanks =)
  10. Thank you mate !!! You the best ! ^-^ It works =D
  11. Hello everyone. I have 1 problem.. I want to make script that read ini file and read all ini Selection Names in it. After that my script should read this selection names and set all key's in this selection names into ListView Control. Thats what i have : Func _Check() InetGet($Server, $InI) If @error Then GUICtrlSetData($Information, "Error!") $Var = IniReadSectionNames($InI) For $i = 1 To $Var[0] $Var2 = IniReadSection($Var, $Var[$i]) For $a = 1 To $Var2[0][0] Local $link = IniRead($Var, $Var2, "onlinelink", "") Local $name = IniRead($Var, $Var2, "onlinename", "") Local $status = IniRead($Var, $Var2, "status", "") GUICtrlSetData($UpdateList_0, $name & "|" & $link & "|" & $status) Next Next EndFunc ListView code : $UpdateList = GUICtrlCreateListView("File|Link|Status", 8, 32, 410, 142, -1, BitOR($WS_EX_CLIENTEDGE,$LVS_EX_HEADERDRAGDROP)) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 240) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 86) $UpdateList_0 = GUICtrlCreateListViewItem("File.txt|localhost/file.txt|New Version", $UpdateList) $UpdateList_1 = GUICtrlCreateListViewItem("About.txt|localhost/about.txt|New Version", $UpdateList) $InI = @Tempdir & "\test.ini" But it dont work. Hope for fast answer. (Sry for bad English)
  12. I have a problem guys =) I made a script for a game that should show how much time till next Event... This Event starting every 1.30 Hour.. For example: At 10.30 on channel 5-4 for low lvl and on ch 1-3 for high lvl... At 12.30 on channel 1-3 for low lvl and on ch 5-4 for high lvl... So how can i make this script to show the time till every Event ? I tryed this : $Form1 = GUICreate("Event Check", 218, 104, -1, -1) $Label1 = GUICtrlCreateLabel("Next Event is at :", 8, 8, 139, 17) GUICtrlSetFont(-1, 8, 400, 0, "Segoe UI") $Label2 = GUICtrlCreateLabel("$Time", 152, 8, 35, 17) GUICtrlSetFont(-1, 8, 800, 0, "Segoe UI") GUICtrlSetColor(-1, 0xFF0000) If $Hour < 0 and $Min < 30 Then GUICtrlSetData ($Label2, '0.30') EndIf For Example : If @HOUR and @MIN < 12.30 and > 10.30 Then Set Data to Label2 that next Event is at 12.30 and so on... Need help =P Thanks !
  13. Hello everyone! I got 1 problem. I want to write a script that checking for updates , downloading them and installing in right folder. My game has 3 Folders : EXE, DATA, MAIN. In every Folder are more Folders. So is here any way to make a Updater for this game ? Game Name : Freelancer. I thinked about Zip but i dont know how to realise this... So i gonna ask for help from profis =) Plz help =)
  14. Hello everyone =) I have no idea how to do it but maybe you can explain me how to do it. (If it is possible =)) I need a program that writing all info that was entered in another program into .txt File like Keylogger. I need this coz my Bro using my PC and i wanna know what he is doing with it when i am away ;-) Sure i can use already created Keyloggers but i think its better when you understand what you open on ur PC. So now i wanna create a prog like keylogger to see what going on on my PC... And i need help with it.. I tryed to search in Forum but i founded nothing about this. So feel free to help ^^ Thx.. I founded something about _WinAPI_SetWindowsHookEx but i can not understand it o.O
  15. Hello every1. I have big problem today... i gonna try to write Aimbot oO So i need some help. If u can give me some tips so plz do it =) I using Screen Resolution 1280 x 1024 and i need to find red + at screen... Here is a Foto // So how can i make my script like that : When it detecting this red (dark red) + it should move mouse there. So any Ideas ppl ? Ty... I need any help =)
×
×
  • Create New...