vbs自作数字パズルゲーム実装コード

Dim game(3,2),i,j,result,num 'define two-dimensional array two-dimensional length 3, one-dimensional length 2
Dim fso ,ws,f ,logFileWrite,logFileRead, fileStr,flag,flagFailNum, flagIndex ' Define log file
  set ws = CreateObject("wscript.shell")
  Set fso = CreateObject("scripting.filesystemobject") 
  If fso.fileexists("C:\Users\18190\Desktop\vbs\test\game_log.txt") Then 
    Else 
    Set f = fso.createtextfile("C:\Users\18190\Desktop\vbs\test\game_log.txt",true)
      'If fso.fileexists("C:\Users\18190\Desktop\vbs\test\game_log.txt") Then
       ' Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\test\game_log.txt",8,true)
       ' logFileWrite.writeLine "Number Guessing Trivia Game - Game Log"
     ' end if 
   
  End If 

  For i=0 To 2 ' Level assignment
   For j=4 To 5
    game(i,j-4)= i*3+j
   Next
 Next

 'For i=0 To 2
  ' For j=0 To 1
  'MsgBox "game("&i&","&j&"): "& game(i,j)
  'Next
 'Next

' Select operation
Dim cnum, failNum, sucFlag,t
   failNum =0
   sucFlag =0
 Do While 1=1

 If sucFlag=1 Then 
   Exit Do 
  End if 

 If failNum =3 Then
  MsgBox "You have three consecutive operation failures, the system will directly exit... "
  Exit do
 end if 
 cnum = InputBox( "Welcome to Digital Guessing Game Please select the action: "&chr(10)&" 1.Register 2.Login 3.Exit","Digital Guessing Game")
  If cnum = "" Then
     cnum = "-1"
  End if
 Select Case cnum
 Case 1 
' Account Registration
Dim juname, upwd,regStr 
  regStr = ""
 do while regStr = ""
  uname = InputBox("Please enter the registration account: ","Number Guessing Trivia Game - Registration")
  upwd = InputBox("Please enter the registration password: ","Number Guessing Game - Registration")
  If uname <> "" Then 
    If upwd <> "" Then 
     regStr = uname&"#"&upwd
    Else 
     regStr = ""
     MsgBox "The password you entered is wrong, please re-enter"
    End If
  Else
    regStr =""
     MsgBox "The password you entered is wrong, please re-enter it"
  End If
 
 If regStr <>"" Then 
  If fso.fileexists("C:\Users\18190\Desktop\vbs\test\game_user.txt") Then 
      Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\test\game_user.txt",8,true)
      t= Year(now)&"-"&month(now)&"-"&day(now)&" "& Hour(now)&":"& minute(now)&":""&second(now)
      'logFileWrite.WriteBlankLines 1
      logFileWrite.writeLine regStr &" "&t
      logFileWrite.close
      MsgBox "Registration successful! "
      exit do
    else 
    Set f = fso.createtextfile("C:\Users\18190\Desktop\vbs\test\game_user.txt",true)
      If fso.fileexists("C:\Users\18190\Desktop\vbs\test\game_user.txt") Then
       Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\test\game_user.txt",8,true)
          logFileWrite.writeLine "Number Guessing Trivia Game - User Data"
          logFileWrite.writeLine regStr
           logFileWrite.close
          MsgBox "Registration successful! "
          exit do
     end if 
  End If 
 end if   
 loop

 'wscript.sleep 1000 

case 2
 ' Account login
Dim str 
  Set logFileRead = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\test\game_user.txt",1)
  fileStr = logFileRead.ReadAll
  logFileRead.close
  str = InputBox("Please enter your account name and password, separated by the # key: "," Number Guessing Game - Login")
  if str <> "" then 
   flagIndex = InStr(fileStr,str)
    If flagIndex>0 Then 
      flag =1
    Else 
      flag = 0
    Do While flagIndex =0 
     flagFailNum = flagFailNum + 1
     If flagFailNum = 3 Then 
     MsgBox "Sorry, you have failed 3 times in a row, the system has exited"
     wscript.sleep 5000 ' Just exit -- missing wscript object
     flagFailNum = 0
    end if 
      MsgBox "Your account and password were entered incorrectly, please check and try again .... "
     str = InputBox("Please enter your account name and password, separated by the # key: "," Number Guessing Game - Login")
     if str <> "" then 
     flagIndex = InStr(fileStr,str)
     end if
     loop
     flag = 1
   End If 
  Else 
     flag = 0
    Do While flagIndex = 0 
     flagFailNum = flagFailNum + 1
     If flagFailNum = 3 Then 
     MsgBox "Sorry, you have failed 3 times in a row, the system has exited"
     wscript.sleep 5000 ' Just exit -- missing wscript object
     flagFailNum = 0
    end if 
      MsgBox "Your account and password were entered incorrectly, please check and try again .... "
     str = InputBox("Please enter your account name and password, separated by the # key: "," Number Guessing Game - Login")
     if str <> "" then 
     flagIndex = InStr(fileStr,str)
     end if 
     loop
     flag = 1
  end if 


' Pass login verification
if flag =1 then 
  Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\test\game_log.txt",8,true)
      t= Year(now)&"-"&month(now)&"-"&day(now)&" "& Hour(now)&":"& minute(now)&":""&second(now)