作者zhangzhixuan (山崎翔太)
看板Visual_Basic
标题[vbs]会说话的猜数字游戏(已排版)
时间Sat Oct 13 16:29:32 2012
之前无聊写出来的 刚刚有人建议排版 後来还是得排版一下XD
这个东西直接复制下来 贴在记事本 存成副档名为VBS的档案就可以玩了
= = 当初是因为 病毒都使用VBS档案 後来才知道VBS是一种直译的东西
原始码都是公开的~~~
createobject("sapi.spvoice").speak "Welcome"
msgbox "欢迎使用山崎密码猜测程式" & vbcrlf & "程式密码长度从1~220个字元都有可
能" & vbcrlf & "密码的英文大小写相异" & vbcrlf & "程式设计:山崎翔太",,"欢迎您
的大驾光临"
Dim k
Dim g
call res
Sub res()
randomize()
k = ""
For i = 1 To int(rnd * 220) + 1 Step 1
Select Case int(rnd * 3)
Case 0
If k = "" Then
k = chr(int(rnd * 26) + asc("A"))
Else
k = k & chr(int(rnd * 26) + asc("A"))
End If
Case 1
If k = "" Then
k = chr(int(rnd * 26) + asc("a"))
Else
k = k & chr(int(rnd * 26) + asc("a"))
End If
Case 2
If k = "" Then
k = int(rnd * 10)
Else
k = k & int(rnd * 10)
End If
End Select
Next
createobject("sapi.spvoice").speak("Password of" & len(k) & "characters")
Call rs()
End Sub
Sub rs()
If g = 1 Then
m = inputbox("重置密码请输入[/res]" & vbcrlf & "密码直接输入即可" &
vbcrlf & "输入[/exit] 可以结束本程式" & vbcrlf & "输入[/ans] 则会公布答案且重
置答案" & vbcrlf & "输入[/autokey]会显示密码", "山崎猜密码游戏", k)
g = 0
Else
m = inputbox("重置密码请输入[/res]" & vbcrlf & "密码直接输入即可" &
vbcrlf & "输入[/exit] 可以结束本程式" & vbcrlf & "输入[/ans] 则会公布答案且重
置答案" & vbcrlf & "输入[/autokey]会显示密码", "山崎猜密码游戏")
End If
If lcase(m) = "/exit" Then
createobject("sapi.spvoice").speak("Thank yu again for your visit
Welcome")
ElseIf lcase(m) = "/res" Then
Call res()
ElseIf lcase(m) = "/ans" Then
msgbox(k, , "解答:")
Call res()
ElseIf lcase(m) = "/autokey" Then
g = 1
Call rs()
Else
If m = k Then
msgbox("恭喜过关", , "山崎猜密码游戏")
createobject("sapi.spvoice").speak("Congratulations on your
password")
Else
msgbox("密码错误", , "山崎猜密码游戏")
createobject("sapi.spvoice").speak("Password is incorrect")
Call rs()
End If
End If
End Sub
--
／＼／＼／＼／＼
＼山崎／翔／太／
＼／＼／＼／
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 180.177.2.7
1F：→ zhangzhixuan:重PO後一样的内容 但是钱变少了ˊˋ 10/13 16:31
2F：→ s3748679:... 不是可以用大写E编辑吗 10/13 16:54
4F：→ zhangzhixuan:我案小写e习惯了= = 没反应阿ZZ 所以就重PO= =''' 10/13 18:17
5F：→ zhangzhixuan:我用vB2008贴进去後自动缩排在复制出来 应该是 10/13 18:18
6F：→ zhangzhixuan:顺便就被他改了一些文字後就出错了吧= = 10/13 18:18
7F：→ zhangzhixuan:顺便问一下S大大 怎缩短网址= =? 10/13 18:18
9F：→ zhangzhixuan:3QS大,S大 我是否可以加贵方好友@@? 10/13 19:03