Hallo,
beschäftige mich jetzt seit ca. 3 Stunden mit Autoit und bin sowas von begeistert!!!
Autoit Top!
Community Top!
Und mein erstes kleines Programm auch Top
Erfassung von Personenbezogene Daten:
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Fileversion=1
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Eingabeformular", 650, 212, 277, 397)
$Label1 = GUICtrlCreateLabel("Personenbezogene Datenangabe", 24, 8, 290, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Name = GUICtrlCreateInput("", 24, 72, 193, 21)
$Nachname = GUICtrlCreateInput("", 24, 120, 193, 21)
$Label2 = GUICtrlCreateLabel("Name", 24, 48, 32, 17)
$Label3 = GUICtrlCreateLabel("Nachname", 24, 96, 56, 17)
$Label4 = GUICtrlCreateLabel("Alter", 360, 48, 25, 17)
$SliderAlter1 = GUICtrlCreateSlider(288, 72, 265, 25)
$LabelAlter = GUICtrlCreateLabel("0", 408, 48, 11, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Jahre", 440, 48, 30, 17)
$SliderGewicht = GUICtrlCreateSlider(293, 143, 265, 25)
$Label6 = GUICtrlCreateLabel("Gewicht", 350, 117, 43, 17)
$LabelGewicht = GUICtrlCreateLabel("0", 410, 117, 11, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Kg", 444, 117, 17, 17)
$Button1 = GUICtrlCreateButton("Erstellen", 32, 152, 121, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;SLIDER ALTER
Case $SliderAlter1
GUICtrlSetData($LabelAlter,GUICtrlRead($SliderAlter1))
;SLIDER GEWICHT
Case $SliderGewicht
GUICtrlSetData($LabelGewicht,GUICtrlRead($SliderGewicht))
Case $Button1
Run("notepad.exe")
WinWait("Unbenannt - Editor")
DataSend()
EndSwitch
WEnd
Func DataSend()
Send("ANGABEN ZUR PERSON"&@CRLF&@CRLF)
Sleep(150)
Send("Name: "&GUICtrlRead($Name))
Send(@CRLF)
Send("Nachname:"&GUICtrlRead($Nachname))
Send(@CRLF)
Send("Alter:"&GUICtrlRead($SliderAlter1))
Send(@CRLF)
Send("Gewicht:"&GUICtrlRead($SliderGewicht))
EndFunc
Und es Funktioniert genau wie ich es mir vorgestellt habe, einfach nur genial