Shockwave controls? They dont work xP

[AzKay]

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.

expandcollapse popup

; 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

[lod3n]

Try it with my flash player:

http://www.autoitscript.com/forum/index.php?showtopic=32395

[AzKay]

  lod3n said:

Try it with my flash player:

http://www.autoitscript.com/forum/index.php?showtopic=32395

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.

[lod3n]

This works for me:

expandcollapse popup

#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 September 12, 2006 by lod3n

[AzKay]

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

[lod3n]

What are you setting $flashfile to?

[AzKay]

Im leaving it as it is.

[lod3n]

Interesting, because that code worked for me. I think your flash player installation is messed up. Take a look at this:

http://www.adobe.com/cfusion/knowledgebase...tn_15511#fixall

[AzKay]

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

[lod3n]

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

[lod3n]

There's also this: uninstall_flash_player.exe

http://www.adobe.com/cfusion/knowledgebase...cfm?id=tn_14157

[AzKay]

I did all of the above, with no avail.

[lod3n]

Try the uninstall_flash_player.exe, then Repair Internet Explorer:

http://www.theeldergeek.com/repair_ie6.htm

Then reinstall flash.

Edited September 12, 2006 by lod3n

[AzKay]

Done. Still doesnt work.

[AzKay]

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

[lod3n]

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.

[AzKay]

Still no luck

[lod3n]

Got all your Windows Updates?

[lod3n]

Here's a pretty good listing of fixes:

http://www.alegsa.com.ar/N/i45/Flash%20not...xplorer%206.php

[AzKay]

  lod3n said:

Got all your Windows Updates?

Mhm