vbs 自制數(shù)字益智游戲?qū)崿F(xiàn)代碼
更新時(shí)間：2019年04月17日 16:17:04 投稿：mdxy-dxy
這篇文章主要介紹了vbs 自制數(shù)字益智游戲?qū)崿F(xiàn)代碼,需要的朋友可以參考下
在看vb開(kāi)發(fā),看到二維數(shù)組時(shí)突發(fā)奇想用二維數(shù)組作為游戲關(guān)卡;
1. 選擇操作: 游戲開(kāi)始時(shí)會(huì)提示選擇注冊(cè), 登錄, 退出三種選項(xiàng),
2.注冊(cè): 注冊(cè)成功會(huì)將用戶(hù)賬戶(hù)與密碼存入用戶(hù)數(shù)據(jù)txt文檔中,連續(xù)三次輸入 空值會(huì)直接退出游戲;
3. 登錄: 登錄時(shí)會(huì)將輸入數(shù)據(jù)與用戶(hù)數(shù)據(jù)文檔內(nèi)容進(jìn)行比對(duì), 存在該用戶(hù)則登 錄成功, 同樣失敗三次后退出游戲;
4. 開(kāi)始游戲: 登錄成功后,會(huì)直接進(jìn)入游戲,游戲暫定為三個(gè)關(guān)卡, 每個(gè)關(guān)卡三 個(gè)小節(jié),游戲通過(guò)規(guī)則為以關(guān)卡作為二維數(shù)組的二維數(shù)組下標(biāo)(下標(biāo)),小 節(jié)作為 一位數(shù)組下標(biāo)(下標(biāo)+4)...文件里有具體實(shí)現(xiàn),不啰嗦額;
5. 用戶(hù)登錄,通關(guān)每關(guān)游戲都會(huì)寫(xiě)入游戲日志文檔game _log.txt ,記錄用戶(hù),操 作,通關(guān)進(jìn)度, 通關(guān)時(shí)間等
ps: 文件下載后,雙擊即可運(yùn)行, 游戲的用戶(hù)文檔game_user.txt和日志文檔game_log.txt是按照我桌面路徑創(chuàng)建的,如果不喜歡可以直接修改為d:\game\game_user.txt等等,游戲不在乎多好玩, 希望能給想學(xué)習(xí)vbs的童鞋一些幫助
完整代碼
Dim game(3,2),i,j,result,num '定義二維數(shù)組 二維長(zhǎng)度3, 一維長(zhǎng)度2
Dim fso ,ws,f ,logFileWrite,logFileRead, fileStr,flag,flagFailNum, flagIndex ' 定義日志文件
set ws = CreateObject("wscript.shell")
Set fso = CreateObject("scripting.filesystemobject")
If fso.fileexists("C:\Users\18190\Desktop\vbs\測(cè)試\game_log.txt") Then
Else
Set f = fso.createtextfile("C:\Users\18190\Desktop\vbs\測(cè)試\game_log.txt",true)
'If fso.fileexists("C:\Users\18190\Desktop\vbs\測(cè)試\game_log.txt") Then
' Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\測(cè)試\game_log.txt",8,true)
' logFileWrite.writeLine "數(shù)字猜猜猜小游戲-游戲日志"
' end if
End If
For i=0 To 2 ' 關(guān)卡賦值
For j=4 To 5
game(i,j-4)= i*3+j
Next
Next
'For i=0 To 2
' For j=0 To 1
'MsgBox "game("&i&","&j&"): "& game(i,j)
'Next
'Next
' 選擇操作
Dim cnum, failNum, sucFlag,t
failNum =0
sucFlag =0
Do While 1=1
If sucFlag=1 Then
Exit Do
End if
If failNum =3 Then
MsgBox "您有連續(xù)三次操作失誤,系統(tǒng)將直接退出..."
Exit do
end if
cnum = InputBox( "歡迎來(lái)到 數(shù)字猜猜猜小游戲 請(qǐng)選擇操作:"&chr(10)&" 1.注冊(cè) 2.登錄 3.退出","數(shù)字猜猜猜小游戲")
If cnum ="" Then
cnum = "-1"
End if
Select Case cnum
Case 1
' 賬戶(hù)注冊(cè)
Dim juname, upwd,regStr
regStr = ""
do while regStr = ""
uname = InputBox("請(qǐng)輸入注冊(cè)賬號(hào): ","數(shù)字猜猜猜小游戲-注冊(cè)")
upwd = InputBox("請(qǐng)輸入注冊(cè)密碼: ","數(shù)字猜猜猜小游戲-注冊(cè)")
If uname <> "" Then
If upwd <> "" Then
regStr = uname&"#"&upwd
Else
regStr =""
MsgBox "您輸入的注冊(cè)賬號(hào)密碼有誤,請(qǐng)重新輸入"
End If
Else
regStr =""
MsgBox "您輸入的注冊(cè)賬號(hào)密碼有誤,請(qǐng)重新輸入"
End If
If regStr <>"" Then
If fso.fileexists("C:\Users\18190\Desktop\vbs\測(cè)試\game_user.txt") Then
Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\測(cè)試\game_user.txt",8,true)
t= Year(now)&"-"&month(now)&"-"&day(now)&" "& Hour(now)&":"&minute(now)&":"&second(now)
'logFileWrite.WriteBlankLines 1
logFileWrite.writeLine regStr &" "&t
logFileWrite.close
MsgBox "注冊(cè)成功!"
exit do
else
Set f = fso.createtextfile("C:\Users\18190\Desktop\vbs\測(cè)試\game_user.txt",true)
If fso.fileexists("C:\Users\18190\Desktop\vbs\測(cè)試\game_user.txt") Then
Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\測(cè)試\game_user.txt",8,true)
logFileWrite.writeLine "數(shù)字猜猜猜小游戲-用戶(hù)數(shù)據(jù)"
logFileWrite.writeLine regStr
logFileWrite.close
MsgBox "注冊(cè)成功!"
exit do
end if
End If
end if
loop
'wscript.sleep 1000
case 2
' 賬戶(hù)登錄
Dim str
Set logFileRead = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\測(cè)試\game_user.txt",1)
fileStr = logFileRead.ReadAll
logFileRead.close
str = InputBox("請(qǐng)輸入您的賬戶(hù)名與密碼,中間以#鍵隔開(kāi): "," 數(shù)字猜猜猜小游戲-登錄")
if str <> "" then
flagIndex = InStr(fileStr,str)
If flagIndex>0 Then
flag =1
Else
flag = 0
Do While flagIndex =0
flagFailNum = flagFailNum +1
If flagFailNum = 3 Then
MsgBox "抱歉, 您已連續(xù)失敗3次,系統(tǒng)退出"
wscript.sleep 5000 ' 就這樣退出吧 -- 缺少wscript 對(duì)象
flagFailNum =0
end if
MsgBox "您的賬戶(hù)與密碼輸入有誤,請(qǐng)查證后再試試...."
str = InputBox("請(qǐng)輸入您的賬戶(hù)名與密碼,中間以#鍵隔開(kāi): "," 數(shù)字猜猜猜小游戲-登錄")
if str <> "" then
flagIndex = InStr(fileStr,str)
end if
loop
flag = 1
End If
Else
flag = 0
Do While flagIndex =0
flagFailNum = flagFailNum +1
If flagFailNum = 3 Then
MsgBox "抱歉, 您已連續(xù)失敗3次,系統(tǒng)退出"
wscript.sleep 5000 ' 就這樣退出吧 -- 缺少wscript 對(duì)象
flagFailNum =0
end if
MsgBox "您的賬戶(hù)與密碼輸入有誤,請(qǐng)查證后再試試...."
str = InputBox("請(qǐng)輸入您的賬戶(hù)名與密碼,中間以#鍵隔開(kāi): "," 數(shù)字猜猜猜小游戲-登錄")
if str <> "" then
flagIndex = InStr(fileStr,str)
end if
loop
flag = 1
end if
' 通過(guò)登錄驗(yàn)證
if flag =1 then
Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\測(cè)試\game_log.txt",8,true)
t= Year(now)&"-"&month(now)&"-"&day(now)&" "& Hour(now)&":"&minute(now)&":"&second(now)
'logFileWrite.WriteBlankLines 1
logFileWrite.writeLine "用戶(hù)登錄: "&str &" "&t
MsgBox "恭喜您成功登錄 數(shù)字猜猜猜小游戲! 接下來(lái)進(jìn)入游戲正題: "
num =0
for i=0 to 2
For j=0 To 1
result = InputBox("現(xiàn)在是游戲第"&(i+1)&"關(guān)第"&(j+1)&"小節(jié)"&chr(10)&" 請(qǐng)輸入游戲結(jié)果(i*3+j+4): "&chr(10)&"退出按-5","益智小游戲-數(shù)字猜猜猜: ")
If result ="-5" Then
exit for
end if
If result ="" Then
result = "-1"
end if
If cint(result) = i*3+j+4 then
MsgBox "恭喜您,成功通過(guò)第"&(i+1)&"關(guān)第"&(j+1)&"小節(jié),繼續(xù)加油哦..."
End if
Do While cint(result) <> i*3+j+4
num =num+1
If num =3 Then
MsgBox "抱歉, 您已連續(xù)失敗3次,通關(guān)失敗!"&chr(10)&" 游戲進(jìn)度截止為第"&(i+1)&"關(guān)第"&(j+1)&"小節(jié),下次努力哦..."
exit Do
End if
MsgBox "抱歉,您猜錯(cuò)了!請(qǐng)查證后再試...."
result = InputBox("現(xiàn)在是游戲第"&(i+1)&"關(guān)第"&(j+1)&"小節(jié), 請(qǐng)輸入游戲結(jié)果(i*3+j+4): ","答案: ")
If result ="" Then
result = "-1"
end if
If cint(result) = i*3+j+4 then
MsgBox "恭喜您,成功通過(guò)第"&(i+1)&"關(guān)第"&(j+1)&"小節(jié),繼續(xù)加油哦..."
Exit do
End if
loop
If num =3 Then
exit for
end if
Next
If result ="-5" Then
exit for
end if
If num =3 Then
exit for
End if
If i=2 Then
msg = "聰明的勇士,恭喜您成功通關(guān)本游戲!么么噠..."
MsgBox msg
t= Year(now)&"-"&month(now)&"-"&day(now)&" "& Hour(now)&":"&minute(now)&":"&second(now)
logFileWrite.writeLine "用戶(hù): "&str&"游戲進(jìn)度: "&msg &" "&t
sucFlag =1
exit for
End If
msg = "恭喜您成功通關(guān)第"&(i+1)&"關(guān)卡, 接下來(lái)進(jìn)入第"&(i+2)&"關(guān)...祝您好運(yùn)!"
MsgBox msg
t= Year(now)&"-"&month(now)&"-"&day(now)&" "& Hour(now)&":"&minute(now)&":"&second(now)
logFileWrite.writeLine "用戶(hù): "&str&"游戲進(jìn)度: "&msg &" "&t
Next
end if
Case 3
MsgBox "系統(tǒng)即將退出..."
exit do
case Else
MsgBox "您的選擇有誤,請(qǐng)重新選擇..."
failNum = failNum +1
End select
loop
這篇文章就介紹到這了，希望大家以后多多支持腳本之家。
相關(guān)文章
用vbs實(shí)現(xiàn)cmd功能的代碼...2007-12-12
VBS教程：VBscript屬性-功能介紹...2006-11-11
一個(gè)查看局域網(wǎng)在線(xiàn)IP的vbs腳本
想統(tǒng)計(jì)一下。有多少在線(xiàn)IP在內(nèi)網(wǎng)里面。其實(shí)好多工具都可以實(shí)現(xiàn)。感覺(jué)腳本可以可靠。 最好可以生成一個(gè)文本的。謝謝了。。2008-12-12
VBS教程：對(duì)象-Matches 集合...2006-11-11
vbs中使用 ADO 讀取所有數(shù)據(jù)均在一行上的文本文件的代碼
vbs中使用 ADO 讀取所有數(shù)據(jù)均在一行上的文本文件的代碼...2007-03-03
我修正了幾個(gè)小bug。加了一個(gè)在對(duì)方機(jī)器上直接生成一個(gè)down.vbs，用來(lái)下載用。2009-07-07
VBS教程：VBScript 基礎(chǔ)-使用條件語(yǔ)句
VBS教程：VBScript 基礎(chǔ)-使用條件語(yǔ)句...2006-11-11
這篇文章主要介紹了殺死指定進(jìn)程名稱(chēng)的小VBS,需要的朋友可以參考下2016-12-12
VBS教程：方法-GetTempName 方法...2006-11-11
VBS教程：函數(shù)-Hour 函數(shù)...2006-11-11