[AutoIt] Frage/Antworte Thread

06/06/2009 01:20 marcopolo1990#391
Quote:
Originally Posted by 50Millionen View Post
Ich hab au mal ne Frage vlt steht das schon hier drin , aber keine Lust das wenn bei den vielen Seiten rauszusuchen.
Wenn man z.B. Id u. Pw in einer .ini Datei speichert , kann man die dann auch irgendwie verschlüsselt speichern ? Weil das wär ja doof wenn jeder die Id u. Pw in der .ini Datei lesen kann :d
schau dir das hier mal an =)

_StringEncrypt.au3


in eine au3 speichern und starten, diese dann als folgende befehle nutzen

_StringEncrypt( 1 ,$string,$Pass,$Level) ; encrypt
_StringEncrypt( 0 ,$string,$Pass,$Level) ; decrypt

benötigtes include:
#include <string.au3>
06/06/2009 08:59 RoleS#392
Ok , danke schön. Aber bei deinem Code wenn ich ihn in eine Au3 Datei einfüge kommt eine Fehlermeldung. Kannst du mir das bei hier dem Code evt. Vormachen ? (H u. HH sind Id und Pw)

Code:
Func A2()
	$res = GUICtrlRead($A)
            IniWrite($IniFile, "Save1", "Input", $res)
			$res = GUICtrlRead($AA)
            IniWrite($IniFile, "Save2", "Input", $res)
			$res = GUICtrlRead($B)
            IniWrite($IniFile, "Save3", "Input", $res)
			 $res = GUICtrlRead($BB)
			 IniWrite($IniFile,"Save4", "Input",$res)
			 $res = GUICtrlRead($C)
			 IniWrite($IniFile,"Save5", "Input",$res)
			 $res = GUICtrlRead($D)
			 iniwrite($IniFile,"Save6", "Input",$res)
			 $res = GUICtrlRead($DD)
			 iniwrite($IniFile,"Save7", "Input",$res)
			 $res = GUICtrlRead($KA)
			 iniwrite($IniFile,"Save8", "Input",$res)
			 $res = GUICtrlRead($KP)
			 iniwrite($IniFile,"Save9", "Input",$res)
			 $res = GUICtrlRead($E)
			 iniwrite($IniFile,"Save10","Input",$res)
			 $res = GUICtrlRead($EE)
			 iniwrite($IniFile,"Save11","Input",$res)
			 $res = GUICtrlRead($F)
			 iniwrite($IniFile,"Save12","Input",$res)
			 $res = GUICtrlRead($G)
			 iniwrite($IniFile,"Save13","Input",$res)
			 $res = GUICtrlRead($GG)
			 iniwrite($IniFile,"Save14","Input",$res)
			 $res = GUICtrlRead($H)
			 iniwrite($IniFile,"Save15","Input",$res)
			 $res = GUICtrlRead($HH)
			 iniwrite($IniFile,"Save16","Input",$res)
			 $res = GUICtrlRead($FF)
			 iniwrite($IniFile,"Save17","Input",$res)
EndFunc
		 

Func A3()
	$IniRead = IniRead($IniFile, "Save1", "Input", "Wert nicht gefunden")
	GUICtrlSetData($A,$IniRead)
	$IniRead = IniRead($IniFile, "Save2", "Input", "Wert nicht gefunden")
	GUICtrlSetData($AA,$IniRead)
	$IniRead = IniRead($IniFile, "Save3", "Input", "Wert nicht gefunden")
	GUICtrlSetData($B,$IniRead)
	$IniRead = IniRead($IniFile,"Save4","Input","Wert nicht gefunden")
	GUICTrlSetData($BB,$IniRead)
	$IniRead = iniread($IniFile,"Save5","Input","Wert nicht gefunden")
	GUICtrlSetData($C,$IniRead)
	$IniRead = IniRead($IniFile, "Save6", "Input", "Wert nicht gefunden")
	GUICtrlSetData($D,$IniRead)
	$IniRead = IniRead($IniFile, "Save7", "Input", "Wert nicht gefunden")
	GUICtrlSetData($DD,$IniRead)
	$IniRead = IniRead($IniFile, "Save8", "Input", "Wert nicht gefunden")
	GUICtrlSetData($KA,$IniRead)
	$IniRead = IniRead($IniFile, "Save9", "Input", "Wert nicht gefunden")
	GUICtrlSetData($KP,$IniRead)
	$IniRead = IniRead($IniFile, "Save10", "Input", "Wert nicht gefunden")
	GUICtrlSetData($E,$IniRead)
	$IniRead = IniRead($IniFile, "Save11", "Input", "Wert nicht gefunden")
	GUICtrlSetData($EE,$IniRead)
	$IniRead = IniRead($IniFile, "Save12", "Input", "Wert nicht gefunden")
	GUICtrlSetData($F,$IniRead)
	$IniRead = IniRead($IniFile, "Save13", "Input", "Wert nicht gefunden")
	GUICtrlSetData($G,$IniRead)
	$IniRead = IniRead($IniFile, "Save14", "Input", "Wert nicht gefunden")
	GUICtrlSetData($GG,$IniRead)
    $IniRead = IniRead($IniFile, "Save15", "Input", "Wert nicht gefunden")
	GUICtrlSetData($H,$IniRead)
	$IniRead = iniread($IniFile,"Save16","Input","Wert nicht gefunden")
	GUICtrlSetData($HH,$IniRead)
	$IniRead = iniread($IniFile,"Save17","Input","Wert nicht gefunden")
	GUICtrlSetData($FF,$IniRead)
