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

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

按键精灵安卓版
立即下载

软件版本：4.1.1
软件大小：45M
更新时间：2025-09-09

按键精灵iOS版
立即下载

软件版本：2.4.2
软件大小：29.2M
更新时间：2025-09-24

按键手机助手
立即下载

软件版本：4.4.1
软件大小：242M
更新时间：2025-09-09

快捷导航

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

登录 注册
返回列表 12
发新话题 回复该主题
查看: 11624|回复: 22

[神梦] 【游戏】用按键精灵制作贪吃蛇小游戏 [复制链接]

神梦科技
头像

神梦无痕

  • 博士后
  • 2699998
  • 3587
  • 11
  • 2173 朵
  • 7386 个
  • 1021 个
  • 91120
  • 2014-08-23
抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章黄瓜勋章按键精灵开发者6级小红帽按键专家按键贵宾按键元老
1#
t T
发表于 2022-09-04 09:29 | |只看楼主
用按键精灵制作贪吃蛇小游戏，不用第三方插件，完全用按键自带命令实现：

基本思路：
1、用记事本来画游戏界面
2、设置游戏窗口信息
3、生成小蛇、投放食物
4、检测键盘操作，控制小蛇前进方向
5、碰撞检测，“咬蛇自尽”、“撞墙而死”



【游戏思路】
　


  • 用记事本来画游戏界面
    注：为了画面效果，需要将记事本的字体改为“宋体”

  • 设置游戏窗口信息
    1. Hwnd = Plugin.Window.Find("Notepad", "贪吃蛇 - by：神梦无痕")
    2. If Hwnd = 0 Then Hwnd = Plugin.Window.Find("Notepad", "无标题 - 记事本")
    3. If Hwnd = 0 Then
    4.     RunApp "notepad.exe"
    5.     Do
    6.         Hwnd = Plugin.Window.Find("Notepad", "无标题 - 记事本")
    7.         Delay 100
    8.     Loop Until Hwnd > 0
    9. End If
    10. Call Plugin.Window.SetText(Hwnd, "贪吃蛇 - by：神梦无痕")
    11. Call Plugin.Window.Restore(Hwnd)
    12. Call Plugin.Window.Active(Hwnd)
    13. Call Plugin.Window.Size(Hwnd, 地图大小*16.7 + 30, 地图大小*16.7 + 160)
    14. HwndEdit = Plugin.Window.FindEx(Hwnd, 0, "Edit", "")
    复制代码

  • 生成小蛇、投放食物




  • 检测键盘操作，控制小蛇前进方向

  • 碰撞检测









