Changeset 31463

Show
Ignore:
Timestamp:
03/23/09 15:38:07 (4 years ago)
Author:
syo68k
Message:

SignInでのエラーチェック強化

Location:
lang/vb2005/Tween/Tween
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/vb2005/Tween/Tween/MyCommon.vb

    r31298 r31463  
    112112 
    113113    Public Sub TraceOut(ByVal Message As String) 
     114        TraceOut(TraceFlag, Message) 
     115    End Sub 
     116 
     117    Public Sub TraceOut(ByVal Flag As Boolean, ByVal Message As String) 
    114118        SyncLock LockObj 
    115             If Not TraceFlag Then Exit Sub 
     119            If Not Flag Then Exit Sub 
    116120            Dim now As DateTime = DateTime.Now 
    117121            Dim fileName As String = String.Format("TweenTrace-{0:0000}{1:00}{2:00}-{3:00}{4:00}{5:00}.log", now.Year, now.Month, now.Day, now.Hour, now.Minute, now.Second) 

  • lang/vb2005/Tween/Tween/Twitter.vb

    r31356 r31463  
    161161 
    162162            resMsg = DirectCast(CreateSocket.GetWebResponse("https://" + _hubServer + _loginPath, resStatus, MySocket.REQ_TYPE.ReqPOST, account), String) 
    163             If resMsg.Length = 0 Then 
    164                 Return "SignIn -> " + resStatus 
     163            If Not resMsg.Equals("<html><body>You are being <a href=""https://twitter.com:443/"">redirected</a>.</body></html>") Then 
     164                Dim msg As String = resStatus 
     165                If resMsg.Contains("https://twitter.com/account/locked") Then 
     166                    msg = "You account is Locked Out." 
     167                ElseIf resMsg.Contains("Wrong Username/Email and password combination.") Then 
     168                    msg = "Wrong Username/Email and password combination." 
     169                Else 
     170                    '未知の応答 
     171                    TraceOut(True, "SignIn Failed." + vbCrLf + "resStatus:" + resStatus + vbCrLf + "resMsg:" + vbCrLf + resMsg) 
     172                End If 
     173                Return "SignIn Failed -> " + msg 
    165174            End If 
    166175