Sign in to follow this  
Followers 0
AzKay

GUIGetMsg()

16 posts in this topic

Ok

GUICreate("Test", 498, 456)
GUISetFont(9, 300)
$TAB = GUICtrlCreateTab(0,0, 500, 500)

$TAB_POLL = GUICtrlCreateTabitem("Poller")
$IE_POLL = ObjCreate("Shell.Explorer.2")
$IE_POLL_CTRL = GUICtrlCreateObj($IE_POLL, 1, 25, 496, 447)
$BUTTON_POLL = GUICtrlCreateButton("Start Polling", 393, 1, 105, 19)

$TAB_POST = GUICtrlCreateTabitem("Poster")
$IE_POST = ObjCreate("Shell.Explorer.2")
$IE_POST_CTRL = GUICtrlCreateObj($IE_POST, 1, 25, 496, 447)
$BUTTON_POST = GUICtrlCreateButton("Start Posting", 393, 1, 105, 19)

$TAB_COMMENT = GUICtrlCreateTabitem("Commenter")
$IE_COMMENT = ObjCreate("Shell.Explorer.2")
$IE_COMMENT_CTRL = GUICtrlCreateObj($IE_COMMENT, 1, 25, 496, 447)
$BUTTON_COMMENT = GUICtrlCreateButton("Start Commenting", 393, 1, 105, 19)

$TAB_VOTER = GUICtrlCreateTabitem("Voter")
$IE_VOTER = ObjCreate("Shell.Explorer.2")
$IE_VOTER_CTRL = GUICtrlCreateObj($IE_VOTER, 1, 25, 496, 447)
$BUTTON_VOTER = GUICtrlCreateButton("Start Voting", 393, 1, 105, 19)

$TAB_LURKER = GUICtrlCreateTabitem("Lurker")
$IE_LURKER = ObjCreate("Shell.Explorer.2")
$IE_LURKER_CTRL = GUICtrlCreateObj($IE_LURKER, 1, 25, 496, 447)
$BUTTON_LURKER = GUICtrlCreateButton("Start Lurking", 393, 1, 105, 19)

GUICtrlCreateTabitem("")
GUISetState()
AdlibEnable("_GUIGetMsg", 1)

While 1
Select
    Case $msg = $BUTTON_POLL
        ;_Poll()
            MsgBox(0, "", "Poll")
            While 1
                Sleep(100)
            WEnd
    Case $msg = $BUTTON_POST
        ;_Post()
            MsgBox(0, "", "Post")
    Case $msg = $BUTTON_COMMENT
        ;_Comment()
            MsgBox(0, "", "Comment")
    Case $msg = $BUTTON_VOTER
        ;_Vote()
            MsgBox(0, "", "Vote")
    Case $msg = $BUTTON_LURKER
        ;_Lurk()
            MsgBox(0, "", "Lurk")
EndSelect
WEnd

Func _GUIGetMsg()
    $msg = GUIGetMsg()
EndFunc

My problem? I need to know how to have it check GUIGetMsg.

For example, in my script, once you "Start Polling" it goes into the loop, then GUIGetMsg() Doesnt seem to work anymore. Ive trying using it in AdLibEnable, Ive also tryed the helpfile example. Any ideas?

Basically, Im wanting it to ALWAYS be checking GUIGetMsg.


# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites



from what I understood, I think you could just

GUICreate("Test", 498, 456)
GUISetFont(9, 300)
$TAB = GUICtrlCreateTab(0,0, 500, 500)

$TAB_POLL = GUICtrlCreateTabitem("Poller")
$IE_POLL = ObjCreate("Shell.Explorer.2")
$IE_POLL_CTRL = GUICtrlCreateObj($IE_POLL, 1, 25, 496, 447)
$BUTTON_POLL = GUICtrlCreateButton("Start Polling", 393, 1, 105, 19)

$TAB_POST = GUICtrlCreateTabitem("Poster")
$IE_POST = ObjCreate("Shell.Explorer.2")
$IE_POST_CTRL = GUICtrlCreateObj($IE_POST, 1, 25, 496, 447)
$BUTTON_POST = GUICtrlCreateButton("Start Posting", 393, 1, 105, 19)

