循环打开本地IP

最新推荐文章于 2023-10-15 18:02:15 发布

艾小米

最新推荐文章于 2023-10-15 18:02:15 发布

阅读量278

点赞数

本文链接：https://blog.csdn.net/mier9042/article/details/105791599

版权

这段脚本展示了如何通过VBScript调用WakeMeOnLan.exe来唤醒本地IP，然后延迟5秒进行图标操作。接着模拟鼠标点击打开特定应用的编辑菜单，并执行复制、粘贴操作。脚本还涉及到Excel文件的读取，将数据逐条输入到Chrome浏览器，并关闭Excel，最后删除原始文件。

摘要由CSDN通过智能技术生成

dim objExcelWorkBook = ""
dim varRet = ""
dim iRet = ""
dim hWeb = ""
dim arrayRet = ""
dim iPID = ""

iPID = App.Run("E:\\zhuomian\\wakemeonlan_43815\\wakemeonlan-x64\\WakeMeOnLan.exe", "0", "1")
Delay(5000)
#icon("@res:tvkc5s3h-8hsn-238k-ineo-irihqkehhe0n.png")
Mouse.Action({"wnd":[{"app":"WakeMeOnLan","cls":"WakeMeOnLan","title":"WakeMeOnLan"}],"ctrl":[{"role":"ROLE_SYSTEM_MENUBAR","aid":"MenuBar","name":"应用程序"},{"role":"ROLE_SYSTEM_MENUITEM","name":"编辑(E)"}]},"left","click",10000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":true,"sCursorPosition":"Center","iCursorOffsetX&#