Beiträge von DeepRed92

  • 2 Downloads mit Progressbar?

    Zitat

    Kannst du lesen? mit der neuen BETA 3.3.1.0 kann man parallel downloaden und es gibt auch die Funktion InetGetInfo.
    Lad dir am besten auch das neue SciTe runter, das hat de Definitionen mit drin.

    3x darst du raten, was ich schon seit Tagen auf dem Rechner habe -.-

  • 2 Downloads mit Progressbar?

    Hi,

    habs gerade auch zufällig gemerkt. Aber bei mir steht das InetGetInfo ein undefiniertes Funktion ist. Wieso?

    Ich hab mal etwas herumprobiert und das sit dabei herausgekommen. Aber irgendwie werden die Dateien nicht gleichzeitig heruntergeladen.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <WindowsConstants.au3>

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

    Global $Old1 = 0
    Global $Old2 = 0

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

    $Form1 = GUICreate("Form1", 425, 55, 192, 124)
    $Progress1 = GUICtrlCreateProgress(8, 8, 414, 17)
    $Progress2 = GUICtrlCreateProgress(8, 32, 414, 17)
    GUISetState(@SW_SHOW)

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

    $Download_1 = "http://download.mozilla.org/?product=firefox-3.0.10&os=win&lang=de"
    $Download_2 = "http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe"

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

    $Size_1 = InetGetSize($Download_1)
    $Size_2 = InetGetSize($Download_2)

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

    $Download_1 = InetGet($Download_1, @ScriptDir & "\Firefox.exe", 1, 1)
    $Download_2 = InetGet($Download_2, @ScriptDir & "\autoit-v3-setup.exe", 1, 1)

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

    $Init = TimerInit()

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

    While @InetGetActive

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

    If TimerDiff($Init) > 50 Then
    $Download_Prozent_1 = 100 * FileGetSize(@ScriptDir & "\Firefox.exe") / $Size_1
    $Download_Prozent_2 = 100 * FileGetSize(@ScriptDir & "\autoit-v3-setup.exe") / $Size_2

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

    GUICtrlSetData($Progress1, Round($Download_Prozent_1))
    GUICtrlSetData($Progress2, Round($Download_Prozent_2))

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

    $Init = TimerInit()
    EndIf

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

    WEnd

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

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

    [/autoit]

  • Last.fm Streamurl herausfiltern

    Ich hab das mal noch mehr vereinfacht und es läuft immer noch :)

    Spoiler anzeigen

  • Last.fm Streamurl herausfiltern

    Von mir aus ;).

    Hey ich hab mal den Code der Seite erheblich verkürzt. Aber leider kenne ich mich nicht so gut mit HTML und Co aus. Weiß jemand mit welchem Link das Medium geladen wird?

    Spoiler anzeigen

    Und kann man das hier auch zum laufen bringen?:

    Spoiler anzeigen
    [autoit]

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

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

    Global $lastURL = ""
    $IEGUI = GUICreate("WebRadio", 400, 400)

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

    $oAFP = _flashcreate(1, 1, 1, 300, 221)

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

    ;~ _flashvalue($oAFP, "Play")

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

    _flashloadmedia($oAFP, "http://cdn.last.fm/webclient/s12n/s/49/lfmPlayer.swf")

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

    ;~ $oIE = _IECreateEmbedded()

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

    ;~ $GuiIE = GUICtrlCreateObj($oIE,0,0,100,100)
    GUISetState()
    _flashvalue($oAFP, "Play")
    ;~ GUICtrlCreateObj($oIE,0,0)

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

    $Vars = ""

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

    $File = "lang=de&lfmMode=playlist&FOD=true&resourceID=164596544&resname=Lonely+World++Version+%28Explicit%29%29&restype=track&artist=Limp+Bizkit&albumArt=http%3A%2F%2Fuserserve-ak.last.fm%2Fserve%2F64s%2F8641893.jpg"
    $w = 300
    $h = 221
    $image = "http://is1.myvideo.de/movie6/39/thumbs/2932171_1.jpg"

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

    If $File Then $Vars &= "&file=" & $File
    If $w Then $Vars &= "&width=" & $w
    If $h Then $Vars &= "&height=" & $h
    If $image Then $Vars &= "&image=" & $image

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

    ; Weiter Eigenschaften nach diesem Schema von http://www.jeroenwijering.com/?item=Supported_Flashvars adden ;)

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

    $oAFP.FlashVars = StringTrimLeft($Vars, 1)

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

    While 1
    Sleep(1000)
    WEnd

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

    ;----------------------------------
    ;------Adobe Flash Functions-------
    ;----------------------------------

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

    #cs
    _flashcreate($show, $left, $top, $width = 100, $height = 100)
    $show: 1 = creates the control
    2 = doesn't create the control

    Return: The object for the control
    #ce
    Func _flashcreate($show, $left, $top, $width = 100, $height = 100)
    If FileFindFirstFile(@SystemDir & "\Macromed\Flash\flash*.ocx") = -1 Then
    $Value = MsgBox(20, "Error", "It seems that you don't have Flash Player installed. Please download" & @CRLF & "it from http://www.adobe.com. Do you want to go there now?")
    If $Value = 6 Then
    ShellExecute("www.adobe.com")
    EndIf
    Exit
    EndIf
    $i = 10
    Do
    $i -= 1
    $oFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash." & $i)
    Until Not @error Or $i <= 0

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

    If $oFlash = 0 Then Return 0
    If $show = 1 Then
    GUICtrlCreateObj($oFlash, $left, $top, $width, $height)
    EndIf
    Return $oFlash
    EndFunc ;==>_flashcreate
    #cs
    _flashloadmedia($object, $URL)
    $object: Object returned from the _flashcreate()
    $URL: Path or URL of the media
    Return: None
    #ce
    Func _flashloadmedia(ByRef $object, $URL)
    $object.LoadMovie(0, $URL)
    EndFunc ;==>_flashloadmedia
    #cs
    _flashsetvalue($object, $setting)
    $object: Object returned from the _flashcreate()
    $setting: "play"
    "stop"

    Return: None
    #ce
    Func _flashvalue(ByRef $object, $setting)
    Select
    Case $setting = "play"
    $object.play()
    Case $setting = "stop"
    $object.stop()
    EndSelect
    EndFunc ;==>_flashvalue

    [/autoit]

  • Last.fm Streamurl herausfiltern

    @ChaosKeks: Wow. Sieht optisch sehr gut aus :thumbup: . Aber muss man dafür angemeldet sein? Nein oder?

    Ich denke mal das man die URL zum Medium was damit zu tun hat. Denn in der HTML Datei muss ja schließlich stehen, welches Medium das Flashobject abspielen soll. Inklusiv Adresse. Hier

    Aber ich sehe da keine richtige URL :huh: .

  • alle dateinamen aus einem ordner in eine combobox?

    Vielleicht so?:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    #include <Array.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Global $All
    Global $Dir = @DesktopDir

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

    $Form1 = GUICreate("Form1", 307, 37, 193, 125)
    $Combo1 = GUICtrlCreateCombo("", 8, 8, 289, 25)
    GUISetState(@SW_SHOW)

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

    $FileList = _FileListToArray($Dir, "*.exe")

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

    For $x = 1 To $FileList[0]
    $All &= $FileList[$x] & "|"
    Next

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

    GUICtrlSetData($Combo1, StringTrimRight($All, 1))

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

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

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

    Case $Combo1
    Run($Dir & "\" & GUICtrlRead($Combo1))

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

    EndSwitch
    WEnd

    [/autoit]

  • Hilfe zur UDF SciLexer.au3

    Hallo,

    weiß jemand wie ich mithilfe der UDF SciLexer nur ein Editfeld wie bei ScIte erstellen kann? Also ohne irgendwelche Buttons usw..
    Ich habs schon selber versucht, aber das Beispiel fuktioniert nicht -.-

    Hier ein Beispiel Script:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    $Form1 = GUICreate("ScIte Example", 620, 443, 193, 125)
    GUISetState(@SW_SHOW)

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

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

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

    EndSwitch
    WEnd

    [/autoit]

  • alle dateinamen aus einem ordner in eine combobox?

    Hier ein kleines Beispiel:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    #include <Array.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Global $All

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

    $Form1 = GUICreate("Form1", 307, 37, 193, 125)
    $Combo1 = GUICtrlCreateCombo("", 8, 8, 289, 25)
    GUISetState(@SW_SHOW)

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

    $FileList = _FileListToArray(@DesktopDir)

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

    For $x = 1 To $FileList[0]
    $All &= $FileList[$x] & "|"
    Next

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

    GUICtrlSetData($Combo1, StringTrimRight($All, 1))

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

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

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

    EndSwitch
    WEnd

    [/autoit]