按键精灵多邮箱登陆器脚本源码

运行环境：分辨率：1680x1050 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.51.11790

@j3185132    2013/3/19

Dim panduan  
Event Form1.Label3.Click  
  
End Event  
Event Form1.Button1.Click  
  
Form1.wangzhi.Text = ""  
Form1.zhanghu.Text = ""  
Form1.mima.Text=""  
End Event  
Event Form1.Button2.Click  
  
 If Form1.wangzhi.Text = "" Then   
    a = 0  
    Else   
    a=1  
 End If  
 If Form1.zhanghu.Text = "" Then   
    a = 0  
    Else   
    a=1  
 End If  
  If Form1.mima.Text=""  Then   
    a = 0  
    Else   
    a=1  
 End If  
   
 If a = 1 Then   
 PID=Plugin.Web.Bind("wqm.exe")  
  
Call Plugin.Web.Go(Form1.wangzhi.Text)  
Else   
  
MessageBox  "请输入正确的数据！"  
  
      
 End If  
 Delay 5000  
 Select Case panduan  
   
 Case 1  
   
 Call Plugin.Web.HtmlInput(Form1.zhanghu.Text, "id:idInput")  
 Delay 3000  
 Call Plugin.Web.HtmlInput(Form1.mima.Text, "id:pwdInput")  
 Call Plugin.Web.HtmlClick("id:loginBtn")  
   
 Case 2   
 Call Plugin.Web.HtmlInput(Form1.zhanghu.Text, "id:Email")  
Delay 3000  
Call Plugin.Web.HtmlInput(Form1.mima.Text, "id:Passwd")  
Call Plugin.Web.HtmlClick("id:signIn")  
 Case 3  
  
 Call Plugin.Web.HtmlInput(Form1.zhanghu.Text, "id:i0116")  
Delay 3000  
Call Plugin.Web.HtmlInput(Form1.mima.Text, "id:i0118&Name:passwd")  
Call Plugin.Web.HtmlClick("id:idSIButton9")  
  
End Select  
   
  
  
  
  
  
  
End Event  
Event Form1.youxiang.SelectChange  
Select Case Form1.youxiang.ListIndex  
    Case 0  
    Form1.wangzhi.Text = "http://mail.126.com/"  
    panduan=1  
    Case 1  
    Form1.wangzhi.Text = "https://accounts.google.com/ServiceLogin?service=mail&passive=true&rm=false&continue=http://mail.google.com/mail/&scc=1<mpl=default<mplcache=2&hl=zh-CN"  
    panduan=2  
    Case 2  
    Form1.wangzhi.Text = "https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1363582913&rver=6.1.6206.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx&lc=2052&id=64855&mkt=zh-cn&cbcxt=mai&snsc=1"  
    panduan=3  
End Select  
  
End Event  
Event Form1.Timer1.Timer  
Form1.shijian.Caption = time  
Form1.riqi2.Caption=date  
  
  
End Event  
Event Form1.riqi2.Click  
  
End Event