Beiträge von Schnitzel

  • Context Menu

    Zitat von Bakku

    Geht das??

    ohne gui im egtl nicht. aber wieso baust dus nicht so um, dann kannst du genauso deine hotkeys verwenden:

    Spoiler anzeigen
    [autoit]

    #include <GuiMenu.au3>
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>

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

    HotKeySet("{F10}", "Menue")

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

    $Handle = GUICreate("")

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

    Global Enum $idOpen = 1000, $idSave, $idInfo, $idExit
    Local $hMenu

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

    $hMenu = _GUICtrlMenu_CreatePopup ()
    _GUICtrlMenu_InsertMenuItem ($hMenu, 0, "Open", $idOpen)
    _GUICtrlMenu_InsertMenuItem ($hMenu, 1, "Save", $idSave)
    _GUICtrlMenu_InsertMenuItem ($hMenu, 2, "", 0)
    _GUICtrlMenu_InsertMenuItem ($hMenu, 3, "Info", $idInfo)
    _GUICtrlMenu_InsertMenuItem ($hMenu, 4, "EXIT", $idExit)

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

    Func OnAutoItExit()
    _GUICtrlMenu_DestroyMenu ($hMenu)
    EndFunc

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

    ; Register message handlers
    GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

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

    While 1
    Sleep(10)
    Wend

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

    ; Handle WM_COMMAND messages
    Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    Switch $iwParam
    Case $idOpen
    _WinAPI_ShowMsg ("Open")
    Case $idSave
    _WinAPI_ShowMsg ("Save")
    Case $idInfo
    _WinAPI_ShowMsg ("Info")
    Case $idExit
    Exit
    EndSwitch
    EndFunc ;==>WM_COMMAND

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

    Func Menue()
    _GUICtrlMenu_TrackPopupMenu ($hMenu, $Handle)
    EndFunc

    [/autoit]

  • unattend Script für VLC-Player 1.0.5 bekomme ich nicht hin. beim Lizenzabkommen bleibt Autoit hängen.

    ich hatte das mal so gemacht:

    Spoiler anzeigen
    [autoit]

    ShellExecute(@Scriptdir & "\vlc-1.0.5-win32.exe")
    WinWait("Installer Language", "Please select a language.")
    Controlclick("Installer Language", "Please select a language.", "[CLASS:Button; INSTANCE:1]")
    Winwait("VLC media player 1.0.5 Installation", "Willkommen beim Installations")
    ControlClick("VLC media player 1.0.5 Installation", "Willkommen beim Installations", "[CLASS:Button; INSTANCE:2]")
    Winwait("VLC media player 1.0.5 Installation", "Lizenzabkommen")
    ControlClick("VLC media player 1.0.5 Installation", "Lizenzabkommen", "[CLASS:Button; INSTANCE:2]")
    Winwait("VLC media player 1.0.5 Installation", "Komponenten auswählen")
    ControlClick("VLC media player 1.0.5 Installation", "Komponenten auswählen", "[CLASS:Button; INSTANCE:2]")
    Winwait("VLC media player 1.0.5 Installation", "Zielverzeichnis auswählen")
    ControlClick("VLC media player 1.0.5 Installation", "Zielverzeichnis auswählen", "[CLASS:Button; INSTANCE:2]")
    Winwait("VLC media player 1.0.5 Installation", "Die Installation von VLC media player 1.0.5 wird abgeschlossen")
    ControlClick("VLC media player 1.0.5 Installation", "Die Installation von VLC media player 1.0.5 wird abgeschlossen", "[CLASS:Button; INSTANCE:2]")

    [/autoit]

    Edit: Achja: Herzlich willkommen im Forum ;)

  • Problem mit Input

    Zitat

    so wärs ja ideal aba der rückgabewert der variable ist ja gleich die controlID

    nein bei einer inputbox ist der rückgabewert das eingegebene. Siehe Hilfe:

    Zitat

    Erfolg: Gibt den eingegebenen String zurück.

  • [HILFE] Volume einstellung über slider

    so gehts:


    Spoiler anzeigen
    [autoit]

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

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

    $oWMP = ObjCreate("WMPLayer.ocx")
    $GUI = GUICreate("Radio Player", 300, 200)
    $Combo1 = GUICtrlCreateCombo("TechnoBase.FM", 5, 35, 190, 30)
    GUICtrlSetData(-1, "HouseTime.FM|HardBase.FM|TranceBase.FM|CoreTime.FM", "TechnoBase.FM")
    $Volume = GUICtrlCreateSlider(250, 45, 30, 150, BitOR($TBS_AUTOTICKS,$TBS_VERT))
    GUICtrlSetData(-1, $oWMP.settings.volume())
    GUICtrlSetState($Volume, $GUI_DISABLE)
    $Progress1 = GUICtrlCreateProgress(200, 80, 25, 60, $PBS_VERTICAL)
    $Button1 = GUICtrlCreateButton("Start", 20, 155, 75, 25)
    $Button2 = GUICtrlCreateButton("Stopp", 120, 155, 75, 25)
    GUISetState(@SW_SHOW)

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

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $readcombo1 = GUICtrlRead($Combo1)
    $oWMP.controls.play()
    GUICtrlSetData($Progress1, 100)
    $oWMP.settings.volume = 50
    GUICtrlSetState($Volume, $GUI_ENABLE)
    GUICtrlSetState($Button1, $GUI_DISABLE)
    Select
    Case $readcombo1 = "TechnoBase.FM"
    $oWMP.URL = 'http://listen.technobase.fm/tunein-dsl-asx'
    Case $readcombo1 = "HouseTime.FM"
    $oWMP.URL = 'http://listen.housetime.fm/tunein-dsl-asx'
    Case $readcombo1 = "HardBase.FM"
    $oWMP.URL = 'http://listen.hardbase.fm/tunein-dsl-asx'
    Case $readcombo1 = "TranceBase.FM"
    $oWMP.URL = 'http://listen.trancebase.fm/tunein-dsl-asx'
    Case $readcombo1 = "CoreTime.FM"
    $oWMP.URL = 'http://listen.coretime.fm/tunein-dsl-asx'
    EndSelect
    Case $Button2
    $oWMP.controls.stop()
    GUICtrlSetState($Volume, $GUI_DISABLE)
    GUICtrlSetState($Button1, $GUI_ENABLE)
    Case $Volume
    $oWMP.settings.volume = 100 - GUICtrlRead($Volume)
    EndSwitch
    WEnd

    [/autoit]

    hab auch noch die ganzen unnötigen includes entfernt. und das setzten der lautstärke in nen case gepackt dann is die auslastung nich so hoch ;)

  • Speichern???

    du musst dir dann irgeneinen standard einfallen lassen wie du die einzelnen verschlüsselten worte trennst.
    du könntest z.B. immer zeilenweise verschlüsseln oder ein Trennzeichen verwenden.

  • Iniread von Variable

    wenn die funktion _ResourceGetAsString einen gültigen pfad zurückgibt dann gehts ja.

    meistens wirds aber eher so gemacht:

    [autoit]

    $getconfig = @Scriptdir & "\Config.ini"
    $test = IniRead ( $getconfig, "Blabla", "bla", "error" )

    [/autoit]

    oder kurz so:

    [autoit]

    $test = IniRead ( @Scriptdir & "\Config.ini", "Blabla", "bla", "error" )

    [/autoit]

  • Expand-Problem

    du meinst wahrscheinlich so oder?

    Spoiler anzeigen
    [autoit]

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

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 238, 51, 192, 124)
    $Input1 = GUICtrlCreateInput("Input1", 8, 8, 121, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 136, 8, 97, 17)
    GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    $Button1 = GUICtrlCreateButton("Button1", 136, 24, 75, 25, $WS_GROUP)
    GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    if IniRead(@ScriptDir & "\acc.config","Account","Check","NotFound") = "1" Then
    GUICtrlSetState($Checkbox1, $GUI_CHECKED)
    Elseif IniRead(@ScriptDir & "\acc.config","Account","Check","NotFound") = "0" Then
    GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
    EndIf

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _WinSetSize($Form1,238,400,10,7);fast open

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

    EndSwitch
    WEnd

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

    ;By GtaSpider
    Func _WinSetSize($hWnd, $iWidth, $iHeigth, $iSleep = -1,$iStep = 4)
    If $iSleep < 0 Then Return WinMove($hWnd,"",Default,Default,$iWidth,$iHeigth)
    Local $i, $iStepW = $iStep, $iStepH = $iStep,$iSin,$i2,$iLastI
    Local $aWinPos = WinGetPos($hWnd)
    If $iWidth < $aWinPos[2] Then $iStepW *= -1
    If $iHeigth < $aWinPos[3] Then $iStepH *= -1
    Local $iDegToRad = 3.14159265358979/180
    Local $iSinMulW = ($iWidth - $aWinPos[2]) / 2.5
    Local $iSinMulH = ($iHeigth - $aWinPos[3]) / 2.5
    If $iSinMulW < 0 Then $iSinMulW *= -1
    If $iSinMulH < 0 Then $iSinMulH *= -1
    If $iWidth <> $aWinPos[2] Then
    For $i = $aWinPos[2] To $iWidth Step $iStepW
    $iLastI = $i
    $iSin = $i - $aWinPos[2]
    $iSin = Sin($iDegToRad * (180*$iSin/($iWidth - $aWinPos[2])))
    WinMove($hWnd,"",Default,Default,$i + ($iSin * $iSinMulW),Default)
    Sleep($iSleep)
    Next
    If Mod($iWidth - $aWinPos[2],$iStep) Then
    If $iStepW < 0 Then
    $iStepW = -1
    Else
    $iStepW = 1
    EndIf
    For $i = $iLastI -1 To $iWidth Step $iStepW
    WinMove($hWnd,"",Default,Default,$i,Default)
    Next
    EndIf
    EndIf
    If $iHeigth <> $aWinPos[3] Then
    For $i = $aWinPos[3] To $iHeigth Step $iStepH
    $iLastI = $i
    $iSin = $i - $aWinPos[3]
    $iSin = Sin($iDegToRad*(180*$iSin/($iHeigth - $aWinPos[3])))
    WinMove($hWnd,"",Default,Default,Default,$i + ($iSin * $iSinMulH))
    Sleep($iSleep)
    Next
    If Mod($iHeigth - $aWinPos[3],$iStep) Then
    If $iStepH < 0 Then
    $iStepH = -1
    Else
    $iStepH = 1
    EndIf
    For $i = $iLastI -1 To $iHeigth Step $iStepH
    WinMove($hWnd,"",Default,Default,Default,$i)
    Next
    EndIf
    EndIf
    EndFunc

    [/autoit]