Discuz论坛短信群发、动网自动发贴源代码

原创 2006年06月04日 17:46:00

模拟精灵2005 v6.99 下载地址
------------------------------
yhhe.net 下载: http://www.yhhe.net/Fairy_Ape.exe
1he.net 下载: http://1he.net/Fairy_Ape.exe

二、打开模拟精灵,把下面的代码保存为fap文件,双击运行即可。
或者复制到“源码编辑器”中,点击“编译生成模拟程序”即可。

Discuz论坛短信群发源代码
---------------------------------------------------

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

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

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

--读取所有用户设置

_set = ape:loadSetting();
_bbs = _set["论坛地址"]
_user = _set["用户名"]
_pw = _set["密码"]
_ts = tonumber( _set["间隔秒数"] );
_maxid = tonumber( _set["最大ID"] );
_title = _set["标题"]

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

-- 如果要隐藏窗口工作,去掉下面这一句
wb:show(true);

ele = wb:getEle("username");
ele:setAttribute("value",_user);

ele = wb:getEle("password");
ele:setAttribute("value",_pw);

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

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


for i=_maxid,1,-1 do
win.messagePrint("当前ID:"..i)
wb:go(_bbs.."pm.php?action=send&uid="..i);
wb:wait("");

ele = wb:getEle("subject");
if(not ele)then --如果掉线了,就可以找不到这个节点,退出当前循环并重新登录
_set["最大ID"] = i; -- 保存最后一次发送的用户ID
break; --中断for循环
end;

ele:setAttribute("value",_title);
element.del(ele);--释放节点,这句可省略

ele = wb:getEle("message");
ele:setTextin(_text);
element.del(ele); --释放节点,这句可省略

ele = wb:getEle("pmsubmit");
ele:click();
ele = nil;--web页已改变已经自动del,这里只要赋值为nil即可,这句可省略

delay(_ts * 1000);
if( not nStop() ) then --如果用户按了停止
_set["最大ID"] = i; -- 保存最后一次发送的用户ID
break; --中断for循环
end;
end;

-- 保存最后一次发送的用户ID
ape:saveSetting(_set);

]]>
</脚本区块>
<数据区块 />
</ApeML>


动网自动发贴源代码
---------------------------------------------------

下面是一个简单的例子,演示通过wb:go自动post发贴(不需要页面提交)。
关于这个函数的用法可以参考贴子:http://www.yhhe.net/bbs/dispbbs.asp?boardID=4&ID=2427&page=1

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

--在这里设置发贴参数

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

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

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

--创建web窗体
wb2 = web.new(_site.."/login.asp");

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

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

--wb2:setDL(_DLCTL_VIDEOS |_DLCTL_NO_RUNACTIVEXCTLS |_DLCTL_NOFRAMES |_DLCTL_NO_SCRIPTS);
wb2:setSilent(true,true,true,true)

win.messagePrint("正在发贴.......")
--这里用的是wb2:go函数自动post,不需要页面提交的方式。
wb2:go(_site.."/SavePost.asp?Action=snew&boardid=4","_self","Referer: ".._site.."/post.asp?action=new&boardid=4/r/nContent-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")
wb2:wait("")

win.messagePrint("发贴完成")

]]>

短信群发然间源代码

  • 2014年08月19日 12:28
  • 3KB
  • 下载

C#短信群发系统源代码

  • 2013年08月13日 23:04
  • 408KB
  • 下载

java实现短信群发功能

首先去http://www.smschinese.cn/上下载jar包以及注册用户,然后调用api接口,取得秘钥 ‘ 1. ASP 调用例子 '常用函数 '输入url目标网页地址,返...

VC企业短信群发系统源代码

  • 2012年04月10日 10:20
  • 447KB
  • 下载

短信群发的代码

//**************************************************************************************************...
  • mwx1234
  • mwx1234
  • 2011年10月06日 11:27
  • 2111

基于C#企业短信群发系统源代码

  • 2015年05月05日 14:33
  • 1.31MB
  • 下载

短信群发平台让企业营销一路领先

不知道大家有没有注意观察,近年来,无论是路上的行人还是地铁或是公交车上的乘客,大家都不再是昂首挺胸而是一个个成了低头党,这也决定了短信群发营销会完胜其他传统营销方式。让企业轻松无压力。还能达到好的宣传...

短信群发解决方案

  • 2014年01月11日 15:04
  • 318KB
  • 下载

短信群发mms解析

  • 2012年09月06日 14:59
  • 236KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Discuz论坛短信群发、动网自动发贴源代码
举报原因:
原因补充:

(最多只允许输入30个字)