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