查看: 32782|回复: 162	[老狼] [老狼] [源码分享]----FTP实现卡密系统(客户端)----被迫营业的第... [复制链接]

发送短消息 UID 1228894 帖子 26975 精华 25 鲜花 8050 朵 铜币 36129 个 银币 4746 个 性别 在线时间 421340 注册时间 2012-07-18 最后登录 2024-11-30 1223116618 查看公共资料 搜索主题 搜索帖子 瑞祥幽冥狼 按 键 工 程 师 ● 兼 职 组别超级版主 UID1228894 帖子26975 精华25 鲜花8050 朵 铜币36129 个 银币4746 个 在线时间421340 注册时间2012-07-18 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 双十一绝版纪念勋章 双十一绝版纪念勋章 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 幸运草勋章 商业小精灵限时活动勋章。 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 黄瓜勋章 体验商业小精灵活动的奖励 天使勋章 天使一样的用户 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 举报达人 长期举报不良帖子 活动狂人 论坛活动狂人 骨灰级按键用户 3年以上的按键论坛用户 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 论坛GG 按键论坛男性用户勋章 发帖高手 鼓励积极回复，但注意不要灌水哦 爱心大使 积极帮助新手（可向管理员进行申请） 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 按键运营团队 按键运营团队专属勋章 按键元老 资深按键用户的尊贵荣誉勋章 管理人员 按键论坛的管理团队专属勋章	1# 字体大小: t T 发表于 2022-02-19 16:42 | |只看楼主 延续代码分享----PC按键----FTP实现卡密系统(控制端)[第十一章]介绍:无 说明:写给看的懂得人 代码一览: //CACABCBGmqDkcY7QrP DimEnv 框体 ,返回数据库内容 Event Form1.LoadOver'生成时间戳 框体 = "Nkami" 登录 End Event Event Form1.Button1.Click Dim 卡密,卡密转义, 卡密分割 卡密转义="" 卡密 = 获取完整卡密() TracePrint 卡密 卡密分割=split(卡密,"-") 天数 = 卡密分割(1) 使用状态=卡密分割(2) 使用用户=卡密分割(3) 使用时间=卡密分割(4) 结束时间=卡密分割(5) If instr(使用状态, "停止") > 0 Then TracePrint "停止" Form1.Label2.Caption="本注册码异常，联系作者处理" ExitScript End If If instr(使用状态, "未使用") > 0 Then TracePrint "未使用" 使用状态="正常" 使用时间 = Replace(获取时间 ,"-","/") 结束时间 = DateAdd("d", int(天数), 使用时间) 结束时间 =Replace(结束时间 ,"-","/") TracePrint 结束时间 Form1.Label2.Caption = "过期时间" & 结束时间 If 使用用户 = "" Then 使用用户=取登录QQ() End If 卡密转义 = 卡密分割(0) & "-" & 天数 & "-" & 使用状态 & "-" & 使用用户 & "-" & 使用时间 & "-" & 结束时间 & "-" & 备注 TracePrint 卡密转义 '更新卡密 返回数据库内容 = Replace(返回数据库内容, 卡密, 卡密转义) TracePrint 返回数据库内容 Call Plugin.File.DeleteFile("C:/" & 框体 & ".txt") Call Plugin.lxj_Plug.lxj_WriteTXT("C:/" & 框体 & ".txt", 返回数据库内容, "UTF-8") If Plugin.SMWH.FTP_PutFile("C:/" & 框体 & ".txt", "/" & 框体 & ".txt") <> 0 Then TracePrint "上传成功" Else TracePrint "上传失败"     End If Call Plugin.File.DeleteFile("C:/"&框体&".txt") '更新卡密over End If If 使用状态 = "正常" Then TracePrint "正常" TracePrint 结束时间 If DateDiff("s",now,结束时间)<0 Then TracePrint "过期" Form1.Label2.Caption = "注册码过期了" Else Form1.Label2.Caption = "过期时间" & 结束时间 TracePrint "未过期" Form1.Container1.Visible = True End If End If End Event Function 获取完整卡密() Dim 用户卡密 获取完整卡密="" 用户卡密 = Form1.InputBox1.Text Ftp下载 返回数据库内容 = Plugin.lxj_Plug.lxj_ReadTXT("C:\" & 框体 & ".txt", "UTF-8") 获取完整卡密= 用户卡密&Split(split(返回数据库内容,用户卡密)(1),"|")(0) Call Plugin.File.DeleteFile("C:/"&框体&".txt") End Function Sub 登录() dizhi="014.3vftp.com":duankou=21:zhanghao="n15976906190":mima="061461" If Plugin.SMWH.FTP_Conn(dizhi, zhanghao, mima) <> 0 Then TracePrint "登录成功" Else TracePrint "登录失败" End If End Sub Sub Ftp下载() If Plugin.SMWH.FTP_GetFile("/" & 框体 & ".txt", "C:/" & 框体 & ".txt") = 1 Then TracePrint "下载成功" End If End Sub Function 获取时间() Dim 苏宁Time, 时间戳 获取时间="" 苏宁Time = Lib.网络.获得网页源文件("http://quan.suning.com/getSysTime.do") 时间戳 = Split(Split(苏宁Time, "sysTime2" & chr(34) & ":" & chr(34))(1), chr(34))(0) 获取时间= 时间戳 End Function Function 取登录QQ() Dim hs hs = Plugin.Window.SearchEx(0,"qqexchangewnd_shortcut_prefix_",0) h = split(hs, "|") For i = 0 To UBound(h)-1 qqtext = Plugin.Window.GetText(h(i)) If qqtext = "" Then Exit For qq = split(qqtext, "qqexchangewnd_shortcut_prefix_") qqs=qqs & qq(1) & "*" qqtext="" Next 取登录QQ=qqs End Function 复制代码 源码下载: KHD.rar (, 下载次数:493)
	本主题由 超级版主 瑞祥幽冥狼 于 2023/10/6 17:42:31 执行 审核帖子 操作 点赞 收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击 个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］ 个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］
	回顶部

