发帖脚本脚本 自动 发帖

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

_site = " http://*.*.*.*";

--取得内容
str = string.load("c:\\内容.txt","rt")
_tstr = string.split( str,"\n")
--上面两句放到init区块

n = ape:runCount(); --得到当前循环次数
mn = table.maxn(_tstr); --取得数组大小

n = n % mn ; --求余,防止溢出,如循环次为12,数组只有5,求余就得2了
_content = _tstr[n]; --取出一个内容

--取得姓名
str = string.load("c:\\姓名.txt","rt")
_tstr2 = string.split( str,"\n")
--上面两句放到init区块

_username = _tstr2[n]; --取出一个用户名


-- setDL函数可能用到的常量