Armand Posted September 18, 2007 Share Posted September 18, 2007 this code sometimes pops the "Windows has encountered an error bla bla send log" window... WHY ?! expandcollapse popup_IEErrorHandlerRegister() $Sponsor = _IECreateEmbedded() _IEPropertySet($Sponsor, "silent", True) $IEGUI = GUICreate("", 1, 1, 1, 1, $WS_POPUP) $GUIActiveX = GUICtrlCreateObj($Sponsor, 1, 1, 1, 1) GUISetState(@SW_HIDE, $IEGUI) GUISetState(@SW_DISABLE, $IEGUI) GUISetState(@SW_LOCK, $IEGUI) GUISwitch($GUIHANDLE) Switch Random(1, 6, 1) Case 1 _IENavigate($Sponsor, "http://www.onlinecasino-wcg.com/") _IELoadWait($Sponsor, 0, 45000) Case 2 _IENavigate($Sponsor, "http://www.japan-casino.us/") _IELoadWait($Sponsor, 0, 25000) _IELinkClickByText($Sponsor, "WCG casino site") _IELoadWait($Sponsor, 0, 25000) Case 3 _IENavigate($Sponsor, "http://www.google.co.uk/search?hl=iw&q=online+casino+wcg&btnG=%D7%97%D7%99%D7%A4%D7%95%D7%A9+%D7%91-Google&meta=") _IELoadWait($Sponsor, 0, 25000) If Random(0, 1, 1) > 0 Then $ret = _IELinkClickByText($Sponsor, "Free online casino bonus easy sign up process, how to play online ...") If $ret = 0 Then ContinueCase _IELoadWait($Sponsor, 0, 25000) If Random(0, 1, 1) > 0 Then _IELinkClickByText($Sponsor, "WCG casino site") _IELoadWait($Sponsor, 0, 25000) EndIf Else $ret = _IELinkClickByText($Sponsor, "WCG Online casino navigation Gambling portal **Best bonuses**") If $ret = 0 Then ContinueCase _IELoadWait($Sponsor, 0, 25000) EndIf Case 4 _IENavigate($Sponsor, "http://www.google.co.uk/search?hl=iw&q=japan+casino+wcg&btnG=%D7%97%D7%99%D7%A4%D7%95%D7%A9") _IELoadWait($Sponsor, 0, 25000) $ret = _IELinkClickByText($Sponsor, "Free online casino bonus easy sign up process, how to play online ...") If $ret = 0 Then ContinueCase _IELoadWait($Sponsor, 0, 25000) If Random(0, 1, 1) > 0 Then _IELinkClickByText($Sponsor, "WCG casino site") _IELoadWait($Sponsor, 0, 25000) EndIf Case 5 _IENavigate($Sponsor, "http://search.msn.co.uk/results.aspx?q=japan+casino+wcg&go=&form=QBNO") _IELoadWait($Sponsor, 0, 25000) $ret = _IELinkClickByText($Sponsor, "Free online casino bonus easy sign up process, how to play online ...") If $ret = 0 Then ContinueCase _IELoadWait($Sponsor, 0, 25000) If Random(0, 1, 1) > 0 Then _IELinkClickByText($Sponsor, "WCG casino site") _IELoadWait($Sponsor, 0, 25000) EndIf Case 6 _IENavigate($Sponsor, "http://www.japan-casino.us/") _IELoadWait($Sponsor, 0, 25000) If Random(0, 1, 1) > 0 Then _IELinkClickByText($Sponsor, "WCG casino site") _IELoadWait($Sponsor, 0, 25000) EndIf EndSwitch _IEErrorHandlerDeRegister() $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") If IsObj($Sponsor) = 1 Then _IEQuit($Sponsor) EndIf [u]My Au3 Scripts:[/u]____________(E)Lephant, A Share download manager (RS/MU etc)Http1.1 Console, The Ez Way!Internet Reconnection Automation Suite & A Macro Recording Tool.SK's Alarm Clock, Playing '.MP3 & .Wav' Files._________________Is GOD a mistake of the Humanity Or the Humanity is a mistake of GOD ?! Link to comment Share on other sites More sharing options...
PsaltyDS Posted September 18, 2007 Share Posted September 18, 2007 this code sometimes pops the "Windows has encountered an error bla bla send log" window... WHY ?!Do you get any errors from more respectable web sites?There's no chance of my testing your code against those sites on any computer of mine... Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law Link to comment Share on other sites More sharing options...
Armand Posted September 18, 2007 Author Share Posted September 18, 2007 yes i do, it fails at navigating to the search pages and not to the sites, i think it's due to a pop-up of some sort or something like that... also these: http://www.altavista.com/web/results?itag=ody&q=japan+casino+wcg&kgs=0&kls=0 http://uk.search.yahoo.com/search;_ylt=A0geulAloMdGhUMAZJRLBQx.?p=japan+casino+wcg&ei=UTF-8&fr=sfp&x=wrt&meta=vc%3D http://www.dogpile.com/info.dogpl/search/web/japan%252Bcasino%252Bwcg http://www.alltheweb.com/search?cat=web&cs=iso88591&q=japan+casino+wcg&rys=0&itag=crv&_sb_lang=prefy all popping the problem... P.S:: There is also an issue with creating an explorer control as follows: $InterNetComOBJ = ObjCreate("Shell.Explorer.2") ; Create Internet Explorer application $InterNetComOBJEvent = ObjEvent($InterNetComOBJ, "IEEvent_", "DWebBrowserEvents2") $InterNetComOBJ_ctrl = GUICtrlCreateObj($InterNetComOBJ, 4, 62, 817, 623) $InterNetComOBJ.RegisterAsBrowser = 1 $InterNetComOBJ.navigate ($BrowserHomePage) now, in any case we click on a link which is to be opened in a new window -> Script crushes. any ideas on these matters ?! [u]My Au3 Scripts:[/u]____________(E)Lephant, A Share download manager (RS/MU etc)Http1.1 Console, The Ez Way!Internet Reconnection Automation Suite & A Macro Recording Tool.SK's Alarm Clock, Playing '.MP3 & .Wav' Files._________________Is GOD a mistake of the Humanity Or the Humanity is a mistake of GOD ?! Link to comment Share on other sites More sharing options...
PsaltyDS Posted September 18, 2007 Share Posted September 18, 2007 I'm still not using your casino links, but made it work with close approximations, including the right-click "Open in a new window" context, using the IE.au3 UDF. Here's a safe-to-run demo: #include <guiconstants.au3> #include <IE.au3> Opt("GuiOnEventMode", 1) Global $avLinks[4] = ["http://www.altavista.com/web/results?itag=ody&q=Japan&kgs=1&kls=0", _ "http://uk.search.yahoo.com/search?ei=utf-8&fr=sfp&p=Japan&iscqry=&rd=r1", _ "http://www.google.com/search?hl=en&q=Japan", _ "http://www.alltheweb.com/search?cat=web&cs=utf8&q=Japan&rys=0&itag=crv&_sb_lang=pref" ] Global $iNext = 0 $hGUI = GUICreate("Test", 800, 600) GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit") $InterNetComOBJ = _IECreateEmbedded() ; Create Internet Explorer application $InterNetComOBJ_ctrl = GUICtrlCreateObj($InterNetComOBJ, 10, 10, 780, 550) GUICtrlCreateButton("NEXT", 350, 560, 100, 30) GUICtrlSetOnEvent(-1, "_Next") GUISetState() _Next() While 1 Sleep(20) WEnd Func _Next() $BrowserHomePage = $avLinks[$iNext] WinSetTitle($hGUI, "", "Test " & $iNext & ": " & $BrowserHomePage) _IENavigate($InterNetComOBJ, $BrowserHomePage) $iNext += 1 If $iNext > UBound($avLinks) - 1 Then $iNext = 0 EndFunc ;==>_Next Func _Quit() Exit EndFunc ;==>_Quit Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law Link to comment Share on other sites More sharing options...
Armand Posted September 18, 2007 Author Share Posted September 18, 2007 dude, with all due respect, i know i can make such a gui and it'll work... - my main issue is probably with some script code intersecting with one another - what functions might cause that obj crush the script ?! maybe some other specific part might cause that error ?! THANKS FOR THE ATTENTION !!! [u]My Au3 Scripts:[/u]____________(E)Lephant, A Share download manager (RS/MU etc)Http1.1 Console, The Ez Way!Internet Reconnection Automation Suite & A Macro Recording Tool.SK's Alarm Clock, Playing '.MP3 & .Wav' Files._________________Is GOD a mistake of the Humanity Or the Humanity is a mistake of GOD ?! Link to comment Share on other sites More sharing options...
PsaltyDS Posted September 19, 2007 Share Posted September 19, 2007 Does it still error without the bizarre GUI settings: Disabled, Hidden, Locked, and with a 1x1 pixel ActiveX control? (Which is all rather malware-ish.) If you run the same script with those GUI states commented out and a standard GuiSetState(), does it work? Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law 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