作者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