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