Download Checker Source

[Zach_VB6]

Dim strHTML As String
Dim y As Integer
Dim strTYPE2 As String
Private Sub Command1_Click()
Call OpenSingleList(List1, cldg)
Dim x As Integer
For x = 0 To List1.ListCount - 1
List1.List(x) = Replace(List1.List(x), " ", "")
Next x
End Sub

Private Sub Command2_Click()

Command2.Enabled = False
    For y = 0 To List1.ListCount - 1
    If InStr(1, List1.List(y), "http://www") = 0 Then
    If InStr(1, List1.List(y), "http://") Then List1.List(y) = Replace(List1.List(y), "http://", "http://www.")
    End If
    Next y
    For y = 0 To List1.ListCount - 1
        Call GetAndCheck
    Next y
    MsgBox "Done", , "Download Checker"
    
    
    Command2.Enabled = True
End Sub
Function Invalid()


Command2.Enabled = True
MsgBox "Invalid Link." & vbNewLine & "URL: " & vbNewLine & List1.List(y), , "Download Checker"
Exit Function
End Function
Private Sub Form_Unload(Cancel As Integer)
wrapper.ClearCookies
wrapper.StopIT = True
Call EndIt
End Sub
Function GetAndCheck()
        List1.List(y) = Replace(List1.List(y), " ", "")
        strTYPE2 = strTYPE(List1.List(y))
Label1.Caption = "Current: " & y + 1 & "/" & List1.ListCount & vbNewLine & "(" & strTYPE2 & ")"
        strHTML = wrapper.GetWrapper(List1.List(y), "")
            Select Case strTYPE2
                Case "rapidshare.com"
                If InStr(1, strHTML, "alert(") <> 0 Then Call Invalid: Exit Function
                Case "depositfiles.com"
                If InStr(1, strHTML, "does not exist") <> 0 Then Call Invalid: Exit Function
                Case "filefactory.com"
                If InStr(1, strHTML, "no longer available") <> 0 Then Call Invalid: Exit Function
                Case "megaupload.com"
                If InStr(1, strHTML, "Invalid link") <> 0 Then Call Invalid: Exit Function
                Case "rapidshare.de"
                If InStr(1, strHTML, "alert(") <> 0 Then Call Invalid: Exit Function
            End Select
End Function
Function strTYPE(strIDENTIFY As String) As String
        If InStr(1, strIDENTIFY, "rapidshare.com", vbTextCompare) <> 0 Then strTYPE = "rapidshare.com": Exit Function
        If InStr(1, strIDENTIFY, "rapidshare.de", vbTextCompare) <> 0 Then strTYPE = "rapidshare.de": Exit Function
        If InStr(1, strIDENTIFY, "depositfiles.com", vbTextCompare) <> 0 Then strTYPE = "depositfiles.com": Exit Function
        If InStr(1, strIDENTIFY, "megaupload.com", vbTextCompare) <> 0 Then strTYPE = "megaupload.com": Exit Function
        Call Invalid
End Function

This was posted by me under the alias FearLess (if you check Google)

The "wrapper" UserControl was made by Glurak and edited by me.

Sorry for not indenting