[QUESTION]Wie kann ich...

>:-{Scâréd}-:< · 08/02/2011, 11:22

Hallo,
Ich wollte fragen, wie ich es hinbekomme das Ich auf einen Button Klicke und das Programm das Passwort speichert?
Also Script:

PHP Code:


			
#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <TabConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("S4League Trainer", 335, 239, 195, 127, $WS_SYSMENU, $WS_EX_TOPMOST)

$Tab1 = GUICtrlCreateTab(0, 0, 329, 233)

$TabSheet1 = GUICtrlCreateTabItem("Trainer")

$Checkbox1 = GUICtrlCreateCheckbox("1Hit", 4, 25, 97, 17)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

GUICtrlSetState(-1, $GUI_DISABLE)

$Checkbox2 = GUICtrlCreateCheckbox("Fast Fire", 108, 25, 97, 17)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

GUICtrlSetState(-1, $GUI_DISABLE)

$Checkbox3 = GUICtrlCreateCheckbox("...", 212, 25, 97, 17)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

GUICtrlSetState(-1, $GUI_DISABLE)

$Checkbox4 = GUICtrlCreateCheckbox("Inf SP Skill", 4, 57, 97, 17)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Checkbox5 = GUICtrlCreateCheckbox("0 Accuracy", 108, 57, 97, 17)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Checkbox6 = GUICtrlCreateCheckbox("X-Ray", 212, 57, 97, 17)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Checkbox7 = GUICtrlCreateCheckbox("...", 4, 89, 97, 17)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Checkbox8 = GUICtrlCreateCheckbox("...", 108, 89, 97, 17)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Checkbox9 = GUICtrlCreateCheckbox("...", 212, 89, 97, 17)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Input1 = GUICtrlCreateInput("", 44, 113, 217, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD))

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Button1 = GUICtrlCreateButton("Start", 4, 137, 121, 33)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Button2 = GUICtrlCreateButton("Check Passwort", 172, 137, 121, 33)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Button4 = GUICtrlCreateButton("Passwort speichern", 64, 178, 161, 33)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

GUICtrlSetState(-1, $GUI_DISABLE)

$TabSheet2 = GUICtrlCreateTabItem("Credits")

$Label1 = GUICtrlCreateLabel("Coded by >:-{Scâréd}-:< and ...", 4, 17, 309, 36)

GUICtrlSetFont(-1, 18, 800, 6, "Curlz MT")

$Label2 = GUICtrlCreateLabel("GUI by >:-{Scâréd}-:<", 36, 57, 245, 33)

GUICtrlSetFont(-1, 16, 800, 2, "Kristen ITC")

$Label3 = GUICtrlCreateLabel(">:-{Scâréd}-:<", 76, 97, 166, 39)

GUICtrlSetFont(-1, 20, 800, 2, "Palatino Linotype")

$Label4 = GUICtrlCreateLabel("and", 132, 137, 49, 38)

GUICtrlSetFont(-1, 16, 800, 2, "Segoe Script")

$Label5 = GUICtrlCreateLabel("...", 140, 185, 22, 31)

GUICtrlSetFont(-1, 16, 800, 2, "Tempus Sans ITC")

$TabSheet3 = GUICtrlCreateTabItem("Homepages")

$Button3 = GUICtrlCreateButton("Hompage in Epvp >:-{Scâréd}-:<", 12, 25, 305, 89)

GUICtrlSetFont(-1, 16, 800, 2, "Matisse ITC")

GUICtrlCreateTabItem("")

GUISetState()

#EndRegion ### END Koda GUI section ###

Do

    Sleep(10)

Until GUIGetMsg() == -3

While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case $Button4

            MsgBox(64,"","Das Passwort wurde gespeichert")

        Case $Button2

            If GUICtrlRead($Input1) = "mrmuni" Then

            MsgBox(64,"","Das Passwort ist richtig")

            GUICtrlSetState($Checkbox1, $GUI_ENABLE)

            GUICtrlSetState($Checkbox2, $GUI_ENABLE)

            GUICtrlSetState($Checkbox3, $GUI_ENABLE)

            GUICtrlSetState($Button4, $GUI_ENABLE)

        Else

            MsgBox(64,"","Das Passwort ist falsch")

        EndIf

    Case $Button1

        ToolTip("Starte S4League",0,0)

        If ProcessWait("S4Client.exe") Then

        ToolTip("S4League wurde gefunden... Der Trainer schließt sich",0,0)

        Sleep(3000)

        Exit

        EndIf

        Case $Button3

            ShellExecute("http://www.elitepvpers.com/forum/members/3640729--sc-r-d-.html")

    EndSwitch

WEnd

Jeder der mir hilft bekommt ein Thanks...
Passwort : mrmuni

BlackHybrid · 08/02/2011, 11:24

Machs einfach mit IniWrite/Iniread. Ich glaube da solltest du was in der HelpFile finden.
Alternative in der Registry mit RegRead/RegWrite.

>:-{Scâréd}-:< · 08/02/2011, 11:36

Quote:

Originally Posted by BlackHybrid

