Office中国论坛/Access中国论坛

标题: 在VBS中,下列代码可以自动登录QQ,但在VBA中就不行,怎样做改使其能在VBA中执行? [打印本页]

作者: beam2003 时间: 2004-11-18 06:11
标题: 在VBS中,下列代码可以自动登录QQ,但在VBA中就不行,怎样做改使其能在VBA中执行?
在VBS中,下列代码可以自动登录QQ,但在VBA中就不行,怎样做改使其能在VBA中执行?

Dim WshShell, QQPath, QQselect

QQPath = "QQ的安装目录"

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run QQPath

WScript.Sleep 2000

WshShell.AppActivate "QQ用户登录"

'WshShell.SendKeys "+{TAB}"

'WshShell.SendKeys "填入自己号码"

WScript.Sleep 200

'WshShell.SendKeys "{TAB}"

WshShell.SendKeys "填入自己的密码"

WScript.Sleep 200

WshShell.SendKeys "{ENTER}"

作者: 老鬼 时间: 2004-11-20 00:40
好像VBA中有一个SHELL函数，可以直接调用外部程序。

[此贴子已经被作者于2004-11-20 18:12:25编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)