VB.NET HttpWebRequest根據(jù)MSDN寫法獲取不到COOKIE，有的可以但不完整

嘿嘿，試試下面這個(gè)api

目前成都創(chuàng)新互聯(lián)已為上千的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)頁空間、網(wǎng)站改版維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、榆次網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

Private?Const?INTERNET_COOKIE_HTTPONLY?As?Integer?=?H2000

SuppressUnmanagedCodeSecurity,?SecurityCritical,?DllImport("wininet.dll",?EntryPoint:="InternetGetCookieExW",?SetLastError:=True,?ExactSpelling:=True)

Friend?Function?InternetGetCookieEx([In]?Url?As?String,?[In]?cookieName?As?String,?Out?cookieData?As?StringBuilder,?[In],?Out?ByRef?pchCookieData?As?UInteger,?flags?As?UInteger,?reserved?As?IntPtr)?As?Boolean

End?Function

'''?summary

'''?獲取webbrowser登錄成功后的cookie，需要帶上登錄成功后的URL

'''?/summary

'''?param?name="url"/param

'''?returns/returns

SecurityCritical()

Public?Function?GetCookie(url?As?String)?As?String

Dim?size?As?UInteger?=?0

Dim?sb?As?New?StringBuilder

If?InternetGetCookieEx(url,?vbNullString,?Nothing,?size,?INTERNET_COOKIE_HTTPONLY,?IntPtr.Zero)?Then?'--?this?always?returns?false

If?size?=?0?Then

Return?Nothing

End?If

sb?=?New?StringBuilder(Convert.ToInt32(size)?+?1)

If?Not?InternetGetCookieEx(url,?vbNullString,?sb,?size,?INTERNET_COOKIE_HTTPONLY,?IntPtr.Zero)?Then

Return?Nothing

End?If

End?If

Dim?lastErrorCode?=?Marshal.GetLastWin32Error?'--?259

Return?sb.ToString()

End?Function

另外，再給你一個(gè)函數(shù)

'''?summary

'''?字符串型的cookie轉(zhuǎn)換成cookie型的cookiecollection

'''?/summary

'''?param?name="cookieStr"/param

'''?param?name="cookie"/param

'''?param?name="domain"/param

Public?Sub?StringToCookie(ByVal?cookieStr?As?String,?ByRef?cookie?As?CookieContainer,?ByVal?domain?As?String)

cookie?=?New?CookieContainer()

Debug.Print($"過程：{New?StackTrace().GetFrame(0).GetMethod.Name}?轉(zhuǎn)換cookie開始")

Try

Dim?cookstr?As?String()?=?cookieStr.Split(";"c)

Dim?cookieName?As?String?=?""

Dim?cookieValue?As?String?=?""

For?Each?str?As?String?In?cookstr

cookieName?=?str.Substring(0,?InStr(str,?"=")?-?1).Trim()

cookieValue?=?str.Substring(InStr(str,?"="),?str.Length?-?InStr(str,?"=")).Trim()

Dim?ck?As?New?Cookie(cookieName,?cookieValue)

'Debug.Print($"{cookieName}?=?{cookieValue}")

ck.Domain?=?domain

cookie.Add(ck)

Next

Debug.Print($"過程：{New?StackTrace().GetFrame(0).GetMethod.Name}?轉(zhuǎn)換cookie成功")

Catch?ex?As?Exception

Debug.Print($"過程：{New?StackTrace().GetFrame(0).GetMethod.Name}?{ex.StackTrace.ToString()}")

Finally

Debug.Print($"過程：{New?StackTrace().GetFrame(0).GetMethod.Name}?轉(zhuǎn)換cookie結(jié)束")

End?Try

End?Sub

vb.net／.net怎樣使用http協(xié)議的get和post？

建立ODBC數(shù)據(jù)源后，可以在Java程序中通過JDBC-ODBC接口連接數(shù)據(jù)褲：

//SQL Server

DriverManager.getConnection（''jdbc：sqlserver：//主機(jī)\\實(shí)例名：端口號;

DatabaseName=數(shù)據(jù)庫名'',''用戶名'',''密碼''）

用VB.NET 怎樣通過給的HTTP地址上傳文件

e As Int32 = 0 To Files.Count - 1

Dim PostedFile As HttpPostedFile = Files(iFile)

Dim FileName, FileExtent As String

FileName = Serverpath System.IO.Path.GetFileName(PostedFile.FileName)

If System.IO.Path.GetFileName(PostedFile.FileName) "" Then

FileName = System.IO.Path.GetFileName(PostedFile.FileName)

Dim Url As String = Me.Label1.Text.Trim FileName

PostedFile.SaveAs(Serve