onestcoder Posted February 15, 2006 Share Posted February 15, 2006 Autoit GODS please review this for me and tell me were you would make changes. I have only been useing Autoit for about a month and have never coded before. I have been learning allot. Thank you My Buttons arent working GUICtrlSetOnEvent expandcollapse popup; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- $fileen = FileOpen("includes/vars/enhancevars.txt", 0) $speeden = FileReadLine($fileen, 1) $spellnumberen = FileReadLine($fileen, 2) + 1 FileClose($fileen) ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001") If @error = 1 Then Global $resx = RegRead("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0001") Global $resy = RegRead("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0002") Global $install = RegRead("HKLM\SOFTWARE\PlayOnlineEU\Installfolder", "0001") Else Global $resx = RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001") Global $resy = RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0002") Global $install = RegRead("HKLM\SOFTWARE\PlayOnlineUS\Installfolder", "0001") EndIf ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- Global $resa = @DesktopWidth Global $resb = @DesktopHeight Global $resadded = $resx + $resy Global $winadded = $resa + $resb Global $status Global $pause = 0 Global $run = 1 Global $event = 0 Global $Paused = False Global $enhanceing = False ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- If $winadded <> 1400 And $winadded <> 1792 And $winadded <> 2304 Then nowinres() EndIf If $resadded <> $winadded Then fixres() EndIf ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- $filew = FileOpen("includes\tools\Windower.ini", 2) FileWrite($filew, "[Windower Settings]" & @CRLF & @CRLF) FileWrite($filew, "#Version may be NA, JP, or EU" & @CRLF) FileWrite($filew, "Language=NA" & @CRLF & @CRLF) FileWrite($filew, "#Defines the window size, for fullscreen, set to the size of your desktop" & @CRLF) FileWrite($filew, "#Standard resolutions are 640x480, 800x600, 1024x768, 1280x1024, etc." & @CRLF) FileWrite($filew, "X Resolution=" & $resx & @CRLF) FileWrite($filew, "Y Resolution=" & $resy & @CRLF & @CRLF) FileWrite($filew, "#Sets the console key. Note that older versions of Windower interfered" & @CRLF) FileWrite($filew, "#with IME when ~(tilde) was the console key, but this has been fixed." & @CRLF) FileWrite($filew, "Console Key=`" & @CRLF & @CRLF) FileWrite($filew, "#True fullscreen is where Windower is loaded (and therefor plugins work)," & @CRLF) FileWrite($filew, "#but you can't alt-tab. The advantage to this is you don't get graphical" & @CRLF) FileWrite($filew, "#artifacts but you can use plugins. This was a requested feature." & @CRLF) FileWrite($filew, "True Fullscreen=0" & @CRLF & @CRLF) FileWrite($filew, "#this should only be set if you're trying to debug a plugin you're" & @CRLF) FileWrite($filew, "#developing. Setting this will disable the Windower exception handler" & @CRLF) FileWrite($filew, "#so that you can analyze exceptions in your plugin." & @CRLF) FileWrite($filew, "Debug=0" & @CRLF) FileClose($filew) ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- #include <GUIConstants.au3> $gui = GUICreate("Enhancer Bot", 205, 340, 0, 0, -1, $WS_EX_TOPMOST) opt("GUICoordMode", 1) GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate") HotKeySet("{F11}", "TogglePause") HotKeySet("{F10}", "Terminate") GUICtrlCreateGroup("Bot Program Speed", 10, 165, 185, 75) $speednumbere = GUICtrlCreateSlider(15, 180, 175, 30) GUICtrlSetLimit(-1, 3, 1) If $speeden = 1 Then GUICtrlSetData($speednumbere, 1) EndIf If $speeden = 2 Then GUICtrlSetData($speednumbere, 2) EndIf If $speeden = 3 Then GUICtrlSetData($speednumbere, 3) EndIf GUICtrlCreateLabel("Slow", 15, 210, 50, 20) GUICtrlSetFont(-1, 9, 450) GUICtrlSetColor(-1, 0xff0000) GUICtrlCreateLabel("Standard", 75, 210, 55, 20) GUICtrlSetFont(-1, 9, 450) GUICtrlSetColor(-1, 0xff0000) GUICtrlCreateLabel("Ultra", 160, 210, 30, 20) GUICtrlSetFont(-1, 9, 450) GUICtrlSetColor(-1, 0xff0000) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("Current Spells", 10, 10, 185, 135) $spell1 = GUICtrlCreateCheckbox("Cure I,II,III,IV,V", 15, 30, 118, 20) $spell2 = GUICtrlCreateCheckbox("Protect I,II,III,IV", 15, 50, 118, 20) $spell3 = GUICtrlCreateCheckbox("Shell I,II,III,IV", 15, 70, 118, 20) $spell4 = GUICtrlCreateCheckbox("Spikes-Blaze,Shock,etc", 15, 90, 136, 20) $spell5 = GUICtrlCreateCheckbox("En-Thunder,Stone, etc", 15, 110, 136, 25) $spell6 = GUICtrlCreateCheckbox("+1", 150, 30, 30, 20) $spell7 = GUICtrlCreateCheckbox("+1", 150, 50, 30, 20) $spell8 = GUICtrlCreateCheckbox("+1", 150, 70, 30, 20) $spell9 = GUICtrlCreateCheckbox("+1", 150, 90, 30, 20) If $spellnumberen = 1 Then GUICtrlSetState($spell1, $GUI_CHECKED) ElseIf $spellnumberen = 2 Then GUICtrlSetState($spell1, $GUI_CHECKED) GUICtrlSetState($spell2, $GUI_CHECKED) ElseIf $spellnumberen = 3 Then GUICtrlSetState($spell1, $GUI_CHECKED) GUICtrlSetState($spell2, $GUI_CHECKED) GUICtrlSetState($spell3, $GUI_CHECKED) ElseIf $spellnumberen = 4 Then GUICtrlSetState($spell1, $GUI_CHECKED) GUICtrlSetState($spell2, $GUI_CHECKED) GUICtrlSetState($spell3, $GUI_CHECKED) GUICtrlSetState($spell4, $GUI_CHECKED) ElseIf $spellnumberen = 5 Then GUICtrlSetState($spell1, $GUI_CHECKED) GUICtrlSetState($spell2, $GUI_CHECKED) GUICtrlSetState($spell3, $GUI_CHECKED) GUICtrlSetState($spell4, $GUI_CHECKED) GUICtrlSetState($spell5, $GUI_CHECKED) ElseIf $spellnumberen = 6 Then GUICtrlSetState($spell1, $GUI_CHECKED) GUICtrlSetState($spell2, $GUI_CHECKED) GUICtrlSetState($spell3, $GUI_CHECKED) GUICtrlSetState($spell4, $GUI_CHECKED) GUICtrlSetState($spell5, $GUI_CHECKED) GUICtrlSetState($spell6, $GUI_CHECKED) ElseIf $spellnumberen = 7 Then GUICtrlSetState($spell1, $GUI_CHECKED) GUICtrlSetState($spell2, $GUI_CHECKED) GUICtrlSetState($spell3, $GUI_CHECKED) GUICtrlSetState($spell4, $GUI_CHECKED) GUICtrlSetState($spell5, $GUI_CHECKED) GUICtrlSetState($spell6, $GUI_CHECKED) GUICtrlSetState($spell7, $GUI_CHECKED) ElseIf $spellnumberen = 8 Then GUICtrlSetState($spell1, $GUI_CHECKED) GUICtrlSetState($spell2, $GUI_CHECKED) GUICtrlSetState($spell3, $GUI_CHECKED) GUICtrlSetState($spell4, $GUI_CHECKED) GUICtrlSetState($spell5, $GUI_CHECKED) GUICtrlSetState($spell6, $GUI_CHECKED) GUICtrlSetState($spell7, $GUI_CHECKED) GUICtrlSetState($spell8, $GUI_CHECKED) ElseIf $spellnumberen = 9 Then GUICtrlSetState($spell1, $GUI_CHECKED) GUICtrlSetState($spell2, $GUI_CHECKED) GUICtrlSetState($spell3, $GUI_CHECKED) GUICtrlSetState($spell4, $GUI_CHECKED) GUICtrlSetState($spell5, $GUI_CHECKED) GUICtrlSetState($spell6, $GUI_CHECKED) GUICtrlSetState($spell7, $GUI_CHECKED) GUICtrlSetState($spell8, $GUI_CHECKED) GUICtrlSetState($spell9, $GUI_CHECKED) EndIf GUICtrlCreateGroup("", -99, -99, 1, 1) ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- $OKenhance = GUICtrlCreateButton("Save", 120, 260, 75, 25) GUICtrlSetOnEvent($OKenhance, "enhancesave") ; ---------------------------------------------------------------------------- $OKrun = GUICtrlCreateButton("Run", 120, 300, 75, 25) GUICtrlSetOnEvent($OKrun, "enhanceing") ; ---------------------------------------------------------------------------- $exitb = GUICtrlCreateButton("EXIT", 10, 260, 75, 25) GUICtrlSetOnEvent($exitb, "Terminate") ; ---------------------------------------------------------------------------- $p2 = GUICtrlCreateButton("Pause", 10, 300, 75, 25) GUICtrlSetOnEvent($p2, "TogglePause") GUISetState() ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- While 1 If GUICtrlRead($spell1) > 3 Then $statusspell1 = GUICtrlRead($spell1) - 4 ElseIf GUICtrlRead($spell1) < 3 Then $statusspell1 = GUICtrlRead($spell1) EndIf If GUICtrlRead($spell2) > 3 Then $statusspell2 = GUICtrlRead($spell2) - 4 ElseIf GUICtrlRead($spell2) < 3 Then $statusspell2 = GUICtrlRead($spell2) EndIf If GUICtrlRead($spell3) > 3 Then $statusspell3 = GUICtrlRead($spell3) - 4 ElseIf GUICtrlRead($spell3) < 3 Then $statusspell3 = GUICtrlRead($spell3) EndIf If GUICtrlRead($spell4) > 3 Then $statusspell4 = GUICtrlRead($spell4) - 4 ElseIf GUICtrlRead($spell4) < 3 Then $statusspell4 = GUICtrlRead($spell4) EndIf If GUICtrlRead($spell5) > 3 Then $statusspell5 = GUICtrlRead($spell5) - 4 ElseIf GUICtrlRead($spell5) < 3 Then $statusspell5 = GUICtrlRead($spell5) EndIf If GUICtrlRead($spell6) > 3 Then $statusspell6 = GUICtrlRead($spell6) - 4 ElseIf GUICtrlRead($spell6) < 3 Then $statusspell6 = GUICtrlRead($spell6) EndIf If GUICtrlRead($spell7) > 3 Then $statusspell7 = GUICtrlRead($spell7) - 4 ElseIf GUICtrlRead($spell7) < 3 Then $statusspell7 = GUICtrlRead($spell7) EndIf If GUICtrlRead($spell8) > 3 Then $statusspell8 = GUICtrlRead($spell8) - 4 ElseIf GUICtrlRead($spell8) < 3 Then $statusspell8 = GUICtrlRead($spell8) EndIf If GUICtrlRead($spell9) > 3 Then $statusspell9 = GUICtrlRead($spell9) - 4 ElseIf GUICtrlRead($spell9) < 3 Then $statusspell9 = GUICtrlRead($spell9) EndIf ; ---------------------------------------------------------------------------- Local $spellnumber = $statusspell1 + $statusspell2 + $statusspell3 + $statusspell4 + $statusspell5 + $statusspell6 + $statusspell7 + $statusspell8 + $statusspell9 - 1 ; ---------------------------------------------------------------------------- $msg = GUIGetMsg() ; ---------------------------------------------------------------------------- If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- Func enhancesave() $fileenhance = FileOpen("includes/vars/enhancevars.txt", 2) FileWrite($fileenhance, GUICtrlRead($speednumbere) & @CRLF) FileWrite($fileenhance, $spellnumber & @CRLF) FileClose($fileenhance) Sleep(100) SplashTextOn("Saved", "Saved!", 100, 25, -1, -1, 0, "", 12) Sleep(1000) SplashOff() EndFunc ;==>enhancesave ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- While $enhanceing = True Sleep(100) SplashTextOn("Enhanceing", "Running", 100, 25, -1, -1, 0, "", 12) Sleep(1000) SplashOff() $file = FileOpen("includes/vars/enhancevars.txt", 0) $speed = FileReadLine($file, 1) $spellnumber = FileReadLine($file, 2) FileClose($file) Local $resx = RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001") Local $resy = RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0002") Local $resnumber = $resx + $resy If $resnumber = 1400 Then $res = 1 ElseIf $resnumber = 1792 Then $res = 2 ElseIf $resnumber = 2016 Then $res = 0 ElseIf $resnumber = 2048 Then $res = 0 ElseIf $resnumber = 2240 Then $res = 0 ElseIf $resnumber = 2304 Then $res = 3 EndIf If $res = 0 Then MsgBox(16, "Error", "Your FFXI resolution is not currently supported", 10) Exit EndIf If $res = 1 Then $resolution = 0 $resolution2 = 0 EndIf If $res = 2 Then $resolution = 168 $resolution2 = 225 EndIf If $res = 3 Then $resolution = 424 $resolution2 = 481 EndIf If $speed = 1 Then $sleep1 = 1500 $sleep2 = 5000 $sleep3 = 15000 EndIf If $speed = 2 Then $sleep1 = 500 $sleep2 = 2000 $sleep3 = 10000 EndIf If $speed = 3 Then $sleep1 = 0 $sleep2 = 0 $sleep3 = 0 EndIf ;Run(@ProgramFilesDir & "\PlayOnline\SquareEnix\PlayOnlineViewer/pol.exe") Do AutoItSetOption("SendKeydownDelay", 250); If PixelGetColor(26, 577 + $resolution) > 16777000 And PixelGetColor(26, 577 + $resolution) < 16777300 And PixelGetColor(35, 571 + $resolution) > 16777000 And PixelGetColor(35, 571 + $resolution) < 16777300 And PixelGetColor(53, 567 + $resolution) > 16777000 And PixelGetColor(53, 567 + $resolution) < 16777300 Then Sleep(1000 + $sleep2) Send("^1") Sleep(500) Exit Terminate() EndIf If $spellnumber = 0 Then If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then Sleep(2000) Send("!1"); spell 1. Send("!1") Sleep(12000 + $sleep2) $event = 0 EndIf EndIf If $spellnumber = 1 Then If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then Sleep(2000) Send("!1"); spell 1. Send("!1") Sleep(6000 + $sleep2) $event = 0 EndIf If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then Sleep(2000) Send("!2");spell 2. Send("!2") Sleep(6000 + $sleep2) $event = 0 EndIf EndIf If $spellnumber = 2 Then If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then Sleep(2000) Send("!1"); spell 1. Send("!1") Sleep(4000 + $sleep2) $event = 0 EndIf If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then Sleep(2000) Send("!2");spell 2. Send("!2") Sleep(4000 + $sleep2) $event = 0 EndIf If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then Sleep(2000) Send("!3");spell 3. Send("!3") Sleep(4000 + $sleep2) $event = 0 EndIf EndIf If $spellnumber > 2 Then If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then Sleep(2000) Send("!1"); spell 1. Send("!1") Sleep(4000 + $sleep2) $event = 0 EndIf If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then Sleep(2000) Send("!2");spell 2. Send("!2") Sleep(4000 + $sleep2) $event = 0 EndIf If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then Sleep(2000) Send("!3");spell 3. Send("!3") Sleep(4000 + $sleep2) $event = 0 EndIf If PixelGetColor(733 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) > 11000000 Then Sleep(2000) Send("!4");spell 4. Send("!4") Sleep(4000 + $sleep2) $event = 0 EndIf EndIf If PixelGetColor(733 + $resolution2, 575 + $resolution) < 9000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) < 9000000 Then med(); $event = 1;low mp. EndIf Until $event = 1 WEnd ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- Func med() Sleep(100) SplashTextOn("Healing", "MP Low", 100, 25, -1, -1, 0, "", 12) Sleep(1000) SplashOff() Sleep(1000) Send("{ESCAPE 2}") Sleep(1500) Send("!h");down Sleep(60000) If PixelGetColor(733 + $resolution2, 575 + $resolution) < 9000000 And PixelGetColor(733 + $resolution2, 577 + $resolution) < 8500000 Then Send("{ESCAPE 2}") Sleep(1500) Send("!h");down EndIf $event = 0 Do Sleep(3000) If PixelGetColor(772 + $resolution2, 575 + $resolution) > 10000000 And PixelGetColor(772 + $resolution2, 577 + $resolution) > 11000000 Then Send("{ESCAPE 2}") Sleep(1500) AutoItSetOption("SendKeydownDelay", 3000); Send("!h");up AutoItSetOption("SendKeydownDelay", 250); $event = 2;mp full. EndIf Until $event = 2 EndFunc ;==>med ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- Func Pause() If $rest = 1 Then Send("!h");down EndIf While 1 Sleep(5000) If DriveStatus($drive) = "READY" Then If $rest = 1 Then Sleep(250) AutoItSetOption("SendKeydownDelay", 3000); Send("!h");up AutoItSetOption("SendKeydownDelay", 250); Sleep(250) EndIf ExitLoop EndIf If PixelGetColor(26, 577 + $resolution) > 16777000 And PixelGetColor(26, 577 + $resolution) < 16777300 And PixelGetColor(35, 571 + $resolution) > 16777000 And PixelGetColor(35, 571 + $resolution) < 16777300 And PixelGetColor(53, 567 + $resolution) > 16777000 And PixelGetColor(53, 567 + $resolution) < 16777300 Then Sleep(1000) Send("^1") Sleep(500) Exit Terminate() EndIf WEnd EndFunc ;==>Pause ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- Func Terminate() Exit 0 EndFunc ;==>Terminate Func TogglePause() $Paused = Not $Paused $enhanceing = Not $enhanceing If $Paused = False Then ToolTip("") ElseIf $Paused = True Then Sleep(100) ToolTip('Script is "Paused"', 0, 0) EndIf EndFunc ;==>TogglePause ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- Func enhanceing() If $enhanceing = False And $Paused = True Then TogglePause() Else $enhanceing = True EndIf EndFunc ;==>enhanceing ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- Func nowinres() MsgBox(4096, "Resolution Error", "Your current windows resolution is not supported" & @CRLF & "Please switch to one of the three supported resolutions and restart Burners 7in1 Software" & @CRLF & "These Include 800x600 & 1024x768 & 1280x1024" & @CRLF & "Thank You") Exit EndFunc ;==>nowinres ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- Func fixres() MsgBox(4096, "Resolution Error", "Your current FFXI resolution does not match your windows resolution" & @CRLF & "In order for the bots to work properly they must match" & @CRLF & "Dont worry we will fix this for you" & @CRLF & "Simply Press OK to fix your FFXI resolution to match your Windows resolution" & @CRLF & "Burnersware will automatically fix your resolution and restart when finished" & @CRLF & "Thank You") ; ---------------------------------------------------------------------------- RegRead("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001") If @error = 1 Then If $winadded = 1400 Then RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000320");800 RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000258");600 EndIf If $winadded = 1792 Then RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000400");1024 RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000300");768 EndIf If $winadded = 2304 Then RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000500");1280 RegWrite("HKLM\SOFTWARE\PlayOnlineEU\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000400");1024 EndIf Else If $winadded = 1400 Then RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000320");800 RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000258");600 EndIf ; ---------------------------------------------------------------------------- If $winadded = 1792 Then RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000400");1024 RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000300");768 EndIf ; ---------------------------------------------------------------------------- If $winadded = 2304 Then RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0001", "REG_DWORD", "0x00000500");1280 RegWrite("HKLM\SOFTWARE\PlayOnlineUS\SquareEnix\FinalFantasyXI", "0002", "REG_DWORD", "0x00000400");1024 EndIf EndIf EndFunc ;==>fixres ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------------------------------------------- Exit Need a website: http://www.iconixmarketing.com Link to comment Share on other sites More sharing options...
onestcoder Posted February 15, 2006 Author Share Posted February 15, 2006 Opt("GUIOnEventMode", 1) I figured it out But if you would review the code and make suggetions PLEASE PLEASE do. I want to learn Need a website: http://www.iconixmarketing.com Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted February 15, 2006 Moderators Share Posted February 15, 2006 Opt("GUIOnEventMode", 1) I figured it outBut if you would review the code and make suggetions PLEASE PLEASE do. I want to learnFeels like I've seen this code like 10 times in the past week... dejavu? Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
onestcoder Posted February 15, 2006 Author Share Posted February 15, 2006 Feels like I've seen this code like 10 times in the past week... dejavu? I have posted it one or twice but it has never been the same thing twice. Evertime I go over it again I learn more and more, but new I'm getting stomped about what to do next or undo next I was just hopeing to make a quilty script and learn as much as I can to be a Indepentant Autoit coder. But i'm a newb Its not that I dont understand the code or how the code works cuz most of it is common scene. I just am learning different methods of doing things. Problem Solving and such. Its hard to learn Problem solving without input and feedback. So i'v mainly posted this code so I can learn how other coders view a script and what problem solving Methods they use to avoid function problems and things of that natureI love Autoit It' my new favorate pass time Need a website: http://www.iconixmarketing.com Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted February 15, 2006 Moderators Share Posted February 15, 2006 I have posted it one or twice but it has never been the same thing twice. Evertime I go over it again I learn more and more, but new I'm getting stomped about what to do next or undo next I was just hopeing to make a quilty script and learn as much as I can to be a Indepentant Autoit coder. But i'm a newb Its not that I dont understand the code or how the code works cuz most of it is common scene. I just am learning different methods of doing things. Problem Solving and such. Its hard to learn Problem solving without input and feedback. So i'v mainly posted this code so I can learn how other coders view a script and what problem solving Methods they use to avoid function problems and things of that natureI love Autoit It' my new favorate pass timeGood deal... this is probably more than the first script that I did. Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. 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