Sign in to follow this  
Followers 0
Armand

AU3Bug ?! (_IE)

6 posts in this topic

this code sometimes pops the "Windows has encountered an error bla bla send log" window... WHY ?!

_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 ?!

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

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 ?!

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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 ?!

Share this post


Link to post
Share on other sites

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

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