VBS 自动发消息给对方
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Dim Name,Msg Name= "我家丫头" Msg = "333" set ws=wscript.createobject( "wscript.shell" ) ws.Run "mshta vbscript:ClipboardData.SetData(" &chr(34)& "text" &chr(34)& "," &Chr(34)& Name&Chr(34)& ")(close)" ,0, True ws.sendKeys "^%w" ws.appactivate "微信" ws.sendKeys "^f" wscript.sleep 500 ws.sendKeys "^v" ws.sendKeys "{ENTER}" ws.sendKeys "{TAB}" wscript.sleep 200 ws.sendKeys "{ENTER}" ws.Run "mshta vbscript:ClipboardData.SetData(" &chr(34)& "text" &chr(34)& "," &Chr(34)& Msg &Chr(34)& ")(close)" ,0, True wscript.sleep 200 ws.sendKeys "^v" wscript.sleep 300 ws.sendKeys "{ENTER}" |
![](https://images.cnblogs.com/cnblogs_com/qianjinyan/910455/o_jasmine%20love.gif)
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步