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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

win.messagePrint("正在发贴.......")QZR北方站长站
--这里用的是wb2:go函数自动post，不需要页面提交的方式。QZR北方站长站
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")QZR北方站长站
wb2:wait("")QZR北方站长站

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

]]>QZR北方站长站
QZR北方站长站