送精币了！！有兴趣的来练练手，一个Post操作！

木干鸟栖

PC狂人 发表于 2013-5-18 18:42
25精币也叫送精币……

支持

pcy1980

难道你的意思用代理ip投票？

程序开发推广

看来大家看不喜欢动脑呀！结束吧，看看我的答案！[e]
.版本 2
.支持库 iext
.支持库 spec
.支持库 EThread

.程序集变量 ip, 文本型
.程序集变量 i, 整数型

.子程序 _按钮_投票_被单击

.如果 (编辑框1.内容 ＝ “”)
    信息框 (“请输入所投票的ID”, 64, “兄弟网络”)
.否则
    投票 ()
.如果结束


.子程序 _选择框_挂机_被单击

.如果 (选择框_挂机.选中 ＝ 真)
    .如果真 (编辑框_时间.内容 ＝ “” 或 编辑框1.内容 ＝ “”)
        信息框 (“请输入投票的ID并设置间隔时间！”, 64, “兄弟网络”)
        选择框_挂机.选中 ＝ 假
    .如果真结束
    时钟1.时钟周期 ＝ 到整数 (编辑框_时间.内容) × 1000
.否则
    时钟1.时钟周期 ＝ 0
.如果结束


.子程序 投票
.局部变量 返回, 文本型
.局部变量 n, 整数型

网页_清除Cookie (“http://bbs.bbczjh.com/”)
程序_延时 (200)
状态条1.置文本 (5, ip)
状态条1.置文本 (1, 编辑框1.内容)
' 网页_访问s (“http://bbs.bbczjh.com/source/plugin/vote/ajaxvote.php”, 1, “id=47”, , , “Referer:http://bbs.bbczjh.com/plugin.php?id=vote:vote&page=2”)
返回 ＝ 网页_访问s (“http://bbs.bbczjh.com/source/plugin/vote/ajaxvote.php”, 1, “id=” ＋ 编辑框1.内容, , , “Referer:http://bbs.bbczjh.com/plugin.php?id=vote:vote&page=2”, , , , ip)
网页_清除Cookie (“http://bbs.bbczjh.com/”)
.判断开始 (寻找文本 (返回, “ok”, , 假) ≠ -1)
    n ＝ n ＋ 1
    状态条1.置文本 (3, 到文本 (n))
    .如果真 (写配置项 (取运行目录 () ＋ “\投票记录.ini”, “----投票记录----”, 到文本 (取现行时间 ()), 返回 ＋ #换行符) ＝ 假)
        信息框 (“配置文件写入失败！”, #确认钮, “兄弟网络”)
    .如果真结束

.默认

.判断结束

调试输出 (返回)

.子程序 _按钮_导入_被单击
.局部变量 h, 文本型, , "0"

通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ≠ “”)
    h ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
    .计次循环首 (取数组成员数 (h), i)
        .如果真 (h ≠ “”)
            列表框1.插入项目 (列表框1.取项目数 (), h , )
        .如果真结束

    .计次循环尾 ()
    信息框 (“共导入” ＋ 到文本 (列表框1.取项目数 ()) ＋ “个IP”, 64, )
.如果真结束


.子程序 _时钟1_周期事件
.局部变量 n, 整数型

调试输出 (“第” ＋ 到文本 (n ＋ 1) ＋ “次”)
投票 ()

.子程序 _选择框_代理_被单击

.如果真 (选择框_代理.选中 ＝ 真)
    .如果 (列表框1.取项目数 () ＝ 0)
        信息框 (“请导入IP代理！”, 64, )
        选择框_代理.选中 ＝ 假
    .否则
        .计次循环首 (列表框1.取项目数 () ＋ 1, i)
            ip ＝ 列表框1.取项目文本 (0)
            标签3.标题 ＝ ip
            启动线程 (&投票, , )
            列表框1.删除项目 (0)
            程序_延时 (取随机数 (2000, 5000))
            ' 程序_延时 (到整数 (编辑框_时间.内容) × 1000)
        .计次循环尾 ()
        选择框_代理.选中 ＝ 假
        信息框 (“代理投票完毕～”, 64, )
        标签3.标题 ＝ “”
    .如果结束

.如果真结束


.子程序 _窗口1_创建完毕

置随机数种子 ()

.子程序 _状态条1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

网页_打开指定网址 (“http://bbs.bbczjh.com/plugin.php?id=vote:vote&page=2”)
[/e]

程序开发推广

这是界面