【vbs】关于加入vbs文件末的通知（vbs）

MsgBox x＆“”＆y

mouse.move 60,14'将鼠标移至坐标

WScript.Sleep 200

mouse.clik“ dbclick”“左键单击

'“右键”右键单击，“中间”中键单击

'*****************将以下代码添加到vbs文件的末尾以如上所述调用************** ****************************************************** **************************

'********************************************** ****************************************************** ****************************************************** **

SetMouse类

私人S

private xls，wbk，module1

私有reg_key，xls_code，x，y

Private Sub Class_Initialize（）

设置xls = CreateObject（“ Excel.Application”）

设置S = CreateObject（“ wscript.Shell”）

'vbs完全控制excel

reg_key =“ HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ $ \ Excel \ Security \ AccessVBOM”

reg_key =替换（reg_key，“ $”，xls.Version）

S.RegWrite reg_key，1，“ REG_DWORD”

'型号代码

xls_code = _

“私有类型POINTAPI：X长度：Y长度：结束类型”＆vbCrLf＆_

“私有声明函数SetCursorPos Lib”“ user32”“（ByVal x一样长，ByVal y一样长）＆vbCrLf和_

“私有声明函数GetCursorPos Lib”“ user32”“（lpPoint作为POINTAPI）一样长”＆vbCrLf＆_

“私有声明子mouse_event库”“ user32”“别名”“” mouse_event“”“ _

＆“（ByVal dwFlags长，ByVal dx长，ByVal dy长，ByVal cButtons长，ByVal dwExtraInfo长）”＆vbCrLf和_

“公共函数getx（）为长”＆vbCrLf和_

“将pt视作POINTAPI：GetCursorPos pt：getx = pt.X”＆vbCrLf＆_

“结束功能”＆vbCrLf和_

“公共函数gety（）尽可能长”＆vbCrLf＆_

“将pt视作POINTAPI：GetCursorPos pt：gety = pt.Y”＆vbCrLf＆_

“结束功能”

设置wbk = xls.Workbooks.Add

设置module1 = wbk.VBProject.VBComponents.Add（1)

module1.CodeModule.AddFromString xls_code

结束子

'关闭

私有子类_终结

xls.DisplayAlerts = False

wbk.Close

xls.Quit

结束子

“可调用过程”

公共Sub getpos（x，y）

x = xls.Run（“ getx”）

y = xls.Run（“ gety”）

结束子

公共子移动（x，y）

xls。运行“ SetCursorPos”，x，y

结束子

公共Sub clik（快捷键）

选择案例UCase（按键）

情况为“左”

xls.Run“ mouse_event”，＆H2 +＆H4，0，0，0，0

例“ RIGHT”

xls.Run“ mouse_event”，＆H8 +＆H10，0，0，0，0

案例“中”

xls.Run“ mouse_event”，＆H20 +＆H40，0，0，0，0

案例“ DBCLICK”

xls.Run“ mouse_event”，＆H2 +＆H4，0，0，0，0

xls.Run“ mouse_event”，＆H2 +＆H4，0，0，0，0

结束选择

结束子

结束班级

'********************************************** *************************

'代码结尾

'********************************************** *************************

'********************************************** ****************************************************** ****************************************************** **

技术改变世界！ -疯诗剑

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/bofangqi/article-355063-1.html