Beiträge von BugFix

  • Assembler Einstieg ?!

    Naja, ich bin z.B. totaler Autodidakt und habe alle meine Kenntnisse durch Bücher/Foren lesen und Probieren erworben.
    Allerdings muß ich zustimmen, dass das bei Assembler u.U. trotzdem nicht ausreicht. Ich hab bisher nur mal ein wenig reingeschnuppert und denke, dass es ziemlich anstrengend ist. :D
    Aber wenn du dich unbedingt ranwagen möchtest.... :whistling:

  • Inhalt Datei in Editfeld

    Ich vermute mal ganz stark, dass um diese Funktion herum eine andere GUI werkelt - ebenfalls mit "$msg = GUIGetMsg" ?
    Das überschneidet sich natürlich, bei mehreren Fenstern mußt du dann auch Abfragen von welchem Fenster das Ereignis kommt. ( GUIGetMsg(1) liefert Array mit diesen Infos, s. Hilfe)
    Besser ist sowieso, alle GUI beim Programmstart (nicht in der Funktion) zu erstellen und sie dann mit GUISetState($gui, @SW_SHOW) anzuzeigen.

  • _GetSystemMetrics (kpl. in einem Aufruf)

    Hi,
    um Abmaße von Fensterrändern, Clientflächen etc. zu erhalten kann man ja die Funktion _WinAPI_GetSystemMetrics verwenden.
    Diese Funktion gibt für den übergebenen Index den entsprechenden Wert zurück.
    In meiner Funktion werden alle ermittelbaren Werte in einem Array zurückgegeben. Die Funktion enthält einen optionalen Parameter, mit dem die ermittelbaren Größen in einer MsgBox oder über Commandline ausgegeben werden. Dabei wird die Funktion selbst nicht ausgeführt.
    Das soll als Hilfe für den Benutzer dienen - denn wer hat schon immer alle 38 möglichen Abfragegrößen parat ;) .
    Der Vollständigkeit halber sind auch die Namen der Windowskonstanten aufgelistet.

    Spoiler anzeigen
    [autoit]

    #include<array.au3>
    $a = _GetSystemMetrics()
    _ArrayDisplay($a)
    ;===============================================================================
    ; Function Name: _GetSystemMetrics([$ShowVal=-1])
    ; Description:: Rückgabe verschiedener Systeminformationen (Maße)
    ; Parameter(s): optional $ShowVal -1 Parameter nicht verwendet (Standard)
    ; 0 Ausgabe aller möglichen Werte in MsgBox
    ; 1 Ausgabe aller möglichen Werte in Commandline
    ; Bei Verwendung des optionalen Parameters wird die Funktion selbst
    ; NICHT ausgeführt.
    ; Return Value(s): Standard Array mit allen ermittelten Werten
    ; opt. Param entsprechende Auflistung
    ; Author(s): BugFix
    ;===============================================================================
    Func _GetSystemMetrics($ShowVal=-1)
    Local $arSysMetric[38][3] = [ _
    ["SM_CXSCREEN",0,"Bildschirmbreite"], _
    ["SM_CYSCREEN",1,"Bildschirmhöhe"], _
    ["SM_CXFULLSCREEN",16,"Breite der Fenster Client Fläche"], _
    ["SM_CYFULLSCREEN",17,"Höhe der Fenster Client Fläche"], _
    ["SM_CYMENU",15,"Höhe des Menüs"], _
    ["SM_CYCAPTION",4,"Höhe von Überschrift/Titel"], _
    ["SM_CXFRAME",32,"Breite des Fenster Rahmens"], _
    ["SM_CYFRAME",33,"Höhe des Fenster Rahmens"], _
    ["SM_CXHSCROLL",21,"Breite des Pfeil Bitmap auf der horizontalen Scrollbar"], _
    ["SM_CYHSCROLL",3,"Höhe des Pfeil Bitmap auf der horizontalen Scrollbar"], _
    ["SM_CXVSCROLL",2,"Breite des Pfeil Bitmap auf der vertikalen Scrollbar"], _
    ["SM_CYVSCROLL",20,"Höhe des Pfeil Bitmap auf der vertikalen Scrollbar"], _
    ["SM_CXSIZE",30,"Breite des Bitmaps in der Titelleiste"], _
    ["SM_CYSIZE",31,"Höhe des Bitmaps in der Titelleiste"], _
    ["SM_CXCURSOR",13,"Breite des Cursors"], _
    ["SM_CYCURSOR",14,"Höhe des Cursors"], _
    ["SM_CXBORDER",5,"Breite des Fenster Rahmens der nicht ausgemessen werden kann"], _
    ["SM_CYBORDER",6,"Höhe des Fenster Rahmens der nicht ausgemessen werden kann"], _
    ["SM_CXDOUBLECLICK",36,"Breite des Rechtecks um die Position des ersten Klicks. Der zweite Klick muß in denselbem Rechteckbereich auftreten."], _
    ["SM_CYDOUBLECLICK",37,"Höhe des Rechtecks um die Position des ersten Klicks. Der zweite Klick muß in denselbem Rechteckbereich auftreten."], _
    ["SM_CXDLGFRAME",7,"Breite des Dialog Fenster Rahmen"], _
    ["SM_CYDLGFRAME",8,"Höhe des Dialog Fenster Rahmen"], _
    ["SM_CXICON",11,"Breite des Icon"], _
    ["SM_CYICON",12,"Höhe des Icon"], _
    ["SM_CXICONSPACING",38,"Breite des Rechtecks, welches das System nutzt zum Positionieren von gekachelten (tiled) Icons"], _
    ["SM_CYICONSPACING",39,"Höhe des Rechtecks, welches das System nutzt zum Positionieren von gekachelten (tiled) Icons"], _
    ["SM_CXMIN",28,"Minimale Breite des Fensters"], _
    ["SM_CYMIN",29,"Minimale Höhe des Fensters"], _
    ["SM_CXMINTRACK",34,"Minimale Tracking Breite des Fensters"], _
    ["SM_CYMINTRACK",35,"Minimale Tracking Höhe des Fensters"], _
    ["SM_CXHTHUMB",10,"Breite der Scrollbox auf horizontalaer Scrollbar"], _
    ["SM_CYVTHUMB",9,"Breite der Scrollbox auf vertikaler Scrollbar"], _
    ["SM_DBCSENABLED",42,"Rückgabe eines Wertes ungleich Null, wenn die aktuelle Windows Version Double-byte Zeichen verwendet, anderenfalls Rückgabe von Null."], _
    ["SM_DEBUG",22,"Rückgabe eines Wertes ungleich Null, wenn die Windows Version eine Debugging Version ist."], _
    ["SM_MENUDROPALIGNMENT",40,"Ausrichtung von Popup Menüs. Wenn Null, ist die linke Seite ausgerichtet wie die linke Seite des korrespondierenden Menüleisten Eintrags. Wenn Nicht-Null, wie dessen rechte Seite."], _
    ["SM_MOUSEPRESENT",19,"Nicht-Null, wenn eine Hardware Maus installiert ist."], _
    ["SM_PENWINDOWS",41,"Handle der Pen Windows Dynamic Link Library falls Pen Windows installiert ist."], _
    ["SM_SWAPBUTTON",23,"Nicht-Null, wenn linker und rechter Maus-Button getauscht sind."]]
    If $ShowVal = 0 Or $ShowVal = 1 Then
    Local $sOut = ''
    For $i = 0 To UBound($arSysMetric) -1
    $sOut &= '[' & $i & '] - ' & $arSysMetric[$i][0] & @TAB & $arSysMetric[$i][2] & @CRLF
    Next
    $sOut = StringTrimRight($sOut, 2)
    EndIf
    Switch $ShowVal
    Case 0
    Return MsgBox(0, 'Auflistung Rückgabewerte', $sOut)
    Case 1
    Return ConsoleWrite($sOut & @CRLF)
    Case Else
    Local $arOut[38], $ret, $dll = DllOpen("user32.dll")
    For $i = 0 To UBound($arSysMetric) -1
    $ret = DllCall($dll, "int", "GetSystemMetrics", "int", $arSysMetric[$i][1])
    If IsArray($ret) Then $arOut[$i] = $ret[0]
    Next
    DllClose($dll)
    Return $arOut
    EndSwitch
    EndFunc ;==>_GetSystemMetrics

    [/autoit]

  • tauschen Enter mit Tab

    Hi Raupi, Danke für den Link. Werde das mal in eine UDF packen.
    Ist aber auch nur ein Notnagel, da meist die Tastenfunktion nur temporär/programmabhängig geändert werden soll. Der Regwert muß also ständig geswitcht werden.
    Ich bastel grad noch an der Variante, das Tastenevent abzufangen und mit einem neuen Wert zu belegen. Will aber noch nicht richtig.

    Hier mal noch, basierend auf dem GetAsyncKeyState-Aufruf, eine stabile _IsPressed() - Version. Syntax ist mit dieser identisch - also Abfrage String-HexKey.

    [autoit]

    Func _IsPressedAsync($sHexKey)
    Local $ret, $i
    For $i = 1 To 256
    $ret = DllCall("user32.dll", "int", "GetAsyncKeyState", "int", '0x' & Hex($i, 2))
    If $ret[0] <> 0 And Hex($i, 2) = $sHexKey Then Return True
    Next
    Return False
    EndFunc

    [/autoit]

  • tauschen Enter mit Tab

    Hab noch 'ne andre Möglichkeit gefunden.
    Hier in Endlosschleife:

    [autoit]

    #Include <WinAPI.au3>
    $iKey = 110

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

    While True
    Sleep(100)
    If _WinAPI_GetAsyncKeyState($iKey) Then Send('{BS}.')
    WEnd

    [/autoit]

  • tauschen Enter mit Tab

    Hi Lina,
    ist vllt. nicht die eleganteste Lösung, weil ich das Komma nicht verhindern kann, sondern anschließend lösche und einen Punkt setze.
    Hier schau mal:

    [autoit]

    #Include <Misc.au3>
    While 1
    Sleep(250)
    If _IsPressed('6E') Then Send('{BS}.')
    WEnd

    [/autoit]

    Edit:
    Habs nochmal getestet, _IsPressed() ist sehr unzuverlässig und läßt einige Tastaturanschläge durch. Verwende folgende Variante:

    Spoiler anzeigen
    [autoit]

    Global $dll = DllOpen("user32.dll")

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

    While 1
    Sleep(100)
    If _IsNumCommaPressed($dll) Then Send('{BS}.')
    WEnd
    DllClose($dll)

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

    Func _IsNumCommaPressed($dll)
    Local $ret, $i
    For $i = 1 To 256
    $ret = DllCall($dll, "int", "GetAsyncKeyState", "int", '0x' & Hex($i, 2))
    If $ret[0] <> 0 And Hex($i, 2) = '6E' Then Return True
    Next
    Return False
    EndFunc

    [/autoit]

  • rapidshare downloader

    Fehlt mir irgendwie das Verständnis. Sind euch die Nutzungsbedingungen total Banane, dass offensichtlich dagegen verstoßen wird?

    Zitat von Nutzungsbedingungen Rapidshare

    Personen, die Programme schreiben mit dem Ziel, gegen diese Nutzungsbedingungen zu verstossen, werden strafrechtlich verfolgt und für den entstandenen Schaden bzw. Verlust haftbar gemacht.

  • Regulärer Ausdruck.

    Zitat von franzp

    Und ich möchte immer das TET raus haben.


    Also verstehe ich richtig: Du willst "TET" - oder 3 andere Buchstaben an diese Position entfernen, also ersatzlos aus dem String löschen?

    [autoit]

    $str = "|!TET13060NAU00!"
    $str = Stringleft($str, 2) & StringTrimLeft($str, 5)

    [/autoit]


    Man muß nicht zwingend RegEx verwenden, wenn Stringoperationen es auch ermöglichen. Zumal diese auch schneller sind als RegEx.

  • 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]