今天想做windows上的自動化，所以才有了模擬鼠標點擊的需求，先考慮用powershell實現：
首先先安裝一個名為“WASP”免費可用的Powershell擴展程序，下載地址：http://wasp.codeplex.com/
下載解壓之后放到C:\Windows\System32\WindowsPowerShell\v1.0\Modules\下，如圖：
之后，在開始->運行處輸入powershell，以管理員方式運行，
執行Import-Module WASP,則引入了擴展程序，
假如有個已打開的cmd窗口，且名稱也為cmd，在其中輸入字符123，則執行以下命令：
Select-Window cmd | Send-Keys 123
具體細節可參考：
英文：http://powershell.com/cs/blogs/tips/archive/2014/05/06/automation-via-keystroke-and-mouse-click.aspx
中文：http://www.pstips.net/automation-via-keystroke-and-mouse-click.html
有時使用Select-Window焦點移動到了窗口上，但是send-key時，輸入不進去東西，也就意味着輸入焦點沒有在新窗口上，此時這種失效，考慮用vbs先點擊一下要輸入的那個窗口，使得輸入焦點在新窗口上，之后再執行send-keys操作。
用vbs模擬鼠標點擊的操作代碼如下：
mouseckick.vbs文件內容如下：
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", 200, 300 '設置鼠標要點擊的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, 200, 200 '模擬鼠標中鍵單擊 'oExcel.Run "mouse_event", MOUSEEVENTF_MIDDLEDOWN + MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0 '關閉 Excel oExcel.DisplayAlerts = False oBook.Close oExcel.Quit
以上代碼實現的是鼠標左鍵單擊電腦屏幕的（200,300）坐標處。
參考博客：http://demon.tw/programming/vbs-control-mouse.html