vb6 - 如何通过点击 URL 在 VB6 中读取 cookie

Question

我正在尝试通过点击 VB 6 中的 url 来读取 cookie。请帮帮我，因为我对此进行了很多搜索，但无法找到解决方案。

Answer 1

这就是我想要在没有在浏览器中打开它以获取存储在该 url 上的 cookie 信息的情况下点击 url 的内容......

谢谢大家的评论。。

Const scUserAgent = "API-Guide test program"
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Const sURL = "url"
Dim TargetUrl As String
Dim hOpen As Long
Dim hFile As Long

Dim abc As String


TargetUrl = "url"
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)

abc = GetCookies("url", "CookieName")
MsgBox "The cookie= " & abc