用模拟精灵自动登陆网站的例子

<?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>