Mờ nhạt
trò chơi(3,2),i,j,kết quả,số
Mờ nhạt
fso ,ws,f ,logFileWrite,logFileRead, fileStr,flag,flagFailNum, flagIndex
đặt ws = CreateObject(
"wscript. shell"
)
Bộ
fso = Tạo đối tượng(
"scripting.filesystemobject"
)
Nếu như
fso.fileexists(
"C:\Users\18190\Desktop\vbs\test\game_log.txt"
)
Sau đó
Khác
Bộ
f = fso.createtextfile(
"C:\Users\18190\Desktop\vbs\test\game_log.txt"
,ĐÚNG VẬY)
Kết thúc
Nếu như
Vì
tôi = 0
ĐẾN
2
Vì
j=4
ĐẾN
5
trò chơi(i,j-4)= i*3+j
Kế tiếp
Kế tiếp
Mờ nhạt
cnum, failedNum, sucFlag, t
số lỗi =0
sucFlag =0
LÀM
Trong khi
1=1
Nếu như
sucFlag=1
Sau đó
Ra
LÀM
Kết thúc
nếu như
Nếu như
số lỗi =3
Sau đó
Hộp tin nhắn
"Nếu bạn mắc phải ba lỗi thao tác liên tiếp, hệ thống sẽ trực tiếp thoát ra..."
Ra
LÀM
kết thúc nếu
cnum = Hộp đầu vào(
"Chào mừng bạn đến với trò chơi đoán số, vui lòng chọn thao tác:"
&chr(10)&
" 1. Đăng ký 2. Đăng nhập 3. Đăng xuất"
,
"Trò chơi đoán số"
)
Nếu như
cnum =
""
Sau đó
cnum =
"-1"
Kết thúc
nếu như
Lựa chọn
Trường hợp
cây
Trường hợp
1
Mờ nhạt
juname, upwd,regStr
regStr =
""
làm trong khi regStr =
""
uname = Hộp đầu vào(
"Xin vui lòng nhập tài khoản đăng ký của bạn:"
,
"Trò chơi đoán số - Đăng ký"
)
upwd = Hộp đầu vào(
"Xin vui lòng nhập mật khẩu đăng ký:"
,
"Trò chơi đoán số - Đăng ký"
)
Nếu như
không tên <>
""
Sau đó
Nếu như
lên <>
""
Sau đó
regStr = uname&
"#"
&lên
Khác
regStr =
""
Hộp tin nhắn
"Tài khoản đăng ký và mật khẩu bạn nhập không chính xác, vui lòng nhập lại"
Kết thúc
Nếu như
Khác
regStr =
""
Hộp tin nhắn
"Tài khoản đăng ký và mật khẩu bạn nhập không chính xác, vui lòng nhập lại"
Kết thúc
Nếu như
Nếu như
chuỗi đăng ký <>
""
Sau đó
Nếu như
fso.fileexists(
"C:\Users\18190\Desktop\vbs\test\game_user.txt"
)
Sau đó
Bộ
logFileWrite = fso.OpenTextFile(
"C:\Users\18190\Desktop\vbs\test\game_user.txt"
,8,đúng)
t= Năm(hiện tại)&
"-"
&tháng(bây giờ)&
"-"
&ngày(bây giờ)&
" "
& Giờ(bây giờ)&
":"
&phút(bây giờ)&
":"
&second(bây giờ)
logFileWrite.writeLine regStr &
" "
&t
logFileWrite. đóng
Hộp tin nhắn
"Đăng ký thành công!"
thoát ra làm
khác
Bộ
f = fso.createtextfile(
"C:\Users\18190\Desktop\vbs\test\game_user.txt"
,ĐÚNG VẬY)
Nếu như
fso.fileexists(
"C:\Users\18190\Desktop\vbs\test\game_user.txt"
)
Sau đó
Bộ
logFileWrite = fso.OpenTextFile(
"C:\Users\18190\Desktop\vbs\test\game_user.txt"
,8,đúng)
logFileWrite.writeLine
"Dữ liệu người dùng trò chơi đoán số"
logFileWrite.writeLine regStr
logFileWrite. đóng
Hộp tin nhắn
"Đăng ký thành công!"
thoát ra làm
kết thúc nếu
Kết thúc
Nếu như
kết thúc nếu
vòng lặp
trường hợp 2
Mờ nhạt
đường
Bộ
logFileRead = fso.OpenTextFile(
"C:\Users\18190\Desktop\vbs\test\game_user.txt"
,1)
fileStr = logFileRead.ĐọcTất Cả
logFileRead. đóng
str = Hộp đầu vào(
"Xin vui lòng nhập tên tài khoản và mật khẩu, cách nhau bằng phím #: "
,
"Trò chơi đoán số-đăng nhập"
)
nếu str <>
""
sau đó
flagIndex = InStr(fileStr,str)
Nếu như
cờIndex>0
Sau đó
cờ =1
Khác
cờ = 0
LÀM
Trong khi
cờ Index = 0
flagFailNum = flagFailNum +1
Nếu như
cờFailNum = 3
Sau đó
Hộp tin nhắn
"Xin lỗi, bạn đã thất bại ba lần liên tiếp và hệ thống đã thoát"
wscript.sleep 5000
cờFailNum =0
kết thúc nếu
Hộp tin nhắn
"Tài khoản và mật khẩu của bạn đã nhập không chính xác, vui lòng xác minh và thử lại..."
str = Hộp đầu vào(
"Xin vui lòng nhập tên tài khoản và mật khẩu, cách nhau bằng phím #: "
,
"Trò chơi đoán số-đăng nhập"
)
nếu str <>
""
sau đó
flagIndex = InStr(fileStr,str)
kết thúc nếu
vòng lặp
cờ = 1
Kết thúc
Nếu như
Khác
cờ = 0
LÀM
Trong khi
cờ Index = 0
flagFailNum = flagFailNum +1
Nếu như
cờFailNum = 3
Sau đó
Hộp tin nhắn
"Xin lỗi, bạn đã thất bại ba lần liên tiếp và hệ thống đã thoát"
wscript.sleep 5000
cờFailNum =0
kết thúc nếu
Hộp tin nhắn
"Tài khoản và mật khẩu của bạn đã nhập không chính xác, vui lòng xác minh và thử lại..."
str = Hộp đầu vào(
"Xin vui lòng nhập tên tài khoản và mật khẩu, cách nhau bằng phím #: "
,
"Trò chơi đoán số-đăng nhập"
)
nếu str <>
""
sau đó
flagIndex = InStr(fileStr,str)
kết thúc nếu
vòng lặp
cờ = 1
kết thúc nếu
nếu cờ =1 thì
Bộ
logFileWrite = fso.OpenTextFile(
"C:\Users\18190\Desktop\vbs\test\game_log.txt"
,8,đúng)
t= Năm(hiện tại)&
"-"
&tháng(bây giờ)&
"-"
&ngày(bây giờ)&
" "
& Giờ(bây giờ)&
":"
&phút(bây giờ)&
":"
&second(bây giờ)
logFileWrite.writeLine
"Người dùng đăng nhập:"
&str &
" "
&t
Hộp tin nhắn
"Chúc mừng bạn đã đăng nhập thành công vào trò chơi đoán số! Bây giờ chúng ta vào chủ đề chính của trò chơi: "
số = 0
đối với i = 0 đến 2
Vì
j=0
ĐẾN
1
kết quả = InputBox(
"Bây giờ là giờ chơi"
&(tôi+1)&
"Guandi"
&(j+1)&
"phần"
&chr(10)&
" Vui lòng nhập kết quả trận đấu (i*3+j+4): "
&chr(10)&
"Để thoát nhấn -5"
,
"Trò chơi giải đố đoán số:"
)
Nếu như
kết quả =
"-5"
Sau đó
thoát ra cho
kết thúc nếu
Nếu như
kết quả =
""
Sau đó
kết quả =
"-1"
kết thúc nếu
Nếu như
cint(result) = i*3+j+4 thì
Hộp tin nhắn
"Xin chúc mừng, bạn đã vượt qua kỳ thi đầu tiên thành công"
&(tôi+1)&
"Guandi"
&(j+1)&
"Tiểu Giới, tiếp tục phát huy nhé..."
Kết thúc
nếu như
LÀM
Trong khi
cint(kết quả) <> i*3+j+4
số = số + 1
Nếu như
số =3
Sau đó
Hộp tin nhắn
"Xin lỗi, ngươi liên tiếp thất bại ba lần, không thể vượt qua cấp độ!"
&chr(10)&
"Tiến trình trò chơi kết thúc ở vị trí số 1"
&(tôi+1)&
"Guandi"
&(j+1)&
"Tiểu Giới, lần sau cố gắng lên nhé..."
ra
LÀM
Kết thúc
nếu như
Hộp tin nhắn
"Xin lỗi, bạn đoán sai rồi! Vui lòng kiểm tra và thử lại..."
kết quả = InputBox(
"Bây giờ là giờ chơi"
&(tôi+1)&
"Guandi"
&(j+1)&
"Phần vui lòng nhập kết quả trận đấu (i*3+j+4): "
,
"Trả lời: "
)
Nếu như
kết quả =
""
Sau đó
kết quả =
"-1"
kết thúc nếu
Nếu như
cint(result) = i*3+j+4 thì
Hộp tin nhắn
"Xin chúc mừng, bạn đã vượt qua kỳ thi đầu tiên thành công"
&(tôi+1)&
"Guandi"
&(j+1)&
"Tiểu Giới, tiếp tục phát huy nhé..."
Ra
LÀM
Kết thúc
nếu như
vòng lặp
Nếu như
số =3
Sau đó
thoát ra cho
kết thúc nếu
Kế tiếp
Nếu như
kết quả =
"-5"
Sau đó
thoát ra cho
kết thúc nếu
Nếu như
số =3
Sau đó
thoát ra cho
Kết thúc
nếu như
Nếu như
tôi = 2
Sau đó
tin nhắn =
"Chiến binh thông minh, chúc mừng bạn đã hoàn thành thành công trò chơi này! Ừm..."
MsgBox msg
t= Năm(hiện tại)&
"-"
&tháng(bây giờ)&
"-"
&ngày(bây giờ)&
" "
& Giờ(bây giờ)&
":"
&phút(bây giờ)&
":"
&second(bây giờ)
logFileWrite.writeLine
"Người dùng:"
&str&
"Tiến trình trò chơi:"
&tin nhắn &
" "
&t
sucFlag =1
thoát ra cho
Kết thúc
Nếu như
tin nhắn =
"Chúc mừng bạn đã vượt qua cấp 1 thành công"
&(tôi+1)&
"Cấp độ, sau đó vào bước tiếp theo"
&(tôi+2)&
"Quan...chúc may mắn!"
MsgBox msg
t= Năm(hiện tại)&
"-"
&tháng(bây giờ)&
"-"
&ngày(bây giờ)&
" "
& Giờ(bây giờ)&
":"
&phút(bây giờ)&
":"
&second(bây giờ)
logFileWrite.writeLine
"Người dùng:"
&str&
"Tiến trình trò chơi:"
&tin nhắn &
" "
&t
Kế tiếp
kết thúc nếu
Trường hợp
3
Hộp tin nhắn
"Hệ thống sắp thoát ra..."
thoát ra làm
trường hợp
Khác
Hộp tin nhắn
"Lựa chọn của bạn sai, vui lòng chọn lại..."
số lỗi = số lỗi +1
Kết thúc
lựa chọn
vòng lặp
Tôi là một lập trình viên xuất sắc, rất giỏi!