Autoit !?

05/23/2009 19:23 °Metin2°#1
Hallo,

Habe das hier gescripted.
Quote:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\123\Desktop\Alles\dAMON sCHWULER oRDNER\Koda\Forms\Form1meins.kxf
$Form1 = GUICreate("Form1", 446, 197, 192, 124)
$Textprogramm = GUICtrlCreateLabel("Textprogramm", 144, 16, 147, 27)
GUICtrlSetFont(-1, 12, 800, 4, "Arial Black")
GUICtrlSetColor(-1, 0x008000)
$Input1 = GUICtrlCreateInput("Hier eingeben", 88, 96, 257, 24, BitOR($ES_CENTER,$ES_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Button1 = GUICtrlCreateButton("Button1", 0, 120, 9, 1, 0)
$Start = GUICtrlCreateButton("Start", 0, 128, 441, 65, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
While 1
Sleep (1000)
Send ($Input1)
WEnd

EndSwitch
WEnd
Aber bei mir schreibt er wenn ich das Programm öffne immer
die Zahl "4" aber ich weis nicht warum könnt ihr mir bitte helfen -.-
Danke !!!
05/23/2009 19:32 TheMan!!#2
Du musst einfach "GUICtrlRead" vor Input1 schreiben ;)
Quote:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\123\Desktop\Alles\dAMON sCHWULER oRDNER\Koda\Forms\Form1meins.kxf
$Form1 = GUICreate("Form1", 446, 197, 192, 124)
$Textprogramm = GUICtrlCreateLabel("Textprogramm", 144, 16, 147, 27)
GUICtrlSetFont(-1, 12, 800, 4, "Arial Black")
GUICtrlSetColor(-1, 0x008000)
$Input1 = GUICtrlCreateInput("Hier eingeben", 88, 96, 257, 24, BitOR($ES_CENTER,$ES_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Button1 = GUICtrlCreateButton("Button1", 0, 120, 9, 1, 0)
$Start = GUICtrlCreateButton("Start", 0, 128, 441, 65, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
While 1
Sleep (1000)
Send (GUICtrlRead($Input1))
WEnd

EndSwitch
WEnd
05/23/2009 19:36 °Metin2°#3
Danke es Klappt