VBS连续启动两个程序

我需要用VBS来连续启动两个程序，第一个程序需要输入验证码，然后确认登陆后自动启动第二个程序，这两个程序的账号密码这些都支持记忆，第一次启动后就不需要再次输入，如何解决，我目前可以做到两个程序连续启动，只能用延时启动第二个程序，请教下大家如何解决。

Set ObjShell = CreateObject("Shell.Application") 使用管理员权限
ObjShell.ShellExecute "wscript.exe" _
, """" & WScript.ScriptFullName & """ RunAsAdministrator", , "runas", 1
WScript.Quit
End if
program1 = "C:\Program Files (x86)\Multimedia Dispatch Platform\qq"启动应用
set Wshell=CreateObject("Wscript.Shell")
set Iopen = createObject("wscript.shell")
set p1 = Iopen.Exec(program1)
wscript.sleep 1000 延时1秒
Iopen.AppActivate"Dolphin"
Iopen.Sendkeys"{ENTER}"点击确认
wscript.sleep 2000 '延时2秒
Wshell.run """C:\Program Files (x86)\word"""

Wscript.quit