怎样让某程序随某程序运行
答案:1 悬赏:10 手机版
解决时间 2021-02-23 10:49
- 提问者网友：書生途
- 2021-02-22 21:49
怎样让某程序随某程序运行
最佳答案
- 五星知识达人网友：西风乍起
- 2021-02-22 23:00
写个问题需要有一定的编程只是才好做到，比如说用BVS脚本就可以实现简单的qq自动登陆功能，这样的话，你可以将写好的VBS脚本融合到PPS程序的代码里，当然这么做不会很容易，你需要将PPS的代码进行反编译。希望对你有帮助。
另附QQ自动登陆的VBS代码：
Dim WshShell, QQPath, QQselect
QQPath="D:\Progra~1\Tencent\QQ\CoralQQ.exe" 'QQ所在路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录1"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "123456789" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456789" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
PS:复制以上代码并保存为“*.VBS”，并运行便可以了。另外因为在命令行下，只支持8位字符长度的文件名，所以像“Program Files”的这种文件名就要改写成“Progra~1”。如果想同时登陆多个QQ,只需再增加下面那样的代码就可以了。
另附QQ自动登陆的VBS代码：
Dim WshShell, QQPath, QQselect
QQPath="D:\Progra~1\Tencent\QQ\CoralQQ.exe" 'QQ所在路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录1"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "123456789" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456789" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
PS:复制以上代码并保存为“*.VBS”，并运行便可以了。另外因为在命令行下，只支持8位字符长度的文件名，所以像“Program Files”的这种文件名就要改写成“Progra~1”。如果想同时登陆多个QQ,只需再增加下面那样的代码就可以了。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