Beiträge von BugFix

  • Teamspeak-Zusatzprogramm // Brauche Hilfe beim Tray-Menü

    Hier mal das Hilfe-Bsp. umgestrickt.

    Spoiler anzeigen
    [autoit]

    #Include <Constants.au3>
    Opt("TrayMenuMode",1)

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

    $microfonitem = TrayCreateItem("Mute Microphone")
    $speakeritem = TrayCreateItem("Mute Speakers")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Exit")

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

    TraySetState()

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

    While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = $microfonitem
    MsgBox(0, '', 'Func Mikro aus')
    ; Mikro aus
    Case $msg = $speakeritem
    MsgBox(0, '', 'Func Speaker aus')
    ; Speaker aus
    Case $msg = $exititem
    ExitLoop
    EndSelect
    WEnd

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

    Exit

    [/autoit]

    Wenn es für Mic aus und Speaker aus Hotkeys gibt, kannst du diese ja ausführen bei Aufruf des TrayItems.

  • automatisches rechnen

    Hi,
    da hatte grad letztens jemand für eine Widerstandsberechnung nach gefragt.
    Ich hoffe mein Bsp. funzt.
    Habbe jetzt nur Addition drin, kannst das ja abändern in den Rechenfunktionen.

    Edit:
    Die Clearbutton sind beabsichtigt, damit legst du fest welches Feld neu berechnet werden soll nach erfolgter erster Rechnung. Denn wenn alle Felder bereits gefüllt sind und du nur einen Wert überschreibst, kann das programm ja nicht ahnen, welchen der zwei anderen Werte du nun berechnen möchtest ;-).

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstants.au3>
    Opt('GUIOnEventMode', 1)

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

    Global $is1 = False, $is2 = False, $is3 = False

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

    GUICreate('Test')
    GUISetOnEvent($GUI_EVENT_CLOSE, 'ende')
    GUICtrlCreateLabel('1: ', 15, 15, 30)
    $1 = GUICtrlCreateInput('', 50, 15, 60, -1, BitOR($ES_RIGHT, $ES_AUTOHSCROLL))
    GUICtrlSetOnEvent(-1, '_1')
    GUICtrlCreateButton('clear', 120, 15, 40, 20)
    GUICtrlSetOnEvent(-1, '_c1')
    GUICtrlCreateLabel('2: ', 15, 45, 30)
    $2 = GUICtrlCreateInput('', 50, 45, 60, -1, BitOR($ES_RIGHT, $ES_AUTOHSCROLL))
    GUICtrlSetOnEvent(-1, '_2')
    GUICtrlCreateButton('clear', 120, 45, 40, 20)
    GUICtrlSetOnEvent(-1, '_c2')
    GUICtrlCreateLabel('3: ', 15, 75, 30)
    $3 = GUICtrlCreateInput('', 50, 75, 60, -1, BitOR($ES_RIGHT, $ES_AUTOHSCROLL))
    GUICtrlSetOnEvent(-1, '_3')
    GUICtrlCreateButton('clear', 120, 75, 40, 20)
    GUICtrlSetOnEvent(-1, '_c3')
    GUISetState()

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

    While 1
    Sleep(100)
    WEnd

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

    Func ende()
    Exit
    EndFunc

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

    Func _1()
    If GUICtrlRead($1) <> '' Then
    $is1 = True
    Else
    $is1 = False
    EndIf
    If $is1 And $is2 Then
    _calc3()
    ElseIf $is1 And $is3 Then
    _calc2()
    EndIf
    EndFunc

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

    Func _2()
    If GUICtrlRead($2) <> '' Then
    $is2 = True
    Else
    $is2 = False
    EndIf
    If $is2 And $is1 Then
    _calc3()
    ElseIf $is2 And $is3 Then
    _calc1()
    EndIf
    EndFunc

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

    Func _3()
    If GUICtrlRead($3) <> '' Then
    $is3 = True
    Else
    $is3 = False
    EndIf
    If $is3 And $is2 Then
    _calc1()
    ElseIf $is3 And $is1 Then
    _calc2()
    EndIf
    EndFunc

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

    Func _calc1()
    GUICtrlSetData($1, GUICtrlRead($2) + GUICtrlRead($3))
    EndFunc

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

    Func _calc2()
    GUICtrlSetData($2, GUICtrlRead($1) + GUICtrlRead($3))
    EndFunc

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

    Func _calc3()
    GUICtrlSetData($3, GUICtrlRead($2) + GUICtrlRead($1))
    EndFunc

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

    Func _c1()
    GUICtrlSetData($1, '')
    _clearCheck(1)
    EndFunc

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

    Func _c2()
    GUICtrlSetData($2, '')
    _clearCheck(2)
    EndFunc

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

    Func _c3()
    GUICtrlSetData($3, '')
    _clearCheck(3)
    EndFunc

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

    Func _clearCheck($N)
    Switch $N
    Case 1
    If (GUICtrlRead($2)<>'') And (GUICtrlRead($3)<>'') Then
    $is2 = True
    $is3 = True
    $is1 = False
    EndIf
    Case 2
    If (GUICtrlRead($1)<>'') And (GUICtrlRead($3)<>'') Then
    $is1 = True
    $is3 = True
    $is2 = False
    EndIf
    Case 3
    If (GUICtrlRead($2)<>'') And (GUICtrlRead($1)<>'') Then
    $is2 = True
    $is1 = True
    $is3 = False
    EndIf
    EndSwitch
    EndFunc

    [/autoit]

  • StringSplit-Ausgabe zusammenfügen

    Nicht splitten, nur den Rest abschneiden:

    [autoit]

    Dim $var = "C:\Dokumente und Einstellungen\MaxMuster\Anwendungsdaten\Mozilla\Firefox\Profiles\test.default"
    $var = StringTrimRight($var, StringLen($var)-StringInStr($var, '\', 1, -1)+1)
    ConsoleWrite($var & @crlf)

    [/autoit]

  • Informationen aus Fenster auslesen

    Wäre sinnvoll, wenn du dir die Daten des Editfeldes, statt des Listview anzeigen läßt.
    Denn du sagst ja, dass du aus dem LV lesen kannst.

    Ich nehme mal an, dass das untere Ctrl ein Edit ist. Somit kannst du so vorgehen:

    [autoit]

    ControlCommand ( "title", "text", "controlID", "GetLineCount", "" ) ; gibt die Zeilenzahl aus dem Edit
    ; für jede Zeile:
    ControlCommand ( "title", "text", "controlID", "GetLine", "line#" ) ; Text der Zeile

    [/autoit]

  • Konvertertool - Ordner übergreifend sauber Dateien suchen und auflisten

    Ja, da hatte ich vergessen das letzte Trennzeichen abzuschneiden ;) .
    So geht es:

    Spoiler anzeigen
    [autoit]

    Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0, $sDelim='0')
    Global $oFSO = ObjCreate('Scripting.FileSystemObject')
    Global $strFiles = ''
    Switch $sDelim
    Case '1'
    $sDelim = @CR
    Case '2'
    $sDelim = @LF
    Case Else
    $sDelim = @CRLF
    EndSwitch
    If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
    If $sExt = -1 Then $sExt = '*'
    If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
    _ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir,$sDelim)
    If $iRetType = 0 Then
    Local $aOut
    $aOut = StringSplit(StringTrimRight($strFiles,1), $sDelim, 1)
    If $aOut[1] = '' Then
    ReDim $aOut[1]
    $aOut[0] = 0
    EndIf
    If $aOut[0] <> 0 Then $aOut[$aOut[0]] = StringTrimRight($aOut[$aOut[0]], 1)
    Return $aOut
    Else
    Return StringTrimRight($strFiles, StringLen($sDelim))
    EndIf
    EndFunc

    [/autoit]

    Oscar : Das Problem ist der nicht beschnittene letzte Arraywert - und @CRLF wird dort mit Länge 1 entfernt, für den String brauchts aber Länge 2 - seltsam ;) .

  • Rekursive Datei/Ordner Auflistung per Objekt

    Hi Oscar,
    habe deinen Beitrag hierzu erst jetzt bemerkt.

    zu 1.
    Danke, das paßt.

    zu 2.
    Ich habe es mal so getestet - aber dann geht mir ein (gewollter) Effekt verloren. Als Trenner habe ich dann nur @CR/LF. Ich wollte aber auch die Möglichkeit bieten Trenner frei zu wählen (z.B. '|').
    Aber vermutlich wird Arrayausgabe eh am häufigsten genutzt.