求“同时登录多个飞信程序”的指点

我想编写一个程序，能够实现多个飞信同时在一台电脑上登录，即多个飞信有多个账号和密码，该程序能够把每个账号和密码填写在各个飞信登录窗口，然后按回车，登录！我自己尝试了下，编写了一个。但是不能运行。希望高手指教。
代码如下：
Shell "F:\Program Files\Fetion\Fetion.exe", vbNormalFocus '打开飞信窗口

Dim longTimer As Long
longTimer = Timer
Do Until Timer - longTimer >= 5 '延时5秒，sendkeys必须等飞信窗口打开
    DoEvents
Loop


SendKeys "+{tab}" '相当于按键盘alt+tab
SendKeys "152****1558" '登录时候需要输入的手机号码
SendKeys "{tab}"
SendKeys "123456" '输入密码
SendKeys "{enter}" --------------------编程问答-------------------- --------------------编程问答-------------------- 用API找句柄，然后设置登陆。 --------------------编程问答--------------------

xxx=Shell("F:\Program Files\Fetion\Fetion.exe", vbNormalFocus) '打开飞信窗口

Dim longTimer As Long
longTimer = Timer
Do Until Timer - longTimer >= 5 '延时5秒，sendkeys必须等飞信窗口打开
  DoEvents
Loop
AppActivate xxx

SendKeys "+{tab}" '相当于按键盘alt+tab
SendKeys "152****1558" '登录时候需要输入的手机号码
SendKeys "{tab}"
SendKeys "123456" '输入密码
SendKeys "{enter}"

补充：VB ,  API