VB 從零開始編外掛(五)
2024-07-21 02:20:40
供稿：網友
前邊談了模擬鍵盤，下面說說模擬鼠標。
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要vb api函數：
mouse_event ←模擬一次鼠標事件
--------------------------------------------------------------------------------------------------------------------------------------------------------
相關api聲明：
mouse_event
↓
private declare sub mouse_event lib "user32" ( byval dwflags as long, byval dx as long, byval dy as long, byval cbuttons as long, byval dwextrainfo as long )
--------------------------------------------------------------------------------------------------------------------------------------------------------
定義變量：
const mouseeventf_leftdown = &h2
const mouseeventf_leftup = &h4
const mouseeventf_middledown = &h20
const mouseeventf_middleup = &h40
const mouseeventf_move = &h1
const mouseeventf_absolute = &h8000
const mouseeventf_rightdown = &h8
const mouseeventf_rightup = &h10
--------------------------------------------------------------------------------------------------------------------------------------------------------
mouseeventf_leftdown'鼠標左鍵按下
mouseeventf_leftup'鼠標松開
mouseeventf_rightdown '鼠標右鍵按下
mouseeventf_rightup'鼠標右鍵松開
--------------------------------------------------------------------------------------------------------------------------------------------------------
代碼：
private declare sub mouse_event lib "user32" ( byval dwflags as long, byval dx as long, byval dy as long, byval cbuttons as long, byval dwextrainfo as long )
const mouseeventf_leftdown = &h2
const mouseeventf_leftup = &h4
const mouseeventf_middledown = &h20
const mouseeventf_middleup = &h40
const mouseeventf_move = &h1
const mouseeventf_absolute = &h8000
const mouseeventf_rightdown = &h8
const mouseeventf_rightup = &h10
'這里是 鼠標左鍵按下 和松開兩個事件的組合即一次單擊
mouse_event mouseeventf_leftdown or mouseeventf_leftup, 0, 0, 0, 0
'模擬鼠標右鍵單擊事件
mouse_event mouseeventf_rightdown or mouseeventf_rightup, 0, 0, 0, 0
'兩次連續的鼠標左鍵單擊事件 構成一次鼠標雙擊事件
mouse_event mouseeventf_leftdown or mouseeventf_leftup, 0, 0, 0, 0
mouse_event mouseeventf_leftdown or mouseeventf_leftup, 0, 0, 0, 0
本文來源于網頁設計愛好者web開發社區http://www.html.org.cn收集整理，歡迎訪問。
