Passwort einfügen

[arisha]

Habe den Script:

PHP Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("SpammBot V1.1", 296, 131, 192, 124)
$Input1 = GUICtrlCreateInput("Hier den Text hinein schreiben", 8, 8, 281, 21)
$Label1 = GUICtrlCreateLabel("Hier den Text", 8, 32, 100, 17)
$Input2 = GUICtrlCreateInput("Zeit", 8, 56, 281, 21)
$Label2 = GUICtrlCreateLabel("Wie schnell?", 8, 80, 100, 17)
$Button1 = GUICtrlCreateButton("Spamm", 160, 80, 121, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{F2}", "ToggleStop")
Global $Stop
While 1
$nMsg = GUIGetMsg()
Switch $nMsg

Case $Button1
spamm()

Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd


Func spamm()
MsgBox(0, "Hinweis!", "Zum Stoppen drücke F2!") 
Run ("notepad.exe")
WinWaitActive ("Unbenannt - Editor")
While 1
Send(GUICtrlRead($Input1))
Send ("{enter}")
Sleep(GUICtrlRead($Input2))
WEnd
EndFunc

Func ToggleStop()

$Stop = NOT $Stop
MsgBox(0, "Information", "Das Programm beendet sich jetzt")
Exit
EndFunc 


Darein würde ich gerne ein Passwort script einfügen..aber wie??
Hier das Passw. Script:

PHP Code:

$passwort = InputBox ("Passwortcheck","Bitte geben sie hier das Passwort ein.","","*")
If $passwort = "Kartoffel" Then  
If $passwort = true then MsgBox (0,"","Passwort Korrekt.")     
EndIf 

 If @error Then 
     MsgBox (0,"","Failure") 
 EndIf 
  
 
 $passwort=false 
If Not $passwort "Kartoffel" Then MsgBox (0,"","Falsch") 


Das 1.te Problem: Ich weiß net wie...
Das 2.te Problem: Auch wenn Password korekt ist zeigt er Falsch...

[FrEakY.]

Entweder du machst den PW Check bevor der spammer startet, oder du brauchst nen anderes GUI...

[.nAno]

Dein PW Script erscheint mir noch nen bisschen wir^^
So sollte es besser aussehn und funktionieren

Am besten verschlüsselst du dein vorgegebenes PW, da es sonst sehr leicht geknackt werden kann

PHP Code:

Func _getPassword()

Const $standardPW = "Kartoffel"

Do
$password = InputBox ( "Passwordabfrage", "Bitte gib dein Passwort ein:" , "Password", "*" )

If $password <> $standardPW Then ; <> = ungleich
MsgBox (0, "", "Passwort falsch" )
Else
MsgBox (0, "", "Passwort korrekt" )
EndIf

Until $password = $standardPW

EndFunc 


EDIT: Habs mal eben korregiert

[arisha]

Danke für das neu passwort...aber da passiert nichts!!!

[.nAno]

die Funktion ist bis auf die Tatsache, dass ich Korrekt und Inkorrekt vertauscht hab fehlerfrei, sollte also gehn (hast du vllt beim kopieren die Func/EndFunc übersehn :P)

solange du die Funktion nicht callst wird auch nichts passieren

[arisha]

Wie meinste mit callen??

[.nAno]

einfach aufrufen, ich hab die Funktion so gemacht, dass du sie einfach an nen Button anknüpfen kannst, z.B. so:

PHP Code:

Switch $msg
...
Case $PasswordButton
       _getPassword()

...

EndSwitch

Func _getPassword ( )
;hier deklariere (erstlle) ich meine Funktion
EndFunc 


[arisha]

Danke...aber wenn ich das einbauen will funzt das net...bin ja auch noch newbie... könnste mir das hier einbauen ?? Wäre lieb danke .....Wenn möglich am Anfang von allem ....

PHP Code:

ProgressOn("Please wait...","Bitte warten ...")

For $i=0 to 500
ProgressSet($i/500*100,int($i/500*100)&"%")
Sleep(10)
Next
ProgressOff()
MsgBox(0,"Complete","Programm wird gestartet")   

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("SpammBot V1.1", 296, 131, 192, 124)
$Input1 = GUICtrlCreateInput("Hier den Text hinein schreiben", 8, 8, 281, 21)
$Label1 = GUICtrlCreateLabel("Hier den Text", 8, 32, 100, 17)
$Input2 = GUICtrlCreateInput("Zeit", 8, 56, 281, 21)
$Label2 = GUICtrlCreateLabel("Wie schnell?", 8, 80, 100, 17)
$Button1 = GUICtrlCreateButton("Spamm", 160, 80, 121, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{F2}", "ToggleStop")
Global $Stop
While 1
$nMsg = GUIGetMsg()
Switch $nMsg

Case $Button1
spamm()

Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd 

Func spamm()
MsgBox(0, "Hinweis!", "Zum Stoppen drücke F2!") 
Run ("notepad.exe")
WinWaitActive ("Unbenannt - Editor")
While 1
Send(GUICtrlRead($Input1))
Send ("{enter}")
Sleep(GUICtrlRead($Input2))
WEnd
EndFunc

Func ToggleStop()

$Stop = NOT $Stop
MsgBox(0, "Information", "Das Programm beendet sich jetzt")
Exit
EndFunc 


[KDeluxe]

Habs mal bei der Gelegenheit etwas erweitert.

PHP Code:

$Passwort = InputBox("Passwort", "Gebe hier das Passwort ein:", "", "*", 200, 150)
If $Passwort <> "Ok" Then
    MsgBox(48, "Fehler", "Das eingegebene Passwort ist falsch!" & @CR & @CR & "Das Programm wird nun beendet!")
Else
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("SpammBot V1.1", 296, 131)
$Input1 = GUICtrlCreateInput("Hier den Text hinein schreiben", 8, 8, 281, 21)
$Label1 = GUICtrlCreateLabel("Hier den Text", 8, 32, 100, 17)
$Input2 = GUICtrlCreateInput("Zeit", 8, 56, 281, 21)
$Label2 = GUICtrlCreateLabel("Wie schnell?", 8, 80, 100, 17)
$Button1 = GUICtrlCreateButton("Spamm", 160, 80, 121, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Fenster = "Unbenannt - Editor"

HotKeySet("{F1}", "TogglePause")
HotKeySet("{F2}", "ToggleStop")
Global $Stop

While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            spamm()
    EndSwitch
WEnd
EndIf

Func spamm()
    GUISetState(@SW_HIDE)
    MsgBox(64, "Info", "Drücke zum pausieren F1 und zum beenden F2!")
    Run("notepad.exe")
    WinWaitActive($Fenster)
    While True
        Send(GUICtrlRead($Input1))
        Send ("{enter}")
        Sleep(GUICtrlRead($Input2))
    WEnd
EndFunc

Func TogglePause()
    $Stop = NOT $Stop
    If $Stop = True Then
        GUISetState(@SW_SHOW)
    Else
        GUISetState(@SW_HIDE)
        WinActivate($Fenster)
    EndIf
    While $Stop
        If GUIGetMsg() = -3 Then Exit
        sleep(100)
    WEnd
EndFunc

Func ToggleStop()
    $Prozess = WinGetProcess($Fenster)
    ProcessClose($Prozess) ; erzwingt das beenden
    Exit
EndFunc 


[arisha]

Dankeeeeee entlich funzzzzzttt