看看我写的163邮箱登录器有什么问题?

Question

我先写了一个函数,调用时,传入两个参数就可以了,但是有问题
Private Sub Login(Usr As String, Passwd As String)
On Error GoTo Err
Shell "cmd.exe /c start ""163邮箱登录中"" ""https://reg.163.com/logins.jsp?username=%" & Usr & "%&password=%" & Passwd & "%&url=http://fm163.163.com/coremail/fcg/ntesdoor2""", vbMaximizedFocus
Exit Sub
Err:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error!"
End
End Sub调用时 Call Login("youxiang","123456"),总不能正确登录邮箱,而使用批处理就可以,如下:@echo off
set "var=youxiang"
set "num=123456"
start "163邮箱登录中"  "https://reg.163.com/logins.jsp?username=%var%&password=%num%&url=http://fm163.163.com/coremail/fcg/ntesdoor2"
请问,为什么在VB里调用就不行呢?

Answer 1

可以调用的
改为：Shell "cmd.exe /c start ""163邮箱登录中 "" ""https://reg.163.com/logins.jsp?username=" & Usr & "&password=" & Passwd & "&url=http://fm163.163.com/coremail/fcg/ntesdoor2 """, vbMaximizedFocus
就OK了.

Answer 2

改为:Shell "cmd.exe   /c   start   ""163邮箱登录中..." & "https://reg.163.com/logins.jsp?username= " & Usr & "&password= " & Passwd & "&url=http://fm163.163.com/coremail/fcg/ntesdoor2   ", vbMaximizedFocus

Answer 3

没想到可以这样登录,一般都是要POST方式的

Answer 4

我试了是可以，
https://reg.163.com/logins.jsp?username=XXXXXXX&password=XXXXXXXX&url=http://fm163.163.com/coremail/fcg/ntesdoor2