VB.NET 服務(wù)器與客戶端數(shù)據(jù)交互問題？

客戶端簡單代碼：

創(chuàng)新互聯(lián)建站主要從事成都網(wǎng)站制作、做網(wǎng)站、外貿(mào)營銷網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)枝江,10多年網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220

Imports System.Net.Sockets

Imports System.IO

Private Output As NetworkStream

Private Writer As BinaryWriter

Private Reader As BinaryReader

Dim StrSend As String

Dim client As New TcpClient '

client.Connect(servIP, 2006)

Output = client.GetStream

Writer = New BinaryWriter(Output)

Reader = New BinaryReader(Output)

StrSend = "字符串"

System.Threading.Thread.Sleep(100)

Writer.Write(StrSend)

Try

Message = Reader.ReadString

If Message = "OK" Then

LBinfo.Text = "成功！" '測試

Else

LBinfo.Text = "失敗！"

End If

System.Threading.Thread.Sleep(100)

Catch ex As Exception

MessageBox.Show("Client Application Closing!")

Finally

Writer.Close()

Reader.Close()

Output.Close()

client.Close()

End Try

服務(wù)器端

用線程

Imports System.Net.Sockets

Imports System.IO

Imports System.Threading

Imports System.Windows.Forms

Private Connection As Socket

Private readThread As Thread

Private SocketStream As NetworkStream

Private Writer As BinaryWriter

Private Reader As BinaryReader

Public Sub New()

MyBase.New()

'該調(diào)用是 Windows 窗體設(shè)計器所必需的。

InitializeComponent()

'在 InitializeComponent() 調(diào)用之后添加任何初始化

readThread = New Thread(AddressOf RunServer)

readThread.Start()

End Sub

Public Sub RunServer()

Dim Listener As TcpListener

Try

Listener = New TcpListener(Net.IPAddress.Parse("192.168.1.16"), 2006)

Listener.Start()

While True

Connection = Listener.AcceptSocket 'accept an incoming connection

SocketStream = New NetworkStream(Connection) 'create networkstream object associated with socket

Writer = New BinaryWriter(SocketStream) 'create object for transferring data across stream

Reader = New BinaryReader(SocketStream) 'read string data sent from client

Try

Do

strIncept = Reader.ReadString

strIncept = DataDisp(strIncept) '此處插入數(shù)據(jù)處理程序()

SendInfoToClient(strIncept) 'send to client

Loop While Connection.Connected

Catch ex As Exception

MsgBox(ex.ToString)

Finally

Writer.Close()

Reader.Close()

SocketStream.Close()

End Try

End While

Catch ex As Exception

MsgBox(ex.ToString)

End Try

End Sub

Public Sub SendInfoToClient(ByVal Info As String)

'Send to client

Try

If Connection.Connected Then

Writer.Write(Info)

Connection.Close()

End If

Catch ex As SocketException

MessageBox.Show(ex.ToString)

End Try

End Sub

整個過程都有了

VB.NET環(huán)境下webbrowser網(wǎng)頁與Winform程序交互如何實現(xiàn)？

public Form1()

{

InitializeComponent();

webBrowser1.NewWindow += new CancelEventHandler(webBrowser1_NewWindow);

}

void webBrowser1_NewWindow(object sender, CancelEventArgs e)

{

e.Cancel=true;

webBrowser1.Navigate(webBrowser1.StatusText);

}

用vb.net實現(xiàn)網(wǎng)絡(luò)通信

用 vb.net socket通信

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub

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

不想一點一點寫了，粘貼給你吧

使用 HttpWebRequest 向網(wǎng)站提交數(shù)據(jù)

HttpWebRequest 是 .net 基類庫中的一個類，在命名空間 System.Net 下面，用來使用戶通過 HTTP 協(xié)議和服務(wù)器交互。

HttpWebRequest 對 HTTP 協(xié)議進行了完整的封裝，對 HTTP 協(xié)議中的 Header, Content, Cookie 都做了屬性和方法的支持，很容易就能編寫出一個模擬瀏覽器自動登錄的程序。

程序使用 HTTP 協(xié)議和服務(wù)器交互主要是進行數(shù)據(jù)的提交，通常數(shù)據(jù)的提交是通過 GET 和 POST 兩種方式來完成，下面對這兩種方式進行一下說明：

1. GET 方式。 GET 方式通過在網(wǎng)絡(luò)地址附加參數(shù)來完成數(shù)據(jù)的提交，比如在地址 中，前面部分 表示數(shù)據(jù)提交的網(wǎng)址，后面部分 hl=zh-CN 表示附加的參數(shù)，其中 hl 表示一個鍵(key)， zh-CN 表示這個鍵對應的值(value)。程序代碼如下：

HttpWebRequest req = (HttpWebRequest) HttpWebRequest.Create( "" );

req.Method = "GET";

using (WebResponse wr = req.GetResponse())

