1. vb能不能写游戏脚本 那vbs又是什么，和vb一样吗学会vb就会vbs吗
VB很强大，高手可以用它做90%的各种应用。编写一些简单的游戏辅助脚本是没问题的。
VBS是Visual Basic Script的简称，它是VB的一个子集，具有VB的部分功能，而适应性更强。
一般来说，会VB的人只需要简单的了解一下区别就能熟练编写VBS代码了。
2. 用VB如何编写游戏脚本
脚本主要是辅助操作，读取与改写内存要借助api函数的
3. 推荐一个VB运行脚本的方法
VB所需要的所有代码只能写在程序源码中.
要实现你说的功能,只能借用VBS
VB不是解释性的编程语言.VB程序源代码都是被编译成机械码后才成EXE文件的.
所以VB编译好的程序没有运行代码的函数.
如果不怕麻烦,就把所有代码的处理程序写到VB中.
要不就利用VBS脚本中的execute函数,在VBS中执行execute(a),则字符串a会被当程序执行.比如在VBS中:
a="Msgbox(now)"
execute (a)
的执行结果等于Msgbox(now)的结果.
把你要处理的代码以字符串(记得换行!)的形式存在a中,再在VBS中执行
execute(a)
即可.
4. 有VB或者做脚本的 高手吗 给我指导下！！！谢谢
VB API 里面有支持的。不过首先搞到游戏的HDC，这个可以用HOOK做到。
然后先用VB SCREENSHOT下，分析，这个也要游戏的HDC。
然后根据游戏的HDC，VB里面有个API专门负责按键的，后面的HDC参数改成游戏的就成。。
这个系统非常庞大。真的很累。只是提供个思想。话说我今年暑假里也准备做一个尝试下。加个Q 吧 447521915。有兴趣一起做吧
5. 制作vb脚本
简单点的可以绑定他的mac地址
但是mac
可以被指定 最好就是绑定他的硬盘序列号啦
如果限制时间还要有个网络校时功能 不然他该系统时间就可以用啦 ，网络时间可以从任意网站获得
6. 我用VB做了一个游戏脚本 用于安卓模拟器（逍遥模拟器），方法是用send模拟按键，但send了平均
是不是太快了，模拟按键 一般设置一下时间间隔。建议学习一下按键精灵，做游戏脚本很轻松，发送按键、找图之类的特别方便。
语法很多借用的VB的样子。
7. vb可不可以写游戏脚本
vb可以写游戏脚本
8. 我想要一个用VB语言编写的游戏编程
算了给你网址 http://..com/question/45213102.html
9. 想用VB做一个编程游戏,但是不知道怎么做.
做游戏不比做软件，虽然都是编程序，但做游戏要牵扯的问题比较多：
首先必须熟练3DMAS，做出比较逼真的3D效果的图片或动画，并且不是一个图片或动画，而是一组或几组乃至几十组，有的游戏可能达到上百，足够一个比较大型的动画片了。
第二根据游戏划分模块，这个就不用详细说了。
第三才是组织编程了，大型游戏编程人员有详细的分工，不是一二个人员能够完成的。
当然什么说的是一般游戏开发商或公司的基本运作模式，对于小游戏，也逃不出这些步骤，不过在编程时，编程人员可能一二个人就可以完成。
建议你看看《VB游戏设计与实践》这本书，对你有帮助的。
思路：
1、开发游戏的题材；
2、需要完成的任务；
3、需要的图片或动画；
4、编程界面的设计；
5、程序编辑；
6、调试；
7、发布。
10. 怎样用vb编写小游戏
我2年前写的，有点幼稚。别见笑
VERSION
5.00
Begin
VB.Form
Form1
AutoRedraw
=
-1
'True
Caption
=
"打字游戏
小游戏而已"
ClientHeight
=
4800
ClientLeft
=
60
ClientTop
=
750
ClientWidth
=
5610
LinkTopic
=
"Form1"
ScaleHeight
=
4800
ScaleWidth
=
5610
StartUpPosition
=
1
'所有者中心
Begin
VB.Timer
Timer1
Left
=
0
Top
=
3600
End
Begin
VB.Label
Label1
Caption
=
"Label1"
Height
=
735
Index
=
0
Left
=
1320
TabIndex
=
0
Top
=
600
Width
=
855
End
Begin
VB.Menu
MenuGame
Caption
=
"数量
(&N)"
Index
=
0
End
Begin
VB.Menu
MenuGame
Caption
=
"速度
(&P)"
Index
=
1
End
Begin
VB.Menu
MenuGame
Caption
=
"重置
(&R)"
Index
=
2
End
Begin
VB.Menu
MenuGame
Caption
=
"开始
(&S)"
Index
=
3
End
Begin
VB.Menu
MenuGame
Caption
=
"输赢
(&W)"
Index
=
4
End
Begin
VB.Menu
MenuGame
Caption
=
"帮助
(&H)"
Index
=
5
End
End
Attribute
VB_Name
=
"Form1"
Attribute
VB_GlobalNameSpace
=
False
Attribute
VB_Creatable
=
False
Attribute
VB_PredeclaredId
=
True
Attribute
VB_Exposed
=
False
Dim
StartPause
As
Boolean
Dim
n
As
Integer
Dim
Speed
As
Integer
Dim
Down
As
Integer,
Hit
As
Integer
Dim
DownLost
As
Integer,
HitWin
As
Integer
Rem
自定义函数效率不高啊。。。
Private
Sub
Form_Initialize()
Speed
=
10
DownLost
=
100
HitWin
=
100
End
Sub
Private
Sub
Form_KeyDown(KeyCode
As
Integer,
Shift
As
Integer)
Randomize
For
Index
=
0
To
n
If
Chr(KeyCode)
=
Label1(Index).Caption
Then
With
Label1(Index)
.Top
=
Me.ScaleTop
.Caption
=
Chr(Int(Rnd
*
26)
+
65)
.Left
=
Rnd
*
(Me.ScaleWidth
-
Label1(Index).Width)
.ForeColor
=
RGB(Rnd
*
255,
Rnd
*
255,
Rnd
*
255)
End
With
Hit
=
Hit
+
1
Me.Caption
=
"打字游戏
"
&
"掉落:
"
&
Down
&
"
命中:
"
&
Hit
End
If
Next
Index
End
Sub
Private
Sub
Form_Load()
On
Error
Resume
Next
Timer1.Interval
=
10
Timer1.Enabled
=
False
Randomize
With
Label1(0)
.Top
=
Me.ScaleTop
.Caption
=
Chr(Int(Rnd
*
26)
+
65)
.ForeColor
=
RGB(Rnd
*
255,
Rnd
*
255,
Rnd
*
255)
.Left
=
Rnd
*
(Me.ScaleWidth
-
Label1(0).Width)
.FontSize
=
30
.BackStyle
=
0
End
With
For
Index
=
1
To
n
Load
Label1(Index)
With
Label1(Index)
.Visible
=
True
.FontSize
=
30
.BackStyle
=
0
.Top
=
Me.ScaleTop
.Caption
=
Chr(Int(Rnd
*
26)
+
65)
.Left
=
Rnd
*
(Me.ScaleWidth
-
Label1(Index).Width)
.ForeColor
=
RGB(Rnd
*
255,
Rnd
*
255,
Rnd
*
255)
End
With
Next
Index
End
Sub
Private
Sub
MenuGame_Click(Index
As
Integer)
On
Error
Resume
Next
Select
Case
Index
Case
0
n
=
Int(InputBox("输入数量,建议输入1至5,如果输入0或者按取消，将会去缺省值1",
"输入数量")
-
1)
Form_Load
StartPause
=
False:
MenuGame(3).Caption
=
"开始
(&S)"
Case
1
Speed
=
Int(Val(InputBox("输入速度参数，建议5-20，如果输入0或按取消，将会取缺省值0，就是不会移动",
"输入速度参数")))
Timer1.Enabled
=
False
StartPause
=
False:
MenuGame(3).Caption
=
"开始
(&S)"
Case
2
Hit
=
0
Down
=
0
Form_Load
StartPause
=
False:
MenuGame(3).Caption
=
"开始
(&S)"
Case
3
StartPause
=
Not
StartPause
If
StartPause
=
True
Then
MenuGame(3).Caption
=
"暂停
(&P)"
Timer1.Enabled
=
True
ElseIf
StartPause
=
False
Then
MenuGame(3).Caption
=
"开始
(&S)"
Timer1.Enabled
=
False
End
If
Case
4
HitWin
=
Int(InputBox("输入数字，当命中数等于该数时即为胜利。",
"输入数字"))
DownLost
=
Int(InputBox("输入数字，当掉落数等于该数时即为胜利。",
"输入数字"))
Case
5
MsgBox
"目前没有编辑帮助"
End
Select
End
Sub
Private
Sub
Timer1_Timer()
Randomize
For
Index
=
0
To
n
Label1(Index).Top
=
Label1(Index).Top
+
Speed
If
Label1(Index).Top
>=
Me.ScaleHeight
Then
With
Label1(Index)
.Top
=
Me.ScaleTop
.Caption
=
Chr(Int(Rnd
*
26)
+
65)
.Left
=
Rnd
*
(Me.ScaleWidth
-
Label1(Index).Width)
.ForeColor
=
RGB(Rnd
*
255,
Rnd
*
255,
Rnd
*
255)
End
With
Down
=
Down
+
1
Me.Caption
=
"打字游戏
"
&
"掉落
"
&
Down
&
"
命中
"
&
Hit
End
If
Next
Index
If
Down
>=
DownLost
Then
MsgBox
"你输啦！",
vbOKOnly,
"You
lost":
End
If
Hit
>=
HitWin
Then
MsgBox
"你赢啦！",
vbOKOnly,
"You
Win":
End
End
Sub