Machs einfach mit IniWrite/Iniread. Ich glaube da solltest du was in der HelpFile finden.
Alternative in der Registry mit RegRead/RegWrite.

Kannst du mein Script bearbeiten? ich habs nicht kapiert

Ludder231 · 08/02/2011, 11:54

Spoiler

PHP Code:


			
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("S4League Trainer", 335, 239, 195, 127, $WS_SYSMENU, $WS_EX_TOPMOST)
$Tab1 = GUICtrlCreateTab(0, 0, 329, 233)
$TabSheet1 = GUICtrlCreateTabItem("Trainer")
$Checkbox1 = GUICtrlCreateCheckbox("1Hit", 4, 25, 97, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
$Checkbox2 = GUICtrlCreateCheckbox("Fast Fire", 108, 25, 97, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
$Checkbox3 = GUICtrlCreateCheckbox("...", 212, 25, 97, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState(-1, $GUI_DISABLE)
$Checkbox4 = GUICtrlCreateCheckbox("Inf SP Skill", 4, 57, 97, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Checkbox5 = GUICtrlCreateCheckbox("0 Accuracy", 108, 57, 97, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Checkbox6 = GUICtrlCreateCheckbox("X-Ray", 212, 57, 97, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Checkbox7 = GUICtrlCreateCheckbox("...", 4, 89, 97, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Checkbox8 = GUICtrlCreateCheckbox("...", 108, 89, 97, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Checkbox9 = GUICtrlCreateCheckbox("...", 212, 89, 97, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("", 44, 113, 217, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button1 = GUICtrlCreateButton("Start", 4, 137, 121, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button2 = GUICtrlCreateButton("Check Passwort", 172, 137, 121, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button4 = GUICtrlCreateButton("Passwort speichern", 64, 178, 161, 33)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet2 = GUICtrlCreateTabItem("Credits")
$Label1 = GUICtrlCreateLabel("Coded by >:-{Scâréd}-:< and ...", 4, 17, 309, 36)
GUICtrlSetFont(-1, 18, 800, 6, "Curlz MT")
$Label2 = GUICtrlCreateLabel("GUI by >:-{Scâréd}-:<", 36, 57, 245, 33)
GUICtrlSetFont(-1, 16, 800, 2, "Kristen ITC")
$Label3 = GUICtrlCreateLabel(">:-{Scâréd}-:<", 76, 97, 166, 39)
GUICtrlSetFont(-1, 20, 800, 2, "Palatino Linotype")
$Label4 = GUICtrlCreateLabel("and", 132, 137, 49, 38)
GUICtrlSetFont(-1, 16, 800, 2, "Segoe Script")
$Label5 = GUICtrlCreateLabel("...", 140, 185, 22, 31)
GUICtrlSetFont(-1, 16, 800, 2, "Tempus Sans ITC")
$TabSheet3 = GUICtrlCreateTabItem("Homepages")
$Button3 = GUICtrlCreateButton("Hompage in Epvp >:-{Scâréd}-:<", 12, 25, 305, 89)
GUICtrlSetFont(-1, 16, 800, 2, "Matisse ITC")
GUICtrlCreateTabItem("")
GUISetState()
#EndRegion ### END Koda GUI section ###
Do
    Sleep(10)
Until GUIGetMsg() == -3
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button4
                if guictrlread($input1) = "mrmuni" Then
                MsgBox(0, "Succes", "Passwort ist richtig!"&@crlf & _
                "Es wurde gespeichert!")
                FileWrite(@scriptdir&"\Passwort.txt", guictrlread($input1))
            Else
                MsgBox(0, "Failure", "Passwort ist falsch!")
            EndIf
        Case $Button2
            If GUICtrlRead($Input1) = "mrmuni" Then
            MsgBox(64,"","Das Passwort ist richtig")
            GUICtrlSetState($Checkbox1, $GUI_ENABLE)
            GUICtrlSetState($Checkbox2, $GUI_ENABLE)
            GUICtrlSetState($Checkbox3, $GUI_ENABLE)
            GUICtrlSetState($Button4, $GUI_ENABLE)
        Else
            MsgBox(64,"","Das Passwort ist falsch")
        EndIf
    Case $Button1
        ToolTip("Starte S4League",0,0)
        If ProcessWait("S4Client.exe") Then
        ToolTip("S4League wurde gefunden... Der Trainer schließt sich",0,0)
        Sleep(3000)
        Exit
        EndIf
        Case $Button3
            ShellExecute("http://www.elitepvpers.com/forum/members/3640729--sc-r-d-.html")
            
        
    EndSwitch
WEnd

>:-{Scâréd}-:< · 08/02/2011, 12:00

Quote:

Originally Posted by Ludder231

Spoiler

PHP Code:

#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("S4League Trainer", 335, 239, 195, 127, $WS_SYSMENU, $WS_EX_TOPMOST) $Tab1 = GUICtrlCreateTab(0, 0, 329, 233) $TabSheet1 = GUICtrlCreateTabItem("Trainer") $Checkbox1 = GUICtrlCreateCheckbox("1Hit", 4, 25, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetState(-1, $GUI_DISABLE) $Checkbox2 = GUICtrlCreateCheckbox("Fast Fire", 108, 25, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetState(-1, $GUI_DISABLE) $Checkbox3 = GUICtrlCreateCheckbox("...", 212, 25, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetState(-1, $GUI_DISABLE) $Checkbox4 = GUICtrlCreateCheckbox("Inf SP Skill", 4, 57, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox5 = GUICtrlCreateCheckbox("0 Accuracy", 108, 57, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox6 = GUICtrlCreateCheckbox("X-Ray", 212, 57, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox7 = GUICtrlCreateCheckbox("...", 4, 89, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox8 = GUICtrlCreateCheckbox("...", 108, 89, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox9 = GUICtrlCreateCheckbox("...", 212, 89, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input1 = GUICtrlCreateInput("", 44, 113, 217, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD)) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Button1 = GUICtrlCreateButton("Start", 4, 137, 121, 33) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Button2 = GUICtrlCreateButton("Check Passwort", 172, 137, 121, 33) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Button4 = GUICtrlCreateButton("Passwort speichern", 64, 178, 161, 33) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet2 = GUICtrlCreateTabItem("Credits") $Label1 = GUICtrlCreateLabel("Coded by >:-{Scâréd}-:< and ...", 4, 17, 309, 36) GUICtrlSetFont(-1, 18, 800, 6, "Curlz MT") $Label2 = GUICtrlCreateLabel("GUI by >:-{Scâréd}-:<", 36, 57, 245, 33) GUICtrlSetFont(-1, 16, 800, 2, "Kristen ITC") $Label3 = GUICtrlCreateLabel(">:-{Scâréd}-:<", 76, 97, 166, 39) GUICtrlSetFont(-1, 20, 800, 2, "Palatino Linotype") $Label4 = GUICtrlCreateLabel("and", 132, 137, 49, 38) GUICtrlSetFont(-1, 16, 800, 2, "Segoe Script") $Label5 = GUICtrlCreateLabel("...", 140, 185, 22, 31) GUICtrlSetFont(-1, 16, 800, 2, "Tempus Sans ITC") $TabSheet3 = GUICtrlCreateTabItem("Homepages") $Button3 = GUICtrlCreateButton("Hompage in Epvp >:-{Scâréd}-:<", 12, 25, 305, 89) GUICtrlSetFont(-1, 16, 800, 2, "Matisse ITC") GUICtrlCreateTabItem("") GUISetState() #EndRegion ### END Koda GUI section ### Do Sleep(10) Until GUIGetMsg() == -3 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button4 if guictrlread($input1) = "mrmuni" Then MsgBox(0, "Succes", "Passwort ist richtig!"&@crlf & _ "Es wurde gespeichert!") FileWrite(@scriptdir&"\Passwort.txt", guictrlread($input1)) Else MsgBox(0, "Failure", "Passwort ist falsch!") EndIf Case $Button2 If GUICtrlRead($Input1) = "mrmuni" Then MsgBox(64,"","Das Passwort ist richtig") GUICtrlSetState($Checkbox1, $GUI_ENABLE) GUICtrlSetState($Checkbox2, $GUI_ENABLE) GUICtrlSetState($Checkbox3, $GUI_ENABLE) GUICtrlSetState($Button4, $GUI_ENABLE) Else MsgBox(64,"","Das Passwort ist falsch") EndIf Case $Button1 ToolTip("Starte S4League",0,0) If ProcessWait("S4Client.exe") Then ToolTip("S4League wurde gefunden... Der Trainer schließt sich",0,0) Sleep(3000) Exit EndIf Case $Button3 ShellExecute("http://www.elitepvpers.com/forum/members/3640729--sc-r-d-.html") EndSwitch WEnd

Wenn ich das Passwort eingebe und Check Passwort klicke, passiert nix.

buFFy! · 08/02/2011, 12:22

musst du deine frage so dumm stellen? ohne spoiler tuts auch.. jetzt hab ich keine lust mehr dir zu helfen. kkthxbye!

~~Freddy~~ · 08/02/2011, 13:05

buFFy! · 08/02/2011, 14:02

OMG! der erste post in dem aussagekräftige threadtitel topic ist sogar von dem typen

Ludder231 · 08/02/2011, 14:47

Quote:

Originally Posted by >:-{Scâréd}-:<

Wenn ich das Passwort eingebe und Check Passwort klicke, passiert nix.

Tja dein ganzes Script nützt nix musst es anders schreiben, aber der code is richtig....

P.S: Bei all deinen Button passiert nix...

>:-{Scâréd}-:< · 08/02/2011, 21:50

hab den Fehler gefunden
#closed

~~Freddy~~ · 08/02/2011, 22:24

Quote:

Originally Posted by >:-{Scâréd}-:<

hab den Fehler gefunden
#closed

Du kannst den thread nicht selber closen. Dafür musst du deinen beitrag melden und nach einen close bitten.

BlackHybrid · 08/02/2011, 22:27

Natürlich kann man einen Thread in den Themen Optionen selbst closen.

Kazaaa · 08/02/2011, 22:30

Das könnt ihr nur im Black Market.

#closed