发送短消息 UID 7979064 帖子 134 精华 0 鲜花 65 朵 铜币 151 个 银币 124 个 性别 在线时间 0 注册时间 2020-10-22 最后登录 2024-09-19 839573269 查看公共资料 搜索主题 搜索帖子 MUST131 MUST131 组别小学六年级 UID7979064 帖子134 精华0 鲜花65 朵 铜币151 个 银币124 个 在线时间0 注册时间2020-10-22	2# 字体大小: t T 发表于 2022-02-19 17:58 | |只看该用户 终于等到了
	回顶部

发送短消息 UID 3867309 帖子 432 精华 0 鲜花 74 朵 铜币 1009 个 银币 252 个 性别 在线时间 4220 注册时间 2016-04-14 最后登录 2024-03-02 查看公共资料 搜索主题 搜索帖子 枫落ye无痕 枫落ye无痕 组别初中三年级 UID3867309 帖子432 精华0 鲜花74 朵 铜币1009 个 银币252 个 在线时间4220 注册时间2016-04-14	3# 字体大小: t T 发表于 2022-02-19 20:45 | |只看该用户 不明觉厉
	回顶部

发送短消息 UID 2887433 帖子 32 精华 0 鲜花 7 朵 铜币 131 个 银币 6 个 性别 在线时间 980 注册时间 2014-11-21 最后登录 2024-09-29 1046919588 查看公共资料 搜索主题 搜索帖子 zhuzaishi zhuzaishi 组别小学二年级 UID2887433 帖子32 精华0 鲜花7 朵 铜币131 个 银币6 个 在线时间980 注册时间2014-11-21	4# 字体大小: t T 发表于 2022-02-20 18:49 | |只看该用户 3223423424
	回顶部

发送短消息 UID 4369668 帖子 19 精华 0 鲜花 13 朵 铜币 36 个 银币 17 个 性别 在线时间 40 注册时间 2017-03-07 最后登录 2023-04-16 查看公共资料 搜索主题 搜索帖子 千浔. null 组别小学一年级 UID4369668 帖子19 精华0 鲜花13 朵 铜币36 个 银币17 个 在线时间40 注册时间2017-03-07	5# 字体大小: t T 发表于 2022-02-20 22:26 | |只看该用户 666666
	回顶部

发送短消息 UID 7575121 帖子 15 精华 0 鲜花 13 朵 铜币 25 个 银币 15 个 性别 在线时间 0 注册时间 2020-04-04 最后登录 2022-03-11 2122230474 查看公共资料 搜索主题 搜索帖子 weixiao132 微笑 组别小学一年级 UID7575121 帖子15 精华0 鲜花13 朵 铜币25 个 银币15 个 在线时间0 注册时间2020-04-04	6# 字体大小: t T 发表于 2022-02-20 22:47 | |只看该用户
	回顶部

