Beiträge von Schnitzel

**Schnitzel**

Zitat

also eig. nur addieren, subtrahieren, multipliezieren und dividieren

danke wie ein taschenrechner funktioniert weiß ich
ich wollte eher wissen wie deiner funktionieren soll. da du die zahlen 0-9 nur einmal hast aber 2 Inputfelder in die ein wert gesetzt werden soll.
jetz hab ich aus deiner gui einfach mal einen gebastelt. hilft dir halt jetz wenig das zu verstehen ...

Es würde zum Beispiel so funktionieren.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $in1 = True

[/autoit] [autoit][/autoit] [autoit]

#region ### START Koda GUI section ### Form=c:\users\patrik finger\form1.kxf
$Form1_1 = GUICreate("Crocojunk", 367, 326, 193, 125)
$Pic1 = GUICtrlCreatePic("croco.jpg", 0, 0, 364, 100)
$Input1 = GUICtrlCreateInput("", 8, 128, 121, 21)
$Input2 = GUICtrlCreateInput("", 232, 128, 121, 21)
$Input3 = GUICtrlCreateInput("", 160, 128, 41, 21)
$Button1 = GUICtrlCreateButton("9", 16, 160, 25, 25, 0)
GUICtrlSetFont(-1, 8, 400, 0, "Times New Roman")
$Button2 = GUICtrlCreateButton("8", 49, 160, 23, 25, 0)
$Button3 = GUICtrlCreateButton("7", 80, 160, 27, 25, 0)
$Button4 = GUICtrlCreateButton("6", 112, 160, 27, 25, 0)
$Button5 = GUICtrlCreateButton("5", 16, 192, 27, 25, 0)
$Button6 = GUICtrlCreateButton("4", 48, 192, 27, 25, 0)
$Button7 = GUICtrlCreateButton("3", 80, 192, 27, 25, 0)
$Button8 = GUICtrlCreateButton("2", 112, 192, 27, 25, 0)
$Button9 = GUICtrlCreateButton("1", 16, 224, 27, 25, 0)
$Button10 = GUICtrlCreateButton("0", 48, 224, 27, 25, 0)
$Button11 = GUICtrlCreateButton(",", 80, 224, 27, 25, 0)
$Button12 = GUICtrlCreateButton("addieren", 160, 160, 75, 25, 0)
$Button13 = GUICtrlCreateButton("dividieren", 160, 192, 75, 25, 0)
$Button14 = GUICtrlCreateButton("multipliezieren", 160, 224, 75, 25, 0)
$Button15 = GUICtrlCreateButton("subtrahieren", 248, 160, 75, 25, 0)
$Input4 = GUICtrlCreateInput("", 120, 296, 121, 21)
$Button16 = GUICtrlCreateButton("Berechnen", 112, 256, 139, 25, 0)
$Label1 = GUICtrlCreateLabel("Ergebnis>>", 24, 296, 72, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1, $Button2, $Button3, $Button4, $Button5, $Button6, $Button7, $Button8, $Button9, $Button10
If $in1 Then
GUICtrlSetData($Input1, GUICtrlRead($Input1) & GUICtrlRead($nMsg))
Else
GUICtrlSetData($Input2, GUICtrlRead($Input2) & GUICtrlRead($nMsg))
EndIf
Case $Button12
$in1 = False
GUICtrlSetData($Input3, "+")
Case $Button13
$in1 = False
GUICtrlSetData($Input3, "/")
Case $Button14
$in1 = False
GUICtrlSetData($Input3, "*")
Case $Button15
$in1 = False
GUICtrlSetData($Input3, "-")
Case $Button16
GUICtrlSetData($Input4, Execute(GUICtrlRead($Input1) & GUICtrlRead($Input3) & GUICtrlRead($Input2)))
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "")
$in1 = True
EndSwitch
WEnd

[/autoit]

edit: minifehler verbessert

**Schnitzel**

send hat noch einen 2ten parameter. damit wird dann exakt der text gesendet den du eingibst.
einfach die flag auf 1 setzten

[autoit]

Send ( "keys" [, flag] )

[/autoit]

**Schnitzel**

Zitat

@Ideas2code = faaaaaalsch

tja Jens wenn wir dich jetz alle Jens nennen dann bist du für uns eben der Jens

**Schnitzel**

Mein Standardspruch:

Herzlich Willkommen und viel Spaß im Forum

Ps: Habt ihr echt gute Metaldiscos bei euch in der gegend?

**Schnitzel**

jup eben weil man dll's nicht einfach auslesen kann. was auch gut so ist.

also entwerder bei msdn nachforschen oder denn programmierer um quellcode fragen oder die dokumentation suchen