【游戏完整代码】
　

  1. '#================================================================
  2. '# 【游戏】贪吃蛇
  3. '#----------------------------------------------------------------
  4. '# 【作者】：神梦无痕
  5. '# 【ＱＱ】：1042207232
  6. '# 【Ｑ群】：624655641
  7. '# 【更新】：2022-09-04
  8. '#----------------------------------------------------------------
  9. '# 注意：为了画面效果，需要将记事本的字体改为“宋体”
  10. '#================================================================
  11. Dim 地图, 食物坐标, 贪吃蛇坐标, 运动方向, 运动速度

  13. Call 初始化界面(16)
  14. Call 贪吃蛇出生()
  15. Call 投放食物()
  16. Do
  17.     // 检查键盘操作
  18.     key = GetLastKey()
  19.     Select Case key
  20.     Case 38
  21.         TracePrint "上"
  22.         Call 贪吃蛇爬行(1)
  23.     Case 40
  24.         TracePrint "下"
  25.         Call 贪吃蛇爬行(2)
  26.     Case 37
  27.         TracePrint "左"
  28.         Call 贪吃蛇爬行(3)
  29.     Case 39
  30.         TracePrint "右"
  31.         Call 贪吃蛇爬行(4)
  32.     Case Else
  33.         TracePrint "自动前行"
  34.         Call 贪吃蛇爬行(0)
  35.     End Select
  36.     Delay 运动速度
  37. Loop









  47. //=======================================【功能函数】=======================================
  48. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As string) As Long
  49. ' 初始化界面
  50. DimEnv 全局_窗口句柄
  51. Function 初始化界面(地图大小)
  52.     Dim Hwnd, HwndEdit
  53.     
  54.     食物坐标 = Array(0, 0)
  55.     贪吃蛇坐标 = Array("5,7", "5,6", "5,5")
  56.     运动方向 = 4
  57.     运动速度 = 1000
  58.     Hwnd = Plugin.Window.Find("Notepad", "贪吃蛇 - by：神梦无痕")
  59.     If Hwnd = 0 Then Hwnd = Plugin.Window.Find("Notepad", "无标题 - 记事本")
  60.     If Hwnd = 0 Then
  61.         RunApp "notepad.exe"
  62.         Do
  63.             Hwnd = Plugin.Window.Find("Notepad", "无标题 - 记事本")
  64.             Delay 100
  65.         Loop Until Hwnd > 0
  66.     End If
  67.     Call Plugin.Window.SetText(Hwnd, "贪吃蛇 - by：神梦无痕")
  68.     Call Plugin.Window.Restore(Hwnd)
  69.     Call Plugin.Window.Active(Hwnd)
  70.     Call Plugin.Window.Size(Hwnd, 地图大小*16.7 + 30, 地图大小*16.7 + 160)
  71.     HwndEdit = Plugin.Window.FindEx(Hwnd, 0, "Edit", "")
  72.     全局_窗口句柄 = HwndEdit
  73.     
  74.     ReDim 地图(地图大小)
  75.     地图(0) = String(地图大小, "■")
  76.     For i = 1 To 地图大小 - 1
  77.         地图(i) = "■" & String(地图大小 - 2, "　") & "■"
  78.     Next
  79.     地图(地图大小) = String(地图大小, "■")
  80.     
  81.     Call 绘制地图(HwndEdit)
  82. End Function
  83. ' 投放食物
  84. Function 投放食物()
  85.     Assert Plugin.Window.IsWindow(全局_窗口句柄), "出错，游戏窗口句柄不存在！"
  86.     
  87.     Do
  88.         食物坐标 = 随机坐标()
  89.     Loop Until Array_In(贪吃蛇坐标, Join(食物坐标, ",")) = False
  90.     Call 设置地图(食物坐标(0), 食物坐标(1), "★")
  91.     Call 绘制地图(全局_窗口句柄)
  92. End Function
  93. ' 贪吃蛇出生
  94. Function 贪吃蛇出生()
  95.     Dim XY, i
  96.     Assert Plugin.Window.IsWindow(全局_窗口句柄), "出错，游戏窗口句柄不存在！"
  97.     
  98.     XY = Split(贪吃蛇坐标(0), ",")
  99.     Call 设置地图(Int(XY(0)), Int(XY(1)), "●")
  100.     For i = 1 To UBound(贪吃蛇坐标)
  101.         XY = Split(贪吃蛇坐标(i), ",")
  102.         Call 设置地图(Int(XY(0)), Int(XY(1)), "■")
  103.     Next
  104.     Call 绘制地图(全局_窗口句柄)
  105. End Function
  106. ' 贪吃蛇爬行
  107. Function 贪吃蛇爬行(动作)
  108.     Dim 蛇头坐标
  109.     
  110.     蛇头坐标 = 获取蛇头坐标()
  111.     If 动作 = 0 Then
  112.         动作 = 运动方向
  113.     ElseIf 动作 = 1 And 运动方向 = 2 Then
  114.         动作 = 运动方向
  115.     ElseIf 动作 = 2 And 运动方向 = 1 Then
  116.         动作 = 运动方向
  117.     ElseIf 动作 = 3 And 运动方向 = 4 Then
  118.         动作 = 运动方向
  119.     ElseIf 动作 = 4 And 运动方向 = 3 Then
  120.         动作 = 运动方向
  121.     Else
  122.         运动方向 = 动作
  123.     End If
  124.     Select Case 动作
  125.     Case 1'上
  126.         蛇头坐标(0) = Int(蛇头坐标(0)) - 1
  127.         蛇头坐标(1) = Int(蛇头坐标(1))
  128.     Case 2'下
  129.         蛇头坐标(0) = Int(蛇头坐标(0)) + 1
  130.         蛇头坐标(1) = Int(蛇头坐标(1))
  131.     Case 3'左
  132.         蛇头坐标(0) = Int(蛇头坐标(0))
  133.         蛇头坐标(1) = Int(蛇头坐标(1)) - 1
  134.     Case 4'右
  135.         蛇头坐标(0) = Int(蛇头坐标(0))
  136.         蛇头坐标(1) = Int(蛇头坐标(1)) + 1
  137.     End Select
  138.     Call 贪吃蛇碰撞(蛇头坐标)
  139.     Call 绘制地图(全局_窗口句柄)
  140. End Function
  141. ' 贪吃蛇碰撞
  142. Function 贪吃蛇碰撞(新坐标)
  143.     Assert 新坐标(0) > 0 And 新坐标(0) < UBound(地图), "糟糕，贪吃蛇撞墙上了！"
  144.     Assert 新坐标(1) > 0 And 新坐标(1) < UBound(地图), "糟糕，贪吃蛇撞墙上了！"
  145.     Assert Array_Not_In(贪吃蛇坐标, Join(新坐标, ",")), "糟糕，贪吃蛇把自己吃了！"
  146.     
  147.     Call 设置地图(新坐标(0), 新坐标(1), "●")
  148.     Dim XY: XY = 获取蛇头坐标()
  149.     Call 设置地图(XY(0), XY(1), "■")
  150.     If 食物坐标(0) = 新坐标(0) And 食物坐标(1) = 新坐标(1) Then
  151.         ' 食物被吃了，蛇身变长
  152.         贪吃蛇坐标 = Array_Combine(Array(Join(新坐标, ",")), 贪吃蛇坐标)
  153.         Call 投放食物()
  154.         运动速度 = 运动速度 - 10
  155.     Else
  156.         ' 删除蛇尾坐标
  157.         Dim 蛇尾坐标
  158.         蛇尾坐标 = 获取蛇尾坐标()
  159.         Call 设置地图(蛇尾坐标(0), 蛇尾坐标(1), "　")
  160.         贪吃蛇坐标 = Array_Combine(Array(Join(新坐标, ",")), 贪吃蛇坐标)
  161.         Redim Preserve 贪吃蛇坐标(UBound(贪吃蛇坐标) - 1)
  162.     End If
  163.     TracePrint Join(贪吃蛇坐标, "|")
  164. End Function
  165. ' 获取蛇坐标
  166. Function 获取蛇坐标(Index)
  167.     Dim XY
  168.     Assert Index <= UBound(贪吃蛇坐标), "出错，贪吃蛇没有那么长！"
  169.     
  170.     If Index = -1 Then Index = UBound(贪吃蛇坐标)
  171.     XY = Split(贪吃蛇坐标(Index), ",")
  172.     XY(0) = Int(XY(0)) : XY(1) = Int(XY(1))
  173.     获取蛇坐标 = XY
  174. End Function
  175. ' 获取蛇头坐标
  176. Function 获取蛇头坐标()
  177.     获取蛇头坐标 = 获取蛇坐标(0)
  178. End Function
  179. ' 获取蛇尾坐标
  180. Function 获取蛇尾坐标()
  181.     获取蛇尾坐标 = 获取蛇坐标(-1)
  182. End Function
  183. ' 获取地图
  184. Function 获取地图(x, y)
  185.     Assert x <= UBound(地图), "出错，坐标X在地图上越界！"
  186.     Assert y + 1 <= Len(地图(x)), "出错，坐标X在地图上越界！"
  187.     
  188.     获取地图 = Mid(地图(x), y+1, 1)
  189. End Function
  190. ' 设置地图
  191. Function 设置地图(x, y, value)
  192.     Assert x <= UBound(地图), "出错，坐标X在地图上越界！"
  193.     Assert y + 1 <= Len(地图(x)), "出错，坐标Y在地图上越界！"
  194.     
  195.     地图(x) = Left(地图(x), y) & value & Right(地图(x), len(地图(x)) - y - 1)
  196. End Function
  197. ' 绘制地图
  198. Function 绘制地图(Hwnd)
  199.     Dim map
  200.     Dim WM_SETTEXT
  201.     
  202.     WM_SETTEXT = &HC
  203.     map = Join(地图, vbCrLf)
  204.     map = map & "　　　　↑" & String(UBound(地图) - 5, "　") & vbCrLf
  205.     map = map & "控制：←↓→" & vbCrLf
  206.     map = map & "作者：神梦无痕" & vbCrLf
  207.     Call SendMessage(Hwnd, WM_SETTEXT, 0, map)
  208. End Function
  209. ' 随机坐标
  210. Function 随机坐标()
  211.     Dim x, y
  212.     x = RandNum(1, UBound(地图) - 2)
  213.     y = RandNum(1, UBound(地图) - 2)
  214.     随机坐标 = Array(x, y)
  215. End Function
  216. ' 绘制报错
  217. Function 绘制报错(ErrInfo)
  218.     Dim h, l
  219.     l = UBound(地图)
  220.     h = UBound(地图) \ 2
  221.     ErrInfo = ErrInfo & String(l - 3 - len(ErrInfo), "　")
  222.     地图(h - 1) = "■┎" & String(l - 4, "—") & "┒■"
  223.     地图(h) = "■　" & ErrInfo & "■"
  224.     地图(h + 1) = "■┖" & String(l - 4, "—") & "┚■"
  225.     Call 绘制地图(全局_窗口句柄)
  226. End Function
  227. ' 断言报错
  228. Function Assert(expression, ErrInfo)
  229.     If expression Then
  230.     Else
  231.         TracePrint ErrInfo
  232.         Call 绘制报错(ErrInfo)
  233.         ExitScript
  234.     End If
  235. End Function
  236. '生成随机数
  237. Function RandNum(Min, Max)
  238. Randomize
  239. RandNum = Int(((Max - Min + 1) * Rnd) + Min)
  240. End Function
  241. ' 数组拼接
  242. Function Array_Combine(List, Arr)
  243.     Dim i
  244.     Result_Arr = Array()
  245.     If IsArray(List) And IsArray(Arr) Then
  246.         ReDim Result_Arr(UBound(List) + UBound(Arr) + 1)
  247.         For i = 0 To UBound(List)
  248.             Result_Arr(i) = List(i)
  249.         Next
  250.         For i = 0 To UBound(Arr)
  251.             Result_Arr(i + UBound(List) + 1) = Arr(i)
  252.         Next
  253.     End If
  254.     Array_Combine = Result_Arr
  255. End Function
  256. ' 数组切片
  257. Function Array_Slice(List, StartIndex, EndIndex)
  258.     Dim i
  259.     ReDim Result_Arr(EndIndex-StartIndex)
  260.     If StartIndex >= LBound(List) And EndIndex <= UBound(List) Then
  261.         For i = StartIndex To EndIndex
  262.             Result_Arr(i-StartIndex) = List(i)
  263.         Next
  264.     End If
  265.     Array_Slice = Result_Arr
  266.     Result_Arr = Empty
  267. End Function
  268. ' 数组包含元素
  269. Function Array_In(List, Item)
  270.     Array_In = CSng(InStr("|" & Join(List, "|") & "|", "|" & Item & "|") > 0)
  271. End Function
  272. ' 数组不包含元素
  273. Function Array_Not_In(List, Item)
  274.     Array_Not_In = (Array_In(List, Item) = 0)
  275. End Function
