Jump to content

Shockwave controls? They dont work xP

AzKay

By AzKay,
in AutoIt General Help and Support

 Share

Recommended Posts

AzKay Universalist

AzKay

Posted
Posted

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- #
Link to comment
Share on other sites
  • Replies 43
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

AzKay Universalist

AzKay

Posted
  • Author
Posted

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- #
Link to comment
Share on other sites
lod3n Universalist

lod3n

Posted
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]

Link to comment
Share on other sites
AzKay Universalist

AzKay

Posted
  • Author
Posted 

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- #
Link to comment
Share on other sites
lod3n Universalist

lod3n

Posted
Posted

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]

Link to comment
Share on other sites
AzKay Universalist

AzKay

Posted
  • Author
Posted

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- #
Link to comment
Share on other sites
lod3n Universalist

lod3n

Posted
Posted

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]

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
Go to topic listing

  • Recently Browsing   0 members

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