**Schnitzel**

sie dir mal diese threads dazu an

[ offen ] Dll´s auslesen
DLLs

**Schnitzel**

Zitat

Hast denen Code nach meinem Post ja auch nochmal editiert ;).

das einige was er verändert hat war das wo auch edit steht^^

[autoit]

;Das wäre dann die MSG-Box (EDIT) MsgBox (1,"Auswertung", "Du hast"&$HierKommtNameEgalHin"/3 Vokabeln richtig!")

[/autoit]

und das da n fehler kommt wenn es nicht auskommentiert ist is ja klar weils die $HierKommtNameEgalHin noch nicht gab
achja und wegen dem & das dannach fehlt

Zitat

der hat soviele Syntaxfehler das da im Grunde aktuell garnichts geht.

das trifft auf den offenen taschenrechnerthread zu

**Schnitzel**

ui sry, aber ich denke da fehlt an allen ecken was^^

beschreib doch mal mit worten was der rechner machen soll. also z.b. wenn man erst auf 3 drückt dann addieren und dann auf 5

**Schnitzel**

ich glaube du meinst sowas in der art:

Spoiler anzeigen

[autoit]

;Vokabeltrainer V1.0

[/autoit] [autoit][/autoit] [autoit]

$richtig = 0
Global $Vokabel1 = InputBox("Hallo", 'Was heisst "Hallo" auf Englisch?'), $Vokabel2 = InputBox("Tschüss", 'Was heisst "Tschüss" auf Englisch?'), $Vokabel3 = InputBox("Abend", 'Was heisst "Abend" auf Englisch?')
Global $VokabelRichtig1 = "hello", $VokabelRichtig2 = "bye", $VokabelRichtig3 = "evening"

[/autoit] [autoit][/autoit] [autoit]

If $Vokabel1 <> $VokabelRichtig1 Then
MsgBox(0, "Falsch", "Lern beim nächsten mal besser!")
Else
MsgBox(0, "Richtig", "Gut gemacht!")
$richtig += 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $Vokabel2 <> $VokabelRichtig2 Then
MsgBox(0, "Falsch", "Lern beim nächsten mal besser!")
Else
MsgBox(0, "Richtig", "Gut gemacht!")
$richtig += 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $Vokabel3 <> $VokabelRichtig3 Then
MsgBox(0, "Falsch", "Lern beim nächsten mal besser!")
Else
MsgBox(0, "Richtig", "Gut gemacht!")
$richtig += 1
EndIf
MsgBox(1, "Auswertung", "Du hast" & $richtig & "/3 Vokabeln richtig!")

[/autoit]

**Schnitzel**

ui. Quellcode bitte immer in textform anhängen.
Sonst kann man ja nicht damit arbeiten

Was noch rein muss wissen wir jetzt nicht so genau. Die Frage ist eher was willst du noch rein haben?

**Schnitzel**

Zitat von SEuBo

fast richtig. nur dass StringBetween nen Array zurückgibt.

oh ja klar. in der eile wiedermal...

und garkeine regex lösung SEuBo?^^

**Schnitzel**

öhm so?

[autoit]

#Include <String.au3>
$string = "http://t1.gstatic.com/images?q=tbn:JLfF4zEkpN91rM:http://www.filipinofilipino.com/wp-content/upl…halfway-bep.jpg"
$between = _Stringbetween($string, "", "")
if isarray($between) then
msgbox(0,"",$between[0])
endif

[/autoit]

**Schnitzel**

@denno:
nich alles bei dem gilde pvp oder ähnliches drinsteht ist ein bot

@all:
kenne das problem von kev von pm's und ähnlichem.
es handelt sich 100% um keinen bot. darf also supportet werden

**Schnitzel**

ok hier mal eine recht simple aber effektive Parameteranalyse:
die reihenfolge der parameter ist egal.
falsche parameter werden nicht beachtet also sowas wie /xy wird einfach übergangen

Spoiler anzeigen

[autoit]

Local $password, $file, $domain, $script

[/autoit] [autoit][/autoit] [autoit]

