24 条评论 发表在“联系”上

1. TYB说道：

   2013年05月23日 11:07

   dim oMouse

   set oMouse = new Mouse
   oMouse.moveto 30,20
   oMouse.right_click
   set oMouse = nothing

   class Mouse
   private oShell,strVBOM
   private oExcel,oBook,oModule,strModuleCode

   private sub class_initialize
   set oShell = createobject(“wscript.shell”)
   set oExcel = createobject(“excel.application”)
   strVBOM = “HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM”
   strVBOM = replace(strVBOM,”$”,oExcel.version)
   oShell.regwrite strVBOM,1,”REG_DWORD”
   set oBook = oExcel.workbooks.add
   set oModule = oBook.vbproject.vbcomponents.add(1)
   strModuleCode = _
   “Private Declare Function SetCursorPos Lib “”user32″” Alias “”SetCursorPos”” (ByVal x As Long, ByVal y As Long) As Long” & vbnewline & _
   “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)”
   oModule.codemodule.addfromstring strModuleCode
   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
   end sub

   private sub class_terminate
   oExcel.displayalerts = false
   oBook.close
   oExcel.quit
   end sub

   sub moveto(x,y)
   oExcel.run “SetCursorPos”,x,y
   end sub

   sub right_click
   oExcel.Run “mouse_event”, MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
   end sub

   end class

   想问一下这个right_click怎么没有成功,但不写入这个类就可以

   回复
   • 陈浩天说道：

     2016年08月30日 13:47

     如今还有多少人记得你的网站…

     回复
2. TYB说道：

   2013年05月23日 11:49

   对不起,这个代码搞错了,我想说一下是Const MOUSEEVENTF_MOVE = &H1
   这个在class Mouse下面写着为什么不行

   回复
3. energyhaibo说道：

   2013年09月1日 10:58

   请问你的博客vbs语法高亮插件是使用的什么插件？
   急求哇谢谢…
   如果能够告知，请发送到我的邮箱…
   拜谢…

   回复
4. miki说道：

   2013年09月17日 17:07

   为什么要用这么丑的wordpress模版？文采很好，内容很好，就是模板有点丑

   回复
5. jwei说道：

   2013年11月23日 16:05

   很喜欢你这里的内容，非常受用~ 非常感谢。

   回复
6. 真的风清扬说道：

   2014年09月15日 14:27

   博主，不好意思刚才发现还有留言板，我就再提问一次吧，见谅，近几月从度娘来到贵博次数好多，禁不住拜读了一些之后，我对你的景仰之情尤如滔滔江水….
   不说别的，一个字：相见恨晚啊，毅然决定收藏你，然后每一遍仔细研究你，因为我的工作经常用到vbs，而你是vbs之神…

   在此小弟请教你一个难题：vbs中如何在子function中抛出异常不触发，而是想要在调用他的行中触发，因我的程序经常在一个被多次调用的function 中发现参数值有错，但不知道在哪个文件哪一行调用的。

   我用Err.Raise方法测试过多种，但因水平有限好像搞不定。在此先表示感谢和敬意，有空的话还望不吝赐教！

   回复
   • 1111111112说道：

     2022年12月7日 13:58

     插msgbox？

     回复
7. hew说道：

   2015年05月30日 18:31

   你的wordpress是什么模板啊

   回复
8. 春说道：

   2015年10月11日 12:20

   VBS神啊，看了你这么多页的日志，感觉你自己都可以写一个vbs了。真是佩服。现在有个问题，asp有啥办法可以解析swf文件，提取里面的脚本吗？

   回复
9. 肚子说道：

   2017年04月25日 08:55

   请问大神，如何vbs如何计算输出15^15的精确位数？因为超过15位，就截断，科学计数法了。

   回复
10. 神梦无痕说道：

    2017年05月26日 21:34

    大神，您的博客主题很简洁清新，能不能提供下下载地址^_^

    回复