|
You last visited: Today at 12:58
Advertisement
Brauche wieder Hilfe beim Coden :(
Discussion on Brauche wieder Hilfe beim Coden :( within the AutoIt forum part of the Coders Den category.
11/22/2010, 15:37
|
#1
|
elite*gold: 0 
Join Date: Aug 2010
Posts: 39
Received Thanks: 0
|
Brauche wieder Hilfe beim Coden :(
Hi
Ich will ein Programm selbst entwickeln, wo man mit Ok immer eine Sache weiter kommt und mit Abbrechen, sich das " Programm " schließt.
Doch bei mir startet das Programm erst garnicht. Irgendetwas mache ich falsch.
PHP Code:
$M1 = MsgBox(1,"","Willst du mit mir spielen?")
If $M1 = 1 Then
$M2 = MsgBox(1,"","Bist du dir auch ganz sicher?")
Else Exit
If $M2 = 1 Then
$M3 = MsgBox(1,"","Ok, dann lass uns spielen! *Muhahahaha*")
Else Exit
If $M3 = 1 Then
$M4 = MsgBox(1,"","so... dann fangen wir mal an")
Else Exit
If $M4 = 1 Then
$M5 = MsgBox(1,"","Jetzt fällt mir nix mehr ein -.-")
Else Exit
If $M5 = 1 Then
$M6 = MsgBox(1,"","Drück bitte auf Abbrechen!")
Else Exit
If $M6 = 1
$M7 = MsgBox(1,"","So lange hat noch keiner mit mir ´geredet´")
Else Exit
If $M7 = 1
$M8 = MsgBox(1,"","Ok, wenne meinst")
Else Exit
If $M8 = 1 Then
$M9 = MsgBox(1,"","Du hast noch 5 Chancen, aufzuhören... Danach gibt es nur noch den Button OK")
Else Exit
If $M9 = 1 Then
$M10 = MsgBox(1,"","...noch 4 Chancen")
Else Exit
If $M10 = 1 Then
$M11 = MsgBox(1,"","...noch 3 Chancen")
Else Exit
If $M11 = 1 Then
$M12 = MsgBox(1,"","...noch 2 Chancen")
Else Exit
If $M13 = 1 Then
$M14 = MsgBox(1,"","...noch 1 Chance")
Else Exit
If $M14 = 1 Then
While $M14 <5
MsgBox(0,"OPFER!!!")
WEnd
Else Exit
EndIf
|
|
|
|
11/22/2010, 15:49
|
#2
|
elite*gold: 8
Join Date: Apr 2009
Posts: 2,977
Received Thanks: 855
|
Zu wenige EndIf´s
|
|
|
|
|
11/22/2010, 15:49
|
#3
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
du musst jedes if natürlich auch wieder abschließen...
Code:
If MsgBox(1,"","Willst du mit mir spielen?") = 1 Then
If MsgBox(1,"","Bist du dir auch ganz sicher?") = 1 Then
If MsgBox(1,"","Ok, dann lass uns spielen! *Muhahahaha*") = 1 Then
If MsgBox(1,"","so... dann fangen wir mal an") = 1 Then
If MsgBox(1,"","Jetzt fällt mir nix mehr ein -.-") = 1 Then
If MsgBox(1,"","Drück bitte auf Abbrechen!") = 1 Then
If MsgBox(1,"","So lange hat noch keiner mit mir ´geredet´") = 1 Then
If MsgBox(1,"","Ok, wenne meinst") = 1 Then
If MsgBox(1,"","Du hast noch 5 Chancen, aufzuhören... Danach gibt es nur noch den Button OK") = 1 Then
If MsgBox(1,"","...noch 4 Chancen") = 1 Then
If MsgBox(1,"","...noch 3 Chancen") Then
If MsgBox(1,"","...noch 2 Chancen") = 1 Then
If MsgBox(1,"","...noch 1 Chance") = 1 Then
While 1
MsgBox(0,"","OPFER!!!")
WEnd
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
|
|
|
|
|
11/22/2010, 15:51
|
#4
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
|
PHP Code:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
$M1 = MsgBox(1, "", "Willst du mit mir spielen?")
If $M1 = 1 Then
$M2 = MsgBox(1, "", "Bist du dir auch ganz sicher?")
Else
Exit
EndIf
If $M2 = 1 Then
$M3 = MsgBox(1, "", "Ok, dann lass uns spielen! *Muhahahaha*")
Else
Exit
EndIf
If $M3 = 1 Then
$M4 = MsgBox(1, "", "so... dann fangen wir mal an")
Else
Exit
EndIf
If $M4 = 1 Then
$M5 = MsgBox(1, "", "Jetzt fällt mir nix mehr ein -.-")
Else
Exit
EndIf
If $M5 = 1 Then
$M6 = MsgBox(1, "", "Drück bitte auf Abbrechen!")
Else
Exit
EndIf
If $M6 = 1 Then
$M7 = MsgBox(1, "", "So lange hat noch keiner mit mir ´geredet´")
Else
Exit
EndIf
If $M7 = 1 Then
$M8 = MsgBox(1, "", "Ok, wenne meinst")
Else
Exit
EndIf
If $M8 = 1 Then
$M9 = MsgBox(1, "", "Du hast noch 5 Chancen, aufzuhören... Danach gibt es nur noch den Button OK")
Else
Exit
EndIf
If $M9 = 1 Then
$M10 = MsgBox(1, "", "...noch 4 Chancen")
Else
Exit
EndIf
If $M10 = 1 Then
$M11 = MsgBox(1, "", "...noch 3 Chancen")
Else
Exit
EndIf
If $M11 = 1 Then
$M12 = MsgBox(1, "", "...noch 2 Chancen")
Else
Exit
EndIf
If $M12 = 1 Then
$M13 = MsgBox(1, "", "...noch 1 Chance")
Else
Exit
EndIf
If $M13 = 1 Then
While $M13 < 5
MsgBox(0, "", "OPFER!!!")
WEnd
Else
Exit
EndIf
|
|
|
|
|
11/22/2010, 15:52
|
#5
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Code:
Dim $aFragen[14] = ["Willst du mit mir spielen?", _
"Bist du dir auch ganz sicher?", _
"Ok, dann lass uns spielen! *Muhahahaha*", _
"so... dann fangen wir mal an", _
"Jetzt fällt mir nix mehr ein -.-", _
"Drück bitte auf Abbrechen!", _
"So lange hat noch keiner mit mir ´geredet´", _
"Ok, wenne meinst", _
"Du hast noch 5 Chancen, aufzuhören... Danach gibt es nur noch den Button OK", _
"...noch 4 Chancen", _
"...noch 3 Chancen", _
"...noch 2 Chancen", _
"...noch 1 Chance", _
"OPFER!!!"]
For $i = 0 To UBound($aFragen) - 2
$iMsg = MsgBox(1, "", $aFragen[$i])
If $iMsg <> 1 Then Exit
Next
While 1
MsgBox(0, "", $aFragen[13])
WEnd
Bitte.
|
|
|
|
|
11/22/2010, 15:56
|
#6
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
|
im minuten abstand jeweils eine lösung 
|
|
|
|
|
11/22/2010, 15:58
|
#7
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Wobei meine die Kürzeste ist, wenn auch die, die er nicht versteht :P
|
|
|
|
|
11/22/2010, 16:05
|
#8
|
elite*gold: 0
Join Date: Jan 2010
Posts: 360
Received Thanks: 249
|
Quote:
Originally Posted by pinguin94
Wobei meine die Kürzeste ist, wenn auch die, die er nicht versteht :P
|
naja, wir wollen hier mal keinen runtermachen..
dann erklärs ihm lieber.
außerdem hast du bei deiner umsetzung die jeweilige exit
option vergessen.
|
|
|
|
|
11/22/2010, 16:17
|
#9
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Hatte ich vorher nicht, bis mir jetzt gerade auffiel, dass ich einen falschen Style verwendet habe.
Ich pass es an.
Außerdem mach ich hier keinen herunter. Es ist doch die Wahrheit -.-
Done
|
|
|
|
|
11/22/2010, 17:21
|
#10
|
elite*gold: 0
Join Date: Aug 2010
Posts: 39
Received Thanks: 0
|
jo... das ist die Wahrheit^^ Ich versteh deins wirklich nicht 
Aber trotzdem danke an alle 
|
|
|
|
 |
Similar Threads
|
Brauche Hilfe beim Coden
11/20/2010 - AutoIt - 10 Replies
Hi
Ich fange gerade an mich mit AutoIt zu beschäftigen.( und Koda )
Ich bin dabei einen mini-Taschenrechner zu machen^^
Es kommen natürlich noch Optionen dazu;)
Ich hab jetzt 3 Fragen :
1) Wie kann ich den Code kürzen?
2) Was muss ich machen, um das so einzustellen, dass ich, wenn ich auf "Abbrechen" klicke ( beim 2. Fenster), zum ersten Fenster gelange, und sich das Programm nicht ganz schließt ?
3) Was muss ich machen, damit in der Input-Box nicht Input1 steht, sondern 0 ?
#include...
|
Hilfe beim Coden vom 4Story Bot
11/05/2010 - 4Story - 9 Replies
Ich will einen 4Story Bot coden in VB08, aber wenn ich
My.Computer.Keyboard.sendkeys("1")'1=An griff geht das net, why ever...!
Welche Anweisung muss ich sonst nehmen???
Gibt es ein Tutorial mit AutoIt ?
Oder in VB08?
Danke im Vorraus
|
Hilfe beim coden
04/22/2010 - Kal Online - 6 Replies
Ich weiss das es hier genug leecher und sonstiges gibt, aber vorerst gehöre ich nicht zu denen. Da hier im board ja viele nen Kalbot haben wollte ich fragen ob sich irgendjemand mit mir in verbindung setzen kann und mir helfen kann einen bot zu coden oder für den anfang etwas leichteres- wie gesagt ich erwarte nur hilfe. Ich werde es selbst versuchen weil mich sowas schon seit langem fasziniert. Wäre wirklich freundlich
mfg PuppetMaster : )
|
Hilfe beim Coden
03/27/2010 - WarRock - 11 Replies
Hallo,
Ich habe gerade ein D3D Hack gecodet!
Leider ist der immer Detected..
Kann mir jemand helfen oder kann mir jemand einen empfehlen, der mir dabei helfen könnte?
Danke im Voraus.
|
Brauche hilfe beim coden !!
07/09/2008 - WarRock - 1 Replies
Kann mir jemand mal bitte alle aktuellen addys zum coden sagen :confused: ??
Danke schonmal im voraus !!
|
All times are GMT +1. The time now is 12:58.
|
|
