VB實現自動按鍵功能_《VB語言專區》_外掛聯合國討論區免費下載試用

外掛聯合國討論區 › 《外掛研究學苑》 › 《VB語言專區》 ›

17663

發佈主題

wen0116

wen0116 發表於 2009-3-13 21:52:33 | 只看該作者回帖獎勵

|倒序瀏覽 |

Dim i%
Private Sub Command1_Click()

If Text1.Text = "" Then

Call MsgBox("TEXT內容不能為空！", vbExclamation, "提示")

Else

i = i + 1

If i Mod 2 = 0 Then

Timer1.Enabled = False: Command1.Caption = "開始"

Else

Timer1.Enabled = True: Command1.Caption = "停止"

End If

End If
End Sub
Private Sub Form_Load()

Me.Caption = "SendKeys": Command1.Caption = "開始": Text1 = "" _

: Timer1.Interval = 1000: Timer1.Enabled = False
End Sub
Private Sub Text1_Change()

If Len(Text1) > 1 Then Text1 = Left$(Text1, 1)
End Sub
Private Sub Timer1_Timer()

SendKeys "{" & Text1 & "}"
End Sub

收藏0 分享讚0 幹0 分享分享

回覆

使用道具舉報

Goldenwolf 2009-4-1 09:48:28

這語法好像蠻簡單的謝謝大大提供讓我淺顯易懂的程式碼!!

回覆

使用道具舉報

jamany 2009-6-4 18:26:35

感恩感恩感恩推推推推推推推推

回覆

使用道具舉報

leo5000 2009-6-16 03:52:01

請問一下 SendKeys 的格式是怎樣的？
是ASCII code還是其他字？

回覆

使用道具舉報

5層

wwwkizzz 2009-6-23 23:30:30

簡易的鍵盤模擬嗎@@
那應該是需要遊戲在第一窗口囉@@...

回覆

使用道具舉報

6層

隨火 2009-9-1 10:07:51

哦原來是這樣阿謝謝你無私的分享熱情的教學

回覆

使用道具舉報

7層

mossjss 2009-9-9 16:13:43

SendKeys "{" & Text1 & "}"
這個指令能講解下用途嗎?

回覆

使用道具舉報

pickup 該用戶已被刪除	8層 pickup 2009-9-9 20:48:02 提示: 作者被禁止或刪除內容自動屏蔽
pickup 該用戶已被刪除
	回覆使用道具舉報