$TAB_COMMENT = GUICtrlCreateTabitem("Commenter")
$IE_COMMENT = ObjCreate("Shell.Explorer.2")
$IE_COMMENT_CTRL = GUICtrlCreateObj($IE_COMMENT, 1, 25, 496, 447)
$BUTTON_COMMENT = GUICtrlCreateButton("Start Commenting", 393, 1, 105, 19)

$TAB_VOTER = GUICtrlCreateTabitem("Voter")
$IE_VOTER = ObjCreate("Shell.Explorer.2")
$IE_VOTER_CTRL = GUICtrlCreateObj($IE_VOTER, 1, 25, 496, 447)
$BUTTON_VOTER = GUICtrlCreateButton("Start Voting", 393, 1, 105, 19)

$TAB_LURKER = GUICtrlCreateTabitem("Lurker")
$IE_LURKER = ObjCreate("Shell.Explorer.2")
$IE_LURKER_CTRL = GUICtrlCreateObj($IE_LURKER, 1, 25, 496, 447)
$BUTTON_LURKER = GUICtrlCreateButton("Start Lurking", 393, 1, 105, 19)

GUICtrlCreateTabitem("")
GUISetState()

While 1
$msg=GUIGetMsg()
Select
    Case $msg = $BUTTON_POLL
        ;_Poll()
            MsgBox(0, "", "Poll")
            While 1
                Sleep(100)
            WEnd
    Case $msg = $BUTTON_POST
        ;_Post()
            MsgBox(0, "", "Post")
    Case $msg = $BUTTON_COMMENT
        ;_Comment()
            MsgBox(0, "", "Comment")
    Case $msg = $BUTTON_VOTER
        ;_Vote()
            MsgBox(0, "", "Vote")
    Case $msg = $BUTTON_LURKER
        ;_Lurk()
            MsgBox(0, "", "Lurk")
EndSelect
WEnd

no reason for adlibs...


The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Share this post


Link to post
Share on other sites

from what I understood, I think you could just

GUICreate("Test", 498, 456)
GUISetFont(9, 300)
$TAB = GUICtrlCreateTab(0,0, 500, 500)

$TAB_POLL = GUICtrlCreateTabitem("Poller")
$IE_POLL = ObjCreate("Shell.Explorer.2")
$IE_POLL_CTRL = GUICtrlCreateObj($IE_POLL, 1, 25, 496, 447)
$BUTTON_POLL = GUICtrlCreateButton("Start Polling", 393, 1, 105, 19)

$TAB_POST = GUICtrlCreateTabitem("Poster")
$IE_POST = ObjCreate("Shell.Explorer.2")
$IE_POST_CTRL = GUICtrlCreateObj($IE_POST, 1, 25, 496, 447)
$BUTTON_POST = GUICtrlCreateButton("Start Posting", 393, 1, 105, 19)

$TAB_COMMENT = GUICtrlCreateTabitem("Commenter")
$IE_COMMENT = ObjCreate("Shell.Explorer.2")
$IE_COMMENT_CTRL = GUICtrlCreateObj($IE_COMMENT, 1, 25, 496, 447)
$BUTTON_COMMENT = GUICtrlCreateButton("Start Commenting", 393, 1, 105, 19)

$TAB_VOTER = GUICtrlCreateTabitem("Voter")
$IE_VOTER = ObjCreate("Shell.Explorer.2")
$IE_VOTER_CTRL = GUICtrlCreateObj($IE_VOTER, 1, 25, 496, 447)
$BUTTON_VOTER = GUICtrlCreateButton("Start Voting", 393, 1, 105, 19)

$TAB_LURKER = GUICtrlCreateTabitem("Lurker")
$IE_LURKER = ObjCreate("Shell.Explorer.2")
$IE_LURKER_CTRL = GUICtrlCreateObj($IE_LURKER, 1, 25, 496, 447)
$BUTTON_LURKER = GUICtrlCreateButton("Start Lurking", 393, 1, 105, 19)

