Autoit Ini Datei auf Server speichern aber Wie!!!????
Guten Abend Liebe Elitepvpers Mitglieder,
und zwar habe ich folgende Frage in meinem Script gibt es 3 Guis die durch Hotkeys aufgerufen werden sollen was sie auch tun nun möchte ich einen "Password Steal Shied" erstellen (wie bei X-Trap) welche nach bestimmten Prozessen ausschau hällt und wenn er diesen Prozess findet soll man sich entscheiden den Prozess zu finden oder man gibt das Security Passwort ein und "schaltet" diesen Password Steal Shield für eine Stunde aus dann soll er wieder nach den vorgegebenen Prozessen ausschau halten. Nun zur meiner Frage wie mache ich das das mein "Password Steal Shield" in einer Schleife läuft und alle 3 Guis und sonstige Funktionen tadelos funktionieren ohne das ich 2 Programme erstellen muss.
Hier ist das Script bitte keine Belustigungen da ich noch mehr oder weniger ein Anfänger auf diesem Gebiet bin,ich bedanke mich für alle kommenden Vorschläge
PHP Code:
Global $Schleife,$x1,$y1,$fShow = True,$note,$sofficeb,$sofficeba,$sofficeca,$sofficed,$sofficew,$paint,$paints,$CMD,$Autoit,$Koda,$Info_Tool,$Ssschutz = 0
If Not FileExists("Security Passwort.ini") Then
IniWrite_crypt("Security Passwort.ini","SP","lautet",InputBox("Security Code Eingeben","Bitte geben sie ihr Sicherheitspasswort ein!","","*"),98765456789887)
EndIf
If Not FileExists("Master Passwort.ini") Then
IniWrite_crypt("Master Passwort.ini","MP","Lautet",InputBox("Master Passwort Eingeben","Bitte gib dein eigenes Master Passwort ein!","","*"),97659768576443567)
EndIf
While 1
$Schleife = False
$passwort = InputBox ("Master Passwort Manager","Bitte geben sie das Master Passwort ein!","","*")
If $passwort == IniRead_crypt("Master Passwort.ini","MP","Lautet","",97659768576443567) Then
MsgBox(64, "Master Passwort Manager", "Das Master Passwort wurde richtig eingegeben!",1)
$Schleife = False
ElseIf @error Then
Exit
$Schleife = False
Else
MsgBox(16, "ERROR 405", "Zugriff Verweigert! " &@CRLF& " Bitte geben sie das Passwort richtig ein!",2)
$Schleife = True
EndIf
If $Schleife == False Then ExitLoop
WEnd
#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <String.au3>
#Include <ImageSearch.au3>
$Form1_1 = GUICreate("League of Legends Bot", 419, 290, 192, 124)
GUISetState(@SW_SHOW)
$Group1_1 = GUICtrlCreateGroup("", 0, -8, 417, 297)
$Label1_1 = GUICtrlCreateLabel("F2: Einlogen", 8, 8, 90, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2_1 = GUICtrlCreateLabel("F3: Game", 8, 40, 70, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label3_1 = GUICtrlCreateLabel("F4: Bot Game", 8, 72, 97, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4_1 = GUICtrlCreateLabel("F6: Normal Game", 8, 136, 124, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label5_1 = GUICtrlCreateLabel("F7: AFK Start", 8, 168, 93, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label6_1 = GUICtrlCreateLabel("F8: Stop", 8, 200, 61, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label7_1 = GUICtrlCreateLabel("F9: Hide/Show", 8, 232, 104, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label8_1 = GUICtrlCreateLabel("F10: Exit", 8, 264, 62, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label9_1 = GUICtrlCreateLabel("F5: Champs", 8, 104, 85, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label10_1 = GUICtrlCreateLabel("Bot made by ", 144, 256, 266, 24)
GUICtrlSetFont(-1, 12, 800, 2, "MS Sans Serif")
$Pic1_1 = GUICtrlCreatePic(@TempDir & "LOL.jpg", 136, 8, 273, 241)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW, $Form1_1)
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1_1
Switch $nMsg[0]
Case HotKeySet("{F2}","Einlogen")
Case HotKeySet("{F3}","Game")
Case HotKeySet("{F4}","Bot_Game")
Case HotKeySet("{F5}","Champs")
Case HotKeySet("{F6}","Normal_Game")
Case HotKeySet("{F7}", "AFK_Start")
Case HotKeySet("{F8}","Stop")
Case HotKeySet("{F9}","Hide_Show")
Case HotKeySet("{F10}","Exit1")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Case $Form1
Switch $nMsg[0]
Case $Button2,$Button3, $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $Form1_1)
GUISetState(@SW_HIDE, $Form1)
Case $Button1
EndSwitch
Case $Form1_2
Switch $nMsg [0]
Case $Button7, $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $Form1_1)
GUISetState(@SW_HIDE, $Form1_2)
Case $Button4,$Button6
EndSwitch
Case $Form1_3
Switch $nMsg [0]
Case $Button9, $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $Form1_1)
GUISetState(@SW_HIDE, $Form1_3)
Case $Button10,$Button11,$Button12
EndSwitch
;;;;;;;;;;;;;;;;Hier beginnt der Shield Die Gui funktionen werden wie Button funktionieren nicht
If $Ssschutz = 2 Then
Sleep(3600000)
AdlibRegister("Detect",1)
ElseIf $Ssschutz = 0 Then
AdlibRegister("Detect",1)
EndIf
;;;;;;;;;;;;;;;Und hier endet er
EndSwitch
WEnd
Func Einlogen()
$Account = InputBox("Eingabe des Acoount typs (Haupt- oder Nebenaccount)","Bitte gib Haupt oder Nebenaccount ein!")
If Not FileExists("Accountname(Haupt).ini") Then
IniWrite_crypt("Accountname(Haupt).ini","Accountnamen Eingabe","Benutzername",InputBox("Haupt Accountname Eingeben","Bitte gib deinen Benuzternamen ein!"),96755643)
EndIf
If Not FileExists("Passwort(Haupt).ini") Then
IniWrite_crypt("Passwort(Haupt).ini","Passwort Eingabe","Passwort",InputBox("Passwort Eingeben","Bitte gib dein Passwort ein!","","*"),9797685)
EndIf
If Not FileExists("Accountname(Neben).ini") Then
IniWrite_crypt("Accountname(Neben).ini","Accountnamen Eingabe","Benutzername",InputBox("Neben Accountnamen Eingeben","Bitte gib deinen Benuzternamen ein!"),987876)
EndIf
If Not FileExists("Passwort(Neben).ini") Then
IniWrite_crypt("Passwort(Neben).ini","Passwort Eingabe","Passwort",InputBox("Passwort Eingeben","Bitte gib dein Passwort ein!","","*"),986546)
EndIf
WinSetState("League of Legends afk Bot made by Thomas Schneider","",@SW_MINIMIZE)
If $Account = "Hauptaccount" Or $Account = "Ha" Then
If Run("C:\Riot Games\League of Legends\lol.launcher.exe") Then
MsgBox(64,"League of Legends Launcher!","Launcher wird gestartet " &@CRLF& " und wirst eingeloggt!",3)
Else
MsgBox(16,"ERROR 426!","League of Legends ist nicht insatlliert! " &@CRLF& " Bitte installieren sie League of Legends um diesen Bot nutzten zu können!",5)
Exit
EndIf
While 1
$Schleife = True
$result1 = _ImageSearch("Start Button.bmp",1,$x1,$y1,38)
If $result1 = 1 Then
MouseClick("left",$x1, $y1)
$Schleife = False
Sleep(560)
EndIf
If $Schleife == False Then ExitLoop
WEnd
While 1
$Schleife = True
$result38 = _ImageSearch("Update Annehmen.bmp",1,$x1,$y1,10)
$result39 = _ImageSearch("Update Annehmen2.bmp",1,$x1,$y1,10)
If $result38 = 1 Then
MouseClick("left",$x1, $y1)
If $result39 = 1 Then
MouseClick("left",$x1, $y1)
$Schleife = False
EndIf
Sleep(600)
Else
$Schleife = False
EndIf
If $Schleife == False Then ExitLoop
WEnd
While 2
$Schleife = True
$result2 = _ImageSearch("Benutzername.bmp",1,$x1,$y1,10)
$result222 = _ImageSearch("Benutzername1.bmp",1,$x1,$y1,10)
If $result2 = 1 Then
MouseClick("left",$x1,$y1)
$Schleife = False
Sleep(560)
Else
$Schleife = True
If $result222 = 1 Then
MouseClick("left",$x1,$y1)
$Schleife = False
Sleep(500)
EndIf
EndIf
If $Schleife == False Then ExitLoop
WEnd
While 1
If Not ProcessExists("LolClient.exe") Then
MsgBox(16,"ERROR","Aus Sicherheitsgründen wird das Programm geschlossen!",6)
MsgBox(64,"Tipp","Schutz vor Passwort Steal!",6)
Exit
Else
$Schleife = False
If $Schleife == False Then ExitLoop
EndIf
WEnd
Send("^a")
Sleep(1000)
Send("{BACKSPACE 5}")
Sleep(1000)
Send ($accountname)
Sleep(1500)
Send("{TAB}")
Sleep (500)
Send($passwort)
Sleep(500)
Send("{Enter}")
Sleep(6000)
$result79 = _ImageSearch("Nebenaccount ausweichen.bmp",1,$x1,$y1,10)
If $result79 = 1 Then
MouseClick("left",$x1,$y1)
While 2
$Schleife = True
$result7 = _ImageSearch("Benutzername.bmp",1,$x1,$y1,10)
$result77 = _ImageSearch("Benutzername1.bmp",1,$x1,$y1,10)
If $result7 = 1 Then
MouseClick("left",$x1,$y1)
$Schleife = False
Sleep(560)
Else
$Schleife = True
If $result77 = 1 Then
MouseClick("left",$x1,$y1)
$Schleife = False
Sleep(500)
EndIf
EndIf
If $Schleife == False Then ExitLoop
WEnd
Send("^a")
Sleep(1000)
Send("{BACKSPACE 5}")
Sleep(1000)
Send ($accountname2)
Sleep(1500)
If $Account = "Nebenaccount" Or $Account = "Na" Then
If Run("C:\Riot Games\League of Legends\lol.launcher.exe") Then
MsgBox(64,"League of Legends Launcher!","Launcher wird gestartet " &@CRLF& " und wirst eingeloggt!",2)
Else
MsgBox(16,"ERROR 426!","League of Legends ist nicht insatlliert! " &@CRLF& " Bitte installieren sie League of Legends um diesen Bot nutzten zu können!",2)
Exit
EndIf
While 1
$Schleife = True
$result6 = _ImageSearch("Start Button.bmp",1,$x1,$y1,38)
If $result6 = 1 Then
MouseClick("left",$x1, $y1)
$Schleife = False
Sleep(560)
EndIf
If $Schleife == False Then ExitLoop
WEnd
Sleep(600)
While 1
$Schleife = True
$result40 = _ImageSearch("Update Annehmen.bmp",1,$x1,$y1,10)
$result41 = _ImageSearch("Update Annehmen2.bmp",1,$x1,$y1,10)
If $result40 = 1 Then
MouseClick("left",$x1, $y1)
If $result41 = 1 Then
MouseClick("left",$x1, $y1)
$Schleife = False
EndIf
Sleep(600)
Else
$Schleife = False
EndIf
If $Schleife == False Then ExitLoop
WEnd
While 2
$Schleife = True
$result7 = _ImageSearch("Benutzername.bmp",1,$x1,$y1,10)
$result77 = _ImageSearch("Benutzername1.bmp",1,$x1,$y1,10)
If $result7 = 1 Then
MouseClick("left",$x1,$y1)
$Schleife = False
Sleep(560)
Else
$Schleife = True
If $result77 = 1 Then
MouseClick("left",$x1,$y1)
$Schleife = False
Sleep(500)
EndIf
EndIf
If $Schleife == False Then ExitLoop
WEnd
Func Hide_Show()
If $fShow Then WinSetState("League of Legends Bot","",@SW_SHOW)
If not $fShow Then WinSetState("League of Legends Bot","",@SW_Hide)
$fShow=Not $fShow
EndFunc
If $note Then
$1 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden![ " & $note & " ] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $1 = 1 Then
Exit
ElseIf $1 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
AdlibUnRegister("Detect")
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
Else
AdlibRegister("Detect",1)
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
If $sofficeb Then
$2 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden![ " & $sofficeb & " ] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $2 = 1 Then
Exit
ElseIf $2 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
AdlibUnRegister("Detect")
Else
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
AdlibRegister("Detect",1)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
If $sofficew Then
$3 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden![ " & $sofficew & " ] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $3 = 1 Then
Exit
ElseIf $3 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
AdlibUnRegister("Detect")
Else
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
AdlibRegister("Detect",1)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
If $sofficeba Then
$4 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden! [" & $sofficeba & "] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $4 = 1 Then
Exit
ElseIf $4 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
AdlibUnRegister("Detect")
Else
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
AdlibRegister("Detect",1)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
If $sofficed Then
$5 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden! [" & $sofficed & "] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $5 = 1 Then
Exit
ElseIf $5 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
AdlibUnRegister("Detect")
Else
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
If $sofficeca Then
$6 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden! [" & $sofficeca & "] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $6 = 1 Then
Exit
ElseIf $6 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
AdlibUnRegister("Detect")
Else
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
If $paint Then
$7 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden! [" & $paint & "] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $7 = 1 Then
Exit
ElseIf $7 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
AdlibUnRegister("Detect")
Else
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
If $paints Then
$8 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden! [" & $paints & "] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $8 = 1 Then
Exit
ElseIf $8 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
AdlibUnRegister("Detect")
Else
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
If $CMD Then
$9 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden! [" & $CMD & "] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $9 = 1 Then
Exit
ElseIf $9 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
AdlibUnRegister("Detect")
Else
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
If $Autoit Then
$10 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden! [" & $Autoit & "] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $10 = 1 Then
Exit
ElseIf $10 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
AdlibUnRegister("Detect")
Else
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
If $Koda Then
$11 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden! [" & $Koda & "] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $11 = 1 Then
Exit
ElseIf $11 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
AdlibUnRegister("Detect")
Else
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
If $Info_Tool Then
$12 = MsgBox(48+1,"Password Steal Shield","Folgendes Programm könnte als Zugriff für ihre Passwörter benutzt werden! [" & $Info_Tool & "] Bitte beenden sie den Prozess bevor sie diesen Bot nutzen oder geben sie das Security Passwort ein wenn sie Einverstanden sind den Prozess offen zu lassen! Wollen sie das Fenster schließen?")
If $12 = 1 Then
Exit
ElseIf $12 = 2 Then
$Schutz = InputBox("Passwort Steal Shield","Bitte geben sie das Passwort ein!","","*")
If $Schutz == IniRead_crypt("Security Passwort.ini","SP","lautet","",98765456789887) Then
$Ssschutz = 2
MsgBox(64, "Security Passwort Manager", "Das Security Passwort wurde richtig eingegeben!",1)
AdlibUnRegister("Detect")
Else
MsgBox(16, "Security Passwort Manager", "Zugriff Verweigert! " &@CRLF& " Falsche Passwort Einagbe!",2)
Exit
EndIf
EndIf
Else
Sleep(500)
EndIf
EndFunc
Schau dir mal den Befehl AdlibRegister richtig an.
Einfach ein Delay von 60 Minuten reintun, somit startet er die Funktion, welche die Prozesse prüft alle 60 minuten, in der Zwischenzeit läuft dein Skript ohne Probleme.
Beispiel:
Code:
AdlibRegister("_Checking", 5000) ; =====> Alle 5 sekunden wird _Checking aufgerufen.
While 1
Sleep(100)
WEnd
Func _Checking()
;====> Hier kommt dein Check code <=======
MsgBox(0,".","gecheckt")
EndFunc
und zwar hätte uch noch eine Frage ich hab nun meinen "password steal shield" in eine 2 .au3 gepackt und da wollte ich fagen wie ich diese 2 Programme miteinander Verknüpfen kann.Und wie kann ich das so machen, dass das eine Programm nicht ohne das andere kann also wenn das eine Proramm nicht das ist soll eine "Fehler Meldung " Auftauchen und sich schließen genau auch beim Bot wenn es Zum beispiel gelöscht wurde das der Bot auch nicht starten kann.(das selbe wie bei S4 League und XTrap)
If Not ProcessExists("deinProzess.exe") Then
MsgBox(0, "Error", "Passwordshield läuft nicht mehr")
Exit
EndIf
Ist zwar eine sehr simple Lösung, aber reicht, um random Kiddy's das ganze zu restriktieren.
Jedoch würde ich es dir trotzdem empfehlen, diese Adlibregister Sache auf dein Hauptprogramm zu nehmen, sobald man mehrere Prozesse für 1 Programm hat, tauchen Probleme auf, und sind nicht mehr so sicher.
Das Adlibregister unterbricht deine Hauptschleife nur in dem Moment, in dem es den Check durchführt, davor und danach hat es überhaupt keinen Einfluss.
und zwar hätte ich noch eine Frage wie kann ich zum Beispiel das der Benutzter ein programm starten möchte und es kommt eine Sicherheitsabfrage(Passwort) und diese wird als .ini auf einem Server gespeichert. Und da wäre meine Frage wie kann ich einen Server erstellen der die Passwörter als ini Dateien speichert und abrufen kann ob diese richtig sind. Ich hoffe ihr könnt mir helfen
Eine ziemlich sichere Methode (Musst halt das Konzept bisschen abändern, sollte aber kein Problem sein), um dein Programm mit einem Passwort zu sichern.
dankeschön für die antwort es geht nicht nur um den Trainer sondern um ein paar andere Sachen weil der Bot eine automatische Einlog Funktion hat und der Bot davor nach den Haupt- und Nebenaccount Daten fragt und diese als .ini abspeichert und damit diese .ini dateien nicht einfach so gelöscht werden und durch eigene Passwörter und noch irgendwelche Sachen ersetz werden war dies meine Frage (oder geht das auch das der Bot die .ini mit allen passwörtern und Accounts bei sich speichert oder falls diese .ini gelöscht wird der bot beim starten nachprüft ob diese Datei existiert und wenn nicht die gelöschte Datei wieder speichert egal wie oft diese oder welche Datei auch immer gelöscht wird diese wiederherstellt) Danke für eure Geduld
dankeschön für die antwort es geht nicht nur um den Trainer sondern um ein paar andere Sachen weil der Bot eine automatische Einlog Funktion hat und der Bot davor nach den Haupt- und Nebenaccount Daten fragt und diese als .ini abspeichert und damit diese .ini dateien nicht einfach so gelöscht werden und durch eigene Passwörter und noch irgendwelche Sachen ersetz werden war dies meine Frage (oder geht das auch das der Bot die .ini mit allen passwörtern und Accounts bei sich speichert oder falls diese .ini gelöscht wird der bot beim starten nachprüft ob diese Datei existiert und wenn nicht die gelöschte Datei wieder speichert egal wie oft diese oder welche Datei auch immer gelöscht wird diese wiederherstellt) Danke für eure Geduld
das sollte sogesehen nicht möglich sein.
du könntest die *ini datei an verschiedenen stellen im system kopieren..
jedoch nicht grade benutzerfreundlich.
falls du die ini vor veränderungen sch+tzen möchtet,
kannst du ja den inhalt verschlüsseln.
Hierbei wäre wieder die Verschlüsselungsmethode, die ich verlinkt habe gut, anstatt der Adressen kann man einfach die Nutzerdaten verschlüsseln lassen.
Grundsätzlich kannst du dein Programm schon überprüfen lassen, ob die Datei noch existiert, jedoch bringt das nichts, wenn sich diese Datei X-Beliebig ändern lässt.
Die einfachste Methode wäre wohl, die Nutzerdaten stark verschlüsselt auf einen FTP Server hochzuladen, und die Daten einfach abzufragen.
Dies ist jedoch mit hohen Risiken verbunden..
Ok wie geht das denn da Beispiel von K1ramo hab ich nicht so ganz verstanden denn wenn ich das Passwort eingebe wie im Beispiel wie weiß das Programm was das richtige Passwort war sodass man nicht x Belibige passwörter schreiben kann ?????????
Schleife mit AutoIt 10/07/2012 - AutoIt - 4 Replies Hallo Leute,
ich versuche gerade ein script zuschreiben es soll:
Eine Taste z.b 3 200x hintereinander drücken und das in ca. 5Sekunden Abständen.
Mein Script sieht gerade noch sehr mager aus :D
Hilfe bei der autoit while schleife 03/05/2010 - Metin2 - 7 Replies Hallo,
also ich habe ein problem und weiß nicht wie ich das lösen kann :(
ich will einen Multihack machen für metin2
aber wenn ich eine value freezen muss dann mache ich eine while schleife und dann kann man keinen anderen Button mehr aktivieren :(
z.B. (ein anderes von mit erstelltes programm)
Code:
autoit do schleife problem 11/21/2009 - AutoIt - 16 Replies wolte ma ein autoit spammer machen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $pause
Autoit Ini Datei auf Server speichern aber Wie!!!????
denn wenn ich das Passwort eingebe wie im Beispiel wie weiß das Programm was das richtige Passwort war sodass man nicht x Belibige passwörter schreiben kann ?????????
