有帖子利用源码来引流

nmlgb0.0 发表于 2018-9-3 02:01:14

帖子地址：https://www.eruyi.cn/thread-2280-1-1.html

源码编译完成后打开直接跳转到对方QQ群
变量计数为整数型 = 5
变量访问id 为整数型
事件主窗口.创建完毕()

'删除目录(取存储卡路径() & "/米尼直播/")

如果文件是否存在(取存储卡路径() & "/米尼直播/") = 假则
创建目录(取存储卡路径() & "/米尼直播/")
结束如果

标签1.置背景图片(R.vvvvvvvv)
图片框网络.可视 = 假
图片框抓包.可视 = 假
初始化全局窗口参数()

更新_面板.添加组件(更新时间标签)
更新_面板.添加组件(更新内容编辑框)
更新_面板.添加组件(更新按钮1)
更新_面板.添加组件(更新按钮2)
高级对话框1.初始化(更新_面板,更新_面板.宽度,更新_面板.高度)

Smart弹出框1.置触摸外部是否隐藏弹窗(假)
Smart弹出框2.置触摸外部是否隐藏弹窗(假)

如果取应用名称("app.greyshirts.sslcapture")<> "" 则
   图片框抓包.可视 = 真
   Smart弹出框1.弹出12("米尼提示",图片框抓包,"确定","取消")
否则如果取应用名称("com.toshiba_dealin.developerhelper")<> "" 则
   图片框抓包.可视 = 真
Smart弹出框1.弹出12("米尼提示",图片框抓包,"确定","取消")
否则
   多线程_更新.开始取网页源码2("http://6.akacn.cn/zb/minizhibo_gengxin.php","UTF-8")
结束如果
访问id = 1
公用模块.机器码 = 手机1.取本机号码()
多线程_验证.开始取网页源码2(公用模块.初始化设置("http://www.kanbadao.cn/","minizhibo","1","wLt3sERlExyfX5ondcJxQmCGkIyltlEV"),"utf-8")
结束事件

事件多线程_验证.取网页源码2完毕(源码为文本型)
变量返回json 为通用型
变量返回代码为通用型
变量返回数据为通用型
变量返回数据_1 为通用型
变量返回json1 为通用型
变量返回代码1 为通用型
变量返回数据1 为通用型
判断真
分支访问id = 1
如果源码 = "ok" 则
访问id = 2
多线程_验证.开始取网页源码2(公用模块.取应用信息(),"utf-8")
弹出提示("连接服务器成功")
            如果取应用名称("app.greyshirts.sslcapture")<> "" 则
               图片框抓包.可视 = 真
            Smart弹出框1.弹出12("米尼提示",图片框抓包,"确定","取消")
            否则如果取应用名称("com.toshiba_dealin.developerhelper")<> "" 则
               图片框抓包.可视 = 真
            Smart弹出框1.弹出12("米尼提示",图片框抓包,"确定","取消")
            否则
               多线程_更新.开始取网页源码2("http://6.akacn.cn/zb/minizhibo_gengxin.php","UTF-8")
            结束如果
否则
弹出提示("连接服务器失败")
跳转.加QQ群("Kk2KyFPQIQSF_x1YXKGwvdUCnbIwcXq4")
            结束程序()
结束如果
分支访问id = 2
变量 data 为对象
变量 dx 为对象
dx = JSON操作1.解析(公用模块.de_data(源码))
如果 JSON操作1.取文本值(dx,"code") = "3" 则
data = JSON操作1.取对象(dx,"data")
公用模块.应用名 = JSON操作1.取文本值(data,"app_name")
公用模块.是否免费 = JSON操作1.取文本值(data,"free")
公用模块.应用自定义数据 = JSON操作1.取文本值(data,"app_data")
公用模块.公告内容 = JSON操作1.取文本值(data,"announcement")
公用模块.版本号 = JSON操作1.取文本值(data,"version")
公用模块.下载地址 = JSON操作1.取文本值(data,"down_url") & ".apk"
标签2.标题 = "v" & 取应用版本(公用模块.英文包名)
'自动更新()
否则如果 JSON操作1.取文本值(dx,"code") = "423" 则
弹出提示("已停用")
否则
弹出提示("出现错误:错误代码" & JSON操作1.取文本值(dx,"code"))
结束如果
分支访问id = 3
返回json = JSON操作1.解析(公用模块.de_data(源码))
返回代码 = JSON操作1.取文本值(返回json,"code")
如果返回代码 = "444" 则
弹出提示("传输数据错误")
否则如果返回代码 = "401" 则
弹出提示("用户名或密码不能为空")
否则如果返回代码 = "402" 则
弹出提示("用户不存在或密码错误")
否则如果返回代码 = "403" 则
弹出提示("用户已被停用")
否则如果返回代码 = "1" 则
返回数据_1 = JSON操作1.取文本值(返回json,"data")
返回数据 = JSON操作1.解析(返回数据_1)
公用模块.用户ID = JSON操作1.取文本值(返回数据,"uid")
公用模块.用户令牌 = JSON操作1.取文本值(返回数据,"token")

