Sign in to follow this  
Followers 0
AzKay

Shockwave controls? They dont work xP

44 posts in this topic

Okai, So, Here I go, ive tryed this with many scripts, including one of those aimbot scripts, But I always get this error:

C:\Documents and Settings\Asus\Desktop\Neopets\Beef.au3 (21) : ==> Only Object-type variables allowed in an "With" statement.: 
With $oRP 
With ^ ERROR

Using this code.

; Author:    Kåre Johansson
; AutoIt Version: 3.1.1.55
; Description: Very Simple example: Embedding ShockwaveFlash object
; Date:    4 jul 2005

#include <GUIConstants.au3>
$oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")

GUICreate ("Embed ShockwaveFlash control Test", 320, 265, -1, -1,BitOr($WS_OVERLAPPEDWINDOW,$WS_VISIBLE,$WS_CLIPSIBLINGS))
$TagsPageC = GuiCtrlCreateLabel('Visit Tags Page', 5, 245, 100, 15, $SS_CENTER)
GuiCtrlSetFont($TagsPageC,9,400,4)
GuiCtrlSetColor($TagsPageC,0x0000ff)
GuiCtrlSetCursor($TagsPageC,0)
$1C = GUICtrlCreateButton('Showall',105,240,70,20)
$2C = GUICtrlCreateButton('NoBorder',175,240,70,20)
$3C = GUICtrlCreateButton('NoScale',245,240,70,20)

$GUIActiveX    = GUICtrlCreateObj( $oRP, 10, 10 , 300 , 225 )
$LinkoRP = ObjEvent($oRP,"IEEvent_","Preview"); this is a dummy event handle

With $oRP; Object tag pool
    .Movie = 'http://www.sitecenter.dk/latenight/nss-folder/rapports/Test.swf'; the wave file from inet / could be on disk
    .ScaleMode = 3;0 showall, 1 noborder, 2 exactFit, 3 noscale
    .bgcolor = "#000000"; change background color to white FFFFFF
    .Loop = True
    .wmode = "Opaque"; Opaque / transparent
;.Stop / .Play
EndWith

GUISetState ();Show GUI

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $TagsPageC
            Run(@ComSpec & ' /c start http://www.myplugins.info/guids/typeinfo/typeinfo.php?clsid={D27CDB6E-AE6D-11CF-96B8-444553540000}','', @SW_HIDE)
        Case $msg = $1C
            $oRP.ScaleMode = 0
        Case $msg = $2C
            $oRP.ScaleMode = 1
        Case $msg = $3C
            $oRP.ScaleMode = 3
    EndSelect
WEnd
    
GUIDelete ()
Exit

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites



Hmm, I cant even get the thing to load a file xP, It just asks to download it. Though, I was looking for an answer using the shockwave control, Its been bugging me for months. It started over 5months back, when I downgraded my flash/shockwave. Bad idea.

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

This works for me:

#include <GUIConstants.au3>
#include <ie.au3>
#include <array.au3>

;~ $flashfile = _ArrayToString($cmdline," ",1)
$flashfile = "http://www.sitecenter.dk/latenight/nss-folder/rapports/Test.swf"

$gui = GUICreate("Flashy"&$flashfile, 320, 265, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS),$WS_EX_ACCEPTFILES)

$TagsPageC = GuiCtrlCreateLabel('Visit Tags Page', 5, 245, 100, 15, $SS_CENTER)
GuiCtrlSetFont($TagsPageC,9,400,4)
GuiCtrlSetColor($TagsPageC,0x0000ff)
GuiCtrlSetCursor($TagsPageC,0)
$1C = GUICtrlCreateButton('Showall',105,240,70,20)
$2C = GUICtrlCreateButton('NoBorder',175,240,70,20)
$3C = GUICtrlCreateButton('NoScale',245,240,70,20)

$oIE = _IECreateEmbedded ( )
$browser = GUICtrlCreateObj($oIE, 10, 10 , 300 , 225 )
GUICtrlSetResizing(-1,$GUI_DOCKBORDERS)

_IENavigate ($oIE, 'about:blank')
$oDoc = _IEDocGetObj ($oIE)
$oDoc.body.style.overflow = "auto"
$oDoc.body.style.margin = "0px"
$oDoc.body.style.padding = "0px"
GUISetState(@SW_SHOW)

$sHTML = '<embed id=flashy src="" '
$sHTML &= 'quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" '
$sHTML &= 'type="application/x-shockwave-flash" '
$sHTML &= 'width="100%" height="100%"></embed>'
_IEBodyWriteHTML ($oIE, $sHTML)

loadswf($flashfile)
$oRP = _IEGetObjByName ($oIE, "flashy")

While 1
    $Msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $TagsPageC
            Run(@ComSpec & ' /c start http://www.myplugins.info/guids/typeinfo/typeinfo.php?clsid={D27CDB6E-AE6D-11CF-96B8-444553540000}','', @SW_HIDE)
        Case $msg = $1C
            $oRP.ScaleMode = 0
        Case $msg = $2C
            $oRP.ScaleMode = 1
        Case $msg = $3C
            $oRP.ScaleMode = 3
    EndSelect
WEnd


func loadswf($filename)
    if stringlen($filename) = 0 then 
        msgbox(16,"Flashy","No flash file specified. Associate SWFs with Flashy, or drop one onto the blank window")
        Return
    EndIf
    if stringright($filename,4) <> ".swf" then 
        msgbox(16,"Flashy - Error","Dude, that's not a SWF.")
        Return
    EndIf
    $flash = _IEGetObjByName ($oIE, "flashy")
    $flash.Movie = $filename
    winsettitle($gui,"","Flashy - "&$filename)
EndFunc

Edited by lod3n

[font="Fixedsys"][list][*]All of my AutoIt Example Scripts[*]http://saneasylum.com[/list][/font]

Share this post


Link to post
Share on other sites

C:\Documents and Settings\Asus\Desktop\Neopets\Beef.au3 (65) : ==> The requested action with this object has failed.: 
$flash.Movie = $filename 
$flash.Movie = $filename^ ERROR


# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

Im leaving it as it is.


# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

Though I have done that COUNTLESS times. I may aswell try one more time. Stupid adobe, they dont even answer my support mails >.>


# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

Try going to C:\Windows\Downloaded Program Files, and remove "Shockwave Flash Object"

Then go here with Internet Explorer (not Firefox):

http://www.adobe.com/shockwave/download/tr...om/default.html

and let it install the ActiveX control through the browser


[font="Fixedsys"][list][*]All of my AutoIt Example Scripts[*]http://saneasylum.com[/list][/font]

Share this post


Link to post
Share on other sites

I did all of the above, with no avail.


# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

Done. Still doesnt work.


# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

It has the "When you see the installation completion movie above and text below, your installation was successful. The installation should only take a minute or two on a 56k modem.", Except, instead of a movie, once its done installing, it has just

"

Instead of a flash. And, it doesnt install ><


# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

Interesting. In Internet Explorer, go to Tools, Internet Options.

1. In the Security Tab. Click Internet, and then click Default Level.

2. In the Advanced Tab, click Restore Defaults.

I'm thinking you might be disallowing ActiveX controls.


[font="Fixedsys"][list][*]All of my AutoIt Example Scripts[*]http://saneasylum.com[/list][/font]

Share this post


Link to post
Share on other sites

Still no luck


# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

Got all your Windows Updates?

Mhm

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

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