970797游戏攻略网
VB制作游戏
rpg游戏制作大师 貌似也要写脚本吧如果你初用VB，可以买一些VB的初级教材，上面有各种控件的用法，然后你可以使用Image、PictureBox等控件制作一款控件游戏，虽然不是很美观 但是总归自己做的吧如果你VB比较高级了，可以考虑使用VB+DX8进行游戏制作，使用DX8不仅可以制作亮丽的2D游戏，还可以制作初强悍的3D游戏。
如果你更高级了，可以考虑转VB.NET，然后使用DX9甚至DX10写3D游戏了
VB制作小游戏
开始学vb时，并不知道vb可以做出动画，后来知道通过自编的子函数delay(c的库函数中的该函数)和cls可以做出许多动画，但有一个缺点就是太耗内存，就我个人认为构思应该比编程重要，因为一旦有了一个很好的构思剩下的问题都是技术问题，而我就是喜欢发现新的问题然后再想方设法解决它，通过发现问题和解决问题我可以学到许多很有用的知识和技巧。
好了，现在有了一个好的构思就开始进入程序的编制。
第一步，要做成这个游戏的话必须能使小球有一个判断性的运动，然而如何处理小球的运动呢，很显然delay&cls的方法不再适用，因为整个程序运行时不停的清屏效果将很差，所以我想到了用shape控件来替代用circle命令画的小球，接着要使小球运动起来，这个问题很简单，因为 shape控件有left和top的属性，可以通过对这两个属性的控制可以很轻松的解决小球运动问题。
第二步，将对小球进行角度控制，角度可以通过shape的属性left和top来反映，通过timer控件使小球的left和top值不断加上一个值或减去一个值，小球的left和top同时改变之后就可以对小球的角度进行控制。
到这里已经可以使小球运动起来，接下来的问题就是使小球能进行判断性运动。
第三步，可以这样对小球进行判断性控制，当小球的left大于窗体的scaleleft时小球的left改变成减去一个值，以此类推，小球的高度也可以进行类似的控制，现在已经很方便的对小球进行判断性运动，到这一步程序已经算是完成了一半。
第四步，既然小球可以自由的运动了，那就可以产生这样一个想法，当小球的top和left的砖块的top和left值接近到一定的范围的条件成立时使砖块的visible为false，然后小球的top和left加上接触前相应相反的值，就可以使砖块消失同时小球改变运动轨迹，这一步的实现需要解决很多技术性问题，可以在form的load事件里定义两个变量Dwd和Dhd以及两个Boolean量为Dw和Dh，通过Dwd和Dhd来控制小球向左和向上运动，当小球和窗体的边界或和砖块的的边界接触时使Dw和Dh的值进行相应的变化，通过对该两个值的控制可以使小球进行合乎反弹角度的运动，现在程序已经初步成型。
第五步，要做成这样的一个游戏，必须有一个良好的用户界面，为了使小球能接受用户的控制，我在窗体的下边界放置了一个命令按钮，该命令按钮可以通过方向键来控制，然后再加上一些判断语句使得小球command接触时产生相应的运动，这样一个用户界面就解决了。
第六步，现在只剩下程序的最后一步，就是生成砖块的排列，砖块可以用命令按钮来替代，然后用循环语句将设置好的command控件数组在程序运行时加载进来，好了，现在已经一切完成.
VB如何做游戏辅助工具
戏网挂基本编程的思路：1、确定使用何种方式获取游戏数据。
当然，读取到自己需要的数据后，你需要对这些数据进行处理，比如你读取到的是扑克牌的数据，那么你可以用程序把这些数据转化为扑克牌的图形信息，用截图方式获得图片，例如：（1）图形法，然后用vb读取这个内存地址上的数据，此方法相对来说。
这就是个基本的思路，具体怎样，你得好好想想了，我曾经写过一个QQ斗地主的作弊器。
（3）拦截数据包，将游戏与服务器通信的封包截获，解密，获取数据，需要解密，比较困难、综上所诉，一般在条件允许的情况下，都选择用内存法。
读取到的数据稳定。
2。
仁者见仁，看你需要怎样用这些数据了，分析图片内容，尽量转化成自己要的数据。
（此方法比较困难）（2）内存法，用vb读取游戏内存，从中获取数据，这个办法比较简单。
一般就用“金山游侠”类的软件找到自己要的数据存储地址…
用VB6.0制作打冰雹游戏
‘新建窗体，添加picture1,timer1,label1,option1(0-3) ‘以下保存在模块module1.bas中： Public Type stdball ox As Integer oy As Integer ballcolor As ColorConstants speed As Integer End Type Public Type stdspark posx As Integer posy As Integer angle As Integer sparkcolor As ColorConstants speed As Integer size As Integer End Type Public Type stdsparks ox As Integer oy As Integer spark(9) As stdspark End Type ‘以下保存在窗体代码中： Dim ball(9) As stdball, sparks(9) As stdsparks, x0 As Single, y0 As Single Const pi = 3.14159265 Private Sub Form_Load() initialgame 2, 1 End Sub Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) For i = 0 To 9 If (x – ball(i).ox) ^ 2 + (y – ball(i).oy) ^ 2 initialspark i initialball i Label1.Tag = Split(Label1.Tag, ＂*＂)(0) + 1 & ＂*＂ & Split(Label1.Tag, ＂*＂)(1) Label1.Caption = ＂分数：＂ & Split(Label1.Tag, ＂*＂)(0) & vbCrLf & ＂能量：＂ & Split(Label1.Tag, ＂*＂)(1) If Split(Label1.Tag, ＂*＂)(0) = 25 Then MsgBox ＂好样的，继续努力！＂ If Split(Label1.Tag, ＂*＂)(0) = 50 Then MsgBox ＂太棒了，再射中50个你就过关了，努力啊！＂ If Split(Label1.Tag, ＂*＂)(0) = 100 Then MsgBox ＂恭喜你过关了，增加难度，再继续！＂ initialgame 3, 0 End If If Split(Label1.Tag, ＂*＂)(0) = 150 Then initialgame 4, 0 Exit Sub End If Next If Split(Label1.Tag, ＂*＂)(0) > 0 Then Label1.Tag = Split(Label1.Tag, ＂*＂)(0) – 1 & ＂*＂ & Split(Label1.Tag, ＂*＂)(1) Label1.Caption = ＂分数：＂ & Split(Label1.Tag, ＂*＂)(0) & vbCrLf & ＂能量：＂ & Split(Label1.Tag, ＂*＂)(1) End Sub Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) x0 = x: y0 = y End Sub Private Sub Option1_Click(index As Integer) initialgame index + 1, 0 End Sub Private Sub Timer1_Timer() Picture1.BackColor = Picture1.BackColor For i = 0 To 9 drawball i drawspark i Next End Sub Sub initialball(ByVal index As Integer) ‘初始化圆球 Dim awx() As Integer, n As Integer ‘将游戏窗口picture1沿x轴等分15段（每段50）,10个球随机占用这15段，为保证每一段内只有一个球，awx（)用来存储未被占用的断的中点x（圆球球心）坐标 For x = 0 To 14 ‘计算存储未被占用的段 For i = 0 To 9 If ball(i).ox = x * 50 + 25 Then Exit For Next If i = 10 Then ReDim Preserve awx(n) awx(n) = x * 50 + 25 n = n + 1 End If Next ball(index).ox = awx(Int(Rnd * n)） ‘随机选择未被占用的段 ball(index).oy = Int(Rnd * (-100)) ball(index).speed = Int(Rnd * Me.Tag + 1) ‘下落速度 ball(index).ballcolor = QBColor(Int(Rnd * 15)） ‘颜色 End Sub Sub initialspark(ByVal index As Integer) ‘初始化火花 sparks(index).ox = ball(index).ox ‘爆炸圆心 sparks(index).oy = ball(index).oy For i = 0 To 9 sparks(index).spark(i).posx = ball(index).ox ‘火花位置 sparks(index).spark(i).posy = ball(index).oy sparks(index).spark(i).angle = Int(Rnd * 361) * pi / 180 ‘角度 sparks(index).spark(i).sparkcolor = ball(index).ballcolor ‘颜色 sparks(index).spark(i).speed = Int(Rnd * 15 + 10) ‘速度 sparks(index).spark(i).size = Int(Rnd * 12 + 5) ‘大小 Next End Sub Sub drawball(ByVal index As Integer) ‘画圆球 Picture1.FillStyle = 0 ‘实体填充 Picture1.FillColor = ball(index).ballcolor ‘填充颜色 Picture1.DrawWidth = 1 ‘线宽1 ball(index).oy = ball(index).oy + ball(index).speed ‘计算圆球y轴位置 Picture1.Circle (ball(index).ox, ball(index).oy), 20, vbWhite Picture1.FillColor = vbWhite ‘高光颜色 Picture1.Circle (ball(index).ox + 15 * Cos((3625 – 2 * ball(index).oy) * pi / 2900), ball(index).oy – 15 * Sin((3625 – 2 * ball(index).oy) * pi / 2900)), 3, vbWhite Picture1.DrawWidth = 4 Picture1.Circle (ball(index).ox, ball(index).oy), 15, vbWhite, (2175 + ball(index).oy) * pi / 1450, ball(index).oy * pi / 1450 ‘pi * 3 / 2, 2 * pi If (x0 – ball(index).ox) ^ 2 + (y0 – ball(index).oy) ^ 2 Picture1.DrawWidth = 1 Picture1.FillColor = vbRed Picture1.Circle (ball(index).ox, ball(index).oy), 3, vbWhite Picture1.FillStyle = 1 ‘透明填充 Picture1.Circle (ball(index).ox, ball(index).oy), 30, vbRed Picture1.Line (ball(index).ox – 30, ball(index).oy)-(ball(index).ox + 30, ball(index).oy), vbRed Picture1.Line (ball(index).ox, ball(index).oy – 30)-(ball(index).ox, ball(index).oy + 30), vbRed End If If ball(index).oy – 25 > Picture1.ScaleHeight Then ‘判断落地 initialball index If Split(Label1.Tag, ＂*＂)(1) > 1 Then ‘能量减1 Label1.Tag = Split(Label1.Tag, ＂*＂)(0) & ＂*＂ & Split(Label1.Tag, ＂*＂)(1) – 1 Label1.Caption = ＂分数：＂ & Split(Label1.Tag, ＂*＂)(0) & vbCrLf & ＂能量：＂ & Split(Label1.Tag, ＂*＂)(1) Else Label1.Caption = ＂分数：＂ & Split(Label1.Tag, ＂*＂)(0) & vbCrLf & ＂能量：0＂ MsgBox ＂你失败了，别灰心，降低难度，请重来！＂ initialgame IIf(Me.Tag > 1, Me.Tag – 1, 1), 1 End If End If End Sub Sub drawspark(ByVal index As …
用VB制作拼图游戏,求代码
Private a As Long ‘用于计时’timer的时间设为1000，事件写入 a = a + 1Private Sub Timer1_Timer()a = a + 1End SubPrivate Sub Form_Load()timer1.Enabled = 0End SubPrivate Sub CommandButton1_Click()a = Int(Rnd() * 100） ‘随机一个1~99的整数timer1.Enabled = 1Dob = Val(InputBox（＂输入数字＂））If a = b Thentimer1.Enabled = 0MsgBox ＂猜对了，你用了＂ & a & ＂秒＂Exit DoElseIf a >b ThenMsgBox ＂太小了＂ElseMsgBox ＂太大了＂End IfLoopEnd Sub
vb制作猜数字游戏 猜大小
如图所示，timer的interval属性设置成100。
如果想立于不败之地，可以在label1.caption=a的下面写一个label2.caption=b。
望采纳。
。
。
。
VB制作拼图游戏,就是很简单的那种,网上虽然有很多,但是不太明…
步骤：1，部件引用 pictureclip控件。
2,pictureclip控件装载一个图像，不要太大，分隔图像为9块pictureclip1.cols=3pictureclip1.rows=33，窗体上放9个image控件，用控件数组形式。
并调整image控件的大小为图像的1/9 4，适当调整窗体大小，以全部显示出图像为原则5，编写代码。
就是判断image控件的位置。
如果不想自己写，网上有很多现成的。
如果不想下载，留下联系方式发送
VB猜大小游戏制作好的,还要骰子的游戏,点一下动然后显示一个数…
添加两个标签，一个命令按钮，标签1写“点数”。
把下边的代码写进命令按钮的click 事件。
我已经发你邮箱了。
希望亲采纳哦！Private Sub Command3_Click()DoDoEventsLabel2 = Abs(Int(Rnd() * 10) – 3)If Label2 0 ThenExit DoEnd IfLoopEnd Sub