复制代码
最后编辑神梦科技 最后编辑于 2022-09-04 09:47:15
点赞
游戏、办公、网页、脚本辅助定制
联系QQ: 1042207232
【命令库】利用IE+Chrome谷歌双核操纵网页填表，支持框架操作
【命令库】按键精灵也玩套接字(Sock)
SMWHff's Blog | 梦痕编程 - 神梦博客
回顶部
枫落ye无痕
头像

枫落ye无痕

  • 初中三年级
  • 3867309
  • 432
  • 0
  • 74 朵
  • 1009 个
  • 252 个
  • 4220
  • 2016-04-14
2#
t T
发表于 2022-09-04 10:53 | |只看该用户

用按键精灵制作贪吃蛇小游戏

回顶部
3886837
头像

3886837

  • 小学一年级
  • 8468883
  • 4
  • 0
  • 2 朵
  • 13 个
  • 4 个
  • 0
  • 2021-09-18
黄金之翼
3#
t T
发表于 2022-09-04 11:43 | |只看该用户

菜鸟报到。。前面观摩

回顶部
s1157047004
头像

s1157047004

  • 小学一年级
  • 8674560
  • 11
  • 0
  • 0 朵
  • 6 个
  • 6 个
  • 0
  • 2022-03-26
4#
t T
发表于 2022-09-04 12:17 | |只看该用户

