Sign in to follow this  
Followers 0
AceLoc

ok im stuck again *-)

9 posts in this topic

#1 ·  Posted (edited)

hi i got this 3 little scripts, they will need to be 'one'

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Droknar's Run Guide", 402, 157, 195, 116)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Label1 = GUICtrlCreateLabel(" Things you should remember:", 8, 8, 173, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("- Always check all monster groups when in safe spot.", 8, 24, 253, 17)
$Label3 = GUICtrlCreateLabel("- Regenerate your Health and Energy frequently.", 8, 40, 232, 17)
$Label4 = GUICtrlCreateLabel("- Use Balanced Stance when you need to pass", 8, 56, 227, 17)
$Label5 = GUICtrlCreateLabel("- Best way to get", 8, 72, 83, 17)
$Label6 = GUICtrlCreateLabel("- If you want strafe, hold on your mouse's 2nd button and use A or D or just Q or E.", 8, 88, 391, 17)
$Label7 = GUICtrlCreateLabel("(1,2,3,4,...)", 64, 104, 68, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("- Numbers", 8, 104, 52, 17)
$Label9 = GUICtrlCreateLabel("means which rest spot is near.", 136, 104, 146, 17)
$Wurms = GUICtrlCreateLabel("Wurms", 96, 72, 37, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "_Wurms")
GUICtrlSetCursor ($Wurms, 0)
$Label11 = GUICtrlCreateLabel("off is run only forward.", 136, 72, 107, 17)
$SiegeIceGolem = GUICtrlCreateLabel("Siege Ice Golems.", 240, 56, 90, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "_IceGolem")
GUICtrlSetCursor ($SiegeIceGolem, 0)
$Next = GUICtrlCreateButton("Next", 72, 128, 113, 23)
GUICtrlSetOnEvent(-1, "_Next")
$Cancel = GUICtrlCreateButton("Cancel", 192, 128, 113, 23)
GUICtrlSetOnEvent(-1, "_Cancel")
GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd

Func _Exit()
    Exit
EndFunc

Func _Cancel()
    $MsgBox = MsgBox(1, "", "This will close the FAQ, are you sure?")
    If $MsgBox = 1 Then
        Exit
    EndIf
EndFunc

Func _Next()
    ;next form
EndFunc

Func _IceGolem()
    ;IceGolemForm
    ;MsgBox(0, "", "Ice")
EndFunc

Func _Wurms()
    ;WormsForm
        ;MsgBox(0, "", "Worm")
EndFuncoÝ÷ Û^Ê&zÞrX÷ô×±·méâ¶k¬µÉh±æ§v
²Ú-+)j»h~Ø^±Êâ¦Ö®¶­sb6æ6ÇVFRfÇC´uT6öç7FçG2æS2fwC°¢6æ6ÇVFRfÇC´RæS2fwC°£²ÓÒuTvVæW&FVBvF¶öFÓТb33c´f÷&ÓÒuT7&VFRgV÷C´dgV÷C²ÂrÂ3CRÂc¢b33c´ö&£Òö&¤7&VFRgV÷Cµ6VÆÂäWÆ÷&W"ã"gV÷C²¢b33c´ö&£ö7G&ÂÒuT7G&Ä7&VFTö&¢b33c´ö&£ÂÂÂ"Â3¢b33c´'WGFöãÒuT7G&Ä7&VFT'WGFöâgV÷C´æWBgV÷C²ÂbÂ3#ÂÂ#2¢b33c´'WGFöã"ÒuT7G&Ä7&VFT'WGFöâgV÷C´6æ6VÂgV÷C²Â#Â3#ÂÂ#2¥ôTæfvFRb33c´ö&£ÂgV÷C¶GG¢òöç&væ6öÒöG&ö·2öÖöç7FW'2ôdæFÒgV÷C²¤uT6WE7FFR5uõ4õr¥vÆR b33c¶×6rÒwVvWD×6r 6VÆV7@ 66Rb33c¶×6rÒb33c´uTôUdTåEô4Äõ4P WDÆö÷ 66RVÇ6P ³³³³³³° VæE6VÆV7@¥tVæ@¤WoÝ÷ Ùh^Ê&zÞrXêºBjw«¨¶+fºËlk#,1Ò«¨µ¹ZnVª®¢Ú®¢Öåi¹ZnVªºZزÕÉbrJ'ßÓ^ÆÝýN§Ù®²Ø(¶aÊ'y©ÝrZ,zÜ¢êìy«­¢+Ø¥¹±Õ±Ðí%¹ÔÌÐì(¥¹±Õ±ÐíU%
½¹ÍѹÑ̹ÔÌÐì(ìôôU$¹ÉÑÝ¥Ñ -½ôô(ÀÌØí½É´ÄôU%
ÉÑ ÅÕ½Ðíɽ­¹ÈÌäíÌIÕ¸QÑ¥ÌÅÕ½Ðì°ÌÌÜ°ÐäÄ°ÄäÄ°ÄÈÔ¤(ÀÌØí=¨Äô=©
ÉÑ ÅÕ½ÐíM¡±°¹áÁ±½ÉȸÈÅÕ½Ðì¤(ÀÌØí=¨Å}ÑÉ°ôU%
Ñɱ
ÉÑ=¨ ÀÌØí=¨Ä°à°à°ÌÈÈ°ÐÜؤ)}%9Ù¥Ñ ÀÌØí=¨Ä°ÅÕ½Ðí¡ÑÑÀè¼½ ĹɥÁÝä¹½´½É½­Ì½ÕÀ¹¡Ñ´ÅÕ½Ðì¤)U%MÑMÑÑ¡M]}M!=¤)]¡¥±Ä($ÀÌØíµÍôÕ¥Ñ5Í ¤(%M±Ð(%
ÍÀÌØíµÍôÀÌØíU%}Y9Q}
1=M($%á¥Ñ1½½À(%
ͱÍ($$ììììììì(%¹M±Ð)]¹)á¥

hope that its possible i really tried hard *-)

Edited by aceloc

[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Create all your windows at the beginning and just set them to hide. Only until you press next you unhide the control. Reduces the wait time for GUI when clicking next

Edited by eynstyne

F@m!ly Guy Fr33k! - Avatar speaks for itself__________________________________________________________________________________________ite quotes... - Is your refrigerator running? If it is, It probably runs like you...very homosexually - Christians don't believe in gravity - Geeze Brian where do you think you are, Payless?- Show me potato Salad!__________________________________________________________________________________________Programs available - Shutdown timer[indent][/indent]

Share this post


Link to post
Share on other sites

Create all your windows at the beginning and just set them to hide. Only until you press next you unhide the control. Reduces the wait time for GUI when clicking next

that will cause lagg.

[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites

OnEvent functions are only called when the option GUIOnEventMode is set to 1 - when in this mode GUIGetMsg is NOT used at all.


[center]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.[/center]

Share this post


Link to post
Share on other sites

How will it lag if when the script is first started, everything is there. The controls and such are all at the beginning of the script at first launch. It would cause more lag if you created those windows inside the functions. Instead just use the GUIsetstate(@SW_HIDE,$win) and then issue @SW_SHOW when next is clicked.


F@m!ly Guy Fr33k! - Avatar speaks for itself__________________________________________________________________________________________ite quotes... - Is your refrigerator running? If it is, It probably runs like you...very homosexually - Christians don't believe in gravity - Geeze Brian where do you think you are, Payless?- Show me potato Salad!__________________________________________________________________________________________Programs available - Shutdown timer[indent][/indent]

Share this post


Link to post
Share on other sites

Windows do not create lag. Programs performing high processor usage tasks cause lag.

Share this post


Link to post
Share on other sites

so now i got

#include <GUIConstants.au3>
#include <IE.au3>

Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Droknar's Run Guide", 402, 157, 195, 116)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Label1 = GUICtrlCreateLabel(" Things you should remember:", 8, 8, 173, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("- Always check all monster groups when in safe spot.", 8, 24, 253, 17)
$Label3 = GUICtrlCreateLabel("- Regenerate your Health and Energy frequently.", 8, 40, 232, 17)
$Label4 = GUICtrlCreateLabel("- Use Balanced Stance when you need to pass", 8, 56, 227, 17)
$Label5 = GUICtrlCreateLabel("- Best way to get", 8, 72, 83, 17)
$Label6 = GUICtrlCreateLabel("- If you want strafe, hold on your mouse's 2nd button and use A or D or just Q or E.", 8, 88, 391, 17)
$Label7 = GUICtrlCreateLabel("(1,2,3,4,...)", 64, 104, 68, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("- Numbers", 8, 104, 52, 17)
$Label9 = GUICtrlCreateLabel("means which rest spot is near.", 136, 104, 146, 17)
$Wurms = GUICtrlCreateLabel("Wurms", 96, 72, 37, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "_Wurms")
GUICtrlSetCursor ($Wurms, 0)
$Label11 = GUICtrlCreateLabel("off is run only forward.", 136, 72, 107, 17)
$SiegeIceGolem = GUICtrlCreateLabel("Siege Ice Golems.", 240, 56, 90, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "_IceGolem")
GUICtrlSetCursor ($SiegeIceGolem, 0)
$Next = GUICtrlCreateButton("Next", 72, 128, 113, 23)
GUICtrlSetOnEvent(-1, "_Next")
$Cancel = GUICtrlCreateButton("Cancel", 192, 128, 113, 23)
GUICtrlSetOnEvent(-1, "_Cancel")
GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd

Func _Exit()
    Exit
EndFunc

Func _Cancel()
    $MsgBox = MsgBox(1, "", "This will close the Guide, are you sure?")
    If $MsgBox = 1 Then
        Exit
    EndIf
EndFunc

Func _Next()
WinClose($Form1)
$Form2 = GUICreate("FAQ", 887, 345, 61, 111)
$AObj1 = ObjCreate("Shell.Explorer.2")
$AObj1_ctrl = GUICtrlCreateObj($AObj1, 0, 0, 882, 308)
$Next2 = GUICtrlCreateButton("Next", 16, 320, 91, 23)
GUICtrlSetOnEvent(-1, "_Next2")
$Cancel2 = GUICtrlCreateButton("Cancel", 120, 320, 81, 23)
GUICtrlSetOnEvent(-1, "_Cancel2")
_IENavigate($AObj1, "http://h1.ripway.com/Droks/FAQ.htm")
GUISetState(@SW_SHOW)
While 1
    Sleep(100)
WEnd
EndFunc

Func _IceGolem()
    ;IceGolemForm
    ;MsgBox(0, "", "Ice")
EndFunc

Func _Wurms()
    ;WormsForm
    ;MsgBox(0, "", "Wurm")
EndFunc

Func _Next2()
    WinClose($Form2)
$Form3 = GUICreate("Droknar's Run Tactics", 337, 491, 191, 125)
$AObj1 = ObjCreate("Shell.Explorer.2")
$AObj1_ctrl = GUICtrlCreateObj($AObj1, 8, 8, 322, 476)
_IENavigate($AObj1, "http://h1.ripway.com/droks/up.htm")
GUISetState(@SW_SHOW)
While 1
    Sleep(100)
WEnd
EndFunc

Func _Cancel2()
    $MsgBox = MsgBox(1, "", "This will close the Guide, are you sure?")
    If $MsgBox = 1 Then
        Exit
    EndIf
EndFunc

still dont work?!???


[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

http://www.autoitscript.com/forum/index.php?showtopic=32834

Edit:

And after you read that, here's a work around:

http://www.autoitscript.com/forum/index.ph...st&p=235729

Edited by SmOke_N

[center]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.[/center]

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

and my last question:

#include <GUIConstants.au3>
#include <IE.au3>

Dim $Form2
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Droknar's Run Guide", 402, 157, 195, 116)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Label1 = GUICtrlCreateLabel(" Things you should remember:", 8, 8, 173, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("- Always check all monster groups when in safe spot.", 8, 24, 253, 17)
$Label3 = GUICtrlCreateLabel("- Regenerate your Health and Energy frequently.", 8, 40, 232, 17)
$Label4 = GUICtrlCreateLabel("- Use Balanced Stance when you need to pass", 8, 56, 227, 17)
$Label5 = GUICtrlCreateLabel("- Best way to get", 8, 72, 83, 17)
$Label6 = GUICtrlCreateLabel("- If you want strafe, hold on your mouse's 2nd button and use A or D or just Q or E.", 8, 88, 391, 17)
$Label7 = GUICtrlCreateLabel("(1,2,3,4,...)", 64, 104, 68, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("- Numbers", 8, 104, 52, 17)
$Label9 = GUICtrlCreateLabel("means which rest spot is near.", 136, 104, 146, 17)
$Wurms = GUICtrlCreateLabel("Wurms", 96, 72, 37, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "_Wurms")
GUICtrlSetCursor ($Wurms, 0)
$Label11 = GUICtrlCreateLabel("off is run only forward.", 136, 72, 107, 17)
$SiegeIceGolem = GUICtrlCreateLabel("Siege Ice Golems.", 240, 56, 90, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "_IceGolem")
GUICtrlSetCursor ($SiegeIceGolem, 0)
$Next = GUICtrlCreateButton("Next", 72, 128, 113, 23)
GUICtrlSetOnEvent(-1, "_Next")
$Cancel = GUICtrlCreateButton("Cancel", 192, 128, 113, 23)
GUICtrlSetOnEvent(-1, "_Cancel")
GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd

Func _Exit()
    $MsgBox = MsgBox(1, "", "This will close the Guide, are you sure?")
    If $MsgBox = 1 Then
        Exit
    EndIf
EndFunc

Func _Cancel()
    $MsgBox = MsgBox(1, "", "This will close the Guide, are you sure?")
    If $MsgBox = 1 Then
        Exit
    EndIf
EndFunc

Func _Next()
$Handle = WinGetHandle("Droknar's Run Guide")
GUIDelete($Handle)
$Form2 = GUICreate("FAQ", 887, 345, 61, 111)
$AObj1 = ObjCreate("Shell.Explorer.2")
$AObj1_ctrl = GUICtrlCreateObj($AObj1, 0, 0, 882, 308)
$Next2 = GUICtrlCreateButton("Next", 16, 320, 91, 23)
GUICtrlSetOnEvent(-1, "_Next2")
$Cancel2 = GUICtrlCreateButton("Cancel", 120, 320, 81, 23)
GUICtrlSetOnEvent(-1, "_Cancel2")
_IENavigate($AObj1, "http://h1.ripway.com/Droks/FAQ.htm")
GUISetState(@SW_SHOW)
EndFunc

Func _IceGolem()
    ;IceGolemForm
    MsgBox(0, "", "Under Construction")
EndFunc

Func _Wurms()
    ;WormsForm
    MsgBox(0, "", "Under Construction")
EndFunc

Func _Next2()
$Handle2 = WinGetHandle("FAQ")
GUIDelete($Handle2)
$Form3 = GUICreate("Droknar's Run Tactics", 337, 491, 191, 125)
$AObj1 = ObjCreate("Shell.Explorer.2")
$AObj1_ctrl = GUICtrlCreateObj($AObj1, 8, 8, 322, 476)
_IENavigate($AObj1, "http://h1.ripway.com/droks/up.htm")
GUISetState(@SW_SHOW)
While 1
    Sleep(100)
WEnd
EndFunc

Func _Cancel2()
    $MsgBox = MsgBox(1, "", "This will close the Guide, are you sure?")
    If $MsgBox = 1 Then
        Exit
    EndIf
EndFuncoÝ÷ Ú'⦷¬²«¨µz®¢ÚâZnÞ¶"ax-éâ·
'µÉh±è­®'Â+ajëh×6GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

any idea's ?? :)

[EDIT] FIXED

*Note: Thanks for helping all :P!

Edited by aceloc

[quote name='AceLoc']I gots new sunglasses there cool.[/quote]

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0