[Common]
Description=
HotKeyStart=119
HotKeyStop=122
HotKeyPause=0
Enabled=0
RunOnce=1

[Data]


[Script]
//ЩűҪõSE_Web.dllҳ
//ûЩhttp://bbs.dxqsoft.com
var IE=0    //IE
var s=""
Main:
  //ȣһµIE
  set IE=IENewObj("www.sina.com.cn",-1)
  //ƹ֤޴κβ
  if IEItemExists(IE,"tag:a,txt:֪*")
    do IEClick(IE,"tag:a,Txt:֪*")
  endif
  do IEWaitComplete(IE,-1)     //ȴҳ
  //ʾIEִԶJavaScriptű
  do IEexecScript(IE,"alert('ҳϣok');","JavaScript")
  //IEԻ,ʾҪ̨ģ궯
  do IEAlert(IE,"ģ̨Ҽ")
  do SendMouseKey(IEGetHwnd(IE),"RClick",1,100,100,50)
  Delay 2000
  //IEԻʾҪƵ
  do IEAlert(IE,"ڽƵ")
  //ģʾΪ""ĳ
  do IEClick(IE,"tag:a,txt:**")
  //delay 1000                    //ҳиԶת
  do IEWaitComplete(IE,-1)      //ȴҳ
  //ѡ񲻷أ򷴸ʾ
  while IEConfirm(IE,"Ƿ񷵻һ")=0
  EndWhile
  do IEBack(IE)
  do IEWaitComplete(IE,-1)      //ȴҳ
  //ڿʼ½
  //ѡ
  do IEexecScript(IE,"LoginSelect('freemail');","JavaScript")
  //IEPromptIE7ϰ汾InternetվԶ
  //SeԼGetInputStr
  //set s=IEPrompt(IE,"ڿʼ½䣬û","")
  set s=GetInputStr("ڿʼ½䣬û:")
  if s<>""
    do IESetAttribute(IE,"tag:input,name:username","value",s)
    //set s=IEPrompt(IE,"","")
    set s=GetInputStr(":")
    do IESetAttribute(IE,"tag:input,name:password","value",s)
    do IEClick(IE,"tag:input,type:submit,value:¼")
    do IEWaitComplete(IE,-1)
    do IEAlert(IE,"ϣ")
  endif
EndMain

Finally
  if IEConfirm(IE,"ǷرմIEڣ")=1
    do IEClose(IE)
  Endif
End
