• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

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

登录 注册
返回列表
发新话题 回复该主题
查看: 5382|回复: 2

[代码分析]钓鱼游戏自动化 [复制链接]

a13640469778
头像

a13640469778

  • 小学一年级
  • 201185
  • 19
  • 0
  • 13 朵
  • 16 个
  • 20 个
  • 0
  • 2008-10-22
图灵勋章按键精灵开发者2级
1#
t T
发表于 2021-11-15 23:25 | |只看楼主
水平一般，自己慢慢琢磨着用,献丑了,高手勿喷,只是分享下成果
PC,生成小精灵方便开单，收竿、删除、关窗都会生成文本数据保存到本地C盘，也可以调出查询，直接连接打印机打印，到时文字提示也可音乐提示，很多功能添加了密码，防止有人手多乱按，代码零乱，大神勿喷！不懂怎么设置关窗退出程序提醒，没办法避免误关，也不知道有没最大化设置。
欢迎大神指点！






  1. Declare Function PeekMessageA Lib "user32.dll" Alias "PeekMessageA"(ByVal 消息格式 As Any,ByVal 窗口句柄 As Long,ByVal 消息最小过滤值 As Long,ByVal 消息最大过滤值 As Long,ByVal 删除消息 As Long) As Long
  2. Declare Function LocalAlloc Lib "kernel32" Alias "LocalAlloc" (ByVal wOemChar As Long,ByVal wOmChar As Long) As Long
  3. Declare Function LocalFree Lib "kernel32" Alias "LocalAlloc" (ByVal hMem As Long) As Long
  4. Declare Function TranslateMessage Lib "user32.dll" Alias "TranslateMessage"(ByVal 消息结构 As Any) As Long
  5. Declare Function DispatchMessageA Lib "user32.dll" Alias "DispatchMessageA"(ByVal 消息结构 As Any) As Long
  6. Declare Function timeGetTime Lib "winmm.dll" () As Long
  7. Declare Function GetTickCount Lib "kernel32.dll" Alias "GetTickCount"() As Long
  8. Event Form1.Load

  10. Form1.TabControl1.Visible = False
  11. Form1.时间.Caption = Date
  12. //释放附件 打印插件
  13. PutAttachment ".\plugin", "*.dll"
  14. i = NOW
  15. Form1.Timer1.Interval = 1000 //设置定时器循环的间隔时间（单位：毫秒）

  17. End Event
  18. Event Form1.InputBox1.Change
  19. Form1.InputBox1.Text = Right(Form1.InputBox1.Text,2)
  20. End Event
  21. Event Form1.InputBox2.Change
  22. Form1.InputBox2.Text = Right(Form1.InputBox2.Text,2)
  23. End Event
  24. Event Form1.InputBox3.Change
  25. Form1.InputBox3.Text = Right(Form1.InputBox3.Text,2)
  26. End Event
  27. //根据定时周期执行事件
  28. Event Form1.Timer1.Timer
  29. Form1.Label16.Caption = i
  30. Form1.Label1.Caption = i//改变标签内容
  31. i=NOW+0.0000115740

  33. //统计竿数，够钟提示
  34. 竿数=Form1.Grid1.RowCount-2
  35. For m = 1 To Form1.Grid1.RowCount-2
  36. 结束=Form1.Grid1.GetItemText(m,3)
  37. 结束= TimeValue(结束)
  38. 背景颜色= "555fff"
  39. 字颜色= "fffff"
  40. If Time>结束 Then
  41. If "555FFF" = Form1.Grid1.GetItemBkColor(m, 3) Then
  42. Else
  43. Form1.Grid1.SetItemBkColor m,3,背景颜色
  44. Form1.Grid1.SetItemFgColor m,3,字颜色
  45. //判断选中情况
  46. If Form1.提示音.Value = 1 Then
  47. Call Plugin.Media.Play("C:\Areyouok.mp3")
  48. //播放路径("C:\Areyouok.mp3")音乐文件
  49. Else
  50. End If
  51. End If
  52. End If
  53. Next
  54. //以上是够钟提示
  55. End Event

  57. //开单
  58. Event Form1.Button1.Click
  59. 返回值 = Lib.窗口.弹出对话框("请确认信息是否正确，是否开单？",0,"警告",65)
  60. If 返回值=1 Then
  61. 类型 = Split(Form1.ComboBox1.List,"|")
  62. 费用 = Split(Form1.ComboBox2.List,"|")
  63. //从下拉框中获取文本内容，
  64. If 类型(Form1.ComboBox1.ListIndex)<> "" Then
  65. 种类=类型(Form1.ComboBox1.ListIndex)
  66. 竿费=费用(Form1.ComboBox2.ListIndex)
  67. If Form1.InputBox1.Text <> "" Then
  68. 钓位=Form1.InputBox1.Text
  69. If 钓位 < 10 Then
  70. 钓位="0"&钓位
  71. End If
  72. If Form1.InputBox2.Text <> "" Then
  73. 时=Form1.InputBox2.Text
  74. If Form1.InputBox3.Text <> "" Then
  75. 分= Form1.InputBox3.Text
  76. Hour 时
  77. Minute 分
  78. Second(0)
  79. 开竿时间=TimeValue(TimeSerial(时,分,秒))
  80. 结束时间=TimeSerial(时+4,分,秒)
  81. Form1.Grid1.InsertRow 1
  82. Form1.Grid1.SetItemText 1,0,种类
  83. Form1.Grid1.SetItemText 1,1,钓位
  84. Form1.Grid1.SetItemText 1,2,开竿时间
  85. Form1.Grid1.SetItemText 1,3,结束时间
  86. Form1.Grid1.SetItemText 1,4,竿费
  87. End If
  88. End If
  89. End If
  90. End If
  91. End If



  95. Form1.开竿时间.Caption = 开竿时间
  96. Form1.收竿时间.Caption = 结束时间
  97. Form1.钓位.Caption = 种类&钓位&"#"


  100. Form1.竿费.Caption = 竿费
  101. //开始打印
  102. Dim 验证
  103. 验证 = MsgBox("是否确定打印？", 49)
  104. If 验证 = 1 then


  107. Call Plugin.OfficeWork.PrintForm(form1.Hwnd,form1.Container1.Left,form1.Container1.Top,962,form1.Container1.Height+form1.Container1.Top)
  108. End If
  109. End Event
  110. //=============上面是录入资料代码====True================
  111. //统计竿数
  112. Event Form1.Button2.Click


  115. //获取到每一行的数据，然后通过eval命令相加
  116. 竿数=Form1.Grid1.RowCount-2
  117. 值 = 0
  118. 竿 = 0
  119. For m = 1 To Form1.Grid1.RowCount-2
  120. 值 = eval(值 + Form1.Grid1.GetItemText(m, 5))
  121. 竿 = eval(竿 + Form1.Grid1.GetItemText(m, 4))
  122. Next
  123. MessageBox "共："&竿数&"条，"&"竿费共："&竿&"元；"&"回鱼费共："&值&"元。"
  124. End Event
  125. //全部收竿
  126. Event Form1.Button3.Click

  128. 返回值 = Lib.窗口.弹出对话框("请确认是否全部收竿？确定将会全部数据清空！",0,"警告",65)
  129. If 返回值=1 Then
  130. 密码 = (InputBox ("请输入解锁密码："))
  131. If 密码=1988 Then
  132. //保存配置事件
  133. 竿数=Form1.Grid1.RowCount-2
  134. 值 = 0
  135. For m = 1 To Form1.Grid1.RowCount-2
  136. 值 = eval(值 + Form1.Grid1.GetItemText(m, 4))
  137. Next
  138. //获取到每一行的数据，然后通过eval命令相加
  139. 回鱼 = 0
  140. For m = 1 To Form1.Grid1.RowCount-2
  141. 回鱼 = eval(回鱼 + Form1.Grid1.GetItemText(m, 5))
  142. Next
  143. MsgBox Date&" 共 "&竿数&" 竿"&" 共"&值&"元"&"； 回鱼费共："&回鱼&"元"
  144. For 竿数
  145. 类型=Form1.Grid1.GetItemText(1,0)&"*"
  146. 钓位=Form1.Grid1.GetItemText(1,1)&"#*"
  147. 开始=Form1.Grid1.GetItemText(1,2)&"*"
  148. 结束=Form1.Grid1.GetItemText(1,3)&"*"
  149. 费用=Form1.Grid1.GetItemText(1,4)&"*"
  150. 回鱼费=Form1.Grid1.GetItemText(1,5)&"*"
  151. Call Plugin.File.WriteFileEx("C:\开竿记录.txt", now&"*"&类型&钓位&开始&结束&费用&回鱼费)
  152. Form1.Grid1.DeleteRow 1
  153. Next
  154. //显示当前列表行数数量
  155. Else
  156. MsgBox "密码错误"
  157. End If
  158. End If
  159. End Event
  160. //下面是输入回鱼金额=======================================================================================================
  161. Event Form1.Grid1.DblClick
  162. Form1.Grid1.GetSelectedRange 行, 列, x1, y1
  163. 钓位=Form1.Grid1.GetItemText(行,1)
  164. 类型=Form1.Grid1.GetItemText(行,0)
  165. 回鱼费=Form1.Grid1.GetItemText(行,5)
  166. 竿费=Form1.Grid1.GetItemText(行,4)
  167. //下面是修改回鱼费用==================================================================================================
  168. If 列=5 Then
  169. If 回鱼费="" Then
  170. 返回值 = Lib.窗口.弹出对话框(类型&钓位&"#填入回鱼费用？",0,"警告",65)
  171. If 返回值=1 Then
  172. 回鱼费用 = (InputBox ("请输入回鱼金额："))
  173. Form1.Grid1.SetItemText 行,5,回鱼费用
  174. Else
  175. End If
  176. Else
  177. 返回值 = Lib.窗口.弹出对话框("请确认是否选对？"&类型&钓位&"#已有回鱼费用了！",0,"警告",65)
  178. If 返回值=1 Then
  179. 密码 = (InputBox ("请输入解锁密码："))
  180. If 密码=1988 Then
  181. 回鱼费用 = (InputBox ("请输入回鱼金额："))
  182. Form1.Grid1.SetItemText 行,5,回鱼费用
  183. Else
  184. MsgBox "密码错误"
  185. End If
  186. End If
  187. End If
  188. Else
  189. If 列=4 Then
  190. //下面是修改竿费========================================================================================================================================
  191. If 竿费="" Then
  192. 返回值 = Lib.窗口.弹出对话框(类型&钓位&"#填入竿费？",0,"警告",65)
  193. If 返回值=1 Then
  194. 竿费 = (InputBox ("请输入竿费金额："))
  195. Form1.Grid1.SetItemText 行,4,竿费
  196. Else
  197. End If
  198. Else
  199. 返回值 = Lib.窗口.弹出对话框("请确认是否选对？"&类型&钓位&"#要修改竿费吗？",0,"警告",65)
  200. If 返回值=1 Then
  201. 密码 = (InputBox ("请输入解锁密码："))
  202. If 密码=1988 Then
  203. 竿费 = (InputBox ("请输入竿费金额："))
  204. Form1.Grid1.SetItemText 行,4,竿费
  205. Else
  206. MsgBox "密码错误"
  207. End If
  208. End If
  209. End If
  210. Else
  211. End If
  212. End If
  213. End Event
  214. //获取到每一行的数据，然后通过eval命令相加
  215. //选表格特定行删去
  216. Event Form1.Button5.Click

  218. Form1.Grid1.GetSelectedRange 行, 列, x1, y1
  219. 钓位=Form1.Grid1.GetItemText(行,1)
  220. 类型=Form1.Grid1.GetItemText(行,0)
  221. 返回值 = Lib.窗口.弹出对话框("请确认是否需要删除？"&类型&钓位&"#钓位",0,"警告",65)
  222. If 返回值=1 Then
  223. 密码 = (InputBox ("请输入解锁密码："))
  224. If 密码=1988 Then
  225. 类型=Form1.Grid1.GetItemText(行,0)&"*"
  226. 钓位=Form1.Grid1.GetItemText(行,1)&"#*"
  227. 开始=Form1.Grid1.GetItemText(行,2)&"*"
  228. 结束=Form1.Grid1.GetItemText(行,3)&"*"
  229. 费用=Form1.Grid1.GetItemText(行,4)&"*"
  230. 回鱼费=Form1.Grid1.GetItemText(行,5)&"*"
  231. Call Plugin.File.WriteFileEx("C:\删除记录.txt", now&"*"&类型&钓位&开始&结束&费用&回鱼费)
  232. Form1.Grid1.DeleteRow 行
  233. Else
  234. MsgBox "密码错误"
  235. End If
  236. End If
  237. End Event

  239. Event Form1.Button6.Click
  240. //开始打印
  241. Dim 验证
  242. 验证 = MsgBox("是否确定打印？", 49)
  243. If 验证 = 1 then


  246. Call Plugin.OfficeWork.PrintForm(form1.Hwnd,form1.Container1.Left,form1.Container1.Top,962,form1.Container1.Height+form1.Container1.Top)
  247. End If
  248. End Event
  249. //选表格特定行数据打印
  250. Event Form1.Grid1.Click

  252. Form1.Grid1.GetSelectedRange 行, 列, x1, y1
  253. 钓位=Form1.Grid1.GetItemText(行,1)
  254. 类型=Form1.Grid1.GetItemText(行,0)
  255. 钓位=Form1.Grid1.GetItemText(行,1)
  256. 开始=Form1.Grid1.GetItemText(行,2)
  257. 结束=Form1.Grid1.GetItemText(行,3)
  258. 竿费=Form1.Grid1.GetItemText(行,4)
  259. Form1.开竿时间.Caption = 开始
  260. Form1.收竿时间.Caption = 结束
  261. Form1.钓位.Caption = 类型&钓位&"#"
  262. Form1.竿费.Caption = 竿费
  263. End Event
  264. //关闭窗口
  265. Event Form1.UnLoad
  266. 竿数=Form1.Grid1.RowCount-2
  267. 值 = 0
  268. If 竿数>0 Then
  269. // Call Plugin.File.DeleteFile("C:\关窗记录.txt")
  270. //获取到每一行的数据，然后通过eval命令相加
  271. For 竿数
  272. 类型=Form1.Grid1.GetItemText(1,0)&"*"
  273. 钓位=Form1.Grid1.GetItemText(1,1)&"*"
  274. 开始=Form1.Grid1.GetItemText(1,2)&"*"
  275. 结束=Form1.Grid1.GetItemText(1,3)&"*"
  276. 费用=Form1.Grid1.GetItemText(1,4)&"*"
  277. 回鱼费=Form1.Grid1.GetItemText(1,5)&"*"
  278. Call Plugin.File.WriteFileEx("C:\关窗记录.txt", now&"*"&类型&钓位&开始&结束&费用&回鱼费)
  279. Form1.Grid1.DeleteRow 1
  280. Next
  281. End If
  282. End Event
  283. Event Form1.停止播放.Click
  284. Call Plugin.Media.Stop()
  285. End Event
  286. //===================================数据查询页==================================================
  287. Event Form1.导入.Click

  289. 密码 = (InputBox ("请输入解锁密码："))
  290. If 密码=1988 Then
  291. //读取配置事件
  292. //下面这句是向目标文件("C:\Config.txt")读出文本内容到变量(Text)
  293. wenjian = Plugin.File.SelectFile()
  294. If wenjian = "" Then
  295. Else
  296. //下面这句是得到文本内容
  297. Text = Plugin.File.ReadFileEx (wenjian)
  298. 开始日期 = Form1.开始日期.Text
  299. 结束日期 = Form1.结束日期.Text
  300. //下面这句是索取指定文本位置
  301. 位置1=InStr(Text,开始日期)
  302. 位置2=InStrRev(Text,结束日期)
  303. 日期字数 = Len(开始日期)
  304. 字符=Mid(Text,位置1,位置2+70)
  305. dim 一格内容
  306. Dim 一行内容
  307. //下面这句是文本内容分组
  308. 一行内容 = Split(字符, "|", -1, 1)
  309. ' MyString(0) 包含"VBScript"。
  310. ' MyString(1) 包含"is"。
  311. ' MyString(2) 包含 "fun!"。
  312. 数=UBound(一行内容)
  313. If 数>0 Then
  314. i=0
  315. For 数
  316. //下面这句是得到文本内容
  317. Form1.Grid2.InsertRow 1
  318. 一格内容= Split(一行内容(i), "*", -1, 1)
  319. 格=UBound(一格内容)
  320. g=0
  321. For 格
  322. Form1.Grid2.SetItemText 1,g,一格内容(g)
  323. //上面这一句表格还是显示不出来，哪里错了？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
  324. g= g + 1
  325. Next
  326. i = i + 1
  327. Next
  328. End If
  329. End If
  330. End If
  331. // Call Plugin.File.DeleteFile("C:\关窗记录.txt")
  332. End Event
  333. Event Form1.清除数据.Click
  334. 返回值 = Lib.窗口.弹出对话框("请确认是否全部收竿？确定将会全部数据清空！",0,"警告",65)
  335. If 返回值=1 Then
  336. //保存配置事件
  337. 竿数=Form1.Grid2.RowCount-2
  338. 值 = 0
  339. For 竿数
  340. Form1.Grid2.DeleteRow 1
  341. Next
  342. //显示当前列表行数数量
  343. End If
  344. End Event
  345. Event Form1.数据统计.Click

  347. //获取到每一行的数据，然后通过eval命令相加
  348. 竿数=Form1.Grid2.RowCount-2
  349. 值 = 0
  350. 竿 = 0
  351. For m = 1 To Form1.Grid2.RowCount-2
  352. 值 = eval(值 + Form1.Grid2.GetItemText(m, 6))
  353. 竿 = eval(竿 + Form1.Grid2.GetItemText(m, 5))
  354. Next
  355. MessageBox "共："&竿数&"条，"&"竿费共："&竿&"元；"&"回鱼费共："&值&"元。"
  356. End Event
  357. //下面是登陆界面操作代码
  358. Event Form1.登录.Click

  360. 密码 = (InputBox ("请输入解锁密码："))
  361. If 密码=1988 Then
  362. Form1.Container3.Visible = False
  363. Form1.TabControl1.Visible = True
  364. Else
  365. MessageBox "密码错误"
  366. End If
  367. End Event
  368. Event Form1.隐藏.Click

  370. Form1.TabControl1.Visible = False
  371. Form1.Container3.Visible =True
  372. End Event
