运行环境：分辨率：1680×1050 色深：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