EndFunc
06/07/2009 20:03 felixli93#393
IniWrite ($IniFile, "Save 1", "Input", _StringEncrypt (1, GuiCtrlRead ($AA), "password))
06/08/2009 00:25 marcopolo1990#394
welche fehlermeldung denn?
#include <String.au3>
nicht vergessen ;)
06/08/2009 13:16 RoleS#395
Ah , dickes THX an beide.

Ich hab nochmal 2 Fragen. :d

Frage 1:
Ich weiß zwar wie ich ein Passwort für ein Programm erstellen kann , aber wie schaff ich es das der Benutzer ein Passwort eingibt und das dann immer benutzen kann ? Also so wie bei Banjo´s Ch - Wechsel Bot.

Frage 2:
Wie mach ich das das der Bot das Fenster dahin zieht damit das funktioniert. (wenn das Metin2 Fenster an der falschen Stelle des Desktops ist.) So wie bei Felixlis Angelbot. :d

Auf die Antwort gibst natürlich wieder ein THX:
06/08/2009 13:48 felixli93#396
Quote:
Originally Posted by 50Millionen View Post
Ah , dickes THX an beide.

Ich hab nochmal 2 Fragen. :d

Frage 1:
Ich weiß zwar wie ich ein Passwort für ein Programm erstellen kann , aber wie schaff ich es das der Benutzer ein Passwort eingibt und das dann immer benutzen kann ? Also so wie bei Banjo´s Ch - Wechsel Bot.

Frage 2:
Wie mach ich das das der Bot das Fenster dahin zieht damit das funktioniert. (wenn das Metin2 Fenster an der falschen Stelle des Desktops ist.) So wie bei Felixlis Angelbot. :d

Auf die Antwort gibst natürlich wieder ein THX:
zu 1. weiß ich nicht wirklich, was du meinst
wenn du willst, dass nicht jeder dein script starten kann, sondern nur du mit nem passwort, dann geht das, indem du ganz am anfang vom script ein passwort definierst via
Code:
$password = 'dein Passwort
dann danach abfragen:
Code:
If InputBox ("Passwort", "Bitte gib dein Passwort ein", "", "*") <> $password Then Exit
danach kannst du dann dein script schreiben, das dann nur ausgeführ wird, wenn du das richtige passwort eingegeben hast

zu 2.
WinMove ("Titel", "Text", "x", "y")

mfg felixli93
06/09/2009 18:44 RoleS#397
Thx zu 2.
Edit : Frage 1 hat sich erledigt


Nochmal zu _stringencrypt^^.
Wie funktioniert das bei IniRead ?

(Habs nochmal kopiert , post gelöscht und eingefügt , weil ich keine Rückmeldung bekommen habe . sry)
06/14/2009 18:14 Pünti987#398
Hier mein Pic up bot Screen: [Only registered and activated users can see links. Click Here To Register...]

Mein Problem ist das ich nicht weiter komme wie kann ich machen dass wenn ich y in die erste box eintrage und dann zeit z.b 100 und dann auf start presse, dass es pickt

So sieht es im script aus

GuiCreate("Pic up Bot v 2 by Sismon",585,181,346,338)
GuiSetState()
GUICtrlcreatelabel ("Welche Taste soll Gedrückt werden",12,20)
GUICtrlcreatelabel ("Zeit abstant in milisekunden",40,50)
$number1 = GUICtrlCreateEdit ("", 240,14,125,20,0)
$number2 = GUICtrlCreateEdit ("", 240,52,125,20,0)
$addbutton1 = GUICtrlCreateButton (" Starten ", 10,70)
$subbutton2 = GUICtrlCreateButton (" Beenden ", 10,100)
$endbutton3 = GUICtrlCreateButton (" Programm Beenden ", 10,190)
06/14/2009 20:02 RoleS#399
da musst du GUICtrlRead benutzen

z.b.

$Read = GUICtrlRead($Input)
$Sleep= GUICtrlRead($Input1)
while(1)
send($Read,0)
sleep($Sleep)
Wend
06/15/2009 16:38 Pünti987#400
funzt leider nicht kommt fehlermeldung
06/15/2009 16:46 RoleS#401
Öh , komisch. Hast du vlt irgendwas vergessen ?!
06/15/2009 17:23 Pünti987#402
ich habe alles so kopiert aber es geht nicht
Das hier kommt
[Only registered and activated users can see links. Click Here To Register...]
06/15/2009 17:37 RoleS#403
vlt gibst bei die die Variable $Input nicht ?^^ Die heißt bei dir bestimmt anders. Wahrscheinlich Input1 oder so.
06/15/2009 17:48 Pünti987#404
wenn ich dan aber auf Start klicke macht es nichts und wenn ich auf den Knopf beenden presse komm ich nicht raus muss bei der taskleiste beenden
06/15/2009 19:00 RoleS#405
Ich versteh jetzt nicht was du meinst. :D