منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
اريد دمج الداله في البوتن كي تقوم بفك الرابط ال 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 

هذه الداله اريد دمجها مع البوتن بحيث ان اضع ال textbox1 الرابط ينفك الي textbox2 وهذه الداله
وشكرااااااا

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ddemed