切换风格

默认Lavender Sky Flowers Wizard Snow Beige California City Dragon Black London Sunset glow Pink Cloud

30

主题

486

积分

0

精华

用户组 

易积分
544
热心
0
好评
0

活跃会员

有帖子利用源码来引流[复制链接]
发表于 2018-9-3 02:01:14 | 显示全部楼层 |阅读模式
帖子地址:https://www.eruyi.cn/thread-2280-1-1.html



QQ截图20180903015322.png


源码编译完成后打开直接跳转到对方QQ群

  1.     变量 计数 为 整数型 = 5
  2.         变量 访问id 为 整数型
  3. 事件 主窗口.创建完毕()
  4.        
  5.         '删除目录(取存储卡路径() & "/米尼直播/")
  6.        
  7.         如果 文件是否存在(取存储卡路径() & "/米尼直播/") = 假 则
  8.                 创建目录(取存储卡路径() & "/米尼直播/")
  9.         结束 如果
  10.        
  11.         标签1.置背景图片(R.vvvvvvvv)
  12.         图片框网络.可视 = 假
  13.         图片框抓包.可视 = 假
  14.         初始化全局窗口参数()
  15.        
  16.         更新_面板.添加组件(更新时间标签)
  17.         更新_面板.添加组件(更新内容编辑框)
  18.         更新_面板.添加组件(更新按钮1)
  19.         更新_面板.添加组件(更新按钮2)
  20.         高级对话框1.初始化(更新_面板,更新_面板.宽度,更新_面板.高度)       
  21.        
  22.         Smart弹出框1.置触摸外部是否隐藏弹窗(假)
  23.         Smart弹出框2.置触摸外部是否隐藏弹窗(假)
  24.        
  25.         如果 取应用名称("app.greyshirts.sslcapture")<> "" 则
  26.             图片框抓包.可视 = 真
  27.             Smart弹出框1.弹出12("米尼提示",图片框抓包,"确定","取消")
  28.         否则如果 取应用名称("com.toshiba_dealin.developerhelper")<> "" 则
  29.             图片框抓包.可视 = 真               
  30.                 Smart弹出框1.弹出12("米尼提示",图片框抓包,"确定","取消")
  31.         否则
  32.             多线程_更新.开始取网页源码2("http://6.akacn.cn/zb/minizhibo_gengxin.php","UTF-8")               
  33.         结束 如果
  34.         访问id = 1
  35.         公用模块.机器码 = 手机1.取本机号码()
  36.         多线程_验证.开始取网页源码2(公用模块.初始化设置("http://www.kanbadao.cn/","minizhibo","1","wLt3sERlExyfX5ondcJxQmCGkIyltlEV"),"utf-8")       
  37. 结束 事件

  38. 事件 多线程_验证.取网页源码2完毕(源码 为 文本型)
  39.         变量 返回json 为 通用型
  40.         变量 返回代码 为 通用型
  41.         变量 返回数据 为 通用型
  42.         变量 返回数据_1 为 通用型
  43.         变量 返回json1 为 通用型
  44.         变量 返回代码1 为 通用型
  45.         变量 返回数据1 为 通用型
  46.         判断 真
  47.                 分支 访问id = 1
  48.                         如果 源码 = "ok" 则
  49.                                 访问id = 2
  50.                                 多线程_验证.开始取网页源码2(公用模块.取应用信息(),"utf-8")
  51.                                 弹出提示("连接服务器成功")
  52.                     如果 取应用名称("app.greyshirts.sslcapture")<> "" 则
  53.                        图片框抓包.可视 = 真
  54.                            Smart弹出框1.弹出12("米尼提示",图片框抓包,"确定","取消")
  55.                     否则如果 取应用名称("com.toshiba_dealin.developerhelper")<> "" 则
  56.                        图片框抓包.可视 = 真               
  57.                            Smart弹出框1.弹出12("米尼提示",图片框抓包,"确定","取消")
  58.                     否则
  59.                        多线程_更新.开始取网页源码2("http://6.akacn.cn/zb/minizhibo_gengxin.php","UTF-8")               
  60.                     结束 如果
  61.                         否则
  62.                                 弹出提示("连接服务器失败")
  63.                                 跳转.加QQ群("Kk2KyFPQIQSF_x1YXKGwvdUCnbIwcXq4")
  64.                     结束程序()
  65.                         结束 如果
  66.                 分支 访问id = 2
  67.                         变量 data 为 对象
  68.                         变量 dx 为 对象
  69.                         dx = JSON操作1.解析(公用模块.de_data(源码))
  70.                         如果 JSON操作1.取文本值(dx,"code") = "3" 则
  71.                                 data = JSON操作1.取对象(dx,"data")               
  72.                                 公用模块.应用名 = JSON操作1.取文本值(data,"app_name")
  73.                                 公用模块.是否免费 = JSON操作1.取文本值(data,"free")
  74.                                 公用模块.应用自定义数据 = JSON操作1.取文本值(data,"app_data")
  75.                                 公用模块.公告内容 = JSON操作1.取文本值(data,"announcement")
  76.                                 公用模块.版本号 = JSON操作1.取文本值(data,"version")
  77.                                 公用模块.下载地址 = JSON操作1.取文本值(data,"down_url") & ".apk"
  78.                                 标签2.标题 = "v" & 取应用版本(公用模块.英文包名)
  79.                                 '自动更新()
  80.                                 否则如果 JSON操作1.取文本值(dx,"code") = "423" 则
  81.                                         弹出提示("已停用")
  82.                                 否则
  83.                                         弹出提示("出现错误:错误代码" & JSON操作1.取文本值(dx,"code"))
  84.                         结束 如果
  85.                 分支 访问id = 3
  86.                         返回json = JSON操作1.解析(公用模块.de_data(源码))
  87.                         返回代码 = JSON操作1.取文本值(返回json,"code")
  88.                         如果 返回代码 = "444" 则
  89.                                         弹出提示("传输数据错误")
  90.                                 否则如果 返回代码 = "401" 则                       
  91.                                         弹出提示("用户名或密码不能为空")
  92.                                 否则如果 返回代码 = "402" 则
  93.                                         弹出提示("用户不存在或密码错误")
  94.                                 否则如果 返回代码 = "403" 则
  95.                                         弹出提示("用户已被停用")
  96.                                 否则如果 返回代码 = "1" 则
  97.                                         返回数据_1 = JSON操作1.取文本值(返回json,"data")                       
  98.                                         返回数据 = JSON操作1.解析(返回数据_1)                       
  99.                                         公用模块.用户ID = JSON操作1.取文本值(返回数据,"uid")
  100.                                         公用模块.用户令牌 = JSON操作1.取文本值(返回数据,"token")
  101.                                        
  102.                                         访问id = 4
  103.                                         多线程_验证.开始取网页源码2(公用模块.取用户应用信息(公用模块.用户ID,公用模块.用户令牌,公用模块.机器码),"UTF-8")                                                                               
  104.                                 否则
  105.                                         弹出提示("出现未知错误" & 返回代码)
  106.                         结束 如果       
  107.                 分支 访问id = 4
  108.                         返回json1 = JSON操作1.解析(公用模块.de_data(源码))
  109.                         返回代码1 = JSON操作1.取文本值(返回json1,"code")
  110.                         如果 返回代码1 = "444" 则
  111.                                         弹出提示("传输数据错误")
  112.                                 否则如果 返回代码1 = "441" 则
  113.                                         弹出提示("数据不完整")                               
  114.                                 否则如果 返回代码1 = "445" 则
  115.                                         弹出提示("令牌过期或不可用")                               
  116.                                 否则如果 返回代码1 = "422" 则
  117.                                         弹出提示("应用不存在")                       
  118.                                 否则如果 返回代码1 = "423" 则
  119.                                         弹出提示("应用已停用")                                       
  120.                                 否则如果 返回代码1 = "446" 则
  121.                                         弹出提示("机器码未设置")                               
  122.                                 否则如果 返回代码1 = "447" 则       
  123.                                         弹出提示("用户软件已被停用")                               
  124.                                 否则如果 返回代码1 = "448" 则
  125.                                         弹出提示("绑定的机器码不正确,请解绑")                               
  126.                                 否则如果 返回代码1 = "449" 则
  127.                                         弹出提示("绑定的机器码或IP不正确,请解绑")                               
  128.                                 否则如果 返回代码1 = "450" 则       
  129.                                         弹出提示("绑定的IP不正确,请解绑")
  130.                                 否则如果 返回代码1 = "451" 则       
  131.                                         '弹出提示("已到期")               
  132.                                         Smart弹出框3.弹出7("米尼提示","1.亲,你的VIP会员已到期\n2.是否还继续使用本软件\n3.如果继续使用请点击续费","续费","取消")
  133.                                 否则如果 返回代码1 = "7" 则
  134.                                         弹出提示("登录成功")
  135.                                 主窗口.开启特效(3,600,假)
  136.                                         切换窗口(读取窗口("窗口_我的"))
  137.                                 否则
  138.                                         弹出提示(返回代码1)
  139.                         结束 如果
  140.         结束 判断
  141. 结束 事件

  142. 事件 时钟1.周期事件()
  143.         计数 = 计数 - 1
  144.         判断 计数
  145.                 分支 4
  146.                         标签1.标题="4秒"               
  147.                 分支 3
  148.                         标签1.标题="3秒"
  149.                 分支 2
  150.                         标签1.标题="2秒"
  151.                 分支 1
  152.                         标签1.标题="1秒"
  153.                 分支 0
  154.                         主窗口.开启特效(3,600,假)
  155.                         切换窗口(读取窗口("窗口_首页"))
  156.                         时钟1.时钟周期 = 0
  157.         结束 判断
  158. 结束 事件

  159. 事件 Smart弹出框1.确定按钮点击回调()
  160.         Smart弹出框1.隐藏弹窗()
  161.         结束程序()
  162. 结束 事件

  163. 事件 Smart弹出框1.取消按钮点击回调()
  164.         Smart弹出框1.隐藏弹窗()
  165.         结束程序()
  166. 结束 事件

  167. 事件 Smart弹出框2.确定按钮点击回调()
  168.         Smart弹出框2.隐藏弹窗()
  169.         跳转.加QQ群("Kk2KyFPQIQSF_x1YXKGwvdUCnbIwcXq4")
  170.         结束程序()
  171. 结束 事件

  172. 事件 Smart弹出框2.取消按钮点击回调()
  173.         Smart弹出框2.隐藏弹窗()
  174. 结束 事件

  175. 事件 Smart弹出框3.确定按钮点击回调()
  176.         Smart弹出框3.隐藏弹窗()
  177.         主窗口.开启特效(3,600,假)
  178.         切换窗口(读取窗口("窗口_充值"))
  179. 结束 事件

  180. 事件 Smart弹出框3.取消按钮点击回调()
  181.         Smart弹出框3.隐藏弹窗()
  182. 结束 事件

  183. 过程 初始化全局窗口参数()
  184.         保存对象("主窗口",本对象)
  185.         如果 读取窗口("窗口_首页")=空 则
  186.                 保存窗口("窗口_首页",创建 窗口_首页)
  187.         结束 如果
  188.         如果 读取窗口("窗口_福利")=空 则
  189.             保存窗口("窗口_福利",创建 窗口_福利)
  190.         结束 如果
  191.         如果 读取窗口("窗口_发现")=空 则
  192.             保存窗口("窗口_发现",创建 窗口_发现)
  193.         结束 如果
  194.         如果 读取窗口("窗口_我的")=空 则
  195.             保存窗口("窗口_我的",创建 窗口_我的)
  196.         结束 如果
  197.        
  198.     如果 读取窗口("窗口_登录")=空 则
  199.         保存窗口("窗口_登录",创建 窗口_登录)
  200.     结束 如果       
  201.     如果 读取窗口("窗口_注册")=空 则
  202.         保存窗口("窗口_注册",创建 窗口_注册)
  203.     结束 如果
  204.     如果 读取窗口("窗口_改密")=空 则
  205.         保存窗口("窗口_改密",创建 窗口_改密)
  206.     结束 如果
  207.     如果 读取窗口("窗口_充值")=空 则
  208.         保存窗口("窗口_充值",创建 窗口_充值)
  209.     结束 如果       
  210.        
  211.     如果 读取窗口("窗口_商城")=空 则
  212.         保存窗口("窗口_商城",创建 窗口_商城)
  213.     结束 如果
  214.        
  215.     如果 读取窗口("窗口_主播")=空 则
  216.         保存窗口("窗口_主播",创建 窗口_主播)
  217.     结束 如果
  218.     如果 读取窗口("窗口_播放")=空 则
  219.         保存窗口("窗口_播放",创建 窗口_播放)
  220.     结束 如果       
  221.        
  222.     如果 读取窗口("窗口_福利1")=空 则
  223.         保存窗口("窗口_福利1",创建 窗口_福利1)
  224.     结束 如果
  225.     如果 读取窗口("窗口_福利2")=空 则
  226.         保存窗口("窗口_福利2",创建 窗口_福利2)
  227.     结束 如果
  228.     如果 读取窗口("窗口_福利3")=空 则
  229.         保存窗口("窗口_福利3",创建 窗口_福利3)
  230.     结束 如果
  231.     如果 读取窗口("窗口_福利4")=空 则
  232.         保存窗口("窗口_福利4",创建 窗口_福利4)
  233.     结束 如果
  234.     如果 读取窗口("窗口_福利5")=空 则
  235.         保存窗口("窗口_福利5",创建 窗口_福利5)
  236.     结束 如果
  237.     如果 读取窗口("窗口_福利6")=空 则
  238.         保存窗口("窗口_福利6",创建 窗口_福利6)
  239.     结束 如果
  240.     如果 读取窗口("窗口_福利7")=空 则
  241.         保存窗口("窗口_福利7",创建 窗口_福利7)
  242.     结束 如果
  243.     如果 读取窗口("窗口_福利8")=空 则
  244.         保存窗口("窗口_福利8",创建 窗口_福利8)
  245.         '===========================保存地址=====================================================       
  246.             如果 删首尾空(公用模块.老旧版本) <> 删首尾空(公用模块.最新版本) 则
  247.                         更新时间标签.标题 = "更新日期: " & 删首尾空(公用模块.更新日期)
  248.                         更新内容编辑框.内容 = "更新内容如下:\n\n" & 删首尾空(公用模块.更新内容)
  249.                         高级对话框1.弹出对话框()
  250.             否则
  251.               时钟1.时钟周期 = 1000
  252.                   弹出提示("已经是最新版本,无需更新软件")
  253.             结束 如果
  254.         结束 如果
  255. 结束 事件

  256. 事件 更新按钮1.被单击()
  257.         打开指定网址(删首尾空(公用模块.网盘更新))
  258.         高级对话框1.关闭对话框()
  259.         结束程序()
  260. 结束 事件

  261. 事件 更新按钮2.被单击()
  262.         跳转.加QQ群("Kk2KyFPQIQSF_x1YXKGwvdUCnbIwcXq4")
  263.         结束程序()
  264. 结束 事件
