by newsak2005 13/06/11, 11:55 pm
l3adxl3oy พิมพ์ว่า:ก็ไม่เชิงคับ ที่ผมต้องการก็ประมาณว่า มี inputbox ขึ้้นมาแล้วประมาณ 3 วิให้มันกด OK เองอัตโนมัติ
แล้วส่วน ข้อความที่จะใส่ใน inputbox นั้นผมก็จะไปใส่เงื่อนไขทีหลังอีกทีอะคับ เนื่องจากถ้าไม่กด OK ข้อความนั้นๆมันจะไม่ถูกเก็บค่าใน inputbox ผมเข้าใจถูกไหมคับ
ลองกับโค๊ดนี้ดูก่อนก็แล้วกัน เดี๋ยวเขียนมาให้ทดลองอีกโปรแกรมนึง.
- Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 195, 98, -1, -1)
$Input1 = GUICtrlCreateInput("", 48, 24, 129, 21)
$Label1 = GUICtrlCreateLabel("Input:", 16, 24, 31, 17)
$Label2 = GUICtrlCreateLabel("Output:", 16, 64, 39, 17, _
BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Input2 = GUICtrlCreateInput("", 56, 64, 121, 21)
GUISetState(@SW_SHOW)
AdlibRegister('_Timer', 10000) ;delay 10.sec
Do
Sleep(10)
Until GUIGetMsg() = -3
Func _Timer()
GUICtrlSetData($Input2, GUICtrlRead($Input1)) ;auto comment very 10.sec
EndFunc
------------------------------------------------------------------------
Use GUICtrlSetState() Focus to button and send enter.
- Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$title = 'Form1'
$Form1 = GUICreate($title, 200, 150, -1, -1)
WinSetOnTop($title, "", 1)
$Input1 = GUICtrlCreateInput("", 48, 24, 129, 21)
$Label1 = GUICtrlCreateLabel("Input:", 16, 24, 31, 17)
$Label2 = GUICtrlCreateLabel("Output:", 10, 64, 39, 17, _
BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Input2 = GUICtrlCreateInput("", 48, 64, 129, 21)
$Button1 = GUICtrlCreateButton("OK", 20, 105, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Clear", 105, 105, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
WinWaitActive($Form1, "", 1)
Send("T")
Sleep(500)
Send("h")
Sleep(500)
Send("e ")
Sleep(500)
Send("M")
Sleep(500)
Send("a")
Sleep(500)
Send("t")
Sleep(500)
Send("r")
Sleep(500)
Send("i")
Sleep(500)
Send("x ")
Sleep(500)
Send("b")
Sleep(500)
Send("y ")
Sleep(500)
Send("N")
Sleep(500)
Send("e")
Sleep(500)
Send("o")
GUICtrlSetState($Button1, $GUI_FOCUS)
Sleep(2000)
Send("{ENTER}")
Do
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
Sleep(2000)
GUICtrlSetData($Input2, GUICtrlRead($Input1))
Case $Button2
GUICtrlSetData($Input1, '')
GUICtrlSetData($Input2, GUICtrlRead($Input1))
EndSwitch
Until $nMsg = $GUI_EVENT_CLOSE
แก้ไขล่าสุดโดย newsak2005 เมื่อ 14/06/11, 05:29 am, ทั้งหมด 2 ครั้ง