Ich versteh die Welt nichtmehr^^

  • [autoit]


    InetGet($FinalDJPic, @ScriptDir&"\CurrentDJ.jpg")

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

    GUICtrlCreatePic(@ScriptDir & "\CurrentDJ.jpg",0,0, 200,50)

    [/autoit]

    wieso geht das net??? Wird nix angezeigt aber das Bild wird korrekt heruntergeladen!

  • Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <INet.au3>
    #include <String.au3>
    #include <IE.au3>

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

    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\billig\Desktop\TechnoBaseClient\Form1.kxf
    _IEErrorHandlerRegister()
    $oIE1 = _IECreateEmbedded()
    $oIE2 = _IECreateEmbedded()

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

    $Form1 = GUICreate("TechnoBase.FM Webplayer", 626, 233, 196, 164)
    $Group1 = GUICtrlCreateGroup("Player", 8, 8, 345, 91)
    GUICtrlCreateObj($oIE1, 15, 25, 297, 65)
    $oIE1.navigate("http://i3illig.de/StartUp.html")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Menü", 360, 8, 257, 121)
    $Combo1 = GUICtrlCreateCombo("--== Choose ==--", 368, 64, 233, 25); $ES_READONLY
    GUICtrlSetData(-1,"TechnoBase|HouseTime|HardBase|TranceBase")
    $Label1 = GUICtrlCreateLabel("Wähle ein Radio aus:", 368, 40, 106, 17)
    $Button1 = GUICtrlCreateButton("--", 368, 96, 49, 17, 0)
    $Button2 = GUICtrlCreateButton("Info", 424, 96, 49, 17, 0)
    $Button3 = GUICtrlCreateButton("Quit", 480, 96, 49, 17, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group3 = GUICtrlCreateGroup("Informationen", 8, 106, 345, 119)
    GUICtrlCreateObj($oIE2, 15, 122, 320, 100)
    $oIE2.navigate("http://i3illig.de/StartUp.html")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Tab = GUICtrlCreateTab(360, 136, 227, 89)
    $Tab1 = GUICtrlCreateTabItem("General")
    $Tab1Info = GUICtrlCreateLabel("", 370, 166, 250, 250)
    $Tab2 = GUICtrlCreateTabItem("Song")
    $Tab2Info = GUICtrlCreateLabel("", 370, 166, 250, 250)
    $Tab3 = GUICtrlCreateTabItem("DJ")
    $Tab3Info = GUICtrlCreateLabel("", 370, 166, 250, 250)
    $DjPicture = GUICtrlCreatePic("CurrentDJ.jpg",400,206,100,133)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    _LoadGeneral()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1

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

    Case $Button2
    $oIE2.navigate("http://i3illig.de/StartUp.html")
    Case $Button3
    Exit
    Case $Combo1
    If GUICtrlRead($Combo1) = "TechnoBase" then $oIE1.navigate("http://www.technobase.fm/wmplayer.php?Stream=http://DSL.TechnoBase.eu/listen-dsl.asx")
    If GUICtrlRead($Combo1) = "HouseTime" then $oIE1.navigate("http://www.technobase.fm/wmplayer.php?Stream=http://DSL.TechnoBase.eu/listen-dsl.asx")
    If GUICtrlRead($Combo1) = "HardBase" then $oIE1.navigate("http://www.technobase.fm/wmplayer.php?Stream=http://DSL.TechnoBase.eu/listen-dsl.asx")
    If GUICtrlRead($Combo1) = "TranceBase"then $oIE1.navigate("http://www.technobase.fm/wmplayer.php?Stream=http://DSL.TechnoBase.eu/listen-dsl.asx")

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

    EndSwitch
    WEnd

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

    Func _LoadGeneral()
    SplashTextOn("Loading...", "- Loading Informations.", 500, 100)
    $SourceCode = _INetGetSource("http://www.technobase.fm/")
    If $SourceCode = "" then
    MsgBox(16,"Error","No Internet-Connection or TechnoBase.fm down ;)")
    Exit
    EndIf
    $TechnoBaseUser = _StringBetween($SourceCode,'TechnoBase</a>:</td><td>&nbsp;&nbsp;','</td></tr>')
    $HouseTimeUser = _StringBetween($SourceCode,'HouseTime</a>:</td><td>&nbsp;&nbsp;','</td></tr>')
    $HardBaseUser = _StringBetween($SourceCode,'HardBase</a>:</td><td>&nbsp;&nbsp;','</td></tr>')
    $TranceBaseUser = _StringBetween($SourceCode,'TranceBase</a>:</td><td>&nbsp;&nbsp;','</td></tr>')
    $TotalUser = $TechnoBaseUser[0] + $HouseTimeUser[0] + $HardBaseUser[0] + $TranceBaseUser[0]
    GUICtrlSetData($Tab1Info,"[" & $TotalUser & "] Zuhörer:" & @CRLF & "- Technobase[" & $TechnoBaseUser[0] & "] " & @TAB & "- HardBase[" & $HardBaseUser[0] & "]" & @CRLF & "- HouseTime[" & $HouseTimeUser[0] & "] " & @TAB & "- TranceBase[" & $TranceBaseUser[0] & "]")

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

    #cs
    $CurrentDJ = _StringBetween($SourceCode,'<div style="margin: 8px; width: 158px; float: left;"></div><div id="onAir" style="overflow: hidden; width: 420px;"><strong>','</strong></div>')
    GUICtrlSetData($Tab3Info,"Aktueller Track: " & $CurrentDJ[0])
    #ce

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

    $CurrentDJ = _StringBetween($SourceCode,"document.write(unescape('","'));")
    $NewCurrentDJ = StringRegExpReplace($CurrentDJ[2],"%","")
    $NewCurrentDJFinal = _HexToString($NewCurrentDJ)
    $CurrentDJFinal2 = _StringBetween($NewCurrentDJFinal,"<strong>","</strong>")
    $CurrentDJFinal3 = _StringBetween($CurrentDJFinal2[0],'font color="#FFDD82">','</font></a>')
    $DJPic = _StringBetween($NewCurrentDJFinal,'<strong><a href="/member/','" target="_top">')
    $FinalDJPic = "http://profil.technobase.eu/profil_small" & $DJPic[0] & "-5.jpg"
    InetGet($FinalDJPic, @ScriptDir&"\CurrentDJ.jpg",1)
    GUICtrlSetData($Tab3Info,"Aktueller DJ: " & $CurrentDJFinal3[0])
    GUICtrlSetData($DjPicture, "CurrentDJ.jpg")
    SplashOff()
    EndFunc

    [/autoit]
  • Dein .JPG ist in Wirklichkeit ein .PNG :wacko: , und das kriegst du meines Wissens so nicht angezeigt.

    Schau dich mal bei den GDIPlus-Funktionen_GDIPlus_ImageLoadFromFile() und _GDIPlus_GraphicsCreateFromHWND() um.

    Gruß Ashpool

    Gruß Ashpool

    Zitat von mir

    Bin immer wieder erstaunt, wie begrenzt ein Horizont sein kann.