VB简单代码，请教高手

Dim Program1
Program1= "QQ路径"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate "cncn"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQ号码"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}
以上是VBS的代码。就是把以上这些放进记事本里，保存成*.vbs的形式
我想做一个QQ自动登录的软件
1, 选择你的QQ路径
2，输入你的QQ号码和QQ密码
3，生成“QQ自动登录.vbs”
然后一点击就可以自动登录了

请教高手啊。在线=。如果好，再追加啊，请把详细过程写下来。我是个小菜鸟

按 ctrl+t 调出“部件”对话框，选择 Microsoft Common Dialog Control 6.0 (SP6) 确定后，左边控件区会多出一个控件，双击加到窗体上

Private Sub Command1_Click()
On Error GoTo OnErr

CommonDialog1.DialogTitle = "请选择你的 QQ 文件"
CommonDialog1.Filter = "EXE 文件(*.exe)|*.exe|所有文件|*.*"
CommonDialog1.CancelError = True
CommonDialog1.ShowSave

Open App.Path & "\qq.vbs" For Output As #1

Print #1, "Set WshShell = CreateObject(""wscript.Shell"")"
Print #1, "Set oExec = WshShell.Exec(""" & CommonDialog1.FileName & """)"
Print #1, "Wscript.Sleep 3000"
Print #1, "WshShell.AppActivate ""cncn"""
Print #1, "WshShell.SendKeys ""+{TAB}"
Print #1, "WshShell.SendKeys """ & Text1.Text & """"
Print #1, "Wscript.Sleep 200"
Print #1, "WshShell.SendKeys ""{TAB}"
Print #1, "WshShell.SendKeys """ & Text2.Text & """"
Print #1, "Wscript.Sleep 200"
Print #1, "WshShell.SendKeys ""{ENTER}"
Close
MsgBox "ok!", vbInformation

Exit Sub

OnErr:
If Err.Number <> cdlCancel Then Resume Next
End Sub

无法实现，因为QQ的密码框有NP,所以无法这样输入密码 只能用传入命令行来实现自动登录 所以你可以找一个base64加密代码，把密码加密，做成命令行，传给QQ程序

privatea()asinteger privatesubform_click() dimnasinteger n=inputbox("请输入人数：") print"输入的分数分别为：" fori=1ton redimpreservea(i)asinteger a(i)=inputbox("请输入分数：") printa(i);""; ifimod10=0thenprint nexti print fori=1ton-1 forj=i 1ton ifa(i)>a(j)then c=a(i) a(i)=a(j) a(j)=c endif nextj nexti print"排序好的数据是：" fori=1ton printa(i);""; ifimod10=0thenprint nexti endsub