发送短消息 UID 7074439 帖子 1217 精华 0 鲜花 428 朵 铜币 1224 个 银币 934 个 性别 在线时间 0 注册时间 2019-10-24 最后登录 2024-12-02 2456941441 查看公共资料 搜索主题 搜索帖子 点了个点 点了个点 组别官方脚本作者 UID7074439 帖子1217 精华0 鲜花428 朵 铜币1224 个 银币934 个 在线时间0 注册时间2019-10-24 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com	7# 字体大小: t T 发表于 2022-02-21 10:59 | |只看该用户
	联系Q：2456941441
	回顶部

发送短消息 UID 627444 帖子 642 精华 0 鲜花 2 朵 铜币 2956 个 银币 16 个 性别 在线时间 8820 注册时间 2011-03-25 最后登录 2022-12-22 1103335676 查看公共资料 搜索主题 搜索帖子 翔风网络 翔风网络 组别高中二年级 UID627444 帖子642 精华0 鲜花2 朵 铜币2956 个 银币16 个 在线时间8820 注册时间2011-03-25 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 发帖高手 鼓励积极回复，但注意不要灌水哦	8# 字体大小: t T 发表于 2022-02-22 03:00 | |只看该用户 ..
	承接辅助脚本 开发定做 |安全丶稳定丶绿色| ☑支持各种交易方式 联系QQ:1103335676
	回顶部

发送短消息 UID 1159715 帖子 2094 精华 0 鲜花 379 朵 铜币 1938 个 银币 1635 个 性别 在线时间 39540 注册时间 2012-05-29 最后登录 2024-07-25 36809014 查看公共资料 搜索主题 搜索帖子 yahong1001 魔破拳 组别大学四年级 UID1159715 帖子2094 精华0 鲜花379 朵 铜币1938 个 银币1635 个 在线时间39540 注册时间2012-05-29 过大年勋章 俩小福娃给大家拜年啦！ 按键14周年庆纪念勋章 按键14周年庆纪念勋章 年全勤 论坛连续打卡签到365次以上（365天） 月全勤 论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。 骨灰级按键用户 3年以上的按键论坛用户 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章	9# 字体大小: t T 发表于 2022-02-24 16:15 | |只看该用户 终于等到了
	回顶部

发送短消息 UID 8624912 帖子 104 精华 0 鲜花 68 朵 铜币 114 个 银币 109 个 性别 在线时间 0 注册时间 2022-02-09 最后登录 2022-09-22 查看公共资料 搜索主题 搜索帖子 dkzx_ls 组别小学五年级 UID8624912 帖子104 精华0 鲜花68 朵 铜币114 个 银币109 个 在线时间0 注册时间2022-02-09	10# 字体大小: t T 发表于 2022-02-25 05:49 | |只看该用户 继续学习
	回顶部

发送短消息 UID 1429548 帖子 174 精华 0 鲜花 53 朵 铜币 299 个 银币 213 个 性别 在线时间 580 注册时间 2012-11-16 最后登录 2024-01-02 88388674 查看公共资料 搜索主题 搜索帖子 hpl1222 hpl1222 组别初中一年级 UID1429548 帖子174 精华0 鲜花53 朵 铜币299 个 银币213 个 在线时间580 注册时间2012-11-16 按键精灵开发者6级（新浪V认证） 通过新浪微博加V后自动发放，并替换普通的认证6级勋章。	11# 字体大小: t T 发表于 2022-03-02 00:16 | |只看该用户 看着不错
	回顶部

发送短消息 UID 2283792 帖子 341 精华 0 鲜花 42 朵 铜币 855 个 银币 308 个 性别 在线时间 5680 注册时间 2013-12-03 最后登录 2024-06-01 275489389 查看公共资料 搜索主题 搜索帖子 sundebao1982 sundebao1982 组别初中二年级 UID2283792 帖子341 精华0 鲜花42 朵 铜币855 个 银币308 个 在线时间5680 注册时间2013-12-03	12# 字体大小: t T 发表于 2022-03-07 08:29 | |只看该用户 感谢分享,学习
	回顶部

