Beiträge von Nachid

Meiner meinung nach schaut das Sauber aus. Fürs erste mal recht gut
Auf den ersten blick hab ich auch nichts gesehen das du durcheinander geschmissen hättest.

Eleganter wäre wohl die Daten zu sammeln und per knopfdruck die Datei komplett zu schreiben.
Wenn vorher manuell editiert wurde stimmen die Lines nichtmehr und dann kann es sein das dein Programm
schnell den überblick verliert.

Also versuch folgende Reihenfolge

GUI erzeugen
-> Funktion um Daten zu Laden aufrufen
-> Funktion Updated GUI
-> Userblabla
-> User drückt speichert
-> Speicherfunktion speichert datei, Ladefunktion wird erneut gerufen

Hat hier vielleicht nix verloren aber man kann die Prozesspriorität in den Server versionen nicht so einfach ändern.
(Klappt wohl ab und an aber halt nicht immer)
Wer das vorhat und zufällig hier gelandet ist dem Empfehle ich Richtlinien

Hab 3 AOL konnten, bin damit recht zufrieden.

ich denke er will einem Programm per AutoIt eine IP zuweisen. das dürfte kompitiziert sein.

Wenn ich die 64bit registry abfrage, werden darin auch die 32 bit registry werte geladen ? oder sind das unter 64bit systemen verschiedene registrys

Ihr habt euch ja mächtig angestrengt :DD
Danke dafür
Ich denke ich kann ein paar eurer beispiele gut verwerten

Danke euch vielmals

so nach ein bisschen try & error kam das raus :

f StringRegExp($ValuesAndKeys[$i],"(.+)\t(.+)\t(.+)",3)<>1 Or StringRegExp($ValuesAndKeys[$i],"(.+)\t(.+)",3)<>1 Then
$ex = StringRegExp($ValuesAndKeys[$i],"(.+)\t(.+)\t(.+)",3)
If $ex=1 Then $ex = StringRegExp($ValuesAndKeys[$i],"(.+)\t(.+)",3)
For $i=0 To UBound($ex,1)-1
$ex[$i] = StringStripCR(StringStripWS($ex[$i],3))
Next
_ArrayDisplay($ex)

1. Problem - Die Sind mit TAB getrennt.
2. Problem es geht nicht mit den <>
(sonderzeichen sind zu erwarten, alle)

und ich versteh den befehl immernoch nicht xD naja aber das is 2. rangig.
Wenns niemand hinbekommt muss ich mich wohl oder übel selbst drum kümmern.
Ich werde dann meine lösung hier posten.

Ja ich will den RegEx einfach wie im beispiel mit einer Zeile füttern. Was für Zeilen er bekommt steht in den Beispielen drunter. Tut mir leid wen das nicht sofort ersichtlich ist.

Das ding in nen array packen. Also auftrennen.

Name
REGBLABLA
Wert

so dachte ich das.

Guten Tag,

ich hab ein kleines Problem mit der Funktion. Hab sie noch nie verwendet und mir jetzt schon diverse Tutorials dazu angeschaut. Ich werd daraus aber nicht schlau

#include "array.au3"
$test = " <NO NAME> REG_SZ C:\Programme\Adobe\Reader 8.0\Reader"
;$test = " EULA REG_DWORD 0x1"
$ex = StringRegExp($test,"[A-Za-z0-9_\ \\\<\>\:]+",3)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $ex = ' & $ex & @crlf & '>Error code: ' & @extended & @crlf) ;### Debug Console
_ArrayDisplay($ex)[0]

das ist mein AutoIt Code. Natürlich nur als "test.au3" - auszug aus einem größeren Programm.

Hintergrund :

Ich erwarte verschiedene REG Werte. Z.B.

ENU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}
ServiceControl REG_SZ 501
DEU_GUID REG_SZ {AC76BA86-7AD7-1031-7B44-AA1000000001}
<NO NAME> REG_SZ
ReinstallMode REG_SZ omus
Path REG_SZ C:\Programme\Adobe\Reader 8.0\
InstallTime REG_SZ 08:11:37
InstallDate REG_SZ 22.11.2011

es giebt aber auch "fehlerhafte" einträge ohnewert :

<NO NAME> REG_SZ

meine frage nun : Wie verwende ich diesen Befehl richtig ? Ich dreh durch .....

Mfg

Nachid

Cool vielleicht bau ich nen jungle timer für LOL

Wenn dus selber basteln willst ne schleife mit _IsPressed und nem array mit den tasten tuts.
Wird aber wahrscheinlich als keylogger erkannt.

Schau dir mal an _IsPressed in kombination mit WinGetTitle [active]
falls dir das andere nicht hilft - hab das noch nie verwendet

Für alle dies mal brauchen können.
Dynamisches nachladen der registry.

Wenn du dein Array selbst erzeugst dann sind natürlich im Element 0 nicht die Gesamten Elemente aufgelistet.
Benutz hierfür Ubound (manchmal ist es in einer ForSchleife nötig Ubound(...)-1 zu verwenden)