{

//在這里對接收到的頁面內(nèi)容進行處理

}

2. POST 方式。 POST 方式通過在頁面內(nèi)容中填寫參數(shù)的方法來完成數(shù)據(jù)的提交，參數(shù)的格式和 GET 方式一樣，是類似于 hl=zh-CNnewwindow=1 這樣的結(jié)構(gòu)。程序代碼如下：

string param = "hl=zh-CNnewwindow=1";

byte[] bs = Encoding.ASCII.GetBytes(param);

HttpWebRequest req = (HttpWebRequest) HttpWebRequest.Create( "" );

req.Method = "POST";

req.ContentType = "application/x-www-form-urlencoded";

req.ContentLength = bs.Length;

using (Stream reqStream = req.GetRequestStream())

{

reqStream.Write(bs, 0, bs.Length);

}

using (WebResponse wr = req.GetResponse())

{

//在這里對接收到的頁面內(nèi)容進行處理

}

在上面的代碼中，我們訪問了 的網(wǎng)址，分別以 GET 和 POST 方式提交了數(shù)據(jù)，并接收了返回的頁面內(nèi)容。然而，如果提交的參數(shù)中含有中文，那么這樣的處理是不夠的，需要對其進行編碼，讓對方網(wǎng)站能夠識別。

3. 使用 GET 方式提交中文數(shù)據(jù)。 GET 方式通過在網(wǎng)絡(luò)地址中附加參數(shù)來完成數(shù)據(jù)提交，對于中文的編碼，常用的有 gb2312 和 utf8 兩種，用 gb2312 方式編碼訪問的程序代碼如下：

Encoding myEncoding = Encoding.GetEncoding("gb2312");

string address = "?" + HttpUtility.UrlEncode("參數(shù)一", myEncoding) + "=" + HttpUtility.UrlEncode("值一", myEncoding);

HttpWebRequest req = (HttpWebRequest)HttpWebRequest.Create(address);

req.Method = "GET";

using (WebResponse wr = req.GetResponse())

{

//在這里對接收到的頁面內(nèi)容進行處理

}

在上面的程序代碼中，我們以 GET 方式訪問了網(wǎng)址 ，傳遞了參數(shù)“參數(shù)一=值一”，由于無法告知對方提交數(shù)據(jù)的編碼類型，所以編碼方式要以對方的網(wǎng)站為標準。常見的網(wǎng)站中， （百度）的編碼方式是 gb2312, （谷歌）的編碼方式是 utf8。

4. 使用 POST 方式提交中文數(shù)據(jù)。 POST 方式通過在頁面內(nèi)容中填寫參數(shù)的方法來完成數(shù)據(jù)的提交，由于提交的參數(shù)中可以說明使用的編碼方式，所以理論上能獲得更大的兼容性。用 gb2312 方式編碼訪問的程序代碼如下：

Encoding myEncoding = Encoding.GetEncoding("gb2312");

string param = HttpUtility.UrlEncode("參數(shù)一", myEncoding) + "=" + HttpUtility.UrlEncode("值一", myEncoding) + "" + HttpUtility.UrlEncode("參數(shù)二", myEncoding) + "=" + HttpUtility.UrlEncode("值二", myEncoding);

byte[] postBytes = Encoding.ASCII.GetBytes(param);

HttpWebRequest req = (HttpWebRequest) HttpWebRequest.Create( "" );

req.Method = "POST";

req.ContentType = "application/x-www-form-urlencoded;charset=gb2312";

req.ContentLength = postBytes.Length;

using (Stream reqStream = req.GetRequestStream())

{

reqStream.Write(bs, 0, bs.Length);

}

using (WebResponse wr = req.GetResponse())

{

//在這里對接收到的頁面內(nèi)容進行處理

}

從上面的代碼可以看出， POST 中文數(shù)據(jù)的時候，先使用 UrlEncode 方法將中文字符轉(zhuǎn)換為編碼后的 ASCII 碼，然后提交到服務(wù)器，提交的時候可以說明編碼的方式，用來使對方服務(wù)器能夠正確的解析。

以上列出了客戶端程序使用 HTTP 協(xié)議與服務(wù)器交互的情況，常用的是 GET 和 POST 方式。現(xiàn)在流行的 WebService 也是通過 HTTP 協(xié)議來交互的，使用的是 POST 方法。與以上稍有所不同的是， WebService 提交的數(shù)據(jù)內(nèi)容和接收到的數(shù)據(jù)內(nèi)容都是使用了 XML 方式編碼。所以， HttpWebRequest 也可以使用在調(diào)用 WebService 的情況下。

網(wǎng)站欄目：vb.net網(wǎng)站交互,VBNET教程
轉(zhuǎn)載來源：http://chinadenli.net/article11/dsieedd.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站建設(shè)、微信公眾號、自適應網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、移動網(wǎng)站建設(shè)

廣告

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