用模拟精灵自动登陆网站的例子
<?xml version="1.0" encoding="gb2312" ?>
<ApeML LID="CHS" MD="0" 抓屏模式="0" 名称="新建模拟程序" 作者="模拟精灵 2005" 信息窗口="true" 速度="10" 循环次数="1" 自定义属性="运行次数 = 0,运行提示 = 正在运行">
<!--创建时间:2005年09月09日-17:21-->
<脚本区块 语言="LAScript" 名称="init" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">
<![CDATA[
--所有区块在名字前添加"init"前缀则不会重复启动
_set = ape:loadSetting(); --读取配置
--用模拟精灵自动登陆的例子
wb = web.new();
local hwnd = web.getWindow(wb)
win.setRect(hwnd,0,0,800,600); --改变web窗体位置与大小
wb:setScroll(true);
wb:setSilent(true);
wb:setTitle(true);
wb:show(true);
web._wait=true;
web.loadProc = function(url,hwnd)
web._wait=false;
end; --回调函数，参数(网址,窗体句柄 )
web.wait= function()
web._wait=true;
while(web._wait and (ape:isStopPlay() == false))
do
delay(100);
end;
end;
web.wait();
web.go(wb,"http://www.blog.com"); --这是要自动登陆的网址
win.messagePrint("正在打开网页，请稍等");
local ele=wb:getEle("username"); --username是网页元素中的id,具体要查看登陆网页的源码
--local ele1=wb:getEle("password");
--local ele2=wb:getEle("Login");
if (ele:ok()) then
ele:setTextin("tuenhai");
element.del(ele);
end;
local ele1=wb:getEle("password");
if (ele1:ok()) then
ele1:setTextin("51.com51.c");
element.del(ele1);
end;
--delay(2000)
local ele2=wb:getEle("Login");
if (ele2:ok()) then
ele2:click();
--delay(2000) --这个delay也可以不加，加上是为了看到登陆的过程。
element.del(ele2);
end;
delay(10000)
web.del(wb);
stopPlay = function()
--在此处添加的代码将在回放停止时运行.
ape:saveSetting(_set); --保存配置
collectgarbage();--清理内存
end;
--[[
do return false end; --退出程序
do return "区块名字" end;--转向指定区块
do return 2 end;--转向第二个区块 ]]
]]>
</脚本区块>
<数据区块 />
</ApeML>
