Beiträge von chip

  • Problem mit dynamisch erzeugten Buttons

    Hi,

    ich habe ein Script, welches mir die Startmenüeinträge ausließt und mir darauß dann Buttons auf einer GUI erzeugt. Funktioniert soweit auch ganz gut, bis auf das Problem, dass immer mal wieder ein Button fehlt. Ich finde aber einfach nicht den Fehler:

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
    $search = FileFindFirstFile(@ProgramsCommonDir & "\*.*")
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 1000, @DesktopHeight, 0, 0, BitOR($WS_POPUP, $WS_CLIPSIBLINGS))
    $anzahly = 1
    $buttonx = 10
    $buttony = -100
    While 1
    $file = FileFindNextFile($search)
    $dir = @extended
    If @error Then ExitLoop
    If StringInStr($file, ".lnk") Then
    If $anzahly < Int((@DesktopHeight - 10) / 110) Then
    $anzahly = $anzahly + 1
    $buttony = $buttony + 110
    Else
    $anzahly = 1
    $buttony = 10
    $buttonx = $buttonx + 110
    EndIf
    _lnkdetail("", $file, $buttonx, $buttony)
    ElseIf $dir = 1 Then
    $secondsearch = FileFindFirstFile(@ProgramsCommonDir & "\" & $file & "\*.*")
    $secondpfad = $file & "\"
    While 1
    $secondfile = FileFindNextFile($secondsearch)
    If @error Then ExitLoop
    If StringInStr($secondfile, ".lnk") Then
    If $anzahly < Int((@DesktopHeight - 10) / 110) Then
    $anzahly = $anzahly + 1
    $buttony = $buttony + 110
    Else
    $anzahly = 1
    $buttony = 10
    $buttonx = $buttonx + 110
    EndIf
    _lnkdetail($secondpfad, $secondfile, $buttonx, $buttony)
    EndIf
    WEnd
    EndIf
    WEnd
    FileClose($search)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    Func _lnkdetail($pfad, $file, $buttonx, $buttony)
    $details = FileGetShortcut(@ProgramsCommonDir & "\" & $pfad & $file)
    If Not StringInStr($details[0], "C:\Windows\Installer") > 0 Then
    $Button1 = GUICtrlCreateButton($file, $buttonx, $buttony, 100, 100)
    EndIf
    EndFunc ;==>_lnkdatail

    [/autoit]

  • Problem mit HotKeys

    Hier liegt das Problem eher darin, dass Grundlagen fehlen. Mach mal das Tutorial: http://wiki.autoit.de/wiki/index.php/Tutorial

    Hier mal das oben leserlich:

    Spoiler anzeigen
    [autoit]

    #RequireAdmin
    HotKeySet("a", "A")
    HotKeySet("b", "B")
    HotKeySet("c", "C")
    HotKeySet("d", "D")
    HotKeySet("e", "E")
    HotKeySet("f", "F")
    HotKeySet("g", "G")
    HotKeySet("h", "H")
    HotKeySet("i", "I")
    HotKeySet("j", "J")
    HotKeySet("k", "K")
    HotKeySet("l", "L")
    HotKeySet("m", "M")
    HotKeySet("n", "N")
    HotKeySet("o", "O")
    HotKeySet("p", "P")
    HotKeySet("q", "Q")
    HotKeySet("r", "R")
    HotKeySet("s", "S")
    HotKeySet("t", "T")
    HotKeySet("u", "U")
    HotKeySet("v", "V")
    HotKeySet("w", "W")
    HotKeySet("x", "X")
    HotKeySet("y", "Y")
    HotKeySet("z", "Z")
    HotKeySet("{SPACE}", "space")
    HotKeySet("{F7}", "_Exit")

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func A()
    Send("Alpha")
    EndFunc ;==>A

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func B()
    Send("Bravo")
    EndFunc ;==>B

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func C()
    Send("Charlie")
    EndFunc ;==>C

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func D()
    Send("Delta")
    EndFunc ;==>D

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func E()
    Send("Echo")
    EndFunc ;==>E

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func F()
    Send("Foxtrott")
    EndFunc ;==>F

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func G()
    Send("Golf")
    EndFunc ;==>G

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func H()
    Send("Hotel")
    EndFunc ;==>H

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func I()
    Send("India")
    EndFunc ;==>I

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func J()
    Send("Juliett")
    EndFunc ;==>J

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func K()
    Send("Kilo")
    EndFunc ;==>K

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func L()
    Send("Lima")
    EndFunc ;==>L

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func M()
    Send("Mike")
    EndFunc ;==>M

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func N()
    Send("November")
    EndFunc ;==>N

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func O()
    Send("Oscar")
    EndFunc ;==>O

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func P()
    Send("Papa")
    EndFunc ;==>P

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func Q()
    Send("Quebec")
    EndFunc ;==>Q

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func R()
    Send("Romeo")
    EndFunc ;==>R

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func S()
    Send("Sierra")
    EndFunc ;==>S

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func T()
    Send("Tango")
    EndFunc ;==>T

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func U()
    Send("Uniform")
    EndFunc ;==>U

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func V()
    Send("Victor")
    EndFunc ;==>V

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func W()
    Send("Whiskey")
    EndFunc ;==>W

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func X()
    Send("X-Ray")
    EndFunc ;==>X

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func Y()
    Send("Yankee")
    EndFunc ;==>Y

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func Z()
    Send("Zulu")
    EndFunc ;==>Z

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func space()
    Send("§")
    EndFunc ;==>space

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

    Do
    Sleep(250)
    Until 1 = 2

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    [/autoit]


    BugFix er hat doch geschrieben das es ein Bug in seinem IPOD ist und er mit diesem nur groß Schreiben kann.

  • FileGetShortcut und Dateiname des Icons

    Hi,

    ich versuche gerade durch das Auslesen der Verknüpfungsdaten mit FileGetShortcut den Dateinamen des, bei der Verknüpfung angezeigten, Bildes zu erhalten. Leider ist allerdings $array[4] , welcher "Dateiname des Icons" enhalten sollte, immer leer. Dies ist bei jeder Verknüpfung die ich habe und auch sowohl unter Win XP als auch unter Win 7 so. Hat dafür schonmal jemand eine Lösung gefunden?

  • externe Variablen Übergabe

    In dem Fall einfach nur $CmdLine verwenden. Sprich von Java aus die Autoitprogramm mit Paramter aufrufen und dann in Autoit mit $CmdLine auslesen. Und da in $CmdLine[0] die Anzahl der übergebene Paramter steht ist auch Problemlos eine variabe Anzahl an Paramtern möglich.

  • Windows 7 X64 Mute Auslesen

    Hier habs mal gemacht und ist unter Win 7 x64 getestet:

    Spoiler anzeigen
    [autoit]


    MsgBox(0, 'Lautstärke', _GetMasterVolumeState())

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

    Func _GetMasterVolumeState()
    Run("SndVol.exe", "", @SW_MINIMIZE)
    WinWait("Lautstärkemixer")
    $mute = WinGetText("Lautstärkemixer")
    If StringInStr($mute, "Stummschaltung für Lautsprecher aufheben") > 0 Then
    $mute = "mute"
    Else
    $mute = "no mute"
    EndIf
    WinClose("Lautstärkemixer")
    Return $mute
    EndFunc ;==>_GetMasterVolumeMute

    [/autoit]