GUICtrlCreateTabitem("")
GUISetState()

While 1
$msg=GUIGetMsg()
Select
    Case $msg = $BUTTON_POLL
        ;_Poll()
            MsgBox(0, "", "Poll")
            While 1
                Sleep(100)
            WEnd
    Case $msg = $BUTTON_POST
        ;_Post()
            MsgBox(0, "", "Post")
    Case $msg = $BUTTON_COMMENT
        ;_Comment()
            MsgBox(0, "", "Comment")
    Case $msg = $BUTTON_VOTER
        ;_Vote()
            MsgBox(0, "", "Vote")
    Case $msg = $BUTTON_LURKER
        ;_Lurk()
            MsgBox(0, "", "Lurk")
EndSelect
WEnd

no reason for adlibs...

That doesnt work, Thats why I tryed with adlib's, Because, once it goes into the _Poll() loop, the GUIGetMsg doesnt get called anymore.

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

either way, if it goes in to the Poll loop, the main loop will not run. I'm not quite sure what you want to do with the Poll loop. Why does it have to continually sleep?

edit: got an idea, one sec.

Edited by theguy0000

The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Share this post


Link to post
Share on other sites

Thats not the actual script, I havnt put in the script yet, But theres going to be a continous loops in the poll function, lurk function, and the vote function.


# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

GUICreate("Test", 498, 456)
GUISetFont(9, 300)
$TAB = GUICtrlCreateTab(0,0, 500, 500)

$TAB_POLL = GUICtrlCreateTabitem("Poller")
$IE_POLL = ObjCreate("Shell.Explorer.2")
$IE_POLL_CTRL = GUICtrlCreateObj($IE_POLL, 1, 25, 496, 447)
$BUTTON_POLL = GUICtrlCreateButton("Start Polling", 393, 1, 105, 19)

$TAB_POST = GUICtrlCreateTabitem("Poster")
$IE_POST = ObjCreate("Shell.Explorer.2")
$IE_POST_CTRL = GUICtrlCreateObj($IE_POST, 1, 25, 496, 447)
$BUTTON_POST = GUICtrlCreateButton("Start Posting", 393, 1, 105, 19)

$TAB_COMMENT = GUICtrlCreateTabitem("Commenter")
$IE_COMMENT = ObjCreate("Shell.Explorer.2")
$IE_COMMENT_CTRL = GUICtrlCreateObj($IE_COMMENT, 1, 25, 496, 447)
$BUTTON_COMMENT = GUICtrlCreateButton("Start Commenting", 393, 1, 105, 19)

$TAB_VOTER = GUICtrlCreateTabitem("Voter")
$IE_VOTER = ObjCreate("Shell.Explorer.2")
$IE_VOTER_CTRL = GUICtrlCreateObj($IE_VOTER, 1, 25, 496, 447)
$BUTTON_VOTER = GUICtrlCreateButton("Start Voting", 393, 1, 105, 19)

$TAB_LURKER = GUICtrlCreateTabitem("Lurker")
$IE_LURKER = ObjCreate("Shell.Explorer.2")
$IE_LURKER_CTRL = GUICtrlCreateObj($IE_LURKER, 1, 25, 496, 447)
$BUTTON_LURKER = GUICtrlCreateButton("Start Lurking", 393, 1, 105, 19)

GUICtrlCreateTabitem("")
GUISetState()
AdlibEnable("_GUIGetMsg", 1)

While 1
Sleep(500)
WEnd

Func _GUIGetMsg()
$msg = GUIGetMsg()
Select
    Case $msg = $BUTTON_POLL
        ;_Poll()
        _PollStuff ()
    Case $msg = $BUTTON_POST
        ;_Post()
            MsgBox(0, "", "Post")
    Case $msg = $BUTTON_COMMENT
        ;_Comment()
            MsgBox(0, "", "Comment")
    Case $msg = $BUTTON_VOTER
        ;_Vote()
            MsgBox(0, "", "Vote")
    Case $msg = $BUTTON_LURKER
        ;_Lurk()
            MsgBox(0, "", "Lurk")
EndSelect
EndFunc

