Cha0sBG Posted August 4, 2008 Share Posted August 4, 2008 Ok i just give up...... Ok fixed all the fucking bugs but still i will explain what shoud it do ... and it dousnt do them. It shoud activate the window selected from first combobox ..... Works. Shoud Send the key selected from "1st Weapon" combo ..... Works. Shoud Send the key selected from "2nd weapon" etc etc etc etc..... all othere shits dousnt work i tryed to figure out what's wrong can't do it so i ask for help.... expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Process.au3> #include <Array.au3> $exe_name = "sro_client.exe" $winlist = ProcessList ($exe_name) GUICreate("Ultimate Euro Buffer", 260, 300) $combo = GUICtrlCreateCombo ("Select Client Name", 4,4,170,20) $Cleric = GUICtrlCreateRadio("Cleric", 15, 45) $Bard = GUICtrlCreateRadio("Bard", 70, 45) GUICtrlCreateGroup("Select Buff Class", 2, 30, 125, 40) GUICtrlCreateGroup("Stop While Buff", 130, 30, 135, 40) $Start = GUICtrlCreateButton("Start", 5, 260, 250) $StopBot = GUICtrlCreateCheckbox("Stop Bot While Buffing", 135, 45) $BotSelect = GUICtrlCreateCombo("Select Bot", 180, 4, 75) GUICtrlSetData(-1, "ISRO Bot") $1Weapon = GUICtrlCreateCombo("1st Weapon's F", 14, 80, 105, 20) GUICtrlSetData(-1, "F1") GUICtrlSetData(-1, "F2") GUICtrlSetData(-1, "F3") GUICtrlSetData(-1, "F4") $1WeaponSlot = GUICtrlCreateCombo("Weapon1 Slot", 14, 110, 105, 20) GUICtrlSetData(-1, "1") GUICtrlSetData(-1, "2") GUICtrlSetData(-1, "3") GUICtrlSetData(-1, "4") GUICtrlSetData(-1, "5") GUICtrlSetData(-1, "6") GUICtrlSetData(-1, "7") GUICtrlSetData(-1, "8") GUICtrlSetData(-1, "9") $2Weapon = GUICtrlCreateCombo("2nd Weapon's F", 135, 80, 105, 20) GUICtrlSetData(-1, "F1") GUICtrlSetData(-1, "F2") GUICtrlSetData(-1, "F3") GUICtrlSetData(-1, "F4") $2WeaponSlot = GUICtrlCreateCombo("Weapon 2 slot", 135, 110, 105, 20) GUICtrlSetData(-1, "1") GUICtrlSetData(-1, "2") GUICtrlSetData(-1, "3") GUICtrlSetData(-1, "4") GUICtrlSetData(-1, "5") GUICtrlSetData(-1, "6") GUICtrlSetData(-1, "7") GUICtrlSetData(-1, "8") GUICtrlSetData(-1, "9") $BuffsF = GUICtrlCreateCombo("Select The" & " " & "(F)" & " " & "of the buffs", 15, 140, 225, 20) GUICtrlSetData(-1, "F1") GUICtrlSetData(-1, "F2") GUICtrlSetData(-1, "F3") GUICtrlSetData(-1, "F4") $Buff1 = GUICtrlCreateCombo("1st Buff", 15, 170, 120, 20) $Buff2 = GUICtrlCreateCombo("2nd Buff", 15, 200, 120, 20) $Buff3 = GUICtrlCreateCombo("3rd Buff", 15, 230, 120, 20) $Buff1Slot = GUICtrlCreateCombo("Select Slot", 140, 170, 100, 20) GUICtrlSetData(-1, "1") GUICtrlSetData(-1, "2") GUICtrlSetData(-1, "3") GUICtrlSetData(-1, "4") GUICtrlSetData(-1, "5") GUICtrlSetData(-1, "6") GUICtrlSetData(-1, "7") GUICtrlSetData(-1, "8") GUICtrlSetData(-1, "9") $Buff2Slot = GUICtrlCreateCombo("Select Slot", 140, 200, 100, 20) GUICtrlSetData(-1, "1") GUICtrlSetData(-1, "2") GUICtrlSetData(-1, "3") GUICtrlSetData(-1, "4") GUICtrlSetData(-1, "5") GUICtrlSetData(-1, "6") GUICtrlSetData(-1, "7") GUICtrlSetData(-1, "8") GUICtrlSetData(-1, "9") $Buff3Slot = GUICtrlCreateCombo("Select Slot", 140, 230, 100, 20) GUICtrlSetData(-1, "1") GUICtrlSetData(-1, "2") GUICtrlSetData(-1, "3") GUICtrlSetData(-1, "4") GUICtrlSetData(-1, "5") GUICtrlSetData(-1, "6") GUICtrlSetData(-1, "7") GUICtrlSetData(-1, "8") GUICtrlSetData(-1, "9") GUISetState(@SW_SHOW) For $i = 1 To $winlist[0][0] GUICtrlSetData ($combo, WinGetTitle(_ProcessGetWinEx($winlist[$i][0],"","","",True))) Next GUISetState () While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_Close Then Exit EndIf buffs() WEnd Func Buffs() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_Close Then Exit EndIf If BitAND(GuiCtrlRead($Cleric), $GUI_Checked) = $GUI_Checked Then GUICtrlSetData($Buff1, "Bless Of Spell") GUICtrlSetData($Buff2, "Recovery Division") GUICtrlSetData($Buff3, "Not Working") If $msg = $Start And BitAND(GuiCtrlRead($Cleric), $GUI_Checked) = $GUI_Checked Then ClericBuffs() WinSetState("Ultimate Euro Buffer", "", @SW_HIDE) EndIf ExitLoop ElseIf BitAND(GuiCtrlRead($Bard), $GUI_Checked) = $GUI_Checked Then GUICtrlSetData($Buff1, "Moving March") GUICtrlSetData($Buff2, "Noice") GUICtrlSetData($Buff3, "Not Working") If $msg = $Start And BitAND(GuiCtrlRead($Bard), $GUI_Checked) = $GUI_Checked Then BardBuffs() WinSetState("Ultimate Euro Buffer", "", @SW_HIDE) EndIf ExitLoop EndIf WEnd EndFunc Func ClericBuffs() While 1 Local $CN = GUICtrlRead($combo) Local $2W = GUICtrlRead($2Weapon) Local $1W = GUICtrlRead($1Weapon) Local $1WS = Guictrlread($1WeaponSlot) Local $2WS = GUICtrlRead($2WeaponSlot) Local $BF = GUICtrlRead($BuffsF) Local $BS1 = GUICtrlRead($Buff1Slot) Local $BS2 = GUICtrlRead($Buff2Slot) Local $BS3 = GUICtrlRead($Buff3Slot) WinActivate($CN) ClericSkill1() ClericSkill2() ExitLoop WEnd EndFunc Func BardBuffs() While 1 Local $CN = GUICtrlRead($combo) Local $2W = GUICtrlRead($2Weapon) Local $1W = GUICtrlRead($1Weapon) Local $1WS = Guictrlread($1WeaponSlot) Local $2WS = GUICtrlRead($2WeaponSlot) Local $BF = GUICtrlRead($BuffsF) Local $BS1 = GUICtrlRead($Buff1Slot) Local $BS2 = GUICtrlRead($Buff2Slot) Local $BS3 = GUICtrlRead($Buff3Slot) WinActivate($CN) BardSkill1() BardSkill2() ExitLoop WEnd EndFunc Func ClericSkill1() While 1 Local $CN = GUICtrlRead($combo) Local $2W = GUICtrlRead($2Weapon) Local $1W = GUICtrlRead($1Weapon) Local $1WS = Guictrlread($1WeaponSlot) Local $2WS = GUICtrlRead($2WeaponSlot) Local $BF = GUICtrlRead($BuffsF) Local $BS1 = GUICtrlRead($Buff1Slot) Local $BS2 = GUICtrlRead($Buff2Slot) Local $BS3 = GUICtrlRead($Buff3Slot) WinActivate($CN) If $2W = "F1" Then Send("{F1}") ElseIf $2W = "F2" Then Send("{F2}") ElseIf $2W = "F3" Then Send("{F3}") ElseIf $2W = "F4" Then Send("{F4}") EndIf Sleep(100) If $2WS = "1" Then Send("1") ElseIf $2WS = "2" Then Send("2") ElseIf $2WS = "3" Then Send("3") ElseIf $2WS = "4" Then Send("4") ElseIf $2WS = "5" Then Send("5") ElseIf $2WS = "6" Then Send("6") ElseIf $2WS = "7" Then Send("7") ElseIf $2WS = "8" Then Send("8") ElseIf $2WS = "9" Then Send("9") EndIf Sleep(100) If $BF = "F1" Then Send("{F1}") ElseIf $BF = "F2" Then Send("{F2}") ElseIf $BF = "F3" Then Send("{F3}") ElseIf $BF = "F4" Then Send("{F4}") If $BS1 = "1" Then Send("1") ElseIf $BS1 = "2" Then Send("2") ElseIf $BS1 = "3" Then Send("3") ElseIf $BS1 = "4" Then Send("4") ElseIf $BS1 = "5" Then Send("5") ElseIf $BS1 = "6" Then Send("6") ElseIf $BS1 = "7" Then Send("7") ElseIf $BS1 = "8" Then Send("8") ElseIf $BS1 = "9" Then Send("9") EndIf Sleep(3000) If $1W = "F1" Then Send("{F1}") ElseIf $1W = "F2" Then Send("{F2}") ElseIf $1W = "F3" Then Send("{F3}") ElseIf $1W = "F4" Then Send("{F4}") EndIf Sleep(100) If $1WS = "1" Then Send("1") ElseIf $1WS = "2" Then Send("2") ElseIf $1WS = "3" Then Send("3") ElseIf $1WS = "4" Then Send("4") ElseIf $1WS = "5" Then Send("5") ElseIf $1WS = "6" Then Send("6") ElseIf $1WS = "7" Then Send("7") ElseIf $1WS = "8" Then Send("8") ElseIf $1WS = "9" Then Send("9") Sleep(180000) ContinueLoop EndIf EndIf WEnd EndFunc Func ClericSkill2() While 1 Local $CN = GUICtrlRead($combo) Local $2W = GUICtrlRead($2Weapon) Local $1W = GUICtrlRead($1Weapon) Local $1WS = Guictrlread($1WeaponSlot) Local $2WS = GUICtrlRead($2WeaponSlot) Local $BF = GUICtrlRead($BuffsF) Local $BS1 = GUICtrlRead($Buff1Slot) Local $BS2 = GUICtrlRead($Buff2Slot) Local $BS3 = GUICtrlRead($Buff3Slot) If $2W = "F1" Then Send("{F1}") ElseIf $2W = "F2" Then Send("{F2}") ElseIf $2W = "F3" Then Send("{F3}") ElseIf $2W = "F4" Then Send("{F4}") EndIf Sleep(100) If $2WS = "1" Then Send("1") ElseIf $2WS = "2" Then Send("2") ElseIf $2WS = "3" Then Send("3") ElseIf $2WS = "4" Then Send("4") ElseIf $2WS = "5" Then Send("5") ElseIf $2WS = "6" Then Send("6") ElseIf $2WS = "7" Then Send("7") ElseIf $2WS = "8" Then Send("8") ElseIf $2WS = "9" Then Send("9") EndIf Sleep(100) If $BF = "F1" Then Send("{F1}") ElseIf $BF = "F2" Then Send("{F2}") ElseIf $BF = "F3" Then Send("{F3}") ElseIf $BF = "F4" Then Send("{F4}") If $BS2 = "1" Then Send("1") ElseIf $BS2 = "2" Then Send("2") ElseIf $BS2 = "3" Then Send("3") ElseIf $BS2 = "4" Then Send("4") ElseIf $BS2 = "5" Then Send("5") ElseIf $BS2 = "6" Then Send("6") ElseIf $BS2 = "7" Then Send("7") ElseIf $BS2 = "8" Then Send("8") ElseIf $BS2 = "9" Then Send("9") EndIf Sleep(4000) If $1W = "F1" Then Send("{F1}") ElseIf $1W = "F2" Then Send("{F2}") ElseIf $1W = "F3" Then Send("{F3}") ElseIf $1W = "F4" Then Send("{F4}") EndIf Sleep(100) If $1WS = "1" Then Send("1") ElseIf $1WS = "2" Then Send("2") ElseIf $1WS = "3" Then Send("3") ElseIf $1WS = "4" Then Send("4") ElseIf $1WS = "5" Then Send("5") ElseIf $1WS = "6" Then Send("6") ElseIf $1WS = "7" Then Send("7") ElseIf $1WS = "8" Then Send("8") ElseIf $1WS = "9" Then Send("9") Sleep(300000) ContinueLoop EndIf EndIf WEnd EndFunc Func BardSkill1() While 1 Local $CN = GUICtrlRead($combo) Local $2W = GUICtrlRead($2Weapon) Local $1W = GUICtrlRead($1Weapon) Local $1WS = Guictrlread($1WeaponSlot) Local $2WS = GUICtrlRead($2WeaponSlot) Local $BF = GUICtrlRead($BuffsF) Local $BS1 = GUICtrlRead($Buff1Slot) Local $BS2 = GUICtrlRead($Buff2Slot) Local $BS3 = GUICtrlRead($Buff3Slot) WinActivate($CN) If $2W = "F1" Then Send("{F1}") ElseIf $2W = "F2" Then Send("{F2}") ElseIf $2W = "F3" Then Send("{F3}") ElseIf $2W = "F4" Then Send("{F4}") EndIf Sleep(100) If $2WS = "1" Then Send("1") ElseIf $2WS = "2" Then Send("2") ElseIf $2WS = "3" Then Send("3") ElseIf $2WS = "4" Then Send("4") ElseIf $2WS = "5" Then Send("5") ElseIf $2WS = "6" Then Send("6") ElseIf $2WS = "7" Then Send("7") ElseIf $2WS = "8" Then Send("8") ElseIf $2WS = "9" Then Send("9") EndIf Sleep(100) If $BF = "F1" Then Send("{F1}") ElseIf $BF = "F2" Then Send("{F2}") ElseIf $BF = "F3" Then Send("{F3}") ElseIf $BF = "F4" Then Send("{F4}") If $BS1 = "1" Then Send("1") ElseIf $BS1 = "2" Then Send("2") ElseIf $BS1 = "3" Then Send("3") ElseIf $BS1 = "4" Then Send("4") ElseIf $BS1 = "5" Then Send("5") ElseIf $BS1 = "6" Then Send("6") ElseIf $BS1 = "7" Then Send("7") ElseIf $BS1 = "8" Then Send("8") ElseIf $BS1 = "9" Then Send("9") EndIf Sleep(2000) If $1W = "F1" Then Send("{F1}") ElseIf $1W = "F2" Then Send("{F2}") ElseIf $1W = "F3" Then Send("{F3}") ElseIf $1W = "F4" Then Send("{F4}") EndIf Sleep(100) If $1WS = "1" Then Send("1") ElseIf $1WS = "2" Then Send("2") ElseIf $1WS = "3" Then Send("3") ElseIf $1WS = "4" Then Send("4") ElseIf $1WS = "5" Then Send("5") ElseIf $1WS = "6" Then Send("6") ElseIf $1WS = "7" Then Send("7") ElseIf $1WS = "8" Then Send("8") ElseIf $1WS = "9" Then Send("9") Sleep(600000) ContinueLoop EndIf EndIf WEnd EndFunc Func BardSkill2() While 1 Local $CN = GUICtrlRead($combo) Local $2W = GUICtrlRead($2Weapon) Local $1W = GUICtrlRead($1Weapon) Local $1WS = Guictrlread($1WeaponSlot) Local $2WS = GUICtrlRead($2WeaponSlot) Local $BF = GUICtrlRead($BuffsF) Local $BS1 = GUICtrlRead($Buff1Slot) Local $BS2 = GUICtrlRead($Buff2Slot) Local $BS3 = GUICtrlRead($Buff3Slot) WinActivate($CN) If $2W = "F1" Then Send("{F1}") ElseIf $2W = "F2" Then Send("{F2}") ElseIf $2W = "F3" Then Send("{F3}") ElseIf $2W = "F4" Then Send("{F4}") EndIf Sleep(100) If $2WS = "1" Then Send("1") ElseIf $2WS = "2" Then Send("2") ElseIf $2WS = "3" Then Send("3") ElseIf $2WS = "4" Then Send("4") ElseIf $2WS = "5" Then Send("5") ElseIf $2WS = "6" Then Send("6") ElseIf $2WS = "7" Then Send("7") ElseIf $2WS = "8" Then Send("8") ElseIf $2WS = "9" Then Send("9") EndIf Sleep(100) If $BF = "F1" Then Send("{F1}") ElseIf $BF = "F2" Then Send("{F2}") ElseIf $BF = "F3" Then Send("{F3}") ElseIf $BF = "F4" Then Send("{F4}") If $BS2 = "1" Then Send("1") ElseIf $BS2 = "2" Then Send("2") ElseIf $BS2 = "3" Then Send("3") ElseIf $BS2 = "4" Then Send("4") ElseIf $BS2 = "5" Then Send("5") ElseIf $BS2 = "6" Then Send("6") ElseIf $BS2 = "7" Then Send("7") ElseIf $BS2 = "8" Then Send("8") ElseIf $BS2 = "9" Then Send("9") EndIf Sleep(2000) If $1W = "F1" Then Send("{F1}") ElseIf $1W = "F2" Then Send("{F2}") ElseIf $1W = "F3" Then Send("{F3}") ElseIf $1W = "F4" Then Send("{F4}") EndIf Sleep(100) If $1WS = "1" Then Send("1") ElseIf $1WS = "2" Then Send("2") ElseIf $1WS = "3" Then Send("3") ElseIf $1WS = "4" Then Send("4") ElseIf $1WS = "5" Then Send("5") ElseIf $1WS = "6" Then Send("6") ElseIf $1WS = "7" Then Send("7") ElseIf $1WS = "8" Then Send("8") ElseIf $1WS = "9" Then Send("9") Sleep(900000) ContinueLoop EndIf EndIf WEnd EndFunc Func _ProcessGetWinEx($ivPid, $svClass = "", $svTitle = "", $svText = "", $ivReturnOnlyFirstMatch = False) $ivPid = ProcessExists($ivPid) If Not $ivPid Then Return(SetError(1, 0, 0)) Local $avwArray = WinList() Local $avRet[1] = [0] For $i = 1 To $avwArray[0][0] $avClass = DllCall("User32.dll", "int", "GetClassName", "hwnd", $avwArray[$i][1], "str", "", "int", 4096) If WinGetProcess($avwArray[$i][1]) = $ivPid Then If $svClass = "" Or (IsArray($avClass) And $avClass[2] = $svClass) Then If ($svTitle = "" Or StringInStr($avwArray[$i][0], $svTitle)) And ($svText = "" Or StringInStr(WinGetText($avwArray[$i][1]), $svText)) Then $avRet[0] += 1 ReDim $avRet[$avRet[0]+1] $avRet[$avRet[0]] = $avwArray[$i][1] If $ivReturnOnlyFirstMatch Then $avRet = $avret[1] ExitLoop EndIf EndIf EndIf EndIf Next Return $avRet EndFunc Have Questions About GUI (Graphical User Interface) ? Post Them Here :GUI Help And Support ForumHave Questions About General AutoIt ? Post Them Here : General Help And Support ForumNew To AutoIt ? Be Shure To Check Out The FaQ's (Frequently Asked Questions) Or FaQ ยน There You May Find Great Help That Will Guide You True The Wonderful Programming Language AutoItOthere Good Place To Get Some Knolage Of AutoIt Is The Example Script ForumNotice A Bug ? Please Go And Report it At Bug Report Section And Help The Devolepers Of AutoIt Update And Fix The Programming LanguageWant To Thank The People For This Great Forum And Programming Language ? Then DonateWhen You Found The Answer Your Looking For Please Add [Resolved] To The Thread's Name That Will Show Otheres That You Have Found What Your Looking For And They Whount Have To Enter The Thread. Link to comment Share on other sites More sharing options...
BrettF Posted August 4, 2008 Share Posted August 4, 2008 How 'bout you ask nicely? I don't want to see vulgar language, and quite frankly it makes me not want to help. Cheers, Brett Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
Szhlopp Posted August 4, 2008 Share Posted August 4, 2008 How 'bout you ask nicely? I don't want to see vulgar language, and quite frankly it makes me not want to help.Cheers,BrettI STRONGLY agree. I suggest an admin give your account a little shaking. Posting like this is absolutely ridiculous. RegEx/RegExRep Tester!Nerd Olympics - Community App!Login UDFMemory UDF - "Game.exe+753EC" - CE pointer to AU3Password Manager W/ SourceDataFiler - Include files in your au3!--- Was I helpful? Click the little green '+' Link to comment Share on other sites More sharing options...
Cha0sBG Posted August 4, 2008 Author Share Posted August 4, 2008 lolz i tryed to make this script work for 2 days and i got quite pissed off. Sorry for my behavior guys i'm realy sorry please help Have Questions About GUI (Graphical User Interface) ? Post Them Here :GUI Help And Support ForumHave Questions About General AutoIt ? Post Them Here : General Help And Support ForumNew To AutoIt ? Be Shure To Check Out The FaQ's (Frequently Asked Questions) Or FaQ ยน There You May Find Great Help That Will Guide You True The Wonderful Programming Language AutoItOthere Good Place To Get Some Knolage Of AutoIt Is The Example Script ForumNotice A Bug ? Please Go And Report it At Bug Report Section And Help The Devolepers Of AutoIt Update And Fix The Programming LanguageWant To Thank The People For This Great Forum And Programming Language ? Then DonateWhen You Found The Answer Your Looking For Please Add [Resolved] To The Thread's Name That Will Show Otheres That You Have Found What Your Looking For And They Whount Have To Enter The Thread. Link to comment Share on other sites More sharing options...
dworld Posted August 4, 2008 Share Posted August 4, 2008 hmm...yeah, probably you should read this...How To Ask Questions The Smart Way by Eric Steven Raymond dworldI'm new in autoit, but I like it. My mind is open to the new things. 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