[VB6] การสั่งเริ่มต้นการทำงานให้กับโปรแกรม และการส่งค่าไปยัง Application

thongkorn

ตัวอย่างนี้เป็นการสั่งงานจากการเขียนโค้ดด้วย VB6 เพื่อทำการเปิดโปรแกรม Notepad จากนั้นทำการส่งค่า หรือ คีย์สโตรก (สั่งจากโค้ดแทนการกดแป้นพิมพ์ด้วยมือ) ไปให้โปรแกรม NotePad ซึ่งจะมี Method ตัวหนึ่งในการเรียกหน้าจอ Application ขึ้นมาทำงาน นั่นคือ AppActivate ...

มาดูโค้ดกันเถอะ ...

1. Option Explicit
   
2. 
   
3. Private Sub Form_Load()
   
4.     Dim i As Integer
   
5.     '// Open NotePad
   
6.     Shell "NOTEPAD.EXE", 1
   
7.     '// Focus to NotePad application.
   
8.     AppActivate "Untitled - Notepad"
   
9.     Randomize
   
10.     Sendkeys "ITEM." & vbTab & "NUMBER" & vbTab & "DATE - TIME" & vbCrLf
    
11.     For i = 1 To 20
    
12.         '// i - Number - Date
    
13.         Sendkeys _
    
14.             i & vbTab & _
    
15.             Int((Rnd * 999) + 1) & vbTab & _
    
16.             DateAdd("d", Date, Rnd * 365), True
    
17.         Sendkeys "{ENTER}"
    
18.     Next
    
19.     'End
    
20. End Sub

คัดลอกไปที่คลิปบอร์ด

โค้ดในการแก้ปัญหา SendKeys ไม่ทำงานบน Windows 8/10 ขนาด 64 บิต ...

1. '/  แก้ปัญหาฟังค์ชั่น SendKeys ใน Windows 8/10 64 บิต
   
2. Public Sub Sendkeys(Text As String, Optional Wait As Boolean = False)
   
3.     Dim WshShell As Object
   
4.     Set WshShell = CreateObject("Wscript.shell")
   
5.     WshShell.Sendkeys Text, Wait
   
6.     Set WshShell = Nothing
   
7. End Sub

คัดลอกไปที่คลิปบอร์ด