Passwort einfügen

04/22/2010 15:13 arisha#1
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...
04/22/2010 15:21 FrEakY.#2
Entweder du machst den PW Check bevor der spammer startet, oder du brauchst nen anderes GUI...
04/22/2010 16:06 .nAno#3
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 ;)
04/22/2010 19:05 arisha#4
Danke für das neu passwort...aber da passiert nichts!!! :confused:
04/22/2010 19:53 .nAno#5
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 ;)
04/23/2010 13:08 arisha#6
Wie meinste mit callen??
04/23/2010 13:17 .nAno#7
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 
04/23/2010 16:39 arisha#8
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 :rolleyes: .....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 
04/23/2010 17:50 KDeluxe#9
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 
04/23/2010 18:19 arisha#10
Dankeeeeee entlich funzzzzzttt