|
You last visited: Today at 15:47
Advertisement
[HILFE] If-Schleife
Discussion on [HILFE] If-Schleife within the AutoIt forum part of the Coders Den category.
12/26/2010, 23:53
|
#1
|
elite*gold: 227 
Join Date: Jun 2010
Posts: 295
Received Thanks: 37
|
[HILFE] If-Schleife
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
|
#2
|
elite*gold: 0
Join Date: Jan 2010
Posts: 360
Received Thanks: 249
|
code posten
|
|
|
|
|
12/27/2010, 00:22
|
#3
|
elite*gold: 227
Join Date: Jun 2010
Posts: 295
Received Thanks: 37
|
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
|
#4
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
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
|
#5
|
elite*gold: 26
Join Date: Oct 2010
Posts: 482
Received Thanks: 166
|
also bei mir funktioniert das ^^
|
|
|
|
|
12/27/2010, 00:44
|
#6
|
elite*gold: 0
Join Date: Jan 2010
Posts: 360
Received Thanks: 249
|
Code:
For $i = 1 To 100
GUICtrlSetData($Progress1, $i)
Sleep(1)
Next
danach kommt doch deine msgbox..
|
|
|
|
|
12/27/2010, 01:44
|
#7
|
elite*gold: 42
Join Date: Jun 2008
Posts: 5,425
Received Thanks: 1,888
|
|
|
|
|
|
12/27/2010, 02:24
|
#8
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Quote:
Originally Posted by MoepMeep
|
Selbstgemacht? :>
|
|
|
|
|
12/27/2010, 03:04
|
#9
|
elite*gold: 42
Join Date: Jun 2008
Posts: 5,425
Received Thanks: 1,888
|
Quote:
Originally Posted by PenGuin :O
Selbstgemacht? :>
|
Neee  Hät ich das gemacht, wär da noch ein schöner 17k Beep ;P
|
|
|
|
|
12/27/2010, 13:01
|
#10
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
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! 
|
|
|
|
|
12/27/2010, 13:40
|
#11
|
elite*gold: 29
Join Date: Nov 2010
Posts: 502
Received Thanks: 127
|
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
|
#12
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
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
|
#13
|
elite*gold: 29
Join Date: Nov 2010
Posts: 502
Received Thanks: 127
|
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
|
|
|
|
|
12/29/2010, 17:27
|
#14
|
elite*gold: 227
Join Date: Jun 2010
Posts: 295
Received Thanks: 37
|
danke euch allen =)
Auf die Com ist verlass. Deswegen liebe ich Epvp so.
|
|
|
|
 |
Similar Threads
|
Endlos schleife Hilfe
09/01/2010 - AutoIt - 4 Replies
Huhu,
ich versuch gerad meinen eigenen Rc bot zu basteln für LastChaos nur ich weis nicht wie ich eine endlosschleife hinkriege -
Bitte sagt mir ein tutorial oder wie es geht aber bitte macht nicht die arbeit für mich...hab das mit der schleife wo gelesen aber finde es nimmer..
Mfg sym
|
while-schleife cast x | schleife ende cast y
07/26/2010 - Diablo 2 Programming - 6 Replies
ich kann nicht einschlafen und versuche gerade halbwach herauszufinden, wie ich den bot etwas casten lassen kann, um ihn anschließend nach 10-15 casts etwas anderes casten zu lassen.
if(NTA_GetResistance(target, NTA_DAMAGE_PHYSICAL) >= 100)
{
if((target.name == "Pindleskin") && NTA_GetResistance(target, NTA_DAMAGE_PHYSICAL) >= 100)
{
var i =0;
while(i<15)
{
return NTC_CastSkill(106, NTC_HAND_LEFT, target);
i++;
|
Hilfe bei der autoit while schleife
03/05/2010 - Metin2 - 7 Replies
Hallo,
also ich habe ein problem und weiß nicht wie ich das lösen kann :(
ich will einen Multihack machen für metin2
aber wenn ich eine value freezen muss dann mache ich eine while schleife und dann kann man keinen anderen Button mehr aktivieren :(
z.B. (ein anderes von mit erstelltes programm)
Code:
|
Hilfe if-schleife funktioniert nicht
07/11/2009 - AutoIt - 7 Replies
schauts euch selber an:
HotKeySet("{F7}" , "Login")
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\marc\documents\form1.kxf
|
For-Schleife
01/29/2007 - General Coding - 14 Replies
Also wir haben ( um uns an die For-Schleife zu gewöhnen) ne eigentlich relativ einfache Aufgabe bekommen.
Ich hoffe ich kann mich richtig dran errinern wie sie hieß^^
Wir sollten mit der FOR-Schleife herrausfinden wie viele Zahlen zwischen zwei Zahlen die man eingeben kann vorhanden sind. So ODER so ähnlich.
Is ja auch nich viel Schreibtext aber mir fehlt das entscheidene Zwischenteil :
procedure TForm1.Button1Click(Sender: TObject);
var zahl1,zahl2,a:integer;
begin
|
All times are GMT +1. The time now is 15:48.
|
|
![[HILFE] If-Schleife](https://www.elitepvpers.com/forum/iconimages/autoit/hilfe-if-schleife_ltr.gif){kind=small}