Func _PollStuff ()
    MsgBox (0, "", "Poll")
    While 1
        Sleep(100)
    WEnd
EndFunc

not tested...


The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Share this post


Link to post
Share on other sites

Didnt work.


# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

hmm im sure theres an easier way but i dont know it, sorry.


The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Share this post


Link to post
Share on other sites

hmm im sure theres an easier way but i dont know it, sorry.

Damn, Well, Thanks for trying :lmao:

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

GUICreate("Test", 498, 456)
GUISetFont(9, 300)
$TAB = GUICtrlCreateTab(0,0, 500, 500)

$TAB_POLL = GUICtrlCreateTabitem("Poller")
$IE_POLL = ObjCreate("Shell.Explorer.2")
$IE_POLL_CTRL = GUICtrlCreateObj($IE_POLL, 1, 25, 496, 447)
$BUTTON_POLL = GUICtrlCreateButton("Start Polling", 393, 1, 105, 19)

$TAB_POST = GUICtrlCreateTabitem("Poster")
$IE_POST = ObjCreate("Shell.Explorer.2")
$IE_POST_CTRL = GUICtrlCreateObj($IE_POST, 1, 25, 496, 447)
$BUTTON_POST = GUICtrlCreateButton("Start Posting", 393, 1, 105, 19)

$TAB_COMMENT = GUICtrlCreateTabitem("Commenter")
$IE_COMMENT = ObjCreate("Shell.Explorer.2")
$IE_COMMENT_CTRL = GUICtrlCreateObj($IE_COMMENT, 1, 25, 496, 447)
$BUTTON_COMMENT = GUICtrlCreateButton("Start Commenting", 393, 1, 105, 19)

$TAB_VOTER = GUICtrlCreateTabitem("Voter")
$IE_VOTER = ObjCreate("Shell.Explorer.2")
$IE_VOTER_CTRL = GUICtrlCreateObj($IE_VOTER, 1, 25, 496, 447)
$BUTTON_VOTER = GUICtrlCreateButton("Start Voting", 393, 1, 105, 19)

$TAB_LURKER = GUICtrlCreateTabitem("Lurker")
$IE_LURKER = ObjCreate("Shell.Explorer.2")
$IE_LURKER_CTRL = GUICtrlCreateObj($IE_LURKER, 1, 25, 496, 447)
$BUTTON_LURKER = GUICtrlCreateButton("Start Lurking", 393, 1, 105, 19)
Global $msg
GUICtrlCreateTabitem("")
GUISetState()
AdlibEnable("_GUIGetMsg", 1)

While 1
Select
    Case $msg = $BUTTON_POLL
        ;_Poll()
            MsgBox(0, "", "Poll")
            ;While 1
            ;    Sleep(100)
            ;WEnd
    Case $msg = $BUTTON_POST
        ;_Post()
            MsgBox(0, "", "Post")
    Case $msg = $BUTTON_COMMENT
        ;_Comment()
            MsgBox(0, "", "Comment")
    Case $msg = $BUTTON_VOTER
        ;_Vote()
            MsgBox(0, "", "Vote")
    Case $msg = $BUTTON_LURKER
        ;_Lurk()
            MsgBox(0, "", "Lurk")
EndSelect
WEnd

Func _GUIGetMsg()
    $msg = GUIGetMsg()
EndFunc

Edited by CHRIS95219

Share this post


Link to post
Share on other sites

Very nice ^^ *Works*


# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

? Im not completly sure what your trying to accomplish. But this script works for me. But if thats not what you wanted.. here is another try at it:

[code]
GUICreate("Test", 498, 456)
GUISetFont(9, 300)
$TAB = GUICtrlCreateTab(0,0, 500, 500)

$TAB_POLL = GUICtrlCreateTabitem("Poller")
$IE_POLL = ObjCreate("Shell.Explorer.2")
$IE_POLL_CTRL = GUICtrlCreateObj($IE_POLL, 1, 25, 496, 447)
$BUTTON_POLL = GUICtrlCreateButton("Start Polling", 393, 1, 105, 19)

