公用变量.bas
上传用户:luoweizhao
上传日期:2022-08-01
资源大小:1290k
文件大小:5k
源码类别:

外挂编程

开发平台:

Visual Basic

  1. Attribute VB_Name = "公用变量"
  2. '字符声明=======================
  3. Public Const Fkey = "sdoit78sdopig7w34057"   'QQ农场key密钥
  4. Public Const zfa = "a"
  5. Public Const zfb = "b"
  6. Public Const zfc = "c"
  7. Public Const zfd = "d"
  8. Public Const zfe = "e"
  9. Public Const zff = "f"
  10. Public Const zfg = "g"
  11. Public Const zfq = "q"
  12. Public Const zfw = "w"
  13. Public Const zfr = "r"
  14. Public Const zft = "t"
  15. Public Const zfy = "y"
  16. Public Const zfu = "u"
  17. Public Const zfi = "i"
  18. Public Const zfo = "o"
  19. Public Const zfp = "p"
  20. Public Const zfs = "s"
  21. Public Const zfh = "h"
  22. Public Const zfj = "j"
  23. Public Const zfk = "k"
  24. Public Const zfl = "l"
  25. Public Const zfz = "z"
  26. Public Const zfx = "x"
  27. Public Const zfv = "v"
  28. Public Const zfn = "n"
  29. Public Const zfm = "m"
  30. Public Const zf0 = 0
  31. Public Const zf1 = 1
  32. Public Const zf2 = 2
  33. Public Const zf3 = 3
  34. Public Const zf4 = 4
  35. Public Const zf5 = 5
  36. Public Const zf6 = 6
  37. Public Const zf7 = 7
  38. Public Const zf8 = 8
  39. Public Const zf9 = 9
  40. Public Const zf = ""
  41. Public Const zfxxm = "://"
  42. Public Const zfxg = "/"
  43. Public Const zffx = ""
  44. Public Const zfdian = "."
  45. Public Index As String
  46. Public www As String
  47. Public http As String
  48. Public htm As String
  49. Public html As String
  50. '字符声明=======================
  51. Public MyQQ As Long               '我的QQ号
  52. Public Myuid As Long              '我的农场UID
  53. Public Myxiaoyou As String        '我的QQ校友名称
  54. Public Myqzone As String          '我的QQ空间名称
  55. Public Myexp As Long              '我的经验
  56. Public Mymoney As Long            '我的金钱
  57. Public pst As Long                '服务器时间
  58. Public Proxy As Integer           '是否开启代理
  59. Public Proxy_IP As String         '代理IP地址
  60. Public Proxy_DK As String           '代理端口
  61. Public Proxy_U As String          '代理帐号
  62. Public Proxy_P As String          '代理密码
  63. Public Basic As String            '加密后
  64. Public WebBasic As String         '加密后(浏览器)
  65. Public Farmqk As Boolean          '农场开通情况
  66. Public FarmCookies As String      '农场cookies
  67. Public zzpanelkey As String       'cookies相关变量
  68. Public login_uid As String        'cookies相关变量
  69. Public login_skey As String       'cookies相关变量
  70. Public login_ptcz As String       'cookies相关变量
  71. Public login_name As String       'cookies相关变量
  72. Public login_schooltype As String 'cookies相关变量
  73. Public login_province As String   'cookies相关变量
  74. Public login_pvid As String       'cookies相关变量
  75. Public login_time As Long         '登录时间
  76. Public UpdateTime As Long
  77. Public yzmcookies As String       '验证码cookies
  78. Public yzmcode As String          '验证码
  79. Public yzmqk As Boolean           '验证码弹出情况
  80. Public mybox As String            '我的背包
  81. Public inibb As Integer             'ini的版本
  82. Public flash As String              'flash的位置
  83. Public flashbb As String            'flash的版本
  84. 'Public farmTime As Long
  85. 'Public farmKey As String
  86. Public yzdx As Boolean  '是否启动自体验
  87. Public login As Boolean           '是否已经登录
  88. Public dengdai As Boolean         '自动等待
  89. Public ddi As Long                '等待时间
  90. Public zhonglei(200, 2) As String  '植物种类和属性
  91. Public shicha As Long             '时差
  92. Public inisc As Long              'ini记录的时差
  93. Public tssj As Boolean            '是否允许关闭软件
  94. Public sd As Integer              '获取key的速度
  95. Public kind_sum As String         '作物数量
  96. Public kind(35) As String         '分别类型
  97. 'Public csi As Integer             '初始刷新数量
  98. Public qhform As Integer          '切换窗体
  99. Public guanbitime As Long            '上次关闭验证码窗口时间
  100. Public guanbicsi As Integer          '关闭验证码窗口次数
  101. Public csi As Long    '巡查次数
  102. Public SmTime As Long  '上次刷新好友时间
  103. Public Smjixu As Boolean  '是否需要继续扫描
  104. Public tuopants As String         '托盘提示
  105. '=============功能设置变量=============
  106. '基本设置
  107. Public zdsg As Integer            '是否自动收割
  108. Public zdsc As Integer            '是否自动杀虫
  109. Public zdcc As Integer            '是否自动锄草
  110. Public zdjs As Integer            '是否自动浇水
  111. Public zdbz As Integer            '是否自动播种
  112. Public bzzl As Integer            '播种作物种类
  113. Public bzid As Integer            '播种作物对应ID
  114. Public zdtq As Integer            '是否自动偷取
  115. Public zdbsc As Integer           '是否自动帮好友杀虫
  116. Public zdbcc As Integer           '是否自动帮好友锄草
  117. Public zdbjs As Integer           '是否自动帮好友浇水
  118. Public xzbz As Integer            '是否限制满150次帮助自动停止帮忙
  119. Public fqgg As Integer            '是否放弃狗狗
  120. '安全设置
  121. Public blpl As Long               '扫描每个好友农场的频率
  122. Public blxx As Long               '搜索每轮好友后自动休息
  123. Public mypl As Long               '自己的农场操作时间间隔
  124. Public hypl As Long               '好友的农场操作时间间隔
  125. Public mysx As Long               '刷新自己农场的时间间隔
  126. Public lbsx As Long               '更新好友列表的时间间隔
  127. Public xzsj As Integer            '农场被临时限制自动休息
  128. Public zdxx As Integer            '是否自动休息
  129. Public gzsj As Long               '工作时间
  130. Public xxsj As Long               '休息时间
  131. Public smxx As Integer              '扫描休息
  132. Public smrs As Integer              '扫描人数
  133. Public smxxsj As Long               '扫描休息时间
  134. Public yzmts As Integer             '验证码提示方式
  135. Public shengyin As String           '提示声音文件
  136. '======================================
  137. Public sxlb As String        '刷新列表
  138. Public sexp As Boolean       '是否正在刷经验