Beiträge von BugFix

; Generated by AutoIt Scriptomatic

$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)

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.

Zitat

So 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.

Sag doch mal im Detail, was das Skript genau tun soll.
Gewissermaßen als Pseudo-Code, das ist schon die halbe Miete.
Dann schrittweise umsetzen in Programmcode.
Wir greifen dir gern unter die Arme.

Da hat peethebee (wie so oft :P) völlig recht.

Hier findest du übrigens ein gutes Manual: http://de2.php.net/manual/en/index.php
Ein Teil davon läßt sich auch in deutsch anzeigen.

Ich schaus nachher nochmal an.

Zitat

Hallo! Leider gibt es noch Probleme hierbei:

Zitat

Keiner eine Idee?

Nunja, bei der umfassenden Schilderung der noch bestehenden Probleme....

OK, dann mußt du mal etwas basteln, der meckert wegen dem Else. Am besten erst mal den Cod strukturiert einrücken - das war auch mein Hauptproblem, dadrin irgendwas zu lesen, alles in einer Ebene.

Wenn ich das richtig sehe, wird an dieser Position der Name in die Datei geschrieben:

{
$data = $this->FileName($file) . "," . filesize($dir.$file) . "*";
$dat = $data;
fwrite($FHandle, $dat);
$this->i++;
}

Ersetze das doch mal hiermit

{
$data = $this->FileName($file) . "," . filesize($dir.$file) . "*";
if(substr($data, 0,1) == ".")
{
$dat = substr($data, 1);
else
$dat = $data;
}
fwrite($FHandle, $dat);
$this->i++;
}

Bin kein php-Coder, aber die Syntax weicht ja nicht sooo sehr von AutoIt ab
Rein von der Logik sollte es passen.

Schneide doch das erste Zeichen des Namens ab

<?php
$string = './notice.txt';
$ret = substr($string, 1);     // $ret = /notice.txt
?>

Die Funktionen dafür sind doch schon im Beispiel.
Lies einfach die Hilfe zu den Befehlen, dann verstehst du auch, was dort geschieht.

_GuiCtrlListView_SetItemFocused ($hListView, 1)
_GUICtrlListView_SetItemSelected ($hListView, 1)

Hi,
das Problem war der Versuch den Style zu ändern, das hist hier fehl am Platz.
So geht es:

Du kannst es auch in eine Zeile packen

$ID=2020902490
MsgBox(4096, '', Mod($ID,256) & '. ' & Int(Mod($ID,(256^2))/256) & '. ' & Int(Mod($ID,(256^3))/(256^2)) & '. ' & Int($ID/(256^3))); 90.134.116.120

Zitat von Oscar

Du schreibst:

... Then GUISetStyle(-1, $WS_EX_TOPMOST)

Setz anstelle der -1 mal die Variable des Fenster-Handle ein.

Oscar, da bist du leider auf dem Holzweg
Syntax: GUISetStyle(STYLE, EX_STYLE [, WINHANDLE])

Die Syntax stimmt also. Der wirkliche TopMost-Effekt, ist tatsächlich nicht ohne weiteres erreichbar. Denn wenn ein anderes Fenster geöffnet wird, das ebenfalls TopMost gesetzt ist, so kommt dieses in den Vordergrund.
Um dein Fenster, wie den Task-Manager, immer vorn zu halten, mußt du kontinuierlich überwachen (AdlibEnable), welche Fenster vorhanden sind (WinList), und deines immer wieder durch aktivieren nach vorn setzen.
Bei mehreren Fenstern mit TopMost ist immer das TOP, welches zuletzt gesetzt wurde.

Achja, das hier:

$pin = GUICtrlRead($checkBox)
If $pin = 1 Then GUISetStyle(-1, $WS_EX_TOPMOST)'

kannst du in einem Aufruf zusammenfassen:

If BitAND(GUICtrlRead($checkBox), $GUI_Checked) Then GUISetStyle(-1, $WS_EX_TOPMOST)

Ist es so schwer, Fragen verständlich zu stellen?
Bestimmt an die hundert mal wurden Hinweise gegeben, wie man sinnvoll sein Problem darstellt.
Nun zum 101.
- welches ist die Ausgangssituation
- was möchtest du erreichen
- was ist bisher getan
- Codebeispiel !!!

Meine Glaskugel sagt mir, dass du wahrscheinlich während eine Schleife läuft, eine andere Funktion gleichzeitig ausführen möchtest.
Schau dir mal AdlibEnable an.
Aus einer Schleife kommst du mit ExitLoop wieder raus (If Bedingung Then ExitLoop).

GtaSpider
Ich hab mal deine Version getestet, aber dabei laäßt sich der Skriptblock gar nicht ausführen.
Eigentlich klar, das Skript wird in _StartHide() aufgerufen (Run..) - aber auch in jedem Fall gekillt (Exit).

Hmm,
du möchtest eine Art globale Fehlerabfrage (If @error Then Exit) ohne die Fehlerprüfung hinter jeden möglichen fehlerverursachenden Befehl zu schreiben?
Ich wüßte nicht, wie das zu lösen ist. Vielleicht findet sich was im EN-Forum.

Hmm,
da hab ich zu schnell eine neue Funktion erstellt.
Es gibt doch eine entsprechende Funktion - aber wieso wird da nicht der bekannte Name beibehalten, also wie bei den anderen Funktionen statt _GUICtrlListClear ==> _GUICtrlListBox_Clear
Wie sagte Asterix bereits: Die spinnen, die Briten.

Die neue Funktion in der GUIListBox.au3 zum Inhalt löschen lautet: _GUICtrlListBox_ResetContent

Hi,
die aktuellen ListBox-Funktionen enthalten keine Funktion zum Leeren der ListBox.
Deshalb habe ich diese hier mal nachgebaut.
Als Rückgabewerte sind "0" für Fehler und "1" für Erfolg gesetzt, somit kann die Funktion mit
If _GUICtrlListBoxClear($ListBoxHandle) Then
ausgewertet werden.

Func _GUICtrlListBoxClear($ListBoxHandle)
If Not IsHWnd($ListBoxHandle) Then Return SetError(1, 0, 0)
Local $rest, $count = _GUICtrlListBox_GetCount($ListBoxHandle)
If $count > 0 Then
Do
$rest = _GUICtrlListBox_DeleteString($ListBoxHandle, 0)
Until $rest = 0
EndIf
Return 1
EndFunc