$TAB_POST = GUICtrlCreateTabitem("Poster")
$IE_POST = ObjCreate("Shell.Explorer.2")
$IE_POST_CTRL = GUICtrlCreateObj($IE_POST, 1, 25, 496, 447)
$BUTTON_POST = GUICtrlCreateButton("Start Posting", 393, 1, 105, 19)

$TAB_COMMENT = GUICtrlCreateTabitem("Commenter")
$IE_COMMENT = ObjCreate("Shell.Explorer.2")
$IE_COMMENT_CTRL = GUICtrlCreateObj($IE_COMMENT, 1, 25, 496, 447)
$BUTTON_COMMENT = GUICtrlCreateButton("Start Commenting", 393, 1, 105, 19)

$TAB_VOTER = GUICtrlCreateTabitem("Voter")
$IE_VOTER = ObjCreate("Shell.Explorer.2")
$IE_VOTER_CTRL = GUICtrlCreateObj($IE_VOTER, 1, 25, 496, 447)
$BUTTON_VOTER = GUICtrlCreateButton("Start Voting", 393, 1, 105, 19)

$TAB_LURKER = GUICtrlCreateTabitem("Lurker")
$IE_LURKER = ObjCreate("Shell.Explorer.2")
$IE_LURKER_CTRL = GUICtrlCreateObj($IE_LURKER, 1, 25, 496, 447)
$BUTTON_LURKER = GUICtrlCreateButton("Start Lurking", 393, 1, 105, 19)
Global $msg
GUICtrlCreateTabitem("")
GUISetState()
AdlibEnable("CheckMsg", 1)

While 1
    CheckMsg()
WEnd

Func CheckMsg()
    $msg = GUIGetMsg()
    Select
    Case $msg = $BUTTON_POLL
        ;_Poll()
            MsgBox(0, "", "Poll")
            While 1
                CheckMsg()
                if ($msg <> $BUTTON_POLL) then ExitLoop
                Sleep(10)
            WEnd
    Case $msg = $BUTTON_POST
        ;_Post()
            MsgBox(0, "", "Post")
    Case $msg = $BUTTON_COMMENT
        ;_Comment()
            MsgBox(0, "", "Comment")
    Case $msg = $BUTTON_VOTER
        ;_Vote()
            MsgBox(0, "", "Vote")
    Case $msg = $BUTTON_LURKER
        ;_Lurk()
            MsgBox(0, "", "Lurk")
EndSelect
EndFunc
Anyone see a recurssion issue here?

Edit:

I couldn't get it to error out on the standard... got a count of a 1000, that's not the norm before the recurssion error.

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

Ok, Now ive got another problem, The functions im using are (I dont know how) interupting the CheckMsg().

I know its those, because it works if I comment them out.

#include <IE.au3>
GUICreate("Test", 498, 456)
GUISetFont(9, 300)
$TAB = GUICtrlCreateTab(0,0, 500, 500)

$TAB_POLL = GUICtrlCreateTabitem("Poller")
$IE_POLL = ObjCreate("Shell.Explorer.2")
$IE_POLL_CTRL = GUICtrlCreateObj($IE_POLL, 1, 25, 496, 447)
$BUTTON_POLL = GUICtrlCreateButton("Start Polling", 393, 1, 105, 19)

$TAB_POST = GUICtrlCreateTabitem("Poster")
$IE_POST = ObjCreate("Shell.Explorer.2")
$IE_POST_CTRL = GUICtrlCreateObj($IE_POST, 1, 25, 496, 447)
$BUTTON_POST = GUICtrlCreateButton("Start Posting", 393, 1, 105, 19)

$TAB_COMMENT = GUICtrlCreateTabitem("Commenter")
$IE_COMMENT = ObjCreate("Shell.Explorer.2")
$IE_COMMENT_CTRL = GUICtrlCreateObj($IE_COMMENT, 1, 25, 496, 447)
$BUTTON_COMMENT = GUICtrlCreateButton("Start Commenting", 393, 1, 105, 19)

