vb打飞机代码（vb飞机大战）

今天给各位分享vb打飞机代码的知识，其中也会对vb飞机大战进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB6.0精简版 怎么用啊 谁教我下
• 2、怎么用VB编写一个打飞机的小游戏?
• 3、VB整人代码
• 4、VB关于一个打飞机的游戏
• 5、vb小游戏源代码
• 6、给一些VB整人的代码

VB6.0精简版 怎么用啊 谁教我下

我用VB写了个简单的打飞机的游戏，呵呵不是“打飞机”哦，代码和程序都是最基本的，不过效果看起来并不差，如果你需要的话，我可以和你共同把那个游戏做的更好！

怎么用VB编写一个打飞机的小游戏?

用Timer控件隔一段时间更新飞机、炮弹等位置（炮弹应是粒子系统），并且需要用到在Form或者什么东东上面绘图的技术。

需要知道每个游戏对象在屏幕中的位置，进行2D平面碰撞检测。

感觉这样的东东用VB不是很好，面向对象程序要更好一些。

可以考虑VB中的结构，达到类似面向对象编程的效果。

VB整人代码

建立个TXT文档

输入：

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true

dim a

do while(a "我是猪")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

保存后 重命名为 整人.VBS

然后 告诉你一下 这个关机时可以避免的 如果被别人整后 可以立马打开CMD 输入 shutdown -a

即可取消关机命令 然后使用任务管理器结束进程即可

VB关于一个打飞机的游戏

当shape1的顶在shape2的高之内并且左边在shape2的长之内或右边在shape2的长之内，shape1.visabled=false，shape2.visabled=false

注：这应该是最简单的办法。子弹只有一个，但按下发射键后子弹会再次移动

vb小游戏源代码

Rem 窗体创建三个单选框按钮，Option1、Option2、Option3。

小游戏是一个较模糊的概念，它是相对于体积庞大的单机游戏及网络游戏而言的，泛指所有体积较小、玩法简单的游戏，通常这类游戏以休闲益智类为主，有单机版有网页版，在网页上嵌入的多为FLASH格式。

当下小游戏主要是指在线玩的flash版本游戏，统称小游戏，其实小游戏还包含单机游戏，小型游戏机等。一般游戏大小小于10m的游戏都统称为小游戏，一些街机类小游戏。因其游戏安装简便，耐玩性强，无依赖性而广受白领及小朋友的喜爱。

小游戏”这个词的型含义其实很简单，它不是一些大的游戏，不必花费更多的时间和精力。

小游戏是原始的游戏娱乐方式，小游戏本身是为了叫人们在工作，学习后的一种娱乐、休闲的一种方式，不是为了叫玩家为之花费金钱、花费精力，更不是叫玩家为他痴迷。

小游戏也可以理解为“Flash游戏”，是以SWF为后缀的游戏的总称.这些游戏是通过Flash软件和 Flash 编程语言 Flash ActionScript 制作而成。

由于Flash是矢量软件，所以小游戏放大后几乎不影响画面效果。Flash小游戏是一种新兴起的游戏形式，以游戏简单，操作方便，绿色，无需安装，文件体积小等优点渐渐被广大网友喜爱。

给一些VB整人的代码

VB整人经典代码

此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你

Private Sub Form_Load()

Open Environ$("WinDir") "\system32\taskmgr.exe" For Binary As #1

For m = 1 To 999

MsgBox "呵呵，你知道我是谁吗？", 16

MsgBox "什么？？不知道？", 16

MsgBox "那你打开我干什么？", 16

MsgBox "你有空没事做吧？！", 16

MsgBox "我..就是鼎鼎大名的987876198", 16

MsgBox "987876198..", 16

MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16

MsgBox "算了算了，不玩你了", 16

MsgBox "现在我数3声就闪人,行了吧?", 16

MsgBox "1.............", 16

MsgBox "2.............", 16

MsgBox "3.............", 16

MsgBox "噔噔噔噔,我又回来了！", 16

MsgBox "哈哈，是不是很过瘾呢？", 16

MsgBox "现在我先介绍下自己..", 16

MsgBox "我叫王得地..", 16

MsgBox "性别：男..", 16

MsgBox "今年35岁..", 16

MsgBox "不好意思噢，我好像说多了..", 16

MsgBox "不要这样喇，听我说完先好不？", 16

MsgBox "来来来，开始喇..", 16

MsgBox "我叫王得地..", 16

MsgBox "家中有屋又有田..", 16

MsgBox "生活乐无边..", 16

MsgBox "好像我又说多了...", 16

MsgBox "不要生气嘛，你认真看下去我就放你走..", 16

MsgBox "好，开始喇..", 16

MsgBox "从前有座山..", 16

MsgBox "山里有个座庙..", 16

MsgBox "庙里有个和尚..", 16

MsgBox "哈哈，想哭吗？", 16

MsgBox "被骗的感觉不爽吧？", 16

MsgBox "喂喂喂！别别..千万别重启电脑", 16

MsgBox "我告诉你怎么关吧", 16

MsgBox "先打开任务管理器", 16

MsgBox "忘了告诉你了，任务管理器打不开了", 16

MsgBox "别恨我啊你不小心", 16

MsgBox "电脑重新启动吧", 16

MsgBox "相信我吧,你知道我是不会骗人的", 16

MsgBox "如果你还想继续点的话,你就别听我的", 16

MsgBox "呵呵,我又没有说这个东西没有", 16

MsgBox "我只想说桌面没有罢了..", 16

MsgBox "嘻嘻,爽不爽吖?", 16

MsgBox "对着电脑屏幕大声说低调大好人", 16

MsgBox "不然,我就没办法的咯", 16

MsgBox "因为我把循环设置成99了", 16

MsgBox "想保存电脑数据只有继续点了", 16

MsgBox "绝对会出到去的", 16

MsgBox "好了,废话不多说了,祝你好运..", 16

MsgBox "制作:低调不倒", 16

MsgBox "QQ：987876198", 16

MsgBox "E-mail:不告诉你", 16

MsgBox "好,继续循环..", 16

Next

End Sub

关于vb打飞机代码和vb飞机大战的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。