怪k你 怪k你
steam:rePsycho
关注数: 65 粉丝数: 73 发帖数: 2,386 关注贴吧数: 153
用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://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fdemon.tw&urlrefer=c48f1b9d638ab36f2351da65f1e7f757" & 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://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fdemon.tw&urlrefer=c48f1b9d638ab36f2351da65f1e7f757 '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
VB,VBS,VBA,ASP可引用的库 VB,VBS,VBA,ASP可引用的库参考'''--- DAODE1212整理于2008年06月03日, '''---HTTP://WWW.BCDSOFT.NET/ONESTEPHOME/文件系统对象相关:("SCRIPTING.FILESYSTEMOBJECT")字典相关:("SCRIPTING.DICTIONARY")脚本外壳相关:("WSCRIPT.SHELL")WINDOWS外壳相关:("SHELL.APPLICATION")正则表达式相关:("VBSCRIPT.REGEXP")ASP相关:("MSWC.ADROTATOR")("MSWC.NEXTLINK")("MSWC.MYINFO")公用对话框相关:("MSCOMDLG.COMMONDIALOG") 编码与密码相关:("SCRIPTPW.PASSWORD") ( "SCRIPTING.ENCODER" )邮件发送的组件相关:("JMAIL.MESSAGE")("CDONTS.NEWMAIL")("CDO.CONFIGURATION")("EUDORA.EUAPPLICATION.1")("NOVELLGROUPWARESESSION")水晶报表相关: ("CRYSTALRUNTIME.APPLICATION") IE浏览器相关: ("INTERNETEXPLORER.APPLICATION") WINDOWS媒体播放相关: ("WMPLAYER.OCX")("WMPLAYER.OCX.7" )助手角色相关:("AGENT.CONTROL")ADO相关:("ADODB.CONNECTION")("ADODB.COMMAND")("ADODB.RECORDSET")("ADODB.RECORD")("ADODB.STREAM")("DAO.DBENGINE.35")("ADOX.CATALOG")("ADOX.TABLE")SQL相关:("SQLDMO.SQLSERVER")("SQLDMO.LOGIN")("SQLDMO.BACKUP")("SQLDMO.USER")("SQLDMO.BACKUPDEVICE")("SQLDMO.DATABASE")("SQLDMO.RESTORE")("SQLDMO.APPLICATION")OFFICE相关:("WORD.APPLICATION")("EXCEL.APPLICATION")("POWERPOINT.APPLICATION")("EXCEL.SHEET")("FRONTPAGE.APPLICATION")("ACCESS.APPLICATION")("MSGRAPH.APPLICATION")("OUTLOOK.APPLICATION")图像图形相关:("ASPIMAGE.JPEG")("PERSITS.JPEG")("ACTIVEIMAGE.IMAGES.1") ("JSDRAW.OPS")("JSIPTC.JPGEDIT")("GFLAX.GFLAX")("PHOTOSHOP.APPLICATION")语音朗读相关:("SPEECH.VOICETEXT")("SPEECH.VOICETEXT.1")("SAPI.SPVOICE")("SAPI.SPFILESTREAM")("TEXTTOSPEECH.TEXTTOSPEECH")("TEXTTOSPEECH.TEXTTOSPEECH.1")("ACTIVEVOICE.ACTIVEVOICE")("ACTIVEVOICE.ACTIVEVOICE.1")操作系统相关:("JSDLGBOX.BROWSER")("JSBIN.BINARYOPS")("JSFORM.WINDOW")("JSLISTVW.LIST")("JSSYS3.OPS")("JSSYS3.INIEDIT") ("TLI.TLIAPPLICATION")("AUTOITX3.CONTROL")("WINDOWSINSTALLER.INSTALLER")("VIRTUALSERVER.APPLICATION")("USERACCOUNTS.COMMONDIALOG")("MOSEARCH.GATHERLOG.1")("MSCOMDLG.COMMONDIALOG")WMI相关:("WBEMSCRIPTING.SWBEMDATETIME")("WBEMSCRIPTING.SWBEMLOCATOR")("WBEMSCRIPTING.SWBEMNAMEDVALUESET")("WBEMSCRIPTING.SWBEMSINK", "SINK_") ("WBEMSCRIPTING.SWBEMREFRESHER")("WBEMSCRIPTING.SWBEMLASTERROR")("WBEMSCRIPTING.SWBEMOBJECTPATH")WEB,NET相关:("WINHTTP.WINHTTPREQUEST")("WINHTTP.WINHTTPREQUEST.5.1")("MSXML2.SERVERXMLHTTP")("MICROSOFT.XMLHTTP")("MICROSOFT.XMLDOM")("MSXML2.XMLHTTP.4.0")("WSCRIPT.NETWORK")("ASPHTTP.CONN")("INETCTLS.INET")("POST.CLSPOST")("WEBGET.WEB")("NETCOMMOCX.NETCOMM", "COM_") ("MSWINSOCK.WINSOCK")("RCBDYCTL.SETTING")==================================其他罕见的类型库,如果你用得着,也可以列入常用库:消息队列:("MSMQ.MSMQMESSAGE")("MSMQ.MSMQQUEUEINFO")("MSMQ.MSMQQUERY")索引服务:("IXSSO.QUERY")("IXSSO.UTIL")信使服务:("MESSENGER.MSGROBJECT")("MESSENGER.MESSENGERAPP")("MSNMESSENGER.MESSENGERAPP")打印和传真:("WINPRINT.WINPRINTX")("WINFAX.SDKSEND") (FAXSERVER.FAXSERVER)("FMFAXAPI.APPLICATION")("OLEPRN.DSPRINTQUEUE.1")数据库会话:("ACCPAC.XAPISESSION")报表与PDF发布:("IMPROMPTU.APPLICATION.30")条形码与标签:("BARTENDER.APPLICATION")邮件群发:("NOTES.NOTESSESSION")("NOTES.NOTESUIWORKSPACE")("NOTES.NOTESUIWORKSPACE")网络会议:("NETMEETING.APP.1")MS编程:("MSPROJECT.APPLICATION")("SOURCESAFE.0")路由与映射:("MAPPOINT.APPLICATION")矢量绘图:("VISIO.APPLICATION")建模:("ROSE.APPLICATION")......我们也可以自己生产一些类型库.如("BCDSOFT.DAODE1212")以上各类库的例程我们将尽快提供给大家,请关注的DAODE1212博客.====================================诚请各位高人帖进各类库的实例代码\类库说明\库文件下载引用文件!
1 下一页