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