Aklentys Posted September 1, 2009 Share Posted September 1, 2009 (edited) Voler les sources du monde c'est mal Edited December 3, 2009 by Aklentys Link to comment Share on other sites More sharing options...
dbzfanatic Posted September 1, 2009 Share Posted September 1, 2009 (edited) Did you write these scripts or did someone else? Also you should use Case statements in the While loop. It wouldn't be too difficult to rewrite this script, I've got a little time so I might just do that and post it in a bit. Edit: Here you go. expandcollapse popup#include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Opt('MustDeclareVars', 1) Local $defaultstatus = "Automatic T4C by Aklentys", $status, $filemenu, $fileitem Local $helpmenu, $saveitem, $infoitem, $changelog, $exititem Local $separator1, $viewmenu, $viewstatusitem, $okbutton, $cancelbutton Local $statuslabel, $msg, $file GUICreate("Automatic T4C", 625, 443, 192, 124) GUISetIcon("C:\abo\T4C.exe") HotKeySet("{F6}", "Start") HotKeySet("!{F6}","Quit") $filemenu = GUICtrlCreateMenu("&File") $fileitem = GUICtrlCreateMenuItem("Open", $filemenu) GUICtrlSetState(-1, $GUI_DEFBUTTON) $helpmenu = GUICtrlCreateMenu("?") $saveitem = GUICtrlCreateMenuItem("Save", $filemenu) GUICtrlSetState(-1, $GUI_DISABLE) $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu) $changelog = GUICtrlCreateMenuItem("Change log", $helpmenu) $exititem = GUICtrlCreateMenuItem("Exit", $filemenu) $separator1 = GUICtrlCreateMenuItem("", $filemenu, 2) ; create a separator line $viewmenu = GUICtrlCreateMenu("View", -1, 1) ; is created before "?" menu $viewstatusitem = GUICtrlCreateMenuItem("Copyright", $viewmenu) GUICtrlSetState(-1, $GUI_CHECKED) $okbutton = GUICtrlCreateButton("Lancer Auto Pots", 50, 130, 90, 20) GUICtrlSetState(-1, $GUI_FOCUS) $cancelbutton = GUICtrlCreateButton("Quitter", 180, 130, 70, 20) $statuslabel = GUICtrlCreateLabel($defaultstatus, 0, 410, 650, 16, BitOR($SS_SIMPLE, $SS_SUNKEN)) ; Positionnement des pièces GUISetState() While 1 $msg = GUIGetMsg() Switch $msg Case $viewstatusitem If BitAND(GUICtrlRead($viewstatusitem), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($viewstatusitem, $GUI_UNCHECKED) GUICtrlSetState($statuslabel, $GUI_HIDE) Else GUICtrlSetState($viewstatusitem, $GUI_CHECKED) GUICtrlSetState($statuslabel, $GUI_SHOW) EndIf Case $GUI_EVENT_CLOSE Exit Case $cancelbutton Exit Case $exititem Exit Case $changelog MsgBox(0, "ChangeLog", "Version 1.0.1 Permet la gestion des potions VIA le GUI T4C. Version 1.0.2 Un panel graphique (celui-ci) a été créer. Version 1.0.3 Un personnage avec 700 HP (Niveau 50) résiste au Lw2 + MMS2 jusqu'à épuisement des potions") Case $infoitem MsgBox(0, "Informations", "Automatic T4C à été créer sans buts précis. Sa première utilisation était destinée à ne pas laisser mourir le joueurs sous les projectiles en gardant la bar de vie en haut du 5/6") Case $okbutton Start() EndSwitch WEnd TogglePause() Func Start() HotKeySet("{F6}") HotKeySet("{F6}", "TogglePause") ToolTip('Auto Pots T4C ON', 200, 55) While 1 $checksum = PixelSearch(1007, 69, 1007, 69,0x212021,1) While $checksum = PixelSearch(1007, 69, 1007, 69,0x212021,1) Sleep(100) WEnd If Not @error Then Send("{F10}") EndIf Sleep(100) WEnd EndFunc Func TogglePause() ToolTip('Auto Pots T4C By Shinogamy PRESS F6',175,41) HotKeySet("{F6}") HotKeySet("{F6}", "Start") While 1 sleep(100) WEnd EndFunc func Quit() Exit EndFunc Edited September 1, 2009 by dbzfanatic Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct linkScreenRec ProSimple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF[quote name='renanzin' post='584064' date='Sep 26 2008, 07:00 AM']whats help ?[/quote] Link to comment Share on other sites More sharing options...
Aklentys Posted September 1, 2009 Author Share Posted September 1, 2009 Ok thanks but problems, I got error so i removed Opt('MustDeclareVars', 1) so It works Second error: When I press Lancer Auto Pots, The Popup to press F6 start..But I cant close the first page Automatic T4C Maybe making a HotKeySet to close ONLY the second script (Auto Pots T4C By Shinogamy PRESS F6) would resolve the problem but I try with Exit but It stop all the 2 files Thanks for help Link to comment Share on other sites More sharing options...
Aklentys Posted September 2, 2009 Author Share Posted September 2, 2009 Ok thanks but problems,I got error so i removed Opt('MustDeclareVars', 1) so It worksSecond error: When I press Lancer Auto Pots, The Popup to press F6 start..But I cant close the first page Automatic T4CMaybe making a HotKeySet to close ONLY the second script (Auto Pots T4C By Shinogamy PRESS F6) would resolve the problem but I try with Exit but It stop all the 2 filesThanks for helpUp? 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