Download Checker Source

Code:

---

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 :)