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

嘿嘿，試試下面這個api

目前成都創新互聯已為上千的企業提供了網站建設、域名、網頁空間、網站改版維護、企業網站設計、榆次網站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協力一起成長，共同發展。

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

另外，再給你一個函數

'''?summary

'''?字符串型的cookie轉換成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}?轉換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}?轉換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}?轉換cookie結束")

End?Try

End?Sub

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

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

//SQL Server

DriverManager.getConnection（''jdbc：sqlserver：//主機\\實例名：端口號;

DatabaseName=數據庫名'',''用戶名'',''密碼''）

用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