$TAB_VOTER = GUICtrlCreateTabitem("Voter")
$IE_VOTE = ObjCreate("Shell.Explorer.2")
$IE_VOTE_CTRL = GUICtrlCreateObj($IE_VOTE, 1, 25, 496, 447)
$BUTTON_VOTER = GUICtrlCreateButton("Start Voting", 393, 1, 105, 19)

$TAB_LURKER = GUICtrlCreateTabitem("Lurker")
$IE_LURK = ObjCreate("Shell.Explorer.2")
$IE_LURK_CTRL = GUICtrlCreateObj($IE_LURK, 1, 25, 496, 447)
$BUTTON_LURKER = GUICtrlCreateButton("Start Lurking", 393, 1, 105, 19)
Global $msg
GUICtrlCreateTabitem("")
GUISetState()
AdlibEnable("CheckMsg", 1)

While 1
    CheckMsg()
WEnd

Func CheckMsg()
    $msg = GUIGetMsg()
    Select
    ;Case $msg = $BUTTON_POLL
    ;    _Poll()
    ;        While 1
    ;            CheckMsg()
    ;           MsgBox(0, "", "Poll")
    ;            _GaiaPoll($IE_POLL, "http://www.gaiaonline.com/guilds/viewtopic.php?t=5756167", _
    ;           "http://graphics.gaiaonline.com/images/posts/btn_edit.gif", "BEEF", "Bump", Random(25000, 35000))
    ;        WEnd
    ;Case $msg = $BUTTON_POST
    ;    _Post()
    ;        While 1
    ;            CheckMsg()
    ;            _GaiaPost($IE_POST, "http://www.gaiaonline.com/forum/viewtopic.php?t=" & Random(1000000, 2000000, 1), _
    ;           "http://graphics.gaiaonline.com/images/template/button/forum_postreply.gif", "Budump", Random(50000, 100000))
    ;        WEnd
    Case $msg = $BUTTON_COMMENT
    ;    _Comment()
            MsgBox(0, "", "Comment")
            While 1
                CheckMsg()
                _GaiaComment($IE_COMMENT, Random(1, 4746744, 1), "BEEF!", Random(30000, 40000))
            WEnd
    Case $msg = $BUTTON_VOTER
    ;    _Vote()
            MsgBox(0, "", "Vote")
            While 1
                CheckMsg()
                _GaiaVote($IE_VOTE, "http://www.gaiaonline.com/avatararena/index.php?mode=vote&key=56rgz6&postid=random", _
                "5", Random(5000, 1000))
            WEnd
    ;Case $msg = $BUTTON_LURKER
    ;    _Lurk()
    ;        While 1
    ;            CheckMsg()
    ;            _GaiaLurk($IE_LURK, Random(5000, 1000))
    ;        WEnd
EndSelect
EndFunc

#cs 
Functions: #################################################################################
#ce

Func _GaiaPoll($Object, $ThreadURL, $EditButtonURL, $PollName, $PollOption, $Sleep = "25")
    _IENavigate($Object, $ThreadURL)
    _IEImgClick($Object, $EditButtonURL)
    $Form1 = _IEFormGetObjByName($Object, "post")
    $RemovePoll = _IEFormElementGetObjByName($Form1, "delpollbtn")
    _IEAction($RemovePoll, "click")
    _IELoadWait($Object)
    $Form2 = _IEFormGetObjByName($Object, "post")
    $Poll_Title = _IEFormElementGetObjByName($Form2, "poll_title")
    $Poll_Option = _IEFormElementGetObjByName($Form2, "add_poll_option_text")
    _IEFormElementSetValue($Poll_Title, $PollName)
    _IEFormElementSetValue($Poll_Option, $PollOption)
    _IEFormImageClick($Form2, "Submit", "alt", 0, 0)
    _IENavigate($Object, $ThreadURL)
    $Poll = $Object.document.forms (0)
    $Radio = _IEFormElementGetObjByName($Poll, "vote_id")
    $Submit = _IEFormElementGetObjByName($Poll, "submit")
    _IEAction($Radio, "click")
    _IEAction($Submit, "click")
    Sleep($Sleep)
EndFunc

