If (num1 > 0) Then Me.Size = GetFileSize(text1) Me.TimeToWait = GetMins(text1) OnStatusChanged(_Status.Per_Day_Limit_Exceeded_for_This_IP) RaiseEvent eSize(Me.Size) Me.ResetAll() Else num1 = 0 num1 = CShort(Strings.InStr(1, text1, "Want to download more", CompareMethod.Binary)) If (num1 > 0) Then Me.TimeToWait = GetMins(text1) Me.Size = GetFileSize(text1) OnStatusChanged(_Status.Download_Limit_Exceeded_for_This_IP) RaiseEvent eSize(Me.Size) Me.ResetAll() Else num1 = 0 num1 = CShort(Strings.InStr(1, text1, "already downloading a file", CompareMethod.Binary)) If (num1 > 0) Then OnStatusChanged(_Status.IP_already_downloading_a_file) Me.ResetAll() Else num1 = 0 num1 = CShort(Strings.InStr(1, text1, "Too many users", CompareMethod.Binary)) If (num1 > 0) Then OnStatusChanged(_Status.Too_many_users_Try_Again) Me.ResetAll() Else num1 = 0 num1 = CShort(Strings.InStr(1, text1, "Bad Request", CompareMethod.Binary)) If (num1 > 0) Then OnStatusChanged(_Status.Bad_Request_Proxy_Not_Supported) Me.ResetAll() Else num1 = 0 num1 = CShort(Strings.InStr(1, text1, "CDN Network", CompareMethod.Binary)) If (num1 > 0) Then OnStatusChanged(_Status.PlanetLab_CoDeen_Proxy_RapidShare_Not_Supported) Me.ResetAll() Else num1 = 0 'num1 = CShort(Strings.InStr(1, Strings.LCase(text1), "delete", CompareMethod.Binary)) If text1.ToLower.Contains("This file has been deleted".ToLower) = True Then OnStatusChanged(_Status.FileDeletedFromRS) Me.ResetAll() ElseIf text1.ToLower.Contains("File not found.".ToLower) = True Then OnStatusChanged(_Status.FileDeletedFromRS) Me.ResetAll() Else num1 = 0 num1 = CShort(Strings.InStr(1, Strings.LCase(text1), "remove", CompareMethod.Binary)) If (num1 > 0) Then OnStatusChanged(_Status.FileDeletedFromRS) Me.ResetAll() Else num1 = 0 num1 = CShort(Strings.InStr(1, Strings.LCase(text1), "Download-Server", CompareMethod.Binary)) If (num1 > 0) Then OnStatusChanged(_Status.Download_Server_unavailable) Me.ResetAll() Else Me.Size = GetFileSize(text1) RaiseEvent eSize(Me.Size) Me.TimeToWait = Me.GetCounter(text1) If Me.TimeToWait <= 0 Then Me.TimeToWait = 15 End If OnStatusChanged(_Status.Waiting) Me.Timer1.Enabled = True Me.DirectLink = Me.GetDirectLink(text1) 'Me.txtDirectDl.Text = Me.DirectLink End If End If End If End If End If End If End If End If End If