如何使用 VB 每 10 秒按一次 Ctrl，然後向左按滑鼠

可以使用 1 個傳送金鑰

2 您可以使用 SendMessage PostMessage API

VB 的滑鼠事件包括單擊、雙擊 dblclick、mousedown、釋放 mouseup 和 move mousemove。 請刪除其他滑鼠事件過程，僅對滑鼠雙擊事件 dblclick 進行程式設計。

private declare function postmessage lib "user32" alias "postmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, byval lparam as long) as long

private declare sub sleep lib "kernel32" (byval dwmilliseconds as long)

dim anctlejiang as long '這句話是一般寫的。

private sub command1_click()

postmessage 65674, 100, 17, 0 '這是通過按 CTLE 鍵。

anctlejiang = 1

sleep 1000 '延遲 1 秒。

postmessage 65674, 101, 17, 0 '輕彈 CTLE 鍵。

anctlejiang = 0

end sub

private sub timer1_timer()

msgbox anctlejiang

if anctlejiang <>0 then

dim aa as long

postmessage 65674, 201, 1, 0 '這是通過按左按鈕。

按左鍵"

aa = anctlejian

if aa <>anctlejian then

postmessage 65674, 202, 1, 0 '輕拂左鍵。

跳出左鍵"

end if

end if

end sub

？？？可以嗎。

你不需要 vb 語句，你可以直接設定它，但它都是以 ms 為單位的。

檢視插槽是否正常工作，然後重新安裝驅動程式。

檢視背景，我再次嘗試了資源管理器，並選擇了該檔案。

選擇中文作品和選擇漢字的背景顏色是不同的。

我很久以前做了乙個有很多功能。 見下圖

單擊“設定”以轉到“設定”：

你想要那個嗎？

附件是原始碼。

F10 開始。 點選乙個按鈕就停下來。

F11 是隱藏和顯示的，所以它足夠詳細。 \