Func _GaiaPost($Object, $ThreadURL, $ReplyButtonURL, $PostMessage, $Sleep)
    
EndFunc

Func _GaiaComment($Object, $ID, $Comment, $Sleep)
    _IENavigate($Object, "http://www.gaiaonline.com/profile/index.php?view=comment.AddComment&item=" & $ID)
    $commentForm = $Object.document.forms(0)
    $commentText = _IEFormElementGetObjByName($commentForm, "form[comment]")
    $commentSubmit = _IEFormElementGetObjByName($commentForm, "form[action][submit]")
    _IEFormElementSetValue($commentText, "Budump")
    _IEAction($commentSubmit, "click")
    Sleep($Sleep)
EndFunc

Func _GaiaVote($Object, $VotePage, $Vote, $Sleep)
    Switch $Vote
        Case $Vote = 1
            _IENavigate($Object, $VotePage)
            _IEImgClick($Object, "http://graphics.gaiaonline.com/images/aagraphics/vote_ratingbar" & "1" & ".png")
            Sleep($Sleep)
        Case $Vote = 2
            _IENavigate($Object, $VotePage)
            _IEImgClick($Object, "http://graphics.gaiaonline.com/images/aagraphics/vote_ratingbar" & "2" & ".png")
            Sleep($Sleep)
        Case $Vote = 3
            _IENavigate($Object, $VotePage)
            _IEImgClick($Object, "http://graphics.gaiaonline.com/images/aagraphics/vote_ratingbar" & "3" & ".png")  
            Sleep($Sleep)           
        Case $Vote = 4
            _IENavigate($Object, $VotePage)
            _IEImgClick($Object, "http://graphics.gaiaonline.com/images/aagraphics/vote_ratingbar" & "4" & ".png")
            Sleep($Sleep)           
        Case $Vote = 5
            _IENavigate($Object, $VotePage)
            _IEImgClick($Object, "http://graphics.gaiaonline.com/images/aagraphics/vote_ratingbar" & "5" & ".png")
            Sleep($Sleep)           
        Case $Vote = 6
            _IENavigate($Object, $VotePage)
            _IEImgClick($Object, "http://graphics.gaiaonline.com/images/aagraphics/vote_ratingbar" & "6" & ".png")
            Sleep($Sleep)           
        Case $Vote = 7
            _IENavigate($Object, $VotePage)
            _IEImgClick($Object, "http://graphics.gaiaonline.com/images/aagraphics/vote_ratingbar" & "7" & ".png")
            Sleep($Sleep)           
        Case $Vote = 8
            _IENavigate($Object, $VotePage)
            _IEImgClick($Object, "http://graphics.gaiaonline.com/images/aagraphics/vote_ratingbar" & "8" & ".png")
            Sleep($Sleep)           
        Case $Vote = 9
            _IENavigate($Object, $VotePage)
            _IEImgClick($Object, "http://graphics.gaiaonline.com/images/aagraphics/vote_ratingbar" & "9" & ".png")
            Sleep($Sleep)           
        Case $Vote = 10
            _IENavigate($Object, $VotePage)
            _IEImgClick($Object, "http://graphics.gaiaonline.com/images/aagraphics/vote_ratingbar" & "10" & ".png")
            Sleep($Sleep)
    EndSwitch
EndFunc

Func _GaiaLurk($Object, $Sleep)
    $RandomLurk = Random(1, 100, 1)
    Switch $RandomLurk
        Case 1
            _IENavigate($Object, "")
            Sleep($Sleep)
    EndSwitch
EndFunc

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

Since AutoIt is not multithreaded other than a few functions, anything you do that takes time will not allow other options/functions to work until they are done.

A suggestion would be to look at /AutoIt3ExecuteScript/Line for functions that you feel are creating your havoc.


[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

Since AutoIt is not multithreaded other than a few functions, anything you do that takes time will not allow other options/functions to work until they are done.

A suggestion would be to look at /AutoIt3ExecuteScript/Line for functions that you feel are creating your havoc.

I see. Well, Ill look into another project then. Hehe, One, that makes more sense :lmao:

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

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