2020年7月10日 星期五

vb.net 取得跳轉網址 [Get Refer URL] 


1
2
3
4
5
6
7
8
    Private Function getURL(ByVal Address As String) As String
        Dim req As HttpWebRequest = DirectCast(HttpWebRequest.Create(Address), HttpWebRequest)
        Dim response As HttpWebResponse
        Dim resUri As String
        response = req.GetResponse
        resUri = response.ResponseUri.AbsoluteUri
        Return resUri
    End Function
於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)