[vbs]會說話的猜數字遊戲(已排版)

看板Visual_Basic作者zhangzhixuan (山崎翔太)時間13年前 (2012/10/13 16:29)推噓1(1推 0噓 8→)

留言9則, 2人參與討論串1/1

之前無聊寫出來的剛剛有人建議排版後來還是得排版一下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

→

zhangzhixuan

10/13 16:31, , 1^F

10/13 16:31, 1^F

→

s3748679

10/13 16:54, , 2^F

10/13 16:54, 2^F

推

s3748679

10/13 17:04, , 3^F

10/13 17:04, 3^F