ผมอยากได้ ประมาณว่า เราสร้าง input สัก 1 ช่อง สมมติเราพิมเลข 100 ละเราสร้าง hotkey เช่นเป็น F1 แล้วให้แบบ เรากด F1 ครั้งแรก คือพืม 100 ครั้งที่สองพิม 101 ครั้ง 3 พิม 102 กดครั้งแต่ไปก็พิม 103 104 105 ไปเรื่อยๆ รบกวนหน่อยนะครับ
3 posters
รบกวนช่วยเขียนสคริป เกี่ยวกับ การ send เลขแบบออโต้หน่อยสิครับ
soziie- PSsix Member Class II
จำนวนข้อความ : 37
ความนิยม : 1
เข้าร่วมเมื่อ : 10/12/2011
oneforalls- มือใหม่เพิ่งสมัคร
-
จำนวนข้อความ : 4
ความนิยม : 5
เข้าร่วมเมื่อ : 07/04/2014
สร้าง form + input ด้วย Koda
กำหนด hotkey
ประกาศตัวแปร แบบ global เพื่ออ้างอิงถึงได้จากทุก ๆ ที่ (function)
สร้าง function
ตรวจสอบตัวแปรที่ประกาศ ถ้ายังไม่มีค่าให้เท่ากับ 100 มิฉะนั้น +1
เอาค่าจากตัวแปรใส่ใน input
* รบกวนพยายามด้วยตัวเองมากกว่านี้ครับ
กำหนด hotkey
ประกาศตัวแปร แบบ global เพื่ออ้างอิงถึงได้จากทุก ๆ ที่ (function)
สร้าง function
ตรวจสอบตัวแปรที่ประกาศ ถ้ายังไม่มีค่าให้เท่ากับ 100 มิฉะนั้น +1
เอาค่าจากตัวแปรใส่ใน input
* รบกวนพยายามด้วยตัวเองมากกว่านี้ครับ
Arm- PSsix Member Super Class III
-
จำนวนข้อความ : 268
ความนิยม : 54
เข้าร่วมเมื่อ : 31/03/2011
อายุ : 26
ลองเอาไป Apply ดูครับ
- Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $first = 0, $num
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Running Number", 156, 95, -1, -1)
$Input1 = GUICtrlCreateInput("", 16, 16, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
$Label1 = GUICtrlCreateLabel("Press F1", 56, 56, 44, 17)
GUISetState(@SW_SHOW)
HotKeySet("{F1}", "num")
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func num()
If GUICtrlRead($Input1) = "" Then
ToolTip("Input field is blank!!")
Sleep(600)
ToolTip("")
Else
If Not ProcessExists("notepad.exe") Then Run("notepad.exe")
WinWaitActive("[CLASS:Notepad]")
If $first = 0 Then
$num = GUICtrlRead($Input1)
$first = 1
EndIf
Send($num & @CRLF)
$num += 1
EndIf
EndFunc
|
|