08-08-17, 04:01 PM
السلام عليكم
اريد دمج الداله في البوتن كي تقوم بفك الرابط ال adfly وغيرها
هذه الداله اريد دمجها مع البوتن بحيث ان اضع ال textbox1 الرابط ينفك الي textbox2 وهذه الداله
وشكرااااااا
اريد دمج الداله في البوتن كي تقوم بفك الرابط ال adfly وغيرها
PHP كود :
Private Function StrRe(ByVal Url As String) As String
Dim OriginUrl As String = Nothing
Dim UrlToBase As String = Convert.ToBase64String(Encoding.UTF8.GetBytes(Url))
Dim req = DirectCast(WebRequest.Create("http://urlchecker.org/ajax/ajax_decode.php"), HttpWebRequest)
Dim data = Encoding.UTF8.GetBytes(Convert.ToString("link=") & UrlToBase)
req.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
req.ContentLength = data.Length
req.Method = WebRequestMethods.Http.Post
Using writer = req.GetRequestStream()
writer.Write(data, 0, data.Length)
End Using
Using reponse = req.GetResponse()
Using reqrep = reponse.GetResponseStream()
Using reader = New StreamReader(reqrep)
OriginUrl = reader.ReadToEnd()
End Using
End Using
End Using
Return If((OriginUrl.Contains("class='success'")), New Regex("dllink.*?'(.*?)'").Match(OriginUrl).Groups(1).Value, "Not Found")
End Function
وشكرااااااا