Neue Version.
Der Pfad für die au3.keywords.abbreviations.properties liegt in SciTE jetzt in einem eigenen Ordner.
Das Programm wurde entsprechend angepaßt.
Neue Version.
Der Pfad für die au3.keywords.abbreviations.properties liegt in SciTE jetzt in einem eigenen Ordner.
Das Programm wurde entsprechend angepaßt.
Hier die Erklärung aus der Hilfe:
ZitatSome controls consume internally specific Windows Message ID, so registrating them will have no effect, e.g; WM_CHAR, WM_KEYDOWN, WM_KEYUP are consumed by an edit control.
Also hast du einfach Pech. Es geht nicht.
Mit Ollydbg öffnen?
Hier ein Beispiel:
#include <GUIListBox.au3>
[/autoit] [autoit][/autoit] [autoit]$hGUI = GUICreate("List Box Create", 400, 296)
$hListBox = _GUICtrlListBox_Create ($hGUI,"", 2, 2, 396, 296)
GUISetState()
For $i = 1 To 10
_GUICtrlListBox_AddString($hListBox, 'Eintrag ' & $i)
Next
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
[/autoit] [autoit][/autoit] [autoit]Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Func ListDblClick()
MsgBox(0, '', _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox)))
EndFunc
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
If Not IsHWnd($hListBox) Then $hWndListBox = GUICtrlGetHandle($hListBox)
$hWndFrom = $ilParam
$iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
$iCode = BitShift($iwParam, 16) ; Hi Word
Switch $hWndFrom
Case $hListBox, $hWndListBox
Switch $iCode
Case $LBN_DBLCLK
ListDblClick()
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
Du brauchst aber kein ListView-Doppelklick sondern List-Doppelklick
[autoit]$userlist = GUICtrlCreateList("", 10, 50, 100, 100)
$clientlist = GUICtrlCreateList("", 140, 50, 100, 100)
Du erzeugst 2 Listen.
Was verstehst du unter Linklabel?
Erste Textzeile mit:
[autoit]_GUICtrlRichEditSetText
[/autoit]
Weitere Zeilen mit:
_GUICtrlRichEditAppendText
[/autoit]Ja probier das. ![]()
Ich hab mal die Datei angepaßt, jetzt läufts auch unter der aktuellen Version.
Sollte mit RichEdit-Ctrl funktionieren, wenn ich mich recht erinnere.
Die UDF findest du hier.
For $x = 1 to $aRecords[0] -1
[/autoit]
Deshalb nimmt er die letzte Zeile nicht. Auch wenn es bequem scheint, die zurückgegebene Anzahl aus Array[0] zu verwenden, so rate ich doch davon ab. Sind z.B. 5 Zeilen, so hätte das Array 6 Elemente, da in [0] die Anzahl steht. Somit ist -1 nicht erforderlich.
Gleich dran gewöhnen immer mit Ubound(Array)-1 zu arbeiten. Dann gibt es keine Irritationen. ![]()
Aber wie kann ich das bewerkstelligen, das das GUI je nachdem wieviel ich ausgewählt habe auch von der Größe her passt?
2 Möglichkeiten
- für GUI und alle Controls die Positionen mit Variablen angeben und in Abhängigkeit der Auswahl verschieben (sehr aufwändig, da z.B. bei 4 Gruppen bereits 15 verschieden Anzeigemöglichkeiten existieren)
- für jede Gruppe ein Child-Window erstellen und dann diese(s) in Abhängigkeit der Auswahl positionieren
Du nutzt die neuen Edit-UDF. Diese verlangen aber ein Win-Handle.
GUICtrlCreateEdit gibt aber nur eine ID zurück.
Um alle Funktionen der UDF nutzen zu können solltest du dein Edit mit
_GUICtrlEdit_Create
[/autoit]erstellen, dann gibts keine Probleme.
Die Liste wird mit Index angesprochen: also erster Wert = 0, zweiter Wert = 1 usw.
Und den Index NICHT in Gänsefüßchen.
Ich hatte es mit CVS und mit SVN getestet - Ergebnis, wie oben beschrieben.
Vielleicht gibt es ja einen "geheimen Schalter", der das zu einem tatsächlichen Repository erweitert. Hab da aber bisher nichts gefunden.
Also der CVS-Wrapper in SciTE bringt nicht viel. Er behält ein Double deiner Datei solange vor, bis du diese erneut speicherst. Direkt nach dem Speichern sind beide Versionen identisch bzw. der Wrapper sagt dir, dass keine andere Version vorhanden ist.
Also für eine Versionsverwaltung wenig sinnvoll.
Ich versuche gerade ein echtes SVN-Repository an SciTE zu koppeln. Wird noch etwas dauern, aber wenn es klappt, stelle ich es ins Forum.
Wenn du den Namen des Monitors nicht weißt - aber du die Listenposition kennst:
[autoit]ControlCommand("Intel(R) Graphics Media Accelerator Driver", "", $cb_clone, "SetCurrentSelection", 'Listenposition')
[/autoit]
Jetzt ist der Eintrag markiert.
; Generated by AutoIt Scriptomatic
[/autoit][autoit][/autoit][autoit]$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$Output=""
$Output = $Output & "Computer: " & $strComputer & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) then
For $objItem In $colItems
$Output = $Output & "Caption: " & $objItem.Caption & @CRLF
$strConfigOptions = $objItem.ConfigOptions(0)
$Output = $Output & "ConfigOptions: " & $strConfigOptions & @CRLF
$Output = $Output & "CreationClassName: " & $objItem.CreationClassName & @CRLF
$Output = $Output & "Depth: " & $objItem.Depth & @CRLF
$Output = $Output & "Description: " & $objItem.Description & @CRLF
$Output = $Output & "Height: " & $objItem.Height & @CRLF
$Output = $Output & "HostingBoard: " & $objItem.HostingBoard & @CRLF
$Output = $Output & "HotSwappable: " & $objItem.HotSwappable & @CRLF
$Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
$Output = $Output & "Manufacturer: " & $objItem.Manufacturer & @CRLF
$Output = $Output & "Model: " & $objItem.Model & @CRLF
$Output = $Output & "Name: " & $objItem.Name & @CRLF
$Output = $Output & "OtherIdentifyingInfo: " & $objItem.OtherIdentifyingInfo & @CRLF
$Output = $Output & "PartNumber: " & $objItem.PartNumber & @CRLF
$Output = $Output & "PoweredOn: " & $objItem.PoweredOn & @CRLF
$Output = $Output & "Product: " & $objItem.Product & @CRLF
$Output = $Output & "Removable: " & $objItem.Removable & @CRLF
$Output = $Output & "Replaceable: " & $objItem.Replaceable & @CRLF
$Output = $Output & "RequirementsDescription: " & $objItem.RequirementsDescription & @CRLF
$Output = $Output & "RequiresDaughterBoard: " & $objItem.RequiresDaughterBoard & @CRLF
$Output = $Output & "SerialNumber: " & $objItem.SerialNumber & @CRLF
$Output = $Output & "SKU: " & $objItem.SKU & @CRLF
$Output = $Output & "SlotLayout: " & $objItem.SlotLayout & @CRLF
$Output = $Output & "SpecialRequirements: " & $objItem.SpecialRequirements & @CRLF
$Output = $Output & "Status: " & $objItem.Status & @CRLF
$Output = $Output & "Tag: " & $objItem.Tag & @CRLF
$Output = $Output & "Version: " & $objItem.Version & @CRLF
$Output = $Output & "Weight: " & $objItem.Weight & @CRLF
$Output = $Output & "Width: " & $objItem.Width & @CRLF
if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
$Output=""
Next
Else
Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_BaseBoard" )
Endif
Func WMIDateStringToDate($dtmDate)
[/autoit][autoit][/autoit][autoit]Return (StringMid($dtmDate, 5, 2) & "/" & _
StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
& " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc
Hmm,
- Video 1 und 3 nur Ton
- sehe nur Startscreen (besondere Einstellungen nötig?)
- Video 2 läuft, hört sich aber an, als seien Reste einer zweiten Tonspur überlagert (zwitschert teilweise)
chrisatack
Den Screen abfilmen geht auch recht gut mit IrfanView, weiß aber nicht, was McPoldy genutzt hat.
Interessant ist jetzt zu wissen, wie der Zahlencode erstellt wird. Hast du dafür Angaben, bzw. spielt dieser Code eine Rolle oder kann man ihn ggf. auch weglassen?
Das andere in AutoIt umzusetzen ist nicht kompliziert.
ZitatSo kann am Rechner ein Bauteil (entweder das Motherboard oder auch die Festplatte) ausgetauscht werden, und das Skript funktioniert immer noch.
Klarer kann man ein ODER wohl nicht beschreiben. ![]()