Jump to content

ok im stuck again *-)

AceLoc

By AceLoc,
in AutoIt General Help and Support

 Share

Recommended Posts

AceLoc Universalist

AceLoc

Posted
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]

Link to comment
Share on other sites
eynstyne Polymath

eynstyne

Posted
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]
Link to comment
Share on other sites
AceLoc Universalist

AceLoc

Posted
  • Author
Posted

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]

Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

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

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
eynstyne Polymath

eynstyne

Posted
Posted

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]
Link to comment
Share on other sites
AceLoc Universalist

AceLoc

Posted
  • Author
Posted

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]

Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
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

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
AceLoc Universalist

AceLoc

Posted
  • Author
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]

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...