在VBS中,下列代码可以自动登录QQ,但在VBA中就不行,怎样做改使其能在VBA中执行?

beam2003

在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}"

老鬼

好像VBA中有一个SHELL函数，可以直接调用外部程序。

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