Results 1 to 1 of 1

Thread: Download Checker Source

  1. #1

    Thread Starter
    Frenzied Member
    Join Date
    Dec 2007
    Posts
    1,072

    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
    Attached Files Attached Files

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width