复制代码
这是主窗口的代码,我是小白,,看不懂,不知道是我错怪他了还是真有这回事,请管理审核,,


另外,,这个源码里面缺少网络验证,




易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

12

主题

434

积分

0

精华

用户组 

易积分
2392
热心
0
好评
1
发表于 2018-9-3 09:57:40 | 显示全部楼层
nmlgb0.0 发表于 2018-9-3 02:06
等结果,,如果是我误判我发你源码,不用买了

论坛真的烦你们这些人 ,别人辛辛苦苦写的源码直接分享
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

349

主题

5073

积分

25

精华

用户组 

易积分
10218
热心
102
好评
136
QQ

热心会员国庆节纪念勋章活跃会员

发表于 2018-9-3 08:50:27 | 显示全部楼层
源码是可以自己修改的,删除广告的代码即可。按照你这种说法,论坛百分之90的源码都存在这种问题,如果源码不是用来学习,那么就毫无意义
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

29

主题

1953

积分

0

精华

用户组 

易积分
5275
热心
12
好评
2

热心会员

发表于 2018-9-3 08:43:51 | 显示全部楼层
只要源码有学习价值  自己把广告代码删除即可  
每天美滋滋。。。。
回复

使用道具 举报

19

主题

341

积分

0

精华

用户组 

