[HILFE] If-Schleife

12/26/2010 23:53 xEr0r#1
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
12/27/2010 00:18 ZeraPain#2
code posten
12/27/2010 00:22 xEr0r#3
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.
12/27/2010 00:27 PenGuin :O#4
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 ~.~
12/27/2010 00:37 -TaddeL-#5
also bei mir funktioniert das ^^
12/27/2010 00:44 ZeraPain#6
Code:
For $i = 1 To 100
		GUICtrlSetData($Progress1, $i)
		Sleep(1)
	Next
danach kommt doch deine msgbox..
12/27/2010 01:44 MoepMeep#7
[Only registered and activated users can see links. Click Here To Register...]
12/27/2010 02:24 PenGuin :O#8
Quote:
Originally Posted by MoepMeep View Post
[Only registered and activated users can see links. Click Here To Register...]
Selbstgemacht? :>
12/27/2010 03:04 MoepMeep#9
Quote:
Originally Posted by PenGuin :O View Post
Selbstgemacht? :>
Neee :( Hät ich das gemacht, wär da noch ein schöner 17k Beep ;P
12/27/2010 13:01 PenGuin :O#10
Quote:
Originally Posted by MoepMeep View Post
Neee :( Hät ich das gemacht, wär da noch ein schöner 17k Beep ;P
Jetzt ist es nur halb so gut! :D
12/27/2010 13:40 puzzlr#11
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 
12/27/2010 19:03 PenGuin :O#12
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?
12/29/2010 13:49 puzzlr#13
Quote:
Originally Posted by PenGuin :O View Post
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
12/29/2010 17:27 xEr0r#14
danke euch allen =)

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