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


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

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
0

发表评论:

VirtualCamera:在录像机中虚拟一个通道显示电脑桌面、视频文件、USB摄像头~
预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog