免费?无码?国产在线看喉,人人莫人人爽人人爽

主頁 > 知識庫 > 用VBS控制鼠標的實現代碼（獲取鼠標坐標、鼠標移動、鼠標單擊、鼠標雙擊、鼠標右擊）

用VBS控制鼠標的實現代碼（獲取鼠標坐標、鼠標移動、鼠標單擊、鼠標雙擊、鼠標右擊）

怎么用VBS模擬鼠標左鍵單擊、左鍵雙擊、右鍵單擊？……

網上搜到的答案普遍是VBS無法實現，或者是要用第三方COM（ActiveX？）組件。我對第三方組件是很反感的，使用第三方組件毫無可移植性可言，因為別人的系統中不一定注冊了這個組件。我的建議是，盡量不要在VBS代碼中調用第三方組件，除非你的程序只是寫來自己用。（順便說一下，也盡量不要用不靠譜的Sendkeys方法，原因不解釋）

好了，廢話就說這么多，現在說說用VBS控制鼠標的方法。我以前寫過一篇《VBS調用Windows API函數》，本以為既然都能調用API了，用VBS控制鼠標還不是很簡單是事？事實證明我錯了，不明真相的同學永遠是大多數，不知道API是什么的VBSer大有人在。不貼出實實在在的代碼，他們根本不會自己寫！

使用此代碼的前提是你的系統上安裝了Excel，因為要用到Excel.Application對象（如果你偏要認為這算第三方組件我也沒話說）：

復制代碼代碼如下:

 
Option Explicit 

Dim WshShell 
Dim oExcel, oBook, oModule 
Dim strRegKey, strCode, x, y 
Set oExcel = CreateObject("Excel.Application") '創建 Excel 對象 

set WshShell = CreateObject("wscript.Shell") 

strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM" 
strRegKey = Replace(strRegKey, "$", oExcel.Version) 

WshShell.RegWrite strRegKey, 1, "REG_DWORD" 

Set oBook = oExcel.Workbooks.Add '添加工作簿 
Set oModule = obook.VBProject.VBComponents.Add(1) '添加模塊 
strCode = _ 

"'Author: Demon"  vbCrLf  _ 
"'Website: http://demon.tw"  vbCrLf  _ 
"'Date: 2011/5/10"  vbCrLf  _ 

"Private Type POINTAPI : X As Long : Y As Long : End Type"  vbCrLf  _ 
"Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long"  vbCrLf  _ 

"Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long"  vbCrLf  _ 
"Private Declare Sub mouse_event Lib ""user32"" Alias ""mouse_event"" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)"  vbCrLf  _ 

"Public Function GetXCursorPos() As Long"  vbCrLf  _ 
"Dim pt As POINTAPI : GetCursorPos pt : GetXCursorPos = pt.X"  vbCrLf  _ 
"End Function"  vbCrLf  _ 

"Public Function GetYCursorPos() As Long"  vbCrLf  _ 
"Dim pt As POINTAPI: GetCursorPos pt : GetYCursorPos = pt.Y"  vbCrLf  _ 
"End Function" 

oModule.CodeModule.AddFromString strCode '在模塊中添加 VBA 代碼 
'Author: Demon 
'Website: http://demon.tw 
'Date: 2011/5/10 
x = oExcel.Run("GetXCursorPos") '獲取鼠標 X 坐標 
y = oExcel.Run("GetYCursorPos") '獲取鼠標 Y 坐標 

WScript.Echo x, y 
oExcel.Run "SetCursorPos", 30, 30 '設置鼠標 X Y 坐標 
Const MOUSEEVENTF_MOVE = H1 
Const MOUSEEVENTF_LEFTDOWN = H2 

Const MOUSEEVENTF_LEFTUP = H4 
Const MOUSEEVENTF_RIGHTDOWN = H8 
Const MOUSEEVENTF_RIGHTUP = H10 
Const MOUSEEVENTF_MIDDLEDOWN = H20 
Const MOUSEEVENTF_MIDDLEUP = H40 

Const MOUSEEVENTF_ABSOLUTE = H8000 
'模擬鼠標左鍵單擊 
oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 

'模擬鼠標左鍵雙擊（即快速的兩次單擊） 
oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 
oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 

'模擬鼠標右鍵單擊 
oExcel.Run "mouse_event", MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 
'模擬鼠標中鍵單擊 
oExcel.Run "mouse_event", MOUSEEVENTF_MIDDLEDOWN + MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0 

'關閉 Excel 
oExcel.DisplayAlerts = False 
oBook.Close 
oExcel.Quit 