mouseclick

smalliv407

1. Set oExcel = CreateObject("Excel.Application") '创建 Excel 对象
   
2. 
   
3. set WshShell = CreateObject("wscript.Shell")
   
4. 
   
5. strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
   
6. strRegKey = Replace(strRegKey, "$", oExcel.Version)
   
7. 
   
8. WshShell.RegWrite strRegKey, 1, "REG_DWORD"
   
9. 
   
10. Set oBook = oExcel.Workbooks.Add '添加工作簿
    
11. Set oModule = obook.VBProject.VBComponents.Add(1) '添加模块
    
12. strCode ="'Author: Demon" & vbCrLf &_
    
13. "'Website: http://demon.tw" & vbCrLf &_
    
14. "'Date: 2011/5/10" & vbCrLf &_
    
15. "Private Type POINTAPI : X As Long : Y As Long : End Type" & vbCrLf &_
    
16. "Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCrLf &_
    
17. "Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long" & vbCrLf &_
    
18. "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 & _
    
19. "Public Function GetXCursorPos() As Long" & vbCrLf & _
    
20. "Dim pt As POINTAPI : GetCursorPos pt : GetXCursorPos = pt.X" & vbCrLf & _
    
21. "End Function" & vbCrLf & _
    
22. "Public Function GetYCursorPos() As Long" & vbCrLf & _
    
23. "Dim pt As POINTAPI: GetCursorPos pt : GetYCursorPos = pt.Y" & vbCrLf & _
    
24. "End Function"
    
25. oModule.CodeModule.AddFromString strCode '在模块中添加 VBA 代码
    
26. 'Author: Demon
    
27. 'Website: http://demon.tw
    
28. 'Date: 2011/5/10
    
29. x = oExcel.Run("GetXCursorPos") '获取鼠标 X 坐标
    
30. y = oExcel.Run("GetYCursorPos") '获取鼠标 Y 坐标
    
31. 'x = 100
    
32. 'y = 100
    
33. 'WScript.Echo x, y
    
34. oExcel.Run "SetCursorPos", 30, 30 '设置鼠标 X Y 坐标
    
35. Const MOUSEEVENTF_MOVE = &H1
    
36. Const MOUSEEVENTF_LEFTDOWN = &H2
    
37. 
    
38. Const MOUSEEVENTF_LEFTUP = &H4
    
39. Const MOUSEEVENTF_RIGHTDOWN = &H8
    
40. Const MOUSEEVENTF_RIGHTUP = &H10
    
41. Const MOUSEEVENTF_MIDDLEDOWN = &H20
    
42. Const MOUSEEVENTF_MIDDLEUP = &H40
    
43. 
    
44. Const MOUSEEVENTF_ABSOLUTE = &H8000
    
45. '模拟鼠标左键单击
    
46. oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    
47. 
    
48. '模拟鼠标左键双击（即快速的两次单击）
    
49. oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    
50. oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    
51. 
    
52. '模拟鼠标右键单击
    
53. oExcel.Run "mouse_event", MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
    
54. '模拟鼠标中键单击
    
55. oExcel.Run "mouse_event", MOUSEEVENTF_MIDDLEDOWN + MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
    
56. 
    
57. '关闭 Excel
    
58. oExcel.DisplayAlerts = False
    
59. oBook.Close
    
60. oExcel.Quit
    
61. '
    
62. '
    
63. 
    
64. 
    
65. 
    

复制代码

lsekfe

LZ这个帖子什么意思，请详细说明下！