访问id = 4
多线程_验证.开始取网页源码2(公用模块.取用户应用信息(公用模块.用户ID,公用模块.用户令牌,公用模块.机器码),"UTF-8")
否则
弹出提示("出现未知错误" & 返回代码)
结束如果
分支访问id = 4
返回json1 = JSON操作1.解析(公用模块.de_data(源码))
返回代码1 = JSON操作1.取文本值(返回json1,"code")
如果返回代码1 = "444" 则
弹出提示("传输数据错误")
否则如果返回代码1 = "441" 则
弹出提示("数据不完整")
否则如果返回代码1 = "445" 则
弹出提示("令牌过期或不可用")
否则如果返回代码1 = "422" 则
弹出提示("应用不存在")
否则如果返回代码1 = "423" 则
弹出提示("应用已停用")
否则如果返回代码1 = "446" 则
弹出提示("机器码未设置")
否则如果返回代码1 = "447" 则
弹出提示("用户软件已被停用")
否则如果返回代码1 = "448" 则
弹出提示("绑定的机器码不正确，请解绑")
否则如果返回代码1 = "449" 则
弹出提示("绑定的机器码或IP不正确，请解绑")
否则如果返回代码1 = "450" 则
弹出提示("绑定的IP不正确，请解绑")
否则如果返回代码1 = "451" 则
'弹出提示("已到期")
Smart弹出框3.弹出7("米尼提示","1.亲,你的VIP会员已到期\n2.是否还继续使用本软件\n3.如果继续使用请点击续费","续费","取消")
否则如果返回代码1 = "7" 则
弹出提示("登录成功")
      主窗口.开启特效(3,600,假)
切换窗口(读取窗口("窗口_我的"))
否则
弹出提示(返回代码1)
结束如果
结束判断
结束事件

事件时钟1.周期事件()
计数 = 计数 - 1
判断计数
分支 4
标签1.标题="4秒"
分支 3
标签1.标题="3秒"
分支 2
标签1.标题="2秒"
分支 1
标签1.标题="1秒"
分支 0
主窗口.开启特效(3,600,假)
切换窗口(读取窗口("窗口_首页"))
时钟1.时钟周期 = 0
结束判断
结束事件

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

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

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

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

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

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

过程初始化全局窗口参数()
保存对象("主窗口",本对象)
如果读取窗口("窗口_首页")=空则
保存窗口("窗口_首页",创建窗口_首页)
结束如果
如果读取窗口("窗口_福利")=空则
   保存窗口("窗口_福利",创建窗口_福利)
结束如果
如果读取窗口("窗口_发现")=空则
   保存窗口("窗口_发现",创建窗口_发现)
结束如果
如果读取窗口("窗口_我的")=空则
   保存窗口("窗口_我的",创建窗口_我的)
结束如果

如果读取窗口("窗口_登录")=空则
   保存窗口("窗口_登录",创建窗口_登录)
结束如果
如果读取窗口("窗口_注册")=空则
   保存窗口("窗口_注册",创建窗口_注册)
结束如果
如果读取窗口("窗口_改密")=空则
   保存窗口("窗口_改密",创建窗口_改密)
结束如果
如果读取窗口("窗口_充值")=空则
   保存窗口("窗口_充值",创建窗口_充值)
结束如果

如果读取窗口("窗口_商城")=空则
   保存窗口("窗口_商城",创建窗口_商城)
结束如果

如果读取窗口("窗口_主播")=空则
   保存窗口("窗口_主播",创建窗口_主播)
结束如果
如果读取窗口("窗口_播放")=空则
   保存窗口("窗口_播放",创建窗口_播放)
结束如果

如果读取窗口("窗口_福利1")=空则
   保存窗口("窗口_福利1",创建窗口_福利1)
结束如果
如果读取窗口("窗口_福利2")=空则
   保存窗口("窗口_福利2",创建窗口_福利2)
结束如果
如果读取窗口("窗口_福利3")=空则
   保存窗口("窗口_福利3",创建窗口_福利3)
结束如果
如果读取窗口("窗口_福利4")=空则
   保存窗口("窗口_福利4",创建窗口_福利4)
结束如果
如果读取窗口("窗口_福利5")=空则
   保存窗口("窗口_福利5",创建窗口_福利5)
结束如果
如果读取窗口("窗口_福利6")=空则
   保存窗口("窗口_福利6",创建窗口_福利6)
结束如果
如果读取窗口("窗口_福利7")=空则
   保存窗口("窗口_福利7",创建窗口_福利7)
结束如果
如果读取窗口("窗口_福利8")=空则
   保存窗口("窗口_福利8",创建窗口_福利8)
'===========================保存地址=====================================================
   如果删首尾空(公用模块.老旧版本) <> 删首尾空(公用模块.最新版本) 则
更新时间标签.标题 = "更新日期： " & 删首尾空(公用模块.更新日期)
更新内容编辑框.内容 = "更新内容如下：\n\n" & 删首尾空(公用模块.更新内容)
高级对话框1.弹出对话框()
   否则
      时钟1.时钟周期 = 1000
   弹出提示("已经是最新版本,无需更新软件")
   结束如果
结束如果
结束事件

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

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

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

1605579406 发表于 2018-9-3 09:57:40

nmlgb0.0 发表于 2018-9-3 02:06
等结果，，如果是我误判我发你源码，不用买了

论坛真的烦你们这些人，别人辛辛苦苦写的源码直接分享

易如意 发表于 2018-9-3 08:50:27

源码是可以自己修改的，删除广告的代码即可。按照你这种说法，论坛百分之90的源码都存在这种问题，如果源码不是用来学习，那么就毫无意义

朴妮唛 发表于 2018-9-3 08:43:51

只要源码有学习价值自己把广告代码删除即可

qq123667 发表于 2018-9-3 06:56:28

这个不算吧，软件失效了自动加群更新

叶子发表于 2018-9-3 06:43:13

这个应该不属于引流，属于软件失效弹出的QQ群，自己修改下就可以了

nmlgb0.0 发表于 2018-9-3 02:06:47

wo4962505 发表于 2018-9-3 02:04
我还没买呢，等结果等结果等结果等结果

等结果，，如果是我误判我发你源码，不用买了

wo4962505 发表于 2018-9-3 02:04:04

我还没买呢，等结果等结果等结果等结果

页: [1]

易如意's Archiver

有帖子利用源码来引流