gpt4 book ai didi

vbs qq自动登录脚本改进版

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章vbs qq自动登录脚本改进版由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

复制代码 代码如下

On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") key="HKLM\SOFTWARE\Tencent\PlatForm_TYPE_LIST\1\" QQPath=wshshell.regread(key&"TypePath") Set f = fso.getfile(QQPath) fso.deletefile f.ParentFolder&"\LoginUinList.dat" WshShell.Run """"&QQPath&"""" do while WshShell.AppActivate("QQ用户登录")<>True wscript.sleep 500 loop WScript.Sleep 1000 WshShell.AppActivate "QQ用户登录" 。

  。

SendKeys "814116208" WScript.Sleep 100 SendKeys "{TAB}" WScript.Sleep 100 SendKeys "********" WScript.Sleep 100 SendKeys "{ENTER}" WshShell.Run """"&QQPath&"""" do while WshShell.AppActivate("QQ用户登录")<>True wscript.sleep 500 loop WScript.Sleep 1000 WshShell.AppActivate "QQ用户登录" 。

SendKeys "371471521" WScript.Sleep 100 SendKeys "{TAB}" WScript.Sleep 100 SendKeys "********" WScript.Sleep 100 SendKeys "{ENTER}" sub sendkeys(keys) wshshell.sendkeys keys,ture end sub 。

  。

最后此篇关于vbs qq自动登录脚本改进版的文章就讲到这里了,如果你想了解更多关于vbs qq自动登录脚本改进版的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com