1111111111111111111111111

回顶部
kachi612
头像

  • 小学三年级
  • 3451673
  • 69
  • 0
  • 6 朵
  • 133 个
  • 6 个
  • 2380
  • 2015-09-07
5#
t T
发表于 2022-09-05 03:06 | |只看该用户

想看看用按键精灵制作贪吃蛇小游戏的思路

回顶部
lbdbn
头像

lbdbn

  • 小学一年级
  • 428015
  • 21
  • 0
  • 4 朵
  • 85 个
  • 1 个
  • 340
  • 2010-05-26
6#
t T
发表于 2022-09-05 12:19 | |只看该用户

谢谢分享，学习一下！

回顶部
wanying
头像

wanying

  • 小学六年级
  • 916832
  • 126
  • 0
  • 61 朵
  • 141 个
  • 97 个
  • 660
  • 2011-12-07
7#
t T
发表于 2022-10-20 17:22 | |只看该用户

安静学习

回顶部
123000a1
头像

  • 幼儿园
  • 8913018
  • 3
  • 0
  • 4 朵
  • 4 个
  • 4 个
  • 0
  • 2022-11-30
8#
t T
发表于 2022-12-10 14:03 | |只看该用户

太6了

11111

回顶部
q929169232
头像

q929169232

  • 小学二年级
  • 466891
  • 30
  • 0
  • 6 朵
  • 77 个
  • 12 个
  • 600
  • 2010-07-22
