Beiträge von BugFix

  • Enable/Disable Checkbox

    Natürlich gehts auch noch kürzer ;)

    Spoiler anzeigen
    [autoit]

    #include<GUIConstants.au3>
    Dim $state1 = $GUI_ENABLE
    Dim $state2 = $GUI_ENABLE

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

    GUICreate("Checkboxen", 175, 150)
    $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 10, 40)
    $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 10, 70)
    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Select
    Case $msg = $Checkbox1
    $state2 = BitXOR($state2, $GUI_ENABLE, $GUI_DISABLE)
    GUICtrlSetState($Checkbox2, $state2)
    Case $msg = $Checkbox2
    $state1 = BitXOR($state1, $GUI_ENABLE, $GUI_DISABLE)
    GUICtrlSetState($Checkbox1, $state1)
    EndSelect
    Wend

    [/autoit]

  • Mirc überwachung von einem Chan in einem kleinen Fenster

    Nicht nur in Arbeit ;) , mein IRC-Bot ( Gucki heißt er :D ) ist schon voll lebensfähig.
    Was er kann:
    - Reaktion auf neuen User im Channel od. Verlassen des Channels
    - Aktionen von Usern ( /me Aktion ) werden kommentiert
    - Reaktion auf Stichworte
    - dumme Sprüche, wenn zu lange "ge-idled" wird
    - ich kann ihn 'sprechen' lassen, indem ich ihm eine PN schicke, die er dann als eigenen Text wiedergibt - kommt voll gut, dadurch wird er richtig lebendig :rofl:
    - natürlich User-Mode setzen (kick & ban) - auch das muß manchmal sein, z.B. bei Bad-Words

    Wenn ihr möchtet, schick ich ihn mal in unseren Autoit IRC-Chat.

    Den Basis-Clienten findet ihr hier: Basis-Client für IRC-Chat

  • Classic Games

    Mein absoluter Favorit war (und ist es auch noch heute) ein 3-D Tetris-Game auf DOS-Ebene: Blockout von California Dreams.

    [Blockierte Grafik: http://www.3dtris.de/blockout_essay/bl6.gif][Blockierte Grafik: http://www.3dtris.de/blockout_essay/bl12.gif]

    [Blockierte Grafik: http://www.3dtris.de/blockout_essay/bl19.gif]

    Inzwischen gibt es auch Versionen für Windows und Linux.
    Neben Schwierigkeitstufen (mehrdimensionale Segmente) konnte man auch die Ebenengröße anpassen (Standard 4 x 4).
    Die Bedienung erforderte auch einige Eingewöhnung, aber wenn man es einmal kann, vergißt man es nie mehr. ;)
    6 Tasten zum Drehen, die 4 Pfeiltasten und Space für Fallenlassen.

    Suchtfaktor seeeehhhhr groß. :D

  • Event kann nicht ausgelesen werden

    Ich denke, du suchst sowas:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GUIListView.au3>

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

    $gui = GUICreate('test')
    $lv = GUICtrlCreateListView('Spalte1|Spalte2', 10, 10, 300, 200)
    For $i = 1 To 10
    GUICtrlCreateListViewItem('Zeile ' & $i & 'Spalte 1|Zeile ' & $i & 'Spalte 2', $lv)
    Next
    GUISetState()
    GUIRegisterMsg($WM_NOTIFY, "MY_WM_COMMAND")

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

    Do
    $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE

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

    Func ListView1Click()
    Local $item = _GUICtrlListView_GetItemTextArray($lv)
    MsgBox(0, '', 'Text in Spalte 2: ' & $item[2])
    EndFunc

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

    Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    Local $tagNMHDR, $event
    Switch $wParam
    Case $lv ; ListView-ID
    $tagNMHDR = DllStructCreate("int;int;int", $lParam)
    If @error Then Return
    $event = DllStructGetData($tagNMHDR, 3)
    Switch $event
    Case $NM_CLICK
    ListView1Click()
    Case $NM_DBLCLK
    ;~ ListView1DoubleClick()
    Case $NM_RCLICK
    ;~ ListView1RightClick()
    Case $NM_RDBLCLK
    ;~ ListView1RightDoubleClick()
    Case $NM_LDOWN
    ;~ ListView1LeftDown()
    Case $NM_RDOWN
    ;~ ListView1RightDown()
    EndSwitch
    EndSwitch
    $tagNMHDR = 0
    EndFunc

    [/autoit]

    Edit:
    Ich hab jetzt mal die Funktion 'WM_NOTIFY' aus der aktuellen Version verwendet und die auswertbaren Parameter in ein Array gepackt, dass an die Funktion übergeben werden kann.
    Bietet jetzt viel mehr Möglichkeiten als noch die alte Version.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GUIListView.au3>

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

    $gui = GUICreate('test')
    $hListView = GUICtrlCreateListView('Spalte1|Spalte2', 10, 10, 300, 200)
    For $i = 1 To 10
    GUICtrlCreateListViewItem('Zeile ' & $i & 'Spalte 1|Zeile ' & $i & 'Spalte 2', $hListView)
    Next
    GUISetState()
    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
    Do
    $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE

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

    Func _LeftClick($Info)
    MsgBox(0, 'Text in Spalte', _GUICtrlListView_GetItemText($Info[1], $Info[3], $Info[4]) )
    EndFunc

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

    Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
    $hWndListView = $hListView
    If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView)

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

    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    Case $hWndListView
    Switch $iCode
    Case $LVN_COLUMNCLICK ; A column was clicked
    Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
    Local $aInfo[11] = [$hWndFrom, _
    $iIDFrom, _
    $iCode, _
    DllStructGetData($tInfo, "Index"), _
    DllStructGetData($tInfo, "SubItem"), _
    DllStructGetData($tInfo, "NewState"), _
    DllStructGetData($tInfo, "OldState"), _
    DllStructGetData($tInfo, "Changed"), _
    DllStructGetData($tInfo, "ActionX"), _
    DllStructGetData($tInfo, "ActionY"), _
    DllStructGetData($tInfo, "Param")]
    ;~ _ColumnClick($aInfo)
    Case $LVN_DELETEITEM ; An item is about to be deleted
    Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
    Local $aInfo[11] = [$hWndFrom, _
    $iIDFrom, _
    $iCode, _
    DllStructGetData($tInfo, "Index"), _
    DllStructGetData($tInfo, "SubItem"), _
    DllStructGetData($tInfo, "NewState"), _
    DllStructGetData($tInfo, "OldState"), _
    DllStructGetData($tInfo, "Changed"), _
    DllStructGetData($tInfo, "ActionX"), _
    DllStructGetData($tInfo, "ActionY"), _
    DllStructGetData($tInfo, "Param")]
    ;~ _ItemDeleted($aInfo)
    Case $LVN_HOTTRACK ; Sent by a list-view control when the user moves the mouse over an item
    Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
    Local $aInfo[11] = [$hWndFrom, _
    $iIDFrom, _
    $iCode, _
    DllStructGetData($tInfo, "Index"), _
    DllStructGetData($tInfo, "SubItem"), _
    DllStructGetData($tInfo, "NewState"), _
    DllStructGetData($tInfo, "OldState"), _
    DllStructGetData($tInfo, "Changed"), _
    DllStructGetData($tInfo, "ActionX"), _
    DllStructGetData($tInfo, "ActionY"), _
    DllStructGetData($tInfo, "Param")]
    Return 0 ; allow the list view to perform its normal track select processing.
    ;Return 1 ; the item will not be selected.
    ;~ _HottTrackItem($aInfo)
    Case $LVN_KEYDOWN ; A key has been pressed
    Local $tInfo = DllStructCreate($tagNMLVKEYDOWN, $ilParam)
    Local $aInfo[5] = [$hWndFrom, _
    $iIDFrom, _
    $iCode, _
    DllStructGetData($tInfo, "VKey"), _
    DllStructGetData($tInfo, "KeyFlags")]
    ;~ _KeyDown($aInfo)
    Case $NM_CLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
    Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
    Local $aInfo[12] = [$hWndFrom, _
    $iIDFrom, _
    $iCode, _
    DllStructGetData($tInfo, "Index"), _
    DllStructGetData($tInfo, "SubItem"), _
    DllStructGetData($tInfo, "NewState"), _
    DllStructGetData($tInfo, "OldState"), _
    DllStructGetData($tInfo, "Changed"), _
    DllStructGetData($tInfo, "ActionX"), _
    DllStructGetData($tInfo, "ActionY"), _
    DllStructGetData($tInfo, "lParam"), _
    DllStructGetData($tInfo, "KeyFlags")]
    _LeftClick($aInfo)
    Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
    Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
    Local $aInfo[12] = [$hWndFrom, _
    $iIDFrom, _
    $iCode, _
    DllStructGetData($tInfo, "Index"), _
    DllStructGetData($tInfo, "SubItem"), _
    DllStructGetData($tInfo, "NewState"), _
    DllStructGetData($tInfo, "OldState"), _
    DllStructGetData($tInfo, "Changed"), _
    DllStructGetData($tInfo, "ActionX"), _
    DllStructGetData($tInfo, "ActionY"), _
    DllStructGetData($tInfo, "lParam"), _
    DllStructGetData($tInfo, "KeyFlags")]
    ;~ _LeftDblClick($aInfo)
    Case $NM_KILLFOCUS ; The control has lost the input focus
    Local $aInfo[3] = [$hWndFrom, _
    $iIDFrom, _
    $iCode]
    ;~ _LostFocus($aInfo)
    Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
    Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
    Local $aInfo[12] = [$hWndFrom, _
    $iIDFrom, _
    $iCode, _
    DllStructGetData($tInfo, "Index"), _
    DllStructGetData($tInfo, "SubItem"), _
    DllStructGetData($tInfo, "NewState"), _
    DllStructGetData($tInfo, "OldState"), _
    DllStructGetData($tInfo, "Changed"), _
    DllStructGetData($tInfo, "ActionX"), _
    DllStructGetData($tInfo, "ActionY"), _
    DllStructGetData($tInfo, "lParam"), _
    DllStructGetData($tInfo, "KeyFlags")]
    ; Return 1 ; not to allow the default processing
    Return 0 ; allow the default processing
    ;~ _RightClick($aInfo)
    Case $NM_RDBLCLK ; Sent by a list-view control when the user double-clicks an item with the right mouse button
    Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
    Local $aInfo[12] = [$hWndFrom, _
    $iIDFrom, _
    $iCode, _
    DllStructGetData($tInfo, "Index"), _
    DllStructGetData($tInfo, "SubItem"), _
    DllStructGetData($tInfo, "NewState"), _
    DllStructGetData($tInfo, "OldState"), _
    DllStructGetData($tInfo, "Changed"), _
    DllStructGetData($tInfo, "ActionX"), _
    DllStructGetData($tInfo, "ActionY"), _
    DllStructGetData($tInfo, "lParam"), _
    DllStructGetData($tInfo, "KeyFlags")]
    ;~ _RightDblClick($aInfo)
    Case $NM_RETURN ; The control has the input focus and that the user has pressed the ENTER key
    Local $aInfo[3] = [$hWndFrom, _
    $iIDFrom, _
    $iCode]
    ;~ _InputFocusReturn($aInfo)
    Case $NM_SETFOCUS ; The control has received the input focus
    Local $aInfo[3] = [$hWndFrom, _
    $iIDFrom, _
    $iCode]
    ;~ _SetFocus($aInfo)
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_NOTIFY

    [/autoit]

  • GuiButtons in einem Array deklariert - Gui event mit schleife für buttonabfrage?

    Mach es doch so:

    Spoiler anzeigen
    [autoit]

    #include <guiconstants.au3>
    Opt('GUIOnEventMode', 1)
    Dim $verk1[15], $counter = 0, $button_pos = 10
    GUICreate('', 600, 500, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, '_ende')
    Do
    $verk1[$counter] = GUICtrlCreateButton ('Button' & $counter+1, 100, $button_pos, 80)
    GUICtrlSetOnEvent($verk1[$counter], '_FuncButt' & $counter+1)
    $button_pos += 30
    $counter += 1
    Until $counter > 14

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

    GUISetState()

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

    While 1
    Sleep(100)
    WEnd

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

    Func _ende()
    Exit
    EndFunc

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

    Func _FuncButt1()
    MsgBox(0, '', 'Button1')
    EndFunc
    Func _FuncButt2()
    MsgBox(0, '', 'Button2')
    EndFunc
    Func _FuncButt3()
    MsgBox(0, '', 'Button3')
    EndFunc
    Func _FuncButt4()
    MsgBox(0, '', 'Button4')
    EndFunc
    Func _FuncButt5()
    MsgBox(0, '', 'Button5')
    EndFunc
    Func _FuncButt6()
    MsgBox(0, '', 'Button6')
    EndFunc
    Func _FuncButt7()
    MsgBox(0, '', 'Button7')
    EndFunc
    Func _FuncButt8()
    MsgBox(0, '', 'Button8')
    EndFunc
    Func _FuncButt9()
    MsgBox(0, '', 'Button9')
    EndFunc
    Func _FuncButt10()
    MsgBox(0, '', 'Button10')
    EndFunc
    Func _FuncButt11()
    MsgBox(0, '', 'Button11')
    EndFunc
    Func _FuncButt12()
    MsgBox(0, '', 'Button12')
    EndFunc
    Func _FuncButt13()
    MsgBox(0, '', 'Button13')
    EndFunc
    Func _FuncButt14()
    MsgBox(0, '', 'Button14')
    EndFunc
    Func _FuncButt15()
    MsgBox(0, '', 'Button15')
    EndFunc

    [/autoit]

  • Infofenster, dass sich aktualisiert?

    Du verwendest $hallo an einer Stelle, wo die Variable noch gar keinen Wert hat - quasi noch nicht existiert ;)
    Außerdem mußt du GUICtrlSetData() innerhalb der Schleife zum Zuweisen verwenden. Und dafür benötigst du die ID des Edits, die wird dir beim Erstellen zurückgegeben: $ID = GUICtrlCreateEdit()

  • Mehrdimensionales Array aus Datei und wieder hinein!?

    Wieder der Hinweis: Bitte in die Hilfe zum Befehl schauen.
    _ArrayDelete() arbeitet NUR mit 1D-Arrays. (OK, steht in der Hilfe nicht explizit. Aber aus Bsp. und Nichterwähnung 2D ableitbar.)
    Verwende die Funktion _Array2DDelete()aus meiner Signatur.

    Edit
    Nochwas:

    [autoit]

    _ArrayDelete( $name, $name[$i][1])

    [/autoit]

    geht so nicht. $name ist ein 1D-Array(oder hast du das geändert?) - also:

    [autoit]

    _ArrayDelete( $name, $name[$i])

    [/autoit]

    Das führt aber zu einem Fehler, weil durch das Löschen das Array kleiner wird und die Indexzuordnung nicht mehr stimmt!
    Empfehlung: NICHT löschen, sondern Null-Strings reinschreiben und beim Abarbeiten die Nullstringinhalte per Abfrage übergehen.

  • _WinAPI_MakeLong / _WinAPI_MakeDWord - 2 Integerwerte in einer Variablen

    @Lina
    Naja, deshalb hab ich es auch im Forum Entwickler gepostet ;)
    Aber in einem Satz zusammengefaßt:
    Du kannst Integerzahlen bis 65535 paarweise in einer Variablen ablegen.

    Mal ein Anwendungsbeispiel:
    Mit _WinAPI_GetWindowLong kannst du die Eigenschaften eines Fensters ermitteln.
    Möchtest du das Fenster mit 2 verschiedenen Eigenschaften nutzen, legst du eine Variable für Style1 und eine für Style2 an.
    Im LoWord von Var1 speicherst du den Wert für Style1 und im HiWord für ExStyle1.
    Analog in Var2 für die anderen Styles.
    In der Anwendung kannst du dann zwischen beiden Eigenschaften mit _WinAPI_SetWindowLong switchen.

  • _WinAPI_MakeLong / _WinAPI_MakeDWord - 2 Integerwerte in einer Variablen

    Hi,
    ich hab mal ein wenig in den WinAPI-Funktionen gestöbert. Da gibt es sicher noch Vieles, was so nach und nach in unsere tägliche Programmierung einfließen wird. ;)
    Dabei bin ich über _WinAPI_MakeLong und _WinAPI_MakeDWord gestolpert.
    Beide Funktionen bieten die Möglichkeit, einer Variablen 2 Integer-Werte zuzuordnen - einmal im LoWord-Sektor und einmal im HiWord-Sektor.
    Der speicherbare Zahlenbereich erstreckt sich von 0-65535 (Word = 16 Bit).
    Die Werte lassen sich aus der Variablen mit _WinAPI_LoWord bzw. _WinAPI_HiWord selektieren.
    Eine Besonderheit ergibt sich hierbei:
    Während _WinAPI_LoWord den Wert genau, wie übergeben zurückgibt, werden alle Zahlen > 32767 von _WinAPI_HiWord als negative Zahl, rückwärts auf Null zählend zurückgegeben, wobei die erste Negativzahl -32768 ist.
    Daraus folgt: Wenn _WinAPI_HiWord negativ, dann gilt: Integerwert = 65536 + neg. Rückgabewert
    Ob man _WinAPI_MakeLong oder _WinAPI_MakeDWord verwendet ist für diese Art der Anwendung ohne Belang. Ich würde aber _WinAPI_MakeLong bevorzugen, da hier die Reihenfolge der Parameter logischer ist (erst LoWord, dann HiWord).

    [autoit]

    $varLo = 65535
    $varHi = 240
    $testLong = _WinAPI_MakeLong($varLo, $varHi)

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

    $loOut = _WinAPI_LoWord($testLong)
    $hiOut = _WinAPI_HiWord($testLong)
    If $hiOut < 0 Then $hiOut = 65536 + $hiOut

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

    MsgBox(0, 'ausgelesene Werte', 'LoWord: ' & $loOut & @LF & 'HiWord: ' & $hiOut)

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

    Func _WinAPI_MakeLong($iLo, $iHi)
    Return BitOR(BitShift($iHi, -16), BitAND($iLo, 0xFFFF))
    EndFunc
    Func _WinAPI_MakeDWord($HiWord, $LoWord)
    Return BitOR($LoWord * 0x10000, BitAND($HiWord, 0xFFFF))
    EndFunc
    Func _WinAPI_HiWord($iLong)
    Return BitShift($iLong, 16)
    EndFunc
    Func _WinAPI_LoWord($iLong)
    Return BitAND($iLong, 0xFFFF)
    EndFunc

    [/autoit]

  • _StringSplitOnce

    Dann gibbet was auf die Mütze wegen erwiesener Dummheit :rofl:

    Edit:
    Nee, mal ernsthaft.
    Dann bekommst du natürlich Fehler = 3, denn 0-tes Auftreten des Trennzeichens ist identisch mit Trennzeichen nicht im String.

  • 6 Arrays in einem Array zusammenfügen?

    Hier mal als Code:

    [autoit]

    Dim $Ardir1[10]
    Dim $Ardir2[12]
    Dim $ArReg1[8]
    Dim $ArReg2[4]
    Dim $ArReg3[8]
    Dim $ArReg4[15]
    Dim $arALL[6]=[$Ardir1,$Ardir2,$ArReg1,$ArReg2,$ArReg3,$ArReg4]
    For $i = 1 To UBound($arALL)-1
    _Array2DJoin($arALL[0], $arALL[$i])
    Next
    ; $arALL[0] (also $Ardir1) enthält dann alle Arrays

    [/autoit]

  • Encrypter für "Geheimsprache"

    OK, dann speichere deine Zuordnung in einem Array ab:

    [autoit]

    Dim $aMuster[27][2]
    $aMuster[0][0] = 'A'
    $aMuster[0][1] = 'L'

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

    $aMuster[1][0] = 'B'
    $aMuster[1][1] = 'SPR'

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

    $aMuster[2][0] = 'C'
    $aMuster[2][1] = '18'

    [/autoit]


    usw.

    Aber glaub mir: Du wirst es nicht schaffen das wieder zu Decrypten. Denn woher weißt du, dass z.B. "SPR" für ein Zeichen steht....??

  • Encrypter für "Geheimsprache"

    Du verwendest das Wort "Encrypter" - also gehe ich davon aus, dass du (wenn auch primitiv) verschlüsseln willst.
    Verschlüsseln ist nichts anderes als rechnen und zum Rechnen braucht man Zahlen. Ergo ==> ASCII-Werte der Buchstaben.
    Ich weiß nicht, inwieweit du dich mit Verschlüsselungssystemen auskennst, ein ganz simples ist z.B. Rot13.
    Der ROT13-Algorithmus basiert auf einer Verschiebung aller Buchstaben um 13 Positionen im Alphabet. Technisch heisst das, dass die ASCII-Werte der Buchstaben um 13 inkrementiert bzw. dekrementiert werden.