• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.5
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

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

1#
延续代码分享----PC按键----FTP实现卡密系统(控制端)[第十一章]介绍:无
说明:写给看的懂得人
代码一览:
  1. //CACABCBGmqDkcY7QrP
  2. DimEnv 框体 ,返回数据库内容
  3. Event Form1.LoadOver'生成时间戳
  4. 框体 = "Nkami"
  5. 登录
  6. End Event
  7. Event Form1.Button1.Click
  8. Dim 卡密,卡密转义, 卡密分割
  9. 卡密转义=""
  10. 卡密 = 获取完整卡密()
  11. TracePrint 卡密
  12. 卡密分割=split(卡密,"-")
  13. 天数 = 卡密分割(1)
  14. 使用状态=卡密分割(2)
  15. 使用用户=卡密分割(3)
  16. 使用时间=卡密分割(4)
  17. 结束时间=卡密分割(5)
  18. If instr(使用状态, "停止") > 0 Then
  19. TracePrint "停止"
  20. Form1.Label2.Caption="本注册码异常,联系作者处理"
  21. ExitScript
  22. End If
  23. If instr(使用状态, "未使用") > 0 Then
  24. TracePrint "未使用"
  25. 使用状态="正常"
  26. 使用时间 = Replace(获取时间 ,"-","/")

  27. 结束时间 = DateAdd("d", int(天数), 使用时间)
  28. 结束时间 =Replace(结束时间 ,"-","/")
  29. TracePrint 结束时间
  30. Form1.Label2.Caption = "过期时间" & 结束时间
  31. If 使用用户 = "" Then
  32. 使用用户=取登录QQ()
  33. End If
  34. 卡密转义 = 卡密分割(0) & "-" & 天数 & "-" & 使用状态 & "-" & 使用用户 & "-" & 使用时间 & "-" & 结束时间 & "-" & 备注
  35. TracePrint 卡密转义
  36. '更新卡密
  37. 返回数据库内容 = Replace(返回数据库内容, 卡密, 卡密转义)
  38. TracePrint 返回数据库内容
  39. Call Plugin.File.DeleteFile("C:/" & 框体 & ".txt")
  40. Call Plugin.lxj_Plug.lxj_WriteTXT("C:/" & 框体 & ".txt", 返回数据库内容, "UTF-8")
  41. If Plugin.SMWH.FTP_PutFile("C:/" & 框体 & ".txt", "/" & 框体 & ".txt") <> 0 Then
  42. TracePrint "上传成功"
  43. Else
  44. TracePrint "上传失败"    
  45. End If
  46. Call Plugin.File.DeleteFile("C:/"&框体&".txt")
  47. '更新卡密over
  48. End If
  49. If 使用状态 = "正常" Then
  50. TracePrint "正常"
  51. TracePrint 结束时间
  52. If DateDiff("s",now,结束时间)<0 Then
  53. TracePrint "过期"
  54. Form1.Label2.Caption = "注册码过期了"
  55. Else
  56. Form1.Label2.Caption = "过期时间" & 结束时间
  57. TracePrint "未过期"
  58. Form1.Container1.Visible = True
  59. End If
  60. End If
  61. End Event
  62. Function 获取完整卡密()
  63. Dim 用户卡密
  64. 获取完整卡密=""
  65. 用户卡密 = Form1.InputBox1.Text
  66. Ftp下载
  67. 返回数据库内容 = Plugin.lxj_Plug.lxj_ReadTXT("C:\" & 框体 & ".txt", "UTF-8")
  68. 获取完整卡密= 用户卡密&Split(split(返回数据库内容,用户卡密)(1),"|")(0)
  69. Call Plugin.File.DeleteFile("C:/"&框体&".txt")
  70. End Function
  71. Sub 登录()
  72. dizhi="014.3vftp.com":duankou=21:zhanghao="n15976906190":mima="061461"
  73. If Plugin.SMWH.FTP_Conn(dizhi, zhanghao, mima) <> 0 Then
  74. TracePrint "登录成功"
  75. Else
  76. TracePrint "登录失败"
  77. End If
  78. End Sub
  79. Sub Ftp下载()
  80. If Plugin.SMWH.FTP_GetFile("/" & 框体 & ".txt", "C:/" & 框体 & ".txt") = 1 Then
  81. TracePrint "下载成功"
  82. End If
  83. End Sub
  84. Function 获取时间()
  85. Dim 苏宁Time, 时间戳
  86. 获取时间=""
  87. 苏宁Time = Lib.网络.获得网页源文件("http://quan.suning.com/getSysTime.do")
  88. 时间戳 = Split(Split(苏宁Time, "sysTime2" & chr(34) & ":" & chr(34))(1), chr(34))(0)
  89. 获取时间= 时间戳
  90. End Function
  91. Function 取登录QQ()
  92. Dim hs
  93. hs = Plugin.Window.SearchEx(0,"qqexchangewnd_shortcut_prefix_",0)
  94. h = split(hs, "|")
  95. For i = 0 To UBound(h)-1
  96. qqtext = Plugin.Window.GetText(h(i))
  97. If qqtext = "" Then Exit For
  98. qq = split(qqtext, "qqexchangewnd_shortcut_prefix_")
  99. qqs=qqs & qq(1) & "*"
  100. qqtext=""
  101. Next
  102. 取登录QQ=qqs
  103. End Function
复制代码
源码下载:
***** 该内容需您回复才可浏览 *****

本主题由 超级版主 瑞祥幽冥狼 于 2022/5/12 12:34:26 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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[可加]
2#

终于等到了

3#

不明觉厉

4#

3223423424

5#

666666

6#


7#


联系Q:2456941441
8#

..

承接辅助脚本 开发定做 |安全丶稳定丶绿色|
☑支持各种交易方式
联系QQ:1103335676
9#

终于等到了

10#

继续学习

11#

看着不错

12#

感谢分享,学习

13#

厉害厉害

14#

来看看

15#

等一手插件

16#

看看隐藏

17#

dfsdfsdfsghgdfh

18#

ddddddddddddd

19#

叮咚叮咚大

20#

6666666666

发新话题 回复该主题