这程序快把我逼疯了，求救各位大虾！

aaa123124 2003-02-19 10:40:02

这段程序是用来提取相应url的cookie。可是我把它的返回值用msgbox输出来后，在他后面的字段（其他的string)就全部消失了，把它输入到变量中也出现同样情况。。。。。。拜托你帮我看看！谢谢！

这个程序是在http://www.vb2themax.com/NLItem.asp?PageID=NewsletterBank&ID=150找到的

Private Declare Function InternetGetCookie Lib "wininet.dll" Alias _
"InternetGetCookieA" (ByVal lpszUrlName As String, _
ByVal lpszCookieName As String, ByVal lpszCookieData As String, _
lpdwSize As Long) As Boolean

' Get locally-stored cookies for a specified URL
'
' If CookieName is omitted, returns all the cookies as
' as semicolon-delimited list of NAME=VALUE pairs

Function GetCookies(ByVal URL As String, Optional CookieName As String) As _
String
Dim buffer As String
Dim length As Long

' prepare the receiving buffer
length = 10240
buffer = Space$(length)
' query WinInet for cookies from this URL
' a zero value means failure
If InternetGetCookie(URL, vbNullString, buffer, _
length) = 0 Then Exit Function

' LENGHT has received the size of returned data
buffer = Left$(buffer, length)

If Len(CookieName) = 0 Then
' the entire cookie string was requested
GetCookies = buffer
Else
' extract one single cookie
Dim cookies() As String
Dim i As Long, tmp As String

' get the individual cookies
cookies = Split(buffer, ";")

' search for the right one
For i = 0 To UBound(cookies)
' trim the leading space, if any
tmp = LTrim$(cookies(i))
If InStr(1, tmp, CookieName & "=", vbTextCompare) = 1 Then
' we've got it
GetCookies = Mid$(tmp, Len(CookieName) + 2)
Exit For
End If
Next
End If

End Function

...全文