按键会员（月）
9#
t T
发表于 2022-12-14 21:23 | |只看该用户

学习，学习下。

回顶部
2281079482
头像

2281079482

  • 幼儿园
  • 7205218
  • 2
  • 0
  • 2 朵
  • 12 个
  • 2 个
  • 0
  • 2019-12-01
10#
t T
发表于 2023-01-24 20:51 | |只看该用户

学习学习

回顶部
rkddnl58
头像

天天向上

  • 小学一年级
  • 6970625
  • 41
  • 0
  • 7 朵
  • 51 个
  • 41 个
  • 0
  • 2019-09-14
11#
t T
发表于 2023-03-31 21:22 | |只看该用户

学习一下

回顶部
家鸿
头像

家鸿

  • 初中二年级
  • 8689099
  • 266
  • 0
  • 233 朵
  • 263 个
  • 263 个
  • 0
  • 2022-04-06
12#
t T
发表于 2023-04-04 22:44 | |只看该用户


回顶部
wentao
头像

wentao

  • 小学三年级
  • 620226
  • 78
  • 0
  • 39 朵
  • 73 个
  • 47 个
  • 20
  • 2011-03-13
13#
t T
发表于 2023-04-07 02:30 | |只看该用户

发呢未付费

回顶部
17879396616
头像

永远

  • 小学四年级
  • 7372464
  • 70
  • 0
  • 201 朵
  • 158 个
  • 103 个
  • 0
  • 2020-02-08
14#
t T
发表于 2023-04-30 22:20 | |只看该用户

蝇营狗苟给他

回顶部
chen_ll1
头像

  • 小学二年级
  • 9026255
  • 44
  • 0
  • 40 朵
  • 45 个
  • 45 个
  • 0
  • 2023-04-26
15#
t T
发表于 2023-05-09 21:28 | |只看该用户

111111111111111111

回顶部
q1850782864
头像

  • 幼儿园
  • 9037733
  • 4
  • 0
  • 4 朵
  • 5 个
  • 5 个
  • 0
  • 2023-05-11
16#
t T
发表于 2023-05-11 00:58 | |只看该用户

66666

回顶部
司马琴韵
头像

司马琴韵

  • 小学一年级
  • 4189725
  • 20
  • 0
  • 7 朵
  • 39 个
  • 18 个
  • 40
  • 2016-11-01
17#
t T
发表于 2023-05-16 03:49 | |只看该用户

这个好玩，这个好玩

回顶部
a2180155000
头像

a2180155000

  • 小学一年级
  • 4993178
  • 9
  • 0
  • 44 朵
  • 37 个
  • 17 个
  • 0
  • 2018-01-26
18#
t T
发表于 2023-05-24 18:40 | |只看该用户

菜鸟报到。。前面观摩

回顶部
1987shilei
头像

1987shilei

  • 小学三年级
  • 8681592
  • 53
  • 0
  • 173 朵
  • 139 个
  • 154 个
  • 0
  • 2022-04-01
按键精灵开发者3级
19#
t T
发表于 2023-05-26 13:06 | |只看该用户

顶礼，膜拜

回顶部
15984002963
头像

  • 小学二年级
  • 8702481
  • 30
  • 0
  • 4 朵
  • 30 个
  • 30 个
  • 0
  • 2022-04-16
20#
t T
发表于 2023-07-13 11:03 | |只看该用户

66666

回顶部
上一主题| 下一主题
返回列表 12
发新话题 回复该主题
高级编辑器高级编辑器