[HILFE] If-Schleife

xEr0r · 12/26/2010, 23:53

Nacht Com,
ALsoo^^ hab da bissl an nem skript rumgespielt. komme jz aber nicht mehr weiter. Undzwar hab ich nen Ladebalken. Wenn dieser vollgeladen ist soll eine MsgBox erscheinen. Jz komm ich nicht weiter (If-Schleifen sind nicht mein ding^^) Bitte um Hilfe. Pls nicht lachen oda dumme Kommis geben. THX

ZeraPain · 12/27/2010, 00:18

code posten

xEr0r · 12/27/2010, 00:22

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("YangHack", 860, 642, 192, 124)

$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Metin2.jpg", 400, 450, 382, 169)

$Label1 = GUICtrlCreateLabel("Server auswählen:", 32, 24, 220, 25)

$Label2 = GUICtrlCreateLabel("eDgMt2:", 360, 32, 164, 25)

$Checkbox1 = GUICtrlCreateCheckbox("", 440, 32, 17, 17)

$Input1 = GUICtrlCreateInput("", 24, 72, 241, 21)

$Input2 = GUICtrlCreateInput("", 24, 184, 241, 21)

$Label3 = GUICtrlCreateLabel("Account:", 32, 120, 228, 25)

$Label4 = GUICtrlCreateLabel("Passwort:", 32, 232, 236, 25)

$Input3 = GUICtrlCreateInput("", 24, 504, 249, 21)

$Input4 = GUICtrlCreateInput("", 24, 288, 249, 21)

$Label5 = GUICtrlCreateLabel("Charakter:", 32, 336, 236, 25)

$Input5 = GUICtrlCreateInput("", 24, 392, 249, 21)

$Label6 = GUICtrlCreateLabel("Yangmenge(nicht in k):", 32, 448, 236, 25)

$Label7 = GUICtrlCreateLabel("<---Leider funtkioniert diese Box nicht. Bitte wählen Sie eDgMt2 Manuell", 470, 32)

GUISetBkColor(0xFF3DBE)

$Button1 = GUICtrlCreateButton("Yang Laden", 368, 160, 233, 129)

$Progress1 = GUICtrlCreateProgress(368, 300, 200, 20)

GUICtrlSetFont($Button1, 24)

GUICtrlSetColor($Button1, 0xFFBA26)

GuictrlSetColor($Label1, 0xFFBA26)

GuictrlSetColor($Label2, 0xFFBA26)

GuictrlSetColor($Label3, 0xFFBA26)

GuictrlSetColor($Label4, 0xFFBA26)

GuictrlSetColor($Label5, 0xFFBA26)

GuictrlSetColor($Label6, 0xFFBA26)

GuictrlSetColor($Label7, 0xFFBA26)

GUICtrlSetFont($Label1, 15)

GUICtrlSetFont($Label2, 15)

GUICtrlSetFont($Label3, 15)

GUICtrlSetFont($Label4, 15)

GUICtrlSetFont($Label5, 15)

GUICtrlSetFont($Label6, 15)

GUICtrlSetFont($Label7, 15)

GUISetState(@SW_SHOW)



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



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case $Button1

            _func ()



    EndSwitch

WEnd



Func   _func ()

    For $i = 1 To 100

                GUICtrlSetData($Progress1, $i)

                Sleep(1)

                Next

Sleep (5000)

    MsgBox (0, "Error", "Error. Yangübertragung fehlgeschlagen")







    Sleep (1000)

    Run ("notepad.exe")

    WinWaitActive("Unbenannt - Editor")

    Send ("Ich kann dich sehen.")

    Sleep(2500)

    Send ("{ENTER}")

    Send ("Dein PC wird gehackt und dein Konto wird leergeräumt")

    Sleep(3000)

    While 1

    MouseMove (300, 300)

    MouseMove (400, 500)

    MouseMove (2000, 3000)

    MouseMove (500, 500)

    WEnd

MsgBox (1, "Virus", "Dein Netzwerk wurde zerstört")

Shutdown(16)



Exit

EndFunc

Damit will ichn Kumpel verarschen^^. Der soll nen ordentlichen Schock bekommen.

PenGuin :O · 12/27/2010, 00:27

Probier mal:

Code:

If GUICtrlRead($Progress1) = 100 Then
;tu was
EndIf

außerdem bringt ein Sleep(1) nichts, da es automatisch auf Sleep(10) aufgerundet wird.

und es ist nicht lustig, Metin2 Humor halt ~.~

-TaddeL- · 12/27/2010, 00:37

also bei mir funktioniert das ^^

ZeraPain · 12/27/2010, 00:44

Code:

For $i = 1 To 100
		GUICtrlSetData($Progress1, $i)
		Sleep(1)
	Next

danach kommt doch deine msgbox..

~~MoepMeep~~ · 12/27/2010, 01:44

PenGuin :O · 12/27/2010, 02:24

Quote:

Originally Posted by MoepMeep

Selbstgemacht? :>

~~MoepMeep~~ · 12/27/2010, 03:04

Quote:

Originally Posted by PenGuin :O

Selbstgemacht? :>

Neee

Hät ich das gemacht, wär da noch ein schöner 17k Beep ;P

PenGuin :O · 12/27/2010, 13:01

Quote:

Originally Posted by MoepMeep

Neee Hät ich das gemacht, wär da noch ein schöner 17k Beep ;P

Jetzt ist es nur halb so gut!

puzzlr · 12/27/2010, 13:40

PHP Code:


			
 For $i = 1 To 100 
        GUICtrlSetData($Progress1, $i)
If $i = 100 Then 
    Sleep (5000)
    MsgBox (0, "Error", "Error. Yangübertragung fehlgeschlagen")

EndIf
        Next

PenGuin :O · 12/27/2010, 19:03

Das über mir ist genau dasselbe wie:

Code:

For $i = 1 To 100
GUICtrlSetData($Progress1, $i)
Next
Sleep (5000)
MsgBox (0, "Error", "Error. Yangübertragung fehlgeschlagen")

Wozu also das If?

puzzlr · 12/29/2010, 13:49

Quote:
Originally Posted by PenGuin :O
Das über mir ist genau dasselbe wie:
Code:
For $i = 1 To 100
GUICtrlSetData($Progress1, $i)
Next
Sleep (5000)
MsgBox (0, "Error", "Error. Yangübertragung fehlgeschlagen")
Wozu also das If?

Stimmt, ist unnötig. Danke

. Wieder was dazu gelernt =D

xEr0r · 12/29/2010, 17:27

danke euch allen =)

Auf die Com ist verlass. Deswegen liebe ich Epvp so.