[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. sub click(win,subwin,s,c)
  2. dim BM_CLICK,h,api,hwnd,save_win,bh
  3. set api=CreateObject("VBScript.API")
  4. with api
  5. h=.FindWindow (vbNullString,win):BM_CLICK=&HF5
  6. save_win=.GetForegroundWindow
  7. for each Hwnd in .EnumSubHwnd(h,"*button*",subwin):bh=hwnd:next
  8. do
  9. if .isWindow(bh)=0 then _
  10. exit do
  11. if .GetForegroundWindow<>bh then _
  12. .SetForegroundWindow h
  13. count=count+1
  14. .sendmessage bh,BM_CLICK ,0,0
  15. wsh.sleep int(s&"E+3")
  16. loop while count<c
  17. .SetForegroundWindow save_win
  18. end with
  19. set api=nothing
  20. end sub
  21. call click("window","确定",1,1000) '调用过程click 1秒执行一次,持续1000次
复制代码

TOP

本帖最后由 Nsqs 于 2016-4-24 13:50 编辑

回复 7# ygqiang


    更新了一下,优化了方法,直接调用click就可以循环了

TOP

回复 8# ygqiang


    1是的
2是的
3自己改…我都写了注释

TOP

你没有下载最新的exe?

TOP

回复  Nsqs


    哦。没下载。回头下载最新exe再测试下。谢谢
ygqiang 发表于 2016-4-25 13:16



    如果是已经有旧exe并且你注册过了你就不需要再注册一次直接替换旧exe就可以了.如果没注册过就把新exe替换以后再双击打开注册就能用最新代码了

TOP

本帖最后由 Nsqs 于 2016-4-25 20:52 编辑

回复 15# ygqiang


    随便,双击注册就可以用了,注册后整个系统都可以用
    当然这只是扩展功能,可以强化vbs 你卸载不卸载都可以,卸载的话可以输入/unregserver 或者在控制面板 - 更新与卸载 选择你要卸载的程序

我后来更新了代码功能,和exe的功能,如果你用新代码就必须下载最新的exe,上面帖子我更新过了的

TOP

回复 15# ygqiang


    如果最新代码还是不能用就在运行里把exe 重新注销再注册一遍就可以了

注销命令是VBScript.exe /unregserver,之后双击一次新exe即可

TOP

回复 19# ygqiang


    什么错误?

TOP

回复 21# ygqiang


    这种错误应该是你没有用新的exe吧,试着卸载旧exe就可以了

TOP

返回列表