友盟第三方错误代码:邮箱登录器（VB源代码）

邮箱登录器（VB源代码）  

2010-10-04 22:29:37|  分类： 默认分类 |字号 订阅

Private Sub Login(Usr As String, Passwd As String, indexm As Integer)
Select Case indexm
Case 0
Shell "cmd.exe   /c   start   ""163邮箱登录中""   ""https://reg.163.com/logins.jsp?username=" & Usr & "&password=" & Passwd & "&url=http://fm163.163.com/coremail/fcg/ntesdoor2""", vbHide
Exit Sub
Case 1
Shell "cmd.exe   /c   start   ""126邮箱登录中""   ""http://entry.126.com/cgi/login?domain=126.com&language=0&bCookie&user=" & Usr & "&pass=" & Passwd & "&url=http://fm163.163.com/coremail/fcg/ntesdoor2""", vbHide
Case 2
Shell "cmd.exe /c start ""yahoo mail""   ""http://edit.bjs.yahoo.com/config/login?.intl=cn&.done=http%3A//cn.mail.yahoo.com/inset.html%3Frr%3D1474710818&.src=ym&.challenge=SNbMW0EYAxYzJZXzUqOUmMwS9Aqb&login=" & Usr & "&passwd=" & Passwd, vbHide
Case 3
Shell "cmd.exe /c a.js"
End Select
End Sub

Private Sub Command1_Click()
If Trim(Text1.Text) = "" And Trim(Text2.Text) = "" Then
MsgBox "Item need to verify", 0 + 48 + 256 + 20546, "便捷邮箱登录器"
Else
Call Login(Trim(Text1.Text), Trim(Text2.Text), Combo1.ListIndex)
End If
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command2_Click()
End
Set Form1 = Nothing
End Sub

Private Sub Form_Load()
Text1.BackColor = vbRed
Text1.Text = "输入你的大名"
Text2.BackColor = vbYellow
Text2.Text = "输入你的密码"
End Sub

Private Sub Text1_GotFocus()
Text1.BackColor = vbGreen
Text1.Text = ""
End Sub
Private Sub Text2_GotFocus()
Text2.BackColor = vbYellow
Text2.Text = ""
Text2.PasswordChar = "#"
End Sub

【另附上JS的GMAIL登录脚本】：

var ie=WScript.createobject("InternetExplorer.Application");
var args = WScript.arguments;
var followme="http://mail.google.com/";
if(args.length>0)
{
    followme+=args(0);
}
ie.Navigate("https://www.google.com/accounts/Login?continue="+followme);
SynchronizeIE();
var doc=ie.document;
doc.forms[0].Email.value="qqlove00700";
doc.forms[0].Passwd.value="01009436348507";
//这是因为PersistentCookie这个checkbox有时候有而有时候没有。
if(doc.forms[0].PersistentCookie!=null)
{
    doc.forms[0].PersistentCookie.checked=false;
}
doc.forms[0].submit();
SynchronizeIE();
ie.Visible=true;

//等待IE操作结束。
function SynchronizeIE()
{
    while(ie.Busy)
    {
          WScript.Sleep(100);
    }
}