Jump to content

GUIGetMsg()

AzKay

By AzKay,
in AutoIt General Help and Support

 Share

Recommended Posts

AzKay Universalist

AzKay

Posted
Posted

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

theguy0000

Posted
Posted

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

Link to comment
Share on other sites
AzKay Universalist

AzKay

Posted
  • Author
Posted

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

theguy0000

Posted
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

Link to comment
Share on other sites
AzKay Universalist

AzKay

Posted
  • Author
Posted

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

theguy0000

Posted
Posted 

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

Link to comment
Share on other sites
cppman Universalist

cppman

Posted
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
Miva OS Project
Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

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

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

AzKay

Posted
  • Author
Posted

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- #
Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

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.

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

AzKay

Posted
  • Author
Posted

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- #
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...