复制代码

点评

果壳王子  钓鱼达人  发表于 2021/11/17 12:12:33

    已有1评分我要评分查看所有评分
    点赞
    回顶部
    yxf123
    头像

    胖虎

    • 小学四年级
    • 3239521
    • 85
    • 0
    • 70 朵
    • 310 个
    • 225 个
    • 0
    • 2015-05-08
    图灵勋章黄金之翼按键精灵开发者6级
    2#
    t T
    发表于 2021-11-17 18:23 | |只看该用户

    盟盟哒

    回顶部
    jy262832680
    头像

    脚本定制QQ:262832680

    • 官方脚本作者
    • 2991681
    • 5161
    • 0
    • 1407 朵
    • 19945 个
    • 1818 个
    • 192100
    • 2015-01-06
    图灵勋章天使勋章按键明星骨灰级按键用户按键精灵开发者6级论坛GG小红帽学有所成
    3#
    t T
    发表于 2021-11-19 16:39 | |只看该用户

    复制学习看看

    承接各类游戏脚本制作,post,手游,端游,办公,自动化

    有偿解决任何按键基础问题（可远程讲解、教会为止）
    如果我的回答能帮助了你,大家可以加个好友互相了解
    QQ : 262832680
    回顶部
    上一主题| 下一主题
    返回列表
    发新话题 回复该主题
    高级编辑器高级编辑器