如何在 VB 中實現定時鍵盤模擬輸入 10？

在窗體中建立乙個計時器控制項，並複製以下內容。

private sub form_load()= 60000 '= 1000 等於 1send sub

private sub timer1_timer()sendkeys ""

end sub

f5重新整理鍵的效果不是很明顯，你改成f2，調整上面的時間幾秒鐘看看效果，執行點選檔案，看看檔案有沒有重新命名。

將控制項 timer1 新增到窗體中，設定 innerval=60000 並複製以下 **，然後執行。

private sub timer1_timer()sendkeys ""

end sub

之前，計時器無法實現1分鐘的延遲，所以我不相信，自己嘗試一下。

首先，定義頂部的全域性變數（dim n 為整數）。

在表單載入欄位中輸入它。

private sub form_load()= 6000

n=0end sub

然後雙擊時間控制項進入。

private sub timer1_timer()n=n+1if n>=10 then

n=0sendkeys ""

end if

end sub

**什麼，是無盡迴圈嗎？

注釋掉 b = 0;

ivate declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long

private declare function findwindowex lib "user32" alias "findwindowexa" (byval hwnd1 as long, byval hwnd2 as long, byval lpsz1 as string, byval lpsz2 as string) as long

private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long

private sub command1_click()

dim hwnd as long, thwnd as long

shell "", 2 '開啟記事本並將其最小化。

hwnd = findwindow("notepad", "無題 - 記事本") '獲取記事本控制代碼。

thwnd = findwindowex(hwnd, 0, "edit", vbnullstring) '獲取記事本控制代碼（我們寫的地方）。

sendmessage thwnd, wm_settext, 0, byval "好吧，給我加分" '將文字寫入記事本。

end sub

private declare sub mouse_event lib "智慧核心使用者32" (byval dwflags as long, byval dx as long, byval dy as long, byval cbuttons as long, byval dwextrainfo as long)

滑鼠向上和向下按前下功能。

dim a as integer

private sub command1_click()

iif（ = 結束迴圈"啟動迴圈"結束迴圈")

true iif( = 100, 0, 100) '間隔均為秒。

end sub

private sub timer1_timer()

a = a + 1

if a = 1 then

sendkeys ""

mouse_event mouseeventf_absolute or mouseeventf_leftdown, 0, 0, 0, 0 '壓。

mouse_event mouseeventf_leftdown or mouseeventf_leftup, 0, 0, 0, 0 '反彈。

sendkeys ""

sendkeys ""

elseif a = 11 then '延遲 1 秒。

sendkeys ""

sendkeys ""

elseif a = 16 then '然後延遲第二個。

sendkeys ""

elseif a = 17 then '然後延遲秒數以返回起點。

a = 0end if

end sub

鍵盤：按一次“Divine Detection ESC”

用滑鼠按一次“左鍵”

鍵盤：按一次“向下”

鍵盤：按一次“Enter”

延遲 1 秒。

鍵盤：按一次“Enter”

鍵盤：按“向上”一次

延遲秒數。 鍵盤：按一次“Enter”

延遲秒數。 建議你自己加乙個熱鍵，因為你的時間迴圈太短了，按照**，你只要按下就可以開始，如果你不能在幾秒鐘內離開VB程式，找到你想做的遊戲（反正焦點丟失了，你知道嗎？ 然後，程式將自動按“Enter”。"我把開始和結束放在乙個 command1 中，相當於按下結尾

您可以自己新增結束按鈕，也可以自己設定熱鍵，然後選中熱鍵。

具體來說，真是耽誤了。

有兩種方法可用：

1、private sub text1_keypress(keyascii as integer)

if keyascii = 9 then = "abcdefg" 'Tab 鍵的 ASCII 程式碼 = 9

end sub

2. 使用API函式：

使用 getasynckeystate 函式獲取鍵盤的操作。

getasynckeystate 函式根據虛擬金鑰表確定金鑰型別，並返回乙個 16 位二進位數，如果按下，最高位數為 1，即 -32767

private declare function getasynckeystate lib "user32" (byval vkey as long) as integer

private sub text1_keypress(keyascii as integer)

keyresult = getasynckeystate(9)

if keyresult = -32767 then = "abcdefg"

end sub

拉入兩個文字框，並在 ** 框中寫入 private sub text1 lostfocus（）

abcdefg"

end sub

Sendkeys 是擊鍵的模擬，與真實擊鍵沒有什麼不同，滑鼠的模擬需要 API 函式。