自动粘贴信息到微信,自动发送。 - 洛阳翼展电脑


自动粘贴信息到微信,自动发送。

2020-6-2 乱云飞

On Error Resume Next 

Dim wsh,ye

set wsh=createobject("wscript.shell") 

for i=1 to 20

wscript.sleep 700 

wsh.AppActivate("emmm") 

wsh.sendKeys "^v" 

wsh.sendKeys str(i)

wsh.sendKeys "%s" 

next 

wscript.quit

本文链接:http://80c.cc/ez/321.html

发表评论:

预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog