Beiträge von Dr.Galvany

Dr.Galvany

was soll das cript den genau machen bzw. können?

Dr.Galvany

hallo, wenn ich die beiden befehle zusammen benutzen möchte, geht das überhaupt?

ich möchte das script mit "BlockInput" komplett" schützen!
möchte aber auch die möglichkeit haben, mit zb. ESC das script zu beenden.

Dr.Galvany

keine ahnung was da falsch ist, habe es mir nicht angeschaut.
wollte dir nur eine info geben.
hat wohl keiner getestet!

[Blockierte Grafik: http://img103.imageshack.us/img103/7591/200620051626093rg.th.jpg]

Dr.Galvany

Zitat

Original von ytwinky
Hi,
oh Mann, User-ID's gehen mit Scriptomatic viel einfacher siehe:
GetSID, jetzt aber wirklich..
btw:
Registry-Schlüssel packe ich meistens in Const-Anweisungen, dann bleiben die
Funktions-Aufrufe schön übersichtlich..
Und werden die Const's klug gewählt, läßt sich da auch immer noch was anhaängen..
Gruß
ytwinky

Alles anzeigen

ähhh, was soll das script den genau machen???
bei mir kommt nur einen msg box mit "Piii1k ist nicht im Netz.."

Dr.Galvany

Zitat

Original von bernd670
Hallo,

ich meine schon die UserID, im ersten Script hängst du die Variable an, deren Wet folgendes Format hat:

{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}

und in zweite Script steht dann:

...\Outlook\9375CFF0413111d3B88A00104B2A6676

hehe bernd670 , du bist ein alter fuchs!!!
die anderen natürlich auch

ja du hast recht!!!
ich lasse mir gerade das alles mal durch den kopf gehen und merke, lol ich brauche die UserID hier ja gar nicht.
da habe ich vor lauter klammern setzen zwei scripte mit eineinder gemischt bzw. vertauscht

so ist es io, es gehen beide run's :party4:

Code

$var = RegEnumKey("HKEY_CURRENT_USER\Software\Microsoft\Protected Storage System Provider", 1)
$hz = '"HKEY_USERS\' & $var & '\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676" ' & @WorkingDir & '\konten.reg'
MsgBox(0,"",$hz)
Run('cmd /C reg export "HKEY_USERS\' & $var & '\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676" ' & @WorkingDir & '\konten.reg')
Run('cmd /C reg export ' & $hz)

Dr.Galvany

oder meinst du den ersten schlüssel "S-1-5-21-823518204-606747145-839522115-1003" im script????

den muss man natürlich auch mit seinen erstezen.
das ist er:

Code

$var = RegEnumKey("HKEY_CURRENT_USER\Software\Microsoft\Protected Storage System Provider", 1)
MsgBox(4096, "First SubKey under HKLM\Software: ", $var)

Dr.Galvany

Zitat

Original von bernd670
Hallo,

bist du dir sicher, das du im script 1, mit der richtigen User-ID arbeitest?
Die User-ID die unter HKEY_CURRENT_USER\Identities\ zu finden ist, ist die Windows UserID und hat normalerweise folgendes Format {12345678-1234-1234-1234-123456789AB}.

ja!!

Code

$UserID = RegRead ("HKEY_CURRENT_USER\Identities\","Default User ID")
	MsgBox(0,"UserID","Hallo, deine userID ist:" & @LF & @LF & $UserID)

Dr.Galvany

lol lol lol, dann war ich ja beim testen gar nicht so toll

aber dann gibt es in autoit doch einen fehler!
denn das erste script geht nicht und das zweite geht.
im dritten habe ich mir das erste script mal über ne box angezeigen lassen und es würde doch stimmen.
weis einer warum das so ist?

script 1:

Code

; mein working dir ist (D:\Ablage\Programme\AutoIt\scripte\Test)
; UserID ist (9375CFF0413111d3B88A00104B2A6676)
$UserID = RegRead ("HKEY_CURRENT_USER\Identities\","Default User ID")
Run('cmd /C reg export "HKEY_USERS\S-1-5-21-823518204-606747145-839522115-1003\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\' & $UserID & '" ' & @WorkingDir & '\konten.reg')

script 2:

Code

Run('cmd /C reg export "HKEY_USERS\S-1-5-21-823518204-606747145-839522115-1003\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676" D:\Ablage\Programme\AutoIt\scripte\Test\konten.reg')

script 3:

Code

; mein working dir ist (D:\Ablage\Programme\AutoIt\scripte\Test)
; UserID ist (9375CFF0413111d3B88A00104B2A6676)
$UserID = RegRead ("HKEY_CURRENT_USER\Identities\","Default User ID")
$3 = ('cmd /C reg export "HKEY_USERS\S-1-5-21-823518204-606747145-839522115-1003\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\' & $UserID & '" ' & @WorkingDir & '\konten.reg')
MsgBox(0,"",$3)

Dr.Galvany

hallo leute, es gibt ja zum einen die " und zum anderen die ' klammern.
wo ist hier der genaue unterschied?

ich hänge bei einer komplexen zeilen eingabe fest!
beispiel
so geht es ja brima

Code

run('cmd /C  reg export "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" test.reg')

aber wie sieht es aus, wenn ich hier noch eine variabe mit rein nehmen muss???

Code

$test = "Winlogon"
run('cmd /C  reg export "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" & $test & " test.reg')

oder sogar 2 varablien:

Code

$test = "Winlogon"
$test2 = "Microsoft"
run('cmd /C  reg export "HKEY_LOCAL_MACHINE\SOFTWARE\" & $test2 & "\Windows NT\CurrentVersion\" & $test & " test.reg')

Dr.Galvany

bernd670 [Blockierte Grafik: http://michischmitt.de/Maxthon/B-plugin/smilies/22.gif] [Blockierte Grafik: http://michischmitt.de/Maxthon/B-plugin/smilies/21.gif]

danke es geht

mano wieso hatte ich das nicht drinnen

gibt es trotzdem noch eine andere möglichkeit eine farbe zu suchen?

Dr.Galvany

hallo,
neim zweiten GUI "Farbfinder GUI-2" sucht er ja nach drei farben (rot,blau,grün) aber wenn er dann mit "MouseMove" zu den positionen soll geht er eigentlich nicht richtig hin bzw. er findet gar keine farbe

Dr.Galvany

hi leute, habe mal schnell ein kleines script gemacht.
aber es geht einfach nicht richtig.
das script selber ist io, vermude mal das ist eine schwäche von autoIt.
gibt es eine andere möglichkeit um nach farbpunkte zu suchen (scannen)?
hier habe ich noch dir 3 kleinen bilder dazu.

Spoiler anzeigen

C

opt("MouseCoordMode", 0)


#include <GUIConstants.au3>




$Form1 = GUICreate("Farbfinder GUI-1", 220, 150)
$Pic1 = GUICtrlCreatePic("rot.jpg", 40, 30, 20, 20)
$Pic2 = GUICtrlCreatePic("blau.jpg", 100, 30, 20, 20)
$Pic3 = GUICtrlCreatePic("grün.jpg", 160, 30, 20, 20)
$Button1 = GUICtrlCreateButton("Brau", 30, 100, 40)
$Button2 = GUICtrlCreateButton("Rot", 90, 100, 40)
$Button3 = GUICtrlCreateButton("Grün", 150, 100, 40)


GUICtrlSetColor(-1, 0xEBE9ED)
GUISetState(@SW_SHOW)




While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg = $Button1
			BlockInput(1)
			MouseMove(110, 70, 40)
			BlockInput(0)
		Case $msg = $Button2
			BlockInput(1)
			MouseMove(50, 70, 40)
			BlockInput(0)
		Case $msg = $Button3
			BlockInput(1)
			MouseMove(170, 70, 40)
			BlockInput(0)
	EndSelect
WEnd




$coord1 = PixelSearch(5, 35, 220, 100, 0x00FF00, 5);grün
Sleep(50)
$coord2 = PixelSearch(5, 35, 220, 100, 0xFF0000, 5);rot
Sleep(50)
$coord3 = PixelSearch(5, 35, 220, 100, 0x0000FF, 5);blau
Sleep(50)


WinSetTitle($Form1, "", "Farbfinder GUI-2")


While 1
	$msg = GUIGetMsg()

	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg = $Button1
			If UBound($coord3, 0) Then
				MouseMove($coord3[0], $coord3[1], 40)
			Else
				MsgBox(0, "Nichts!", "Farbe nicht gefunden")
			EndIf

		Case $msg = $Button2
			If UBound($coord2, 0) Then
				MouseMove($coord2[0], $coord2[1], 40)
			Else
				MsgBox(0, "Nichts!", "Farbe nicht gefunden")
			EndIf

		Case $msg = $Button3
			If UBound($coord1, 0) Then
				MouseMove($coord1[0], $coord1[1], 40)
			Else
				MsgBox(0, "Nichts!", "Farbe nicht gefunden")
			EndIf

	EndSelect
WEnd


Exit

Alles anzeigen

Dr.Galvany

mann kann doch einfach das "WinSetOnTop("Untitled -", "", 1)" mit einbauen, oder?

Dr.Galvany

so änlich hatte ich es auch mal, aber hier hat mich etwas gestört, das die werde, erst nach loslasen des reglers erschienen sind.
darum hatte ich es anders gelöst.

hm, das flakern war bei mir eigentlich ab "sleep(5) schon weg.

das kann aber vieleicht an der CPU liegen?

Dr.Galvany

das ist bzw. war doch das ganze script

Dr.Galvany

Zitat

Original von bernd670
Hallo,

So kann es nicht funktionieren weil sich @error immer auf den Befehl bezieht der als letztes (in diesem Fall der Sleep-Befehl) ausgeführt wurde.

muüsste dann das script nicht einfach weiter schlafen und sich nicht einfach schliessen?

Dr.Galvany

hehe, das geht "If UBound($coord,0) Then"

ist aber echt komisch, da das andere ja gehen musste oder?

Dr.Galvany

Zitat
Original von Gun-Food
Also das einzige was ich gerade fest stelle ist, dass die Schleife endlos läuft, wenn er was findet.
Habs mal erweiteret um was zu sehen. Und es schließt sich wie es soll ohne Fehlermeldung.
Code
While 1
	Sleep(500)
	$coord = PixelSearch(0, 0, 25, 200, 0xF6CCCC)
	If Not @error Then
		MsgBox(0,"Adresse","X = " & $coord[0] & @LF & "Y = " & $coord[1])
	Else
		MsgBox(0,"Nichts!","Leider nichts gefunden")
		ExitLoop
	EndIf
WEnd

also, das ist jetzt mal das script:

Code

While 1
	$coord = PixelSearch(300, 300, 800, 800, 0x000000)
	Sleep(250)
	If Not @error Then
		;MouseMove($coord[0], $coord[1], 30)
		MsgBox(0,"Adresse","X = " & $coord[0] & @LF & "Y = " & $coord[1])
	Else
		MsgBox(0,"Nichts!","Leider nichts gefunden")
		ExitLoop
	EndIf
WEnd

Alles anzeigen

das script kräscht!
es kommt nicht direkt diese fehlermeldung sonder wenn man es in SciTE startet wird unten im fenster ein fehler ausgegeben.
benutze die aktuelle beta 124

Dr.Galvany

äm, welchen treiber?
wo finde ich diesen?

Dr.Galvany

sorry rabbit, aber ich konnte nicht wiederstehen es noch etwas zu verbessern
und da es jetzt eh erst 03:43 ist :schild4:

Spoiler anzeigen

C

; ----------------------------------------------------------------------------
;
; AutoIt Version: v3.1.1.124 (beta)
; Author:         rabbit and Dr.galvany
;
; Script Function:
;	RGB Farbwerte ermitteln
;
; ----------------------------------------------------------------------------




#include <GuiConstants.au3>


Dim $col[3]
$col[0] = "FF"
$col[1] = "00"
$col[2] = "00"




GUICreate("RGB & HEX Finder", 290, 190, -1, -1)


$Label = GUICtrlCreateLabel("", 20, 20, 140, 30)
GUICtrlSetBkColor(-1, 0xFF0000)
$code = GUICtrlCreateLabel("0xFF0000", 180, 25, 140, 30)
$rt = GUICtrlCreateLabel("R", 10, 60, 10, 20)
$r = GUICtrlCreateSlider(20, 60, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 255)
$ge = GUICtrlCreateLabel("G", 10, 90, 10, 20)
$g = GUICtrlCreateSlider(20, 90, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 0)
$bl = GUICtrlCreateLabel("B", 10, 120, 10, 20)
$b = GUICtrlCreateSlider(20, 120, 140, 20)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 0)
$copy = GUICtrlCreateButton("Copy", 165, 150, 110, 30)
GUICtrlCreateLabel("by rabbit and Dr.Galvany", 5, 175, 150)
GUICtrlSetFont(-1, 8)


GUICtrlCreateLabel("R = ", 179, 60, 50)
$l1 = GUICtrlCreateLabel(255, 200, 60, 50)
GUICtrlCreateLabel("G = ", 179, 90, 50)
$l2 = GUICtrlCreateLabel(0, 200, 90, 50)
GUICtrlCreateLabel("B = ", 179, 120, 50)
$l3 = GUICtrlCreateLabel(0, 200, 120, 50)


GUISetState()
While 1
	Sleep(25)
	GUICtrlSetData($l1, GUICtrlRead($r))
	GUICtrlSetData($l2, GUICtrlRead($g))
	GUICtrlSetData($l3, GUICtrlRead($b))

	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop

		Case $msg = $r
			$col[0] = Hex(GUICtrlRead($r), 2)
			Call("setcol")

		Case $msg = $g
			$col[1] = Hex(GUICtrlRead($g), 2)
			Call("setcol")

		Case $msg = $b
			$col[2] = Hex(GUICtrlRead($b), 2)
			Call("setcol")

		Case $msg = $copy
			ClipPut("0x" & $col[0] & $col[1] & $col[2])
		Case Else
			;;;
	EndSelect
WEnd
Exit


Func setcol()
	GUICtrlSetBkColor($Label, "0x" & $col[0] & $col[1] & $col[2])
	GUICtrlSetData($code, "0x" & $col[0] & $col[1] & $col[2])
EndFunc   ;==>setcol

Alles anzeigen

Beiträge von Dr.Galvany

TCP... über Internet?

HotKeySet and BlockInput

richtiges klammern setzen???

richtiges klammern setzen???

richtiges klammern setzen???

richtiges klammern setzen???

richtiges klammern setzen???

richtiges klammern setzen???

richtiges klammern setzen???

script geht nicht richtig (Farbe suchen und Maus positionieren)

script geht nicht richtig (Farbe suchen und Maus positionieren)

script geht nicht richtig (Farbe suchen und Maus positionieren)

RGB Finder

RGB Finder

Arry Frage

Arry Frage

Arry Frage

Arry Frage

Mauscursor, MouseMove

RGB Finder