联系

提供有偿的脚本编写服务和免费的法律咨询服务。QQ: 380401911,非诚勿扰。

赞赏

微信赞赏支付宝赞赏

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

  1. TYB说道:

    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怎么没有成功,但不写入这个类就可以

  2. TYB说道:

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

  3. energyhaibo说道:

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

  4. miki说道:

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

  5. jwei说道:

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

  6. 真的风清扬说道:

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

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

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

  7. hew说道:

    你的wordpress是什么模板啊

  8. 说道:

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

  9. 肚子说道:

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

  10. 神梦无痕说道:

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

肚子 留下回复