Jump to content

AU3Bug ?! (_IE)


Armand
 Share

Recommended Posts

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

Link to comment
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
Link to comment
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 ?!

Link to comment
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
Link to comment
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 ?!

Link to comment
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
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

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...