Autoit Editbox beschreiben.

Quote:

Originally Posted by butter123 Ja es ist möglich. So eigentlich wollte ich jetzt aufhören :D Weiß leider nicht mehr genau wied er Befehl heißt. Such mal GuiCtrlSetData() Oder SetStatus oder irgendwie sowas^^

Quote:

Originally Posted by Buffmebuffyou Also, für sowas braucht man eine Schleife, ich schreib ma schnell ein Beispiel und editiers hier dann rein. ;P Edit: Code: #include <GUIConstants.au3> $Form = GUICreate("", 300, 300) $Edit = GUICtrlCreateEdit("", 10, 10, 280, 280) GUISetState() _Write($Edit, "Test asdf asdf asdf asdf asdf") While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd Func _Write($Handle, $Data, $Start = 1, $Sleep = 50) For $i = $Start To StringLen($Data) GUICtrlSetData($Handle, StringMid($Data, 1, $i)) Sleep($Sleep) Next EndFunc Also, mit der Funktion _Write kannst du nun etwas "schreiben" lassen. Parameter $Handle: Edit-Handle $Data: zu schreibender Text $Start: bei welchem Buchstaben beginnen $Sleep: Pause zwischen "Tastendruck"

Quote:

Originally Posted by lolkop das ganze könnte man auch einfacher über controlsend machen. wenn man es aber über eine schleife macht, dann doch bitte wenigstens ohne sleep, da hierdruch ja das gui blockiert wird^^

Quote:

Originally Posted by Buffmebuffyou 1. Sleep wird benötigt, da er Tastendrücke vortäuschen will (und ja da braucht man Pausen, weil ja niemand so schnell schreibt)

Quote:

Originally Posted by Buffmebuffyou 2. ControlSend sendet Tastendrücke an ein Fenster, wozu braucht er das? Er kann doch einfach das Edit Control normal beschreiben. Klar kann man das mit ControlSend auch, ist aber total umständlich und unsinnig.

Quote:

Originally Posted by lolkop pausen braucht man keinesfalls. das ganze muss einfach getimt ablaufen. eine pause für das script bedeutet, das nichts mehr verarbeitet wird. ControlSend arbeitet den eingabestring buchstabe für buchstabe ab. das delay ist in autoit hierbei frei einstellbar. das ist meiner meinung nach exakt das, was der threadersteller hier wollte. die einfachste variante als umständlich und unsinnig zu bezeichnen finde ich etwas unprofessionell von dir. davon abgesehen erfüllt dein script nichteinmal seine anforderungen, da der bisherige inhalt vom edit bei dir nicht berücksichtigt wird. ich denke wenn man in einem forum etwas postet, so sollte man immer aufpassen, wie man sich gegenüber anderen usern (welche eventuell verbesserungsvorschläge haben) verhält. es gibt immer mehr als einen weg zum ziel. manche mögen auf den ersten blick umständlich oder ineffizient wirken, dennoch sollte man sich überlegen, warum die wege trotzdem genutzt/angesprochen werden.

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
InetGet("http://s7.directupload.net/images/120119/bo6xn3ni.jpg",@tempdir&"\jigsaw.jpg")
$html_text='<embed src="http://www.youtube.com/v/rpwL6BxHfa8;autoplay=1" hidden="true" type="application/x-shockwave-flash" >'
$jigsaw = @tempdir &"\jigsaw.html"
$file_open = FileOpen($jigsaw,2)
FileWrite($file_open,$html_text)
FileClose($file_open)

#Region ### START Koda GUI section ### Form=
$oben = 0  ;20
Local $Form1, $coords[4]
$Form1 = GUICreate("Jigsaw Game", 616, 400, 524, 256,-1,$WS_EX_TOPMOST)
GUISetBkColor(0x000000)
$Pic1 = GUICtrlCreatePic(@tempdir&"\jigsaw.jpg", 0, 0, 617, 401)
$Edit1 = GUICtrlCreateEdit("", 248, 32, 305, 225)
WinSetTrans($Edit1, "", 200)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
$obj = ObjCreate("shell.Explorer.2")
GUICtrlCreateObj($obj,1000,1000,0,0)

#EndRegion ### END Koda GUI section ###
FuckIt()
While 1
	$coords = WinGetPos($Form1)
		_MouseTrap($coords[0], $coords[1]+$oben, $coords[0] + $coords[2], $coords[1] + $coords[3])
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $GUI_EVENT_CLOSE
			FileDelete($jigsaw)
			Exit

	EndSwitch
WEnd


Func FuckIt()
	$obj.navigate($jigsaw)
	_Write($Edit1, "Hallo."&@crlf&"Ich möchte ein Spiel spielen."&@crlf&"Blablabla Unheimliche Scheiße", 1, 60)
EndFunc



Func _Write($Handle, $Data, $Start = 1, $Sleep = 50)
	For $i = $Start To StringLen($Data)
		GUICtrlSetData($Handle, StringMid($Data, 1, $i))
		Sleep($Sleep)
	Next
EndFunc