使用webbrowser控件來加載網(wǎng)頁,然后再
10年積累的成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)經(jīng)驗(yàn),可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你,你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程,更有孝感免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
Private
Sub
WebBrowser
1_DocumentCompleted下通過使用WebBrowser1.Document.Body.
InnerHtml
來獲取網(wǎng)頁的源代碼,或使用
WebBrowser1.Document.Body.InnerText來獲取網(wǎng)頁中的文本。之后可以通過字符串控制指令或者
正則表達(dá)式
來精確獲取到你所需的數(shù)據(jù)。
vb.net編譯出來的exe只有依賴.net
framework才能運(yùn)行
但有一些第三方工具可以用來把exe用到的assembly和dll打包成一個(gè)exe文件,不過這樣的結(jié)果就是exe體積非常大
比如.netz工具,它的官方地址:
使用很簡(jiǎn)單,比如你的exe文件是a.exe,直接netz
a.exe就可以把a(bǔ)和它用到的.net代碼一起打包成一個(gè)exe
Dim url As String=" 網(wǎng)址"
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
httpReq.KeepAlive = False ' 獲取或設(shè)置一個(gè)值,該值指示是否與
Internet資源建立持久連接。
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream,
System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是網(wǎng)頁源代碼
很簡(jiǎn)單的。這個(gè)最基本的了。
就是從數(shù)據(jù)庫表中 找出一個(gè)記錄,名稱和密碼都和你輸入的一樣的記錄,就表示登陸成功。
簡(jiǎn)單的思路:(密碼也沒有加密等)
dim dt As New DataTable
dim cmd As New SqlCommand
With cmd
.CommandText = "Select * From Users Where UserName=@UserName and UserPwd=@UserPwd"
.Parameters.Add(New SqlClient.SqlParameter("@UserName", "=你輸入的用戶名TextBox1.Text"))
.Parameters.Add(New SqlClient.SqlParameter("@strColorNo", "=你輸入的密碼TextBox2.Text"))
End With
dt =SqlHelper.GetDatatable(cmd)
if dt.rows.count0 then
msgbox "ok"
else
msgbox "error"
end if