[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")
  //由于IEPrompt函数在IE7及以上版本对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
