Chatango (Flash / Chat) in AutoIT einbinden?

    Hi.
    Ich wollte mal Fragen wie man Chatango in ein Autoit Programm einbindet.

    Der Code den ich einbinden will ist dieser hier:

    Spoiler anzeigen

    <object width="250" height="360" id="obj_1311176497609"><param name="movie" value="http://nlc-de.chatango.com/group"/><param name="wmode" value="transparent"/><param name="AllowScriptAccess" VALUE="always"/><param name="AllowNetworking" VALUE="all"/><param name="AllowFullScreen" VALUE="true"/><param name="flashvars" value="cid=1311176497609&b=60&f=50&l=999999&q=999999&r=100&s=1"/><embed id="emb_1311176497609" src="http://nlc-de.chatango.com/group" width="250" height="360" wmode="transparent" allowScriptAccess="always" allowNetworking="all" type="application/x-shockwave-flash" allowFullScreen="true" flashvars="cid=1311176497609&b=60&f=50&l=999999&q=999999&r=100&s=1"></embed></object><br>[ <a href="http://nlc-de.chatango.com/clonegroup?ts=1311176497609">Copy this</a> | <a href="http://chatango.com/creategroup?ts=1311176497609">Start New</a> | <a href="http://nlc-de.chatango.com">Full Size</a> ]


    Ich hoffe das Forum wandelt den Code diesmal nicht wieder um xD

    Ich erklärs vorsichtshalber schonmal:
    Der Code sieht glaube ich so ähnlich aus wie der bei Youtube fürs einbinden von Videos.

    Blöderweise ist mein letzter versuch das zum laufen zu bringen verloren gegangen (Windows Neuinstallation)
    Ich weiß nurnoch, dass das Feld weiß dargestellt war, wo eigentlich der Chat sein sollte.

    Ich weiß nurnoch, dass ich den Code in eine HTML (könnte auch eine Flashdatei gewesen sein... ) Datei gespeichert und über AutoIT versucht habe diese darzustellen.
    In der datei konnte man den chat benutzen (der ist zu einem externen Server verlinkt). Aber in AutoIT war die fläche weiß.

    mfg hpu

    bitte schön:

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_outfile=Flashfile.exe
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("GUIOnEventMode", 1)
    Opt("GUICloseOnEsc", 1)

    [/autoit] [autoit][/autoit] [autoit]

    Global $red = 0x990000, $blue = 0x003366, $purple = 0x663366, $green = 0x006600, $black = 0x000000
    Global $Runner, $title = "Test", $step = 4, $return

    [/autoit] [autoit][/autoit] [autoit]

    HotKeySet("{ESC}", "terminate")

    [/autoit] [autoit][/autoit] [autoit]

    If RegRead("HKCR\CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}","") = "Shockwave Flash Object" Then

    [/autoit] [autoit][/autoit] [autoit]

    Else
    If Not FileExists(@ScriptDir & "\flash.ocx") Then FileInstall("flash.ocx",@ScriptDir & "\flash.ocx")
    RunWait("regsvr32.exe /s flash.ocx",@ScriptDir)
    $return = 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $oFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash")

    [/autoit] [autoit][/autoit] [autoit]

    $GUI = GUICreate($title, @DesktopWidth, @DesktopHeight -30, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "terminate")
    $GUIObj = GUICtrlCreateObj($oFlash, 0, 0, @DesktopWidth, @DesktopHeight-40)

    [/autoit] [autoit][/autoit] [autoit]

    With $oFlash
    .bgcolor = 0x000000
    .Movie = "http://nlc-de.chatango.com/group"
    .Loop = True
    .wmode = "Opaque"
    EndWith

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    Sleep(10)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func terminate()
    If $return = 1 Then
    RunWait("regsvr32.exe /s /u flash.ocx",@ScriptDir)
    FileDelete(@ScriptDir & "\flash.ocx")
    EndIf
    Exit
    EndFunc ;==>terminate

    [/autoit] [autoit][/autoit] [autoit][/autoit]


    du brauchst dazu noch den Anhang Flash.ocx ...

    Dateien

    Flash.zip 460,42 kB – 223 Downloads

    MfG Schnuffel

    "Sarkasmus ist die niedrigste Form des Witzes, aber die höchste Form der Intelligenz."
    Val McDermid

    ein paar Infos ...

    Wer mehr als "nur" Hilfe benötigt, kann sich gern im Forum "Programmieranfragen" an uns wenden. Wir helfen in allen Fällen, die die Forenregeln zulassen.

    Für schnelle Hilfe benötigen wir ein ! lauffähiges ! Script, dass wir als Demonstration des Problems testen können. Wer von uns erwartet ein Teilscript erstmal lauffähig zu bekommen, der hat
    1. keine wirkliche Not
    2. keinen Respekt vor Menschen die ihm in ihrer Freizeit Ihre Hilfe anbieten
    3. oder ist einfach nur faul und meint wir coden das für ihn

    In solchen Fällen erlaube ich mir, die Anfrage einfach zu ignorieren. ;)

    Danke.
    Dachte im ersten Moment es bleibt wieder weiß. Lag aber nur an der Internetverbindung ^^
    Und Ohne das Active X Steuerelement hätte ich es ja lange versuchen können xD
    :thumbup:

    wenn alles wie gewollt läuft
    bitte Deinen ersten Thread auf "gelöst" setzen.

    Danke ;)

    MfG Schnuffel

    "Sarkasmus ist die niedrigste Form des Witzes, aber die höchste Form der Intelligenz."
    Val McDermid

    ein paar Infos ...

    Wer mehr als "nur" Hilfe benötigt, kann sich gern im Forum "Programmieranfragen" an uns wenden. Wir helfen in allen Fällen, die die Forenregeln zulassen.

    Für schnelle Hilfe benötigen wir ein ! lauffähiges ! Script, dass wir als Demonstration des Problems testen können. Wer von uns erwartet ein Teilscript erstmal lauffähig zu bekommen, der hat
    1. keine wirkliche Not
    2. keinen Respekt vor Menschen die ihm in ihrer Freizeit Ihre Hilfe anbieten
    3. oder ist einfach nur faul und meint wir coden das für ihn

    In solchen Fällen erlaube ich mir, die Anfrage einfach zu ignorieren. ;)