Zitat

Ich will das er jedezeile es aussliesst und aber nur bestimmte "bereiche" aussliesst.

Dafuq ?
Jede Zeile = Alles
Bestimmte "bereiche" != Alles
Ein Paradoxon - System overload !

Wird n regedit nur besser^^
wär halt geil wenn ich das in nem array hätte. Würde gern die funktionen so benutzen wie sie gegeben sind hatte aber
schonmal das problem mit sich selbst erweiternden arrays in einer schleife nur leider is das script untergegangen

EDIT habs selbst gemacht, das lädt erstmal alles. Dynamisch Laden hab ich versucht kratzt aber immer ab muss ich mal dran arbeiten.
Werds dann hier rein Posten

#include <GUIConstantsEx.au3>#include <EditConstants.au3>#include <Array.au3>#include <ButtonConstants.au3>#include <GUIConstantsEx.au3>#include <ListViewConstants.au3>#include <ProgressConstants.au3>#include <TreeViewConstants.au3>#include <WindowsConstants.au3>Opt("GUIOnEventMode", 1)$1 = GUICreate("RegExplo", 824, 526, 375, 226)$tree = GUICtrlCreateTreeView(8, 8, 257, 505)$listview = GUICtrlCreateListView("Name|Form|Wert", 280, 8, 529, 313)GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100)GUICtrlCreateGroup("Informations", 280, 336, 385, 153)$querry = GUICtrlCreateLabel("Query : ...",285,470,220,15)$Progress = GUICtrlCreateProgress(280, 496, 529, 17)GUICtrlCreateGroup("Options", 680, 336, 129, 153)GUISetState(@SW_SHOW)$i = 0Dim $handels[1]Dim $registry[1] = ["HKLM"]$handels[0] = GUICtrlCreateTreeViewItem($registry[0],$tree)
If StringInStr(@OSArch,"64") ThenDim $registry[1] = ["HKLM64"]$toadd = "HKCU64 HKCR64 HKU64 HKCC64"Else$toadd = "HKCU HKCR HKU HKCC"EndIf$keys = StringSplit($toadd," ")For $k=1 To $keys[0] recurse() _ArrayAdd($registry,$keys[$k])Nextrecurse()
While 1 Sleep(110) WEnd

Func recurse()Do $a = 1 $timerinit = TimerInit() While 1 $x = RegEnumKey($registry[$i],$a) If @error Then ExitLoop _ArrayAdd($registry,$registry[$i]&"\"&$x) $x1 = GUICtrlCreateTreeViewItem($x,$handels[$i]) GUICtrlSetOnEvent(-1,"ReciveData") _ArrayAdd($handels,$x1) $a = $a +1 WEnd $timerend = TimerDiff($timerinit) $i = $i +1 $t = UBound($registry) GUICtrlSetData($Progress,$i/$t*100) GUICtrlSetData($querry,"Querry : "&$registry[$i])Until $i==$tEndFunc
Func ReciveData()
EndFunc

Hmh ich seh nich wo der fehler liegt. Die logik entzieht sich mir.
Eigentlich sind die bedingungen eindeutig und true und es giebt das was angeblich fehlt..

Dim $registry[5] = ["HKLM", "HKCU","HKU", "HKCR", "HKCC"]If StringInStr(@CPUArch,"64") Then Dim $registry[5] = ["HKLM64", "HKCU64","HKU64", "HKCR64", "HKCC64"]
$counts = 1$length = UBound($registry)ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $length = ' & $length & @crlf & '>Error code: ' & @error & @crlf) ;### Debug ConsoleDo For $i=$counts To $length $c = 1 While 1 ;Subkeys $newdata = RegEnumKey($registry[$counts],$c) If @error Then ExitLoop _ArrayAdd($registry,$registry[$counts]&"/"&$newdata) ;ConsoleWrite($registry[$counts]&"/"&$newdata&@CRLF) $c = $c +1 WEnd $counts = $counts +1
Next$length = UBound($registry)ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $length = ' & $length & @crlf & '>Error code: ' & @error & @crlf) ;### Debug ConsoleConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $counts = ' & $counts & @crlf & '>Error code: ' & @error & @crlf) ;### Debug ConsoleUntil $counts==$length

error

$newdata = RegEnumKey($registry[$counts],$c)$newdata = RegEnumKey(^ ERROR

EDIT Die Formatierung funktioniert mal wieder nicht
EDIT 2 Als datei angehängt nach 5facher bearbeitung.....

Da mit Autorität RAM mannipullation möglich ist wäre es eventuell ein Ansatz den RAM von Programm 0 in bestimmten Sätzen durch Programm 1 und 2 zu manipulieren ?
Wäre sehr interessant !

Versuchs ich hab hier nur n ipad^^ wirst dann schon mit errors beschmissen