<?xml version="1.0" encoding="gb2312" ?>Mmz北方站长站
<ApeML LID="CHS" MD="0" 抓屏模式="0" 名称="Discuz论坛短信群发" 作者="模拟精灵 2005" 信息窗口="true" 速度="10" 循环次数="0" 自定义属性="最大ID = 78114,论坛地址=http://bbs.******.com/,用户名=aaaaa,密码=bbbbbbbb,标题=惊人发现,间隔秒数 = 31">Mmz北方站长站
<!--创建时间:2006年05月05日-22:36-->Mmz北方站长站
<脚本区块 语言="LAScript" 名称="短信群发" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">Mmz北方站长站
<![CDATA[Mmz北方站长站

--请在这里设置要发送的短信内容Mmz北方站长站
_text = [[给您介绍一个最新的免费绿色超强大的模拟软件Mmz北方站长站
官方网站http://www.yhhe.net/ape/Mmz北方站长站

您收到的消息由软件自动发送，Mmz北方站长站
您可以在几分钟内做出类似的程序。]]Mmz北方站长站

--读取所有用户设置Mmz北方站长站
Mmz北方站长站
_set = ape:loadSetting(); Mmz北方站长站
_bbs = _set["论坛地址"]Mmz北方站长站
_user = _set["用户名"]Mmz北方站长站
_pw = _set["密码"]Mmz北方站长站
_ts = tonumber( _set["间隔秒数"] );Mmz北方站长站
_maxid = tonumber( _set["最大ID"] );Mmz北方站长站
_title = _set["标题"]Mmz北方站长站

-- 打开登录页面Mmz北方站长站
wb = web(_bbs.."logging.php?action=login");Mmz北方站长站

-- 如果要隐藏窗口工作，去掉下面这一句Mmz北方站长站
wb:show(true);Mmz北方站长站

ele = wb:getEle("username");Mmz北方站长站
ele:setAttribute("value",_user);Mmz北方站长站

ele = wb:getEle("password");Mmz北方站长站
ele:setAttribute("value",_pw);Mmz北方站长站

--点击登录按键 这里用 ele:submit() 会失败Mmz北方站长站
ele = wb:getEle("loginsubmit");Mmz北方站长站
ele:click()Mmz北方站长站

--等待登录完成并转向index.php首页Mmz北方站长站
wb:wait("index.php");Mmz北方站长站

Mmz北方站长站
for i=_maxid,1,-1 do Mmz北方站长站
win.messagePrint("当前ID:"..i) Mmz北方站长站
wb:go(_bbs.."pm.php?action=send&uid="..i);Mmz北方站长站
wb:wait("");Mmz北方站长站
Mmz北方站长站
ele = wb:getEle("subject");Mmz北方站长站
if(not ele)then --如果掉线了，就可以找不到这个节点，退出当前循环并重新登录Mmz北方站长站
_set["最大ID"] = i; -- 保存最后一次发送的用户IDMmz北方站长站
break; --中断for循环Mmz北方站长站
end;Mmz北方站长站
Mmz北方站长站
ele:setAttribute("value",_title);Mmz北方站长站
element.del(ele);--释放节点，这句可省略Mmz北方站长站
Mmz北方站长站
ele = wb:getEle("message");Mmz北方站长站
ele:setTextin(_text);Mmz北方站长站
element.del(ele); --释放节点，这句可省略Mmz北方站长站
Mmz北方站长站
ele = wb:getEle("pmsubmit");Mmz北方站长站
ele:click();Mmz北方站长站
ele = nil;--web页已改变已经自动del，这里只要赋值为nil即可，这句可省略Mmz北方站长站
Mmz北方站长站
delay(_ts * 1000);Mmz北方站长站
if( not nStop() ) then --如果用户按了停止Mmz北方站长站
_set["最大ID"] = i; -- 保存最后一次发送的用户IDMmz北方站长站
break; --中断for循环Mmz北方站长站
end;Mmz北方站长站
end;Mmz北方站长站

-- 保存最后一次发送的用户IDMmz北方站长站
ape:saveSetting(_set);Mmz北方站长站

]]>Mmz北方站长站
</脚本区块>Mmz北方站长站
<数据区块 />Mmz北方站长站
</ApeML>Mmz北方站长站
Mmz北方站长站

<?xml version="1.0" encoding="gb2312" ?>Mmz北方站长站
<ApeML LID="CHS" MD="0" 抓屏模式="0" 名称="动网自动发贴" 作者="模拟精灵 2005" 信息窗口="true" 速度="10" 循环次数="1" 自定义属性="用户选项=0">Mmz北方站长站
<!--创建时间:2006年05月04日-10:51-->Mmz北方站长站
<脚本区块 语言="LAScript" 名称="init" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">Mmz北方站长站
<![CDATA[Mmz北方站长站

--在这里设置发贴参数Mmz北方站长站

_site = "http://www.****.com/bbs";Mmz北方站长站
_username="测试用户名";Mmz北方站长站
_body = "自动发的贴子";Mmz北方站长站
_topic = "模拟精灵发贴测试";Mmz北方站长站
_passwd ="1111111111111111111";Mmz北方站长站

-- setDL函数可能用到的常量Mmz北方站长站

_DLCTL_VIDEOS = 0x00000020 --视频Mmz北方站长站
_DLCTL_NO_RUNACTIVEXCTLS = 0x00000200 --禁止运行ActiveX 控件Mmz北方站长站
_DLCTL_NOFRAMES = 0x00080000 --禁用框架Mmz北方站长站
_DLCTL_NO_SCRIPTS = 0x00000080 --禁用脚本Mmz北方站长站

--创建web窗体Mmz北方站长站
wb2 = web.new(_site.."/login.asp");Mmz北方站长站

--读取用户名输入框Mmz北方站长站
ele = wb2:getEle("username");Mmz北方站长站
--输入用户名Mmz北方站长站
ele:setAttribute("value",_username);Mmz北方站长站
--读取密码输入框Mmz北方站长站
ele = wb2:getEle("password");Mmz北方站长站
--输入密码Mmz北方站长站
ele:setAttribute("value",_passwd);Mmz北方站长站

web.show(wb2,true)Mmz北方站长站
win.messagePrint("请登录论坛......")Mmz北方站长站
--等待登录Mmz北方站长站
wb2:wait("action=chk");Mmz北方站长站

--wb2:setDL(_DLCTL_VIDEOS |_DLCTL_NO_RUNACTIVEXCTLS |_DLCTL_NOFRAMES |_DLCTL_NO_SCRIPTS);Mmz北方站长站
wb2:setSilent(true,true,true,true)Mmz北方站长站

win.messagePrint("正在发贴.......")Mmz北方站长站
--这里用的是wb2:go函数自动post，不需要页面提交的方式。Mmz北方站长站
wb2:go(_site.."/SavePost.asp?Action=snew&boardid=4","_self","Referer: ".._site.."/post.asp?action=new&boardid=4rnContent-Type: application/x-www-form-urlencoded","upfilerename=&Body=".._body.."&dvbbs=DvForum&star=1&page=1&TotalUseTable=dv_bbs1&username=".._username.."&passwd=**********&font=&topic=".._topic.."&Expression=face1.gif&autofix=1&GetPostType=&ToMoney=&Buy_Orders=-1&Buy_VIPType=0&Buy_UserList=&signflag=yes&emailflag=0")Mmz北方站长站
wb2:wait("")Mmz北方站长站

win.messagePrint("发贴完成")Mmz北方站长站

]]>Mmz北方站长站
Mmz北方站长站