mradouane1
02-02-2008, 12:00 PM
السلام عليكم
http://www.planet-source-code.com/Upload_PSC/ScreenShots/PIC20072122355479196.jpg
خصائص البرنامج:
المهة : التحميل السريع و السهل للملفات
open source2: نعم vb.net
للتحميل من هنا
http://rapidshare.com/files/88563253/OpenSource1.zip.html
الملف المعدل الثاني
http://rapidshare.com/files/104291311/OpenSource2.rar
قمت بتعديل الدالة GetDirectLink بحيت يمكنك الآن إستئناف تحميل الروابط الموجدة على موقع التحميل rapidshare.com
ملحوظة : إختبر هذا اليرنامح لتحميل ملفات الموقع أعلاه Rapishare.com
و لم يختبر بعد علي الموقع rapidshare.de
التعديلات الجديد
Public Function GetDirectLink(ByVal strData As String) As String
'Dim text2 As String = String.Empty
'Dim text3 As String = String.Empty
'Dim regex1 As New Regex("(?<=unescape\(').+?(?=')")
'Try
' text2 = Regex.Match(strData, "(?<=unescape\(').+?(?=')").Value
'Catch exception3 As ArgumentException
' 'ProjectData.SetProjectError(exception3)
' 'Dim exception1 As ArgumentException = exception3
' 'ProjectData.ClearProjectError()
'End Try
'text3 = Web.HttpUtility.UrlDecode(text2)
'Dim com As String = """"
'Try
' If Dot = "de" Then
' text2 = Regex.Match(text3, "(?<=Please enter <img src="").+?(?="">)").Value
' Else
' text2 = Regex.Match(text3, "(?<=img.*src\s*=)\s*(?:""(?<1>[^""]*)""|(?<1>\S+))").Value.Replace(com, "").Replace(">", "").Replace("<br>here:", "")
' End If
'Catch exception4 As ArgumentException
'End Try
''Me.PicCode = LoadWebImage(text2)
'Me.PicUrl = text2
'RaiseEvent eImageCode(Me.PicUrl)
'Return Regex.Match(text3, "(?<=<form name=""dl"" action="").+?(?="" method)").Value
Dim text2 As String = String.Empty
Dim text3 As String = String.Empty
text3 = Web.HttpUtility.UrlDecode(strData)
Dim com As String = """"
Try
If Dot = "de" Then
text2 = Regex.Match(text3, "(?<=Please enter <img src="").+?(?="">)").Value
Else
''<img src="http://rs137.rapidshare.com/access2055505.jpg">
Dim regexp As String = "(?<=<img src="").+?(?=""><br>here)"
Dim re As New Regex(regexp, RegexOptions.IgnoreCase)
Dim m As Match = re.Match(text3)
If m.Success Then
text2 = m.Value
End If
End If
Catch exception4 As ArgumentException
End Try
'Me.PicCode = LoadWebImage(text2)
Me.PicUrl = text2
RaiseEvent eImageCode(Me.PicUrl)
Return Regex.Match(text3, "(?<='action="").+?(?="" method=""post"">')").Value
End Function
http://www.planet-source-code.com/Upload_PSC/ScreenShots/PIC20072122355479196.jpg
خصائص البرنامج:
المهة : التحميل السريع و السهل للملفات
open source2: نعم vb.net
للتحميل من هنا
http://rapidshare.com/files/88563253/OpenSource1.zip.html
الملف المعدل الثاني
http://rapidshare.com/files/104291311/OpenSource2.rar
قمت بتعديل الدالة GetDirectLink بحيت يمكنك الآن إستئناف تحميل الروابط الموجدة على موقع التحميل rapidshare.com
ملحوظة : إختبر هذا اليرنامح لتحميل ملفات الموقع أعلاه Rapishare.com
و لم يختبر بعد علي الموقع rapidshare.de
التعديلات الجديد
Public Function GetDirectLink(ByVal strData As String) As String
'Dim text2 As String = String.Empty
'Dim text3 As String = String.Empty
'Dim regex1 As New Regex("(?<=unescape\(').+?(?=')")
'Try
' text2 = Regex.Match(strData, "(?<=unescape\(').+?(?=')").Value
'Catch exception3 As ArgumentException
' 'ProjectData.SetProjectError(exception3)
' 'Dim exception1 As ArgumentException = exception3
' 'ProjectData.ClearProjectError()
'End Try
'text3 = Web.HttpUtility.UrlDecode(text2)
'Dim com As String = """"
'Try
' If Dot = "de" Then
' text2 = Regex.Match(text3, "(?<=Please enter <img src="").+?(?="">)").Value
' Else
' text2 = Regex.Match(text3, "(?<=img.*src\s*=)\s*(?:""(?<1>[^""]*)""|(?<1>\S+))").Value.Replace(com, "").Replace(">", "").Replace("<br>here:", "")
' End If
'Catch exception4 As ArgumentException
'End Try
''Me.PicCode = LoadWebImage(text2)
'Me.PicUrl = text2
'RaiseEvent eImageCode(Me.PicUrl)
'Return Regex.Match(text3, "(?<=<form name=""dl"" action="").+?(?="" method)").Value
Dim text2 As String = String.Empty
Dim text3 As String = String.Empty
text3 = Web.HttpUtility.UrlDecode(strData)
Dim com As String = """"
Try
If Dot = "de" Then
text2 = Regex.Match(text3, "(?<=Please enter <img src="").+?(?="">)").Value
Else
''<img src="http://rs137.rapidshare.com/access2055505.jpg">
Dim regexp As String = "(?<=<img src="").+?(?=""><br>here)"
Dim re As New Regex(regexp, RegexOptions.IgnoreCase)
Dim m As Match = re.Match(text3)
If m.Success Then
text2 = m.Value
End If
End If
Catch exception4 As ArgumentException
End Try
'Me.PicCode = LoadWebImage(text2)
Me.PicUrl = text2
RaiseEvent eImageCode(Me.PicUrl)
Return Regex.Match(text3, "(?<='action="").+?(?="" method=""post"">')").Value
End Function