Quote:
Originally Posted by WeezyF940
omg so schlau bin ich nun auch wieder, lieber die frage genau durchlesen, dann posten;D
thx
|
Was für ne Idee!
Also das was du willst, ist Input.
Du kannst im GUI einfach ein Inputcontrol erstellen, und dem Programm sagen, das Inputcontrol ist eine Variable.
Das sieht wie folgt aus:
$variable1 = GUICtrlCreateInput("", 165, 8, 120)
$variable1
die Variable (alles was mit $ beginnt, ist eine Variable / String / Array)
GUICtrlCreateInput
Befehl um im GUI ein Input Ctrl. zuerstellen
""
Defaulttext- Text der im Feld steht, wenn man noch nichts eingegeben hat.
165, 8, 120
Platzierung und länge des Control's (in der Hilfe nachlesen welches welches ist)
Ich habe damals so einen Bot gecodded den du codden willst, und habe die Beschreibungen hinzugefügt.
Also falls du dir leichter tust wenn du dich an meinem Code orientierst:
Bitte schön.
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: SuperZim
Script Function:
NosTale-Potter / Textwriter
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <GUIConstantsEx.au3> ;GUI Befehle im Allgemeinen
HotKeySet("{ESC}", "Terminate") ;Möglichkeit Script zu beenden
HotKeySet("{PAUSE}", "Paused")
GUICreate("Tastendrücker", 330, 125) ;Ein Fenster / Grafische Benutzeroberfläche erstellen
GUICtrlCreateLabel("Taste die ausgeführt werden soll", 8, 10) ;In diesem Fenster einen Unterpunkt / Label erstellen
$key1 = GUICtrlCreateInput("", 165, 8, 120) ; Der Variable $text1 wird durch ein Eingabe im Fenster ein Wert zugewiesen
GUICtrlCreateLabel("Time (Sekunden)", 8, 44) ; neues Label
$time1 = GUICtrlCreateInput("", 90, 40, 120) ; der Variable $text 2 wird ....
$startbutton = GUICtrlCreateButton("Start", 220, 37, 60) ; Startknopf
GUICtrlCreateLabel("ESC= Programm beenden, PAUSE= Programm pausieren. by fr0zen", 5, 110)
GUISetState(@SW_SHOW) ; Befehl für "Fenster anzeigen"
$count = 0
Global $Paused
Func Terminate () ;Code für Script beenden (Zusammenspiel mit HotKeySet("{ESC}", "Terminate")
Exit 0
EndFunc
Func Paused ()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
While 1 ; Programmstart
$msg = GUIGetMsg() ;aus dem Fenster Informationen holen
Select ;Auswahl der Möglichkeiten, die das Programm hat
Case $msg = $startbutton ;Wenn Starknopf gedrückt (Möglichkeit 1)...
If $count = 0 Then
GUICtrlSetData($startbutton, "Started")
EndIf
$send1 = GUICtrlRead($key1) ;(GUICtrlRead($text1)aus dem GUI von vorhin den Wert von $text1 lesen) tu das ...
$sleep1 = GUICtrlRead($time1);und das!
$sleep1 = $sleep1*1000 ;notwendig damit Anwender Sekunden eintragen kann
While 1
Send($send1)
Sleep($sleep1)
WEnd
Case $msg = $GUI_EVENT_CLOSE ;GUI_EVENT_CLOSE = auf Fenster schliessen klicken. Wenn getan dann...
GUIDelete() ;Fenster schliessen
ExitLoop ;Schleife verlassen
EndSelect; Auswahl Ende
WEnd
Ihr dürft ruhig auf THX klicken.
MfG Zim...