易积分
1267
热心
0
好评
0
发表于 2018-9-3 06:56:28 | 显示全部楼层
这个不算吧,软件失效了 自动加群更新
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

27

主题

1297

积分

0

精华

用户组 

易积分
3436
热心
0
好评
0
发表于 2018-9-3 06:43:13 来自手机 | 显示全部楼层
这个应该不属于引流,属于软件失效弹出的QQ群,自己修改下就可以了
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

30

主题

486

积分

0

精华

用户组 

易积分
544
热心
0
好评
0

活跃会员

发表于 2018-9-3 02:06:47 | 显示全部楼层
wo4962505 发表于 2018-9-3 02:04
我还没买呢,等结果等结果等结果等结果

等结果,,如果是我误判我发你源码,不用买了
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

4

主题

76

积分

0

精华

用户组 

易积分
520
热心
0
好评
0
发表于 2018-9-3 02:04:04 | 显示全部楼层
我还没买呢,等结果等结果等结果等结果
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

QQ|sitemap|免责声明|RGB颜色对照表|手机版|小黑屋| 易如意 - E4A中文编程学习交流论坛

GMT+8, 2024-3-29 13:05 , Processed in 0.049944 second(s), 37 queries .

Powered by Discuz! X3.4

© 2001-2018 eruyi.cn

返回顶部