VB如何獲取textbox指定的字符串，如果有規律的字符如何抓取

Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])

為赫山等地區用戶提供了全套網頁設計制作服務，及赫山網站建設行業解決方案。主營業務為成都網站設計、成都網站制作、赫山網站設計，以傳統方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業、用心的態度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

返回在另一字符串中第一次出現某一字符串的位置

eg: ?msgbox instr("a:"":我""",":") ?結果為 2

Function InStrRev(StringCheck As String, StringMatch As String, [Start As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As Long

返回在另一字符串中第一次出現某一字符串的位置 從后面查找

MsgBox InStrRev("a:"":我""", ":")?結果為 4

Function Join(SourceArray, [Delimiter]) As String

把數組轉換成字符串 ?可查下

eg: ?有數組 ?a()={"123","234","345"}'這里的語法在vb中不能用 ?vb點虐 可以

join(a,"b") ?結果為 ? 123b234b345

Function Split(Expression As String, [Delimiter], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare])

把字符串分成 數組 ?與Join 相反

eg:有字符串 “123b234b345”

dim a()

a=Split("123b234b345","b")

結果為：?a()={"123","234","345"}

然后 就是你用過的 mid ?left right?replace ?等等 ?其實上面的幾個查找函數 ?基本 就能解決你的問題了

VB.NET 如何獲取網頁中的數據

Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String

'啟動一次具體的數據采集工作,返回采集到的HTML內容:要求必須輸入帶://的全地址數據

On Error Resume Next

Dim Str_WebContent As String = "請輸入查找網站地址."

Dim wb As WebClient = New WebClient() '//創建一個WebClient實例

If mWebsiteUrl.IndexOf("://") 0 Then

'//獲取或設置用于對向 Internet 資源的請求進行身份驗證的網絡憑據。（可有可無）

wb.Credentials = CredentialCache.DefaultCredentials

'//從資源下載數據并返回字節數組。（加@是因為網址中間有"/"符號）

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//轉換字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

Str_WebContent = Encoding.UTF8.GetString(pagedata)

End If

End If

Return Str_WebContent '提取出來新聞內容,刪除Body前后的多余內容,同時補充上該 Body標記,形成完整的內容 Str_WebContent '

End Function

VB點虐 如何讀取cookie

這個問題有點意思，但題主表意不明，確切的說應該分Web端和客戶端兩種情況。

想來問到這個問題的不應該是開發Web端的，說說客戶端的吧：

1、HttpWebRequest.CookieContainer

Cookies通過HttpResponse傳給客戶端，通過HttpRequest傳回服務端，因此你可以

設置Response.Cookies集合的值修改Cookie

Response.Cookies("MyCookie")("Data")?=?myCookie

通過讀取Request.Cookies集合的值得到Cookies的值

myCookie?=Request.Cookies("MyCookie")("Data")??"br"

2、本人自編的一個函數，放到一個模塊里直接調用即可：

Dim?myCookie?As?String

Public?Function?LoginAnGetCookie(ByRef?sUser?As?String,?ByRef?sPass?As?String)?As?String()

On?Error?Resume?Next

REM?登錄網站并獲得cookie

Dim?url?As?String?=?"網站地址"

Dim?postData?As?String?=?"sUser="??sUser??"sPass="??sPass?'假設傳值的是這樣的，實際中可用Fiddler抓取。

Dim?wc?As?System.Net.WebClient?=?New?System.Net.WebClient

Rem?wc.Headers.Add("Cookie",?myCookie)??'可講第一次獲得的Cookie賦值給myCookie，然后在此處傳值給網站即可

wc.Headers.Add("Content-Type",?"application/x-www-form-urlencoded")

wc.Headers.Add("UserAgent",?"Mozilla/5.0(iPad;?U;?CPU?iPhone?OS?3_2?like?Mac?OS?X;?en-us)?AppleWebKit/531.21.10?(KHTML,?like?Gecko)?Version/4.0.4?Mobile/7B314?Safari/531.21.10)")

Dim?sHtml?As?String?=?wc.UploadString(url,?"POST",?postData)

Dim?arrAllKeys()?As?String?=?wc.ResponseHeaders.AllKeys

Dim?sCookies?As?String?=?"Set-Cookie"

For?i?As?Integer?=?0?To?arrAllKeys.Length?-?1

If?arrAllKeys(i).Equals("Set-Cookie")?Then?sCookies?=?wc.ResponseHeaders.Get(i)

Next?i

Return?New?String()?{sHtml,?sCookies}?'返回二維數組，其中LoginAnGetCookie(0)是網頁源代碼，LoginAnGetCookie(1)是登錄后的Cookie

End?Function

vb點虐 直接通過瀏覽器操作網頁

你說的操作是像人一樣用鼠標點擊網頁？

直接應該是不行的，可以考慮先抓包分析數據包，在模擬瀏覽器發送請求獲取數據，然后進行相應處理

分享題目：vb點虐 如何抓包 vba抓包,直接提交數據
文章地址：http://vcdvsql.cn/article26/ddeisjg.html

成都網站建設公司_創新互聯，為您提供云服務器、做網站、企業建站、網站設計公司、定制網站、網站收錄

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