AzKay Posted October 7, 2006 Share Posted October 7, 2006 Ok expandcollapse popupGUICreate("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 More sharing options...
theguy0000 Posted October 7, 2006 Share Posted October 7, 2006 from what I understood, I think you could just expandcollapse popupGUICreate("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 More sharing options...
AzKay Posted October 7, 2006 Author Share Posted October 7, 2006 from what I understood, I think you could just expandcollapse popupGUICreate("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 More sharing options...
theguy0000 Posted October 7, 2006 Share Posted October 7, 2006 (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 October 7, 2006 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 More sharing options...
AzKay Posted October 7, 2006 Author Share Posted October 7, 2006 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 More sharing options...
theguy0000 Posted October 7, 2006 Share Posted October 7, 2006 expandcollapse popupGUICreate("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 More sharing options...
AzKay Posted October 7, 2006 Author Share Posted October 7, 2006 Didnt work. # MY LOVE FOR YOU... IS LIKE A TRUCK- # Link to comment Share on other sites More sharing options...
theguy0000 Posted October 7, 2006 Share Posted October 7, 2006 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 Link to comment Share on other sites More sharing options...
AzKay Posted October 7, 2006 Author Share Posted October 7, 2006 hmm im sure theres an easier way but i dont know it, sorry.Damn, Well, Thanks for trying # MY LOVE FOR YOU... IS LIKE A TRUCK- # Link to comment Share on other sites More sharing options...
cppman Posted October 7, 2006 Share Posted October 7, 2006 (edited) expandcollapse popupGUICreate("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 October 7, 2006 by CHRIS95219 Miva OS Project Link to comment Share on other sites More sharing options...
AzKay Posted October 7, 2006 Author Share Posted October 7, 2006 Very nice ^^ *Works* # MY LOVE FOR YOU... IS LIKE A TRUCK- # Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted October 7, 2006 Moderators Share Posted October 7, 2006 (edited) expandcollapse popup? 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 EndFuncAnyone 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 October 7, 2006 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 More sharing options...
GaryFrost Posted October 7, 2006 Share Posted October 7, 2006 Anyone see a recurssion issue here?If they don't they will eventually SciTE for AutoItDirections for Submitting Standard UDFs  Don't argue with an idiot; people watching may not be able to tell the difference.  Link to comment Share on other sites More sharing options...
AzKay Posted October 7, 2006 Author Share Posted October 7, 2006 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. expandcollapse popup#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 More sharing options...
Moderators SmOke_N Posted October 7, 2006 Moderators Share Posted October 7, 2006 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 More sharing options...
AzKay Posted October 7, 2006 Author Share Posted October 7, 2006 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 # MY LOVE FOR YOU... IS LIKE A TRUCK- # 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