如何通过点击URL读取VB6中的cookie

Question

我试图通过点击VB 6中的URL来读取cookie。 请帮助我，因为我已经搜索了很多，但无法找到解决方案。

Answer 1

这就是我想要点击网址而不在浏览器中打开它以获取存储在该网址上的cookie信息....

感谢大家的评论..

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