发送短消息 UID 7980669 帖子 53 精华 0 鲜花 25 朵 铜币 39 个 银币 30 个 性别 在线时间 0 注册时间 2020-10-23 最后登录 2024-04-06 查看公共资料 搜索主题 搜索帖子 214356 214356 组别小学三年级 UID7980669 帖子53 精华0 鲜花25 朵 铜币39 个 银币30 个 在线时间0 注册时间2020-10-23	13# 字体大小: t T 发表于 2022-03-07 17:37 | |只看该用户 厉害厉害
	回顶部

发送短消息 UID 2935420 帖子 5 精华 0 鲜花 4 朵 铜币 15 个 银币 5 个 性别 在线时间 0 注册时间 2014-12-12 最后登录 2024-09-03 81627790 查看公共资料 搜索主题 搜索帖子 joyou8888 joyou8888 组别小学一年级 UID2935420 帖子5 精华0 鲜花4 朵 铜币15 个 银币5 个 在线时间0 注册时间2014-12-12	14# 字体大小: t T 发表于 2022-03-09 21:18 | |只看该用户 来看看
	回顶部

发送短消息 UID 8343186 帖子 3 精华 0 鲜花 2 朵 铜币 13 个 银币 3 个 性别 在线时间 0 注册时间 2021-06-21 最后登录 2022-03-13 568521286 查看公共资料 搜索主题 搜索帖子 执骨哟 执骨哟 组别幼儿园 UID8343186 帖子3 精华0 鲜花2 朵 铜币13 个 银币3 个 在线时间0 注册时间2021-06-21 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	15# 字体大小: t T 发表于 2022-03-09 22:35 | |只看该用户 等一手插件
	回顶部

发送短消息 UID 7938698 帖子 10 精华 0 鲜花 4 朵 铜币 18 个 银币 8 个 性别 在线时间 0 注册时间 2020-09-27 最后登录 2024-10-16 389122913 查看公共资料 搜索主题 搜索帖子 无可奈何√ 无可奈何√ 组别小学一年级 UID7938698 帖子10 精华0 鲜花4 朵 铜币18 个 银币8 个 在线时间0 注册时间2020-09-27	16# 字体大小: t T 发表于 2022-03-10 06:06 | |只看该用户 看看隐藏
	回顶部

发送短消息 UID 3958378 帖子 651 精华 0 鲜花 141 朵 铜币 3298 个 银币 128 个 性别 在线时间 7160 注册时间 2016-06-07 最后登录 2023-12-17 查看公共资料 搜索主题 搜索帖子 z3090712 组别高中三年级 UID3958378 帖子651 精华0 鲜花141 朵 铜币3298 个 银币128 个 在线时间7160 注册时间2016-06-07 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	17# 字体大小: t T 发表于 2022-03-12 18:01 | |只看该用户 dfsdfsdfsghgdfh
	回顶部

发送短消息 UID 8655834 帖子 11 精华 0 鲜花 26 朵 铜币 19 个 银币 14 个 性别 在线时间 0 注册时间 2022-03-12 最后登录 2022-03-24 30565714 查看公共资料 搜索主题 搜索帖子 webfly_liu webfly_liu 组别按键精灵会员 UID8655834 帖子11 精华0 鲜花26 朵 铜币19 个 银币14 个 在线时间0 注册时间2022-03-12	18# 字体大小: t T 发表于 2022-03-12 23:57 | |只看该用户 ddddddddddddd
	回顶部

发送短消息 UID 2641122 帖子 95 精华 0 鲜花 51 朵 铜币 165 个 银币 58 个 性别 在线时间 100 注册时间 2014-07-21 最后登录 2024-11-12 12345 查看公共资料 搜索主题 搜索帖子 z527434886 z527434886 组别小学五年级 UID2641122 帖子95 精华0 鲜花51 朵 铜币165 个 银币58 个 在线时间100 注册时间2014-07-21	19# 字体大小: t T 发表于 2022-03-13 07:41 | |只看该用户 叮咚叮咚大
	回顶部

发送短消息 UID 552797 帖子 847 精华 0 鲜花 -67 朵 铜币 1035 个 银币 -23 个 性别 在线时间 19180 注册时间 2010-12-04 最后登录 2022-07-19 1015213127 查看公共资料 搜索主题 搜索帖子 clboy520 clboy520 组别大学一年级 UID552797 帖子847 精华0 鲜花-67 朵 铜币1035 个 银币-23 个 在线时间19180 注册时间2010-12-04 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	20# 字体大小: t T 发表于 2022-03-13 20:23 | |只看该用户 6666666666
	回顶部