Beiträge von DeepRed92

  • ChildGUI

    Hallo,

    ich habe eine ganz kleine Frage. Also ich wollte gerne wissen, wie ich mit AutoIt eine GUI erstellen kann, das 5 ChildGUIs enthält, die alle versteckt sind.

    Bin für jede Hilfe dankbar :)

  • SoundsetwaveVolume momentanen wert erfahren ?

    Was Du suchst ist diese UDF hier:

    Spoiler anzeigen
    [autoit]

    Func _SoundGetWaveVolume()
    Local $WaveVol = -1, $p, $ret
    Const $MMSYSERR_NOERROR = 0
    $p = DllStructCreate("dword")
    If @error Then
    SetError(2)
    Return -2
    EndIf
    $ret = DllCall("winmm.dll", "long", "waveOutGetVolume", "long", -1, "long", DllStructGetPtr($p))
    If ($ret[0] == $MMSYSERR_NOERROR) Then
    $WaveVol = Round(Dec(StringRight(Hex(DllStructGetData($p, 1), 8), 4)) / 0xFFFF * 100)
    Else
    SetError(1)
    EndIf
    $p = 0
    Return $WaveVol
    EndFunc ;==>_SoundGetWaveVolume

    [/autoit]

    ;)

  • Internetbrowser-Objekt ohne Rand

    Ach ja der Code hier :D :

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=1.ico
    #AutoIt3Wrapper_Compression=4
    #AutoIt3Wrapper_Res_Description=Spielt einzelne Songs ab.
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=Burak Keskin
    #AutoIt3Wrapper_Res_Language=1031
    #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
    #AutoIt3Wrapper_Res_Field=E-Mail|[email='burak.keskin@arcor.de'][/email]
    #AutoIt3Wrapper_Run_Obfuscator=y
    #Obfuscator_Parameters=/sf 1 /sv 1
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.1.1 (beta)
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <String.au3>
    #include <Inet.au3>

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

    $Form1 = GUICreate("Last.FM Player", 342, 331)
    $Label1 = GUICtrlCreateLabel("Interpret:", 8, 8, 46, 17)
    $Input1 = GUICtrlCreateInput("Rise Against", 64, 8, 121, 21)
    $Label2 = GUICtrlCreateLabel("Song:", 8, 40, 32, 17)
    $Input2 = GUICtrlCreateInput("Tip the Scales", 64, 40, 121, 21)
    $Button1 = GUICtrlCreateButton("Ok", 208, 40, 75, 25)

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

    $oIE = ObjCreate("Shell.Explorer.2")
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 70, 342, 261)

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

    $oIE.navigate("http://cdn.last.fm/webclient/s12n/s/49/lfmPlayer.swf")

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

    GUIRegisterMsg($WM_ACTIVATE, "_ReDraw")

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

    GUISetState(@SW_SHOW)

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

    _user32_RedrawWindow($Form1, BitOR($RDW_ERASE, $RDW_INVALIDATE, $RDW_ALLCHILDREN, $RDW_UPDATENOW))

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

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

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

    Func _Anfrage()
    GUICtrlSetState($Button1, $GUI_Disable)
    $Fopen = FileOpen(@TempDir & "\Temp.html", 2)

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

    $Interpret = GUICtrlRead($Input1)
    $Song = GUICtrlRead($Input2)

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

    $Source = _LastFM_Get_Player_Source(_LastFM_Generate_Url($Interpret, $Song) & "?autostart")
    If $Source <> -1 Then
    FileWrite($Fopen, $Source)
    FileClose($Fopen)
    $oIE.navigate(@TempDir & "\Temp.html")
    Else
    MsgBox(0, "Fehler", "Musik nicht gefunden!")
    EndIf
    GUICtrlSetState($Button1, $GUI_Enable)
    EndFunc ;==>_Anfrage

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

    Func _user32_RedrawWindow($hWnd, $Flag)
    $Ret = DllCall("User32.dll", "int", "RedrawWindow", "hwnd", $hWnd, "int", 0, "int", 0, "uint", $Flag)
    Return $Ret[0]
    EndFunc ;==>_user32_RedrawWindow

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

    Func _LastFM_Generate_Url($LF_Interpret, $LF_Song)
    Local $LF_URL = "http://www.lastfm.de/music/" & $LF_Interpret & "/_/" & $LF_Song
    Return StringReplace($LF_URL, " ", "+")
    EndFunc ;==>_LastFM_Generate_Url

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

    Func _LastFM_Get_Player_Source($LF_URL)
    Local $LF_Source = _INetGetSource($LF_URL), $Loop
    Local $LF_S_Bet = _StringBetween($LF_Source, '<object type="application/x-shockwave-flash"', '</object>')
    For $Loop = 0 To UBound($LF_S_Bet)
    If IsArray($LF_S_Bet) Then
    If StringInStr($LF_S_Bet[$Loop], "lfmPlayer.swf") Then
    Return '<object type="application/x-shockwave-flash"' & $LF_S_Bet[$Loop] & '</object>'
    EndIf
    EndIf
    Next
    Return -1
    EndFunc ;==>_LastFM_Get_Player_Source

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

    Func _ReDraw($hWnd, $Msg, $wParam, $lParam)
    _user32_RedrawWindow($Form1, BitOR($RDW_ERASE, $RDW_INVALIDATE, $RDW_ALLCHILDREN, $RDW_UPDATENOW))
    EndFunc ;==>_ReDraw

    [/autoit]