If IsArray($CMDLINE) Then
For $i = 1 To $CMDLINE[0]
Switch $CMDLINE[$i]
Case "/p"
If StringLeft($CMDLINE[$i + 1], 1) = "/" Then
MsgBox(0,"Fehler", "Es wurde kein Passwort angegeben")
ExitLoop
Else
$password = $CMDLINE[$i + 1]
$i += 1
EndIf
Case "/f"
If (StringLeft($CMDLINE[$i + 1], 1) = "/") Or Not FileExists($CMDLINE[$i + 1]) Then
MsgBox(0,"Fehler", "Es wurde keine gültige Datei angegeben")
ExitLoop
Else
$file = $CMDLINE[$i + 1]
$i += 1
EndIf
Case "/d"
If StringLeft($CMDLINE[$i + 1], 1) = "/" Then
MsgBox(0,"Fehler", "Es wurde keine Domäne angegeben")
ExitLoop
Else
$domain = $CMDLINE[$i + 1]
$i += 1
EndIf
Case "/s"
If StringLeft($CMDLINE[$i + 1], 1) = "/" Then
MsgBox(0,"Fehler", "Es wurde kein Passwort angegeben")
ExitLoop
Else
$script = $CMDLINE[$i + 1]
$i += 1
EndIf
EndSwitch
Next
EndIf

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0,"Passwort", $password)
MsgBox(0,"Passwort", $file)
MsgBox(0,"Passwort", $domain)
MsgBox(0,"Passwort", $script)

[/autoit]

**Schnitzel**

Zitat von Secret1994

Schnelle unkomplizierte antwort Pefekt , genau dass das ich suchte

*g* freut mich. Immer wieder gerne

**Schnitzel**

sowas in der art?

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 32, 8, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Button2", 32, 64, 75, 25, 0)
$Input1 = GUICtrlCreateInput("Input1", 16, 96, 121, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 24, 120, 97, 17)
$Group1 = GUICtrlCreateGroup("Group1", 8, 48, 153, 137)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Input1, $GUI_DISABLE)
GUICtrlSetState($Checkbox1, $GUI_DISABLE)
EndSwitch
WEnd

[/autoit]

**Schnitzel**

Nur als weitere Tipps:

für gewöhnlich isses imer das beste bei dem Control die Class zu verwenden.
gut es geht so auch aber mit der klasse hatte ich noch nie probleme mit dem Namen schon.

Als text muss man nicht den Controltext nehmen, sondern zitat hilfe: "Der Text des Fensters, auf das zugegriffen werden soll."
is zwar auch selten dass da was fehlschlägt aber ich würds so machen.

Spoiler anzeigen

[autoit]

do ; solange warten bis eines der fenster existiert
sleep(100)
until Winexists("Datei öffnen - Sicherheitswarnung") Or Winexists("ErstesFensterDerInstallation")

[/autoit] [autoit][/autoit] [autoit]

if Winexists("Datei öffnen - Sicherheitswarnung") then
Controlclick("Datei öffnen - Sicherheitswarnung","Der Herausgeber konnte nicht verifiziert werden.","[CLASS:Button; INSTANCE:1]")
endif

[/autoit] [autoit][/autoit] [autoit]

; hier gehts weiter mit ErstesFensterDerInstallation

[/autoit]

**Schnitzel**

Zitat

@ Schnitzel

Der Button ist Asführen ist das egal dann oder muss ich da was ändern den weiter gibs da nicht

*g* ja ich wusste blos nicht wie der button heißt, klick einfach den button damit das nächste fenster kommt^^

**Schnitzel**

bitte immer genauer beschreiben. man weiß wohl kaum was du meinst, wenn man nicht schon die anderen threads mitverfolgt hat.

aber hier eine mögliche lösung

Spoiler anzeigen

[autoit]

do ; solange warten bis eines der fenster existiert
sleep(100)
until Winexists("Sicherheitswarnung") Or Winexists("ErstesFensterDerInstallation")

[/autoit] [autoit][/autoit] [autoit]

if Winexists("Sicherheitswarnung") then
; controlclick auf weiter
endif

[/autoit] [autoit][/autoit] [autoit]

; hier gehts weiter mit ErstesFensterDerInstallation

[/autoit]

**Schnitzel**

ok so wie ich das jetzt sehe startest du das autoit-script über die dosbox oder wie?

brauchst du dos überhaupt? es würde doch auch ohne gehen oder? also rein autoit?

Beiträge von Schnitzel

Taschenrechner Hilfe

Problem mit Winwaitactive

Hey ^^

Hey ^^

[DLL datei] befehle "auslesen"

[DLL datei] befehle "auslesen"

Auswertung von Vokabeln

Taschenrechner Hilfe

Auswertung von Vokabeln

Taschenrechner Hilfe

String ab bestimmter Stelle auslesen

String ab bestimmter Stelle auslesen

GDI+ schrift auf bild ^^

Programm ausführen mit parameter

Mit button andere Buttons sperren

Mit button andere Buttons sperren

Datei öffnen - Sicherheitswarnung

Datei öffnen - Sicherheitswarnung

Datei öffnen - Sicherheitswarnung

Programm ausführen mit parameter