400分求vb.net,求一個(gè)socket的編程實(shí)例，詳細(xì)見(jiàn)問(wèn)題補(bǔ)充：

至少需要

在碧江等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力，以專(zhuān)注、極致的服務(wù)理念，為客戶(hù)提供成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、外貿(mào)營(yíng)銷(xiāo)網(wǎng)站建設(shè) 網(wǎng)站設(shè)計(jì)制作按需定制,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),成都品牌網(wǎng)站建設(shè),成都全網(wǎng)營(yíng)銷(xiāo)推廣,成都外貿(mào)網(wǎng)站建設(shè)公司,碧江網(wǎng)站建設(shè)費(fèi)用合理。

Imports?System

Imports?System.Net

Imports?System.Net.Sockets

Imports?System.Threading

Imports?System.Text

還要了解異步與委托

簡(jiǎn)單點(diǎn)的話

sub?tcplisten()?'監(jiān)聽(tīng)過(guò)程

Const?LPort?As?Integer?=?6850?'本地監(jiān)聽(tīng)端口

Dim?IPadd?As?IPAddress?=?Dns.GetHostEntry(Dns.GetHostName()).AddressList(1)?’本地IP

'addresslist里面包括IPV6和IPV4

Dim?IPEP?As?New?IPEndPoint(IPadd,?LPort)?'結(jié)點(diǎn)

TCPL?=?New?TcpListener(IPEP)?’建立監(jiān)聽(tīng)實(shí)例

TCPL.Start()?'開(kāi)始監(jiān)聽(tīng)

If?TCPL.Pending?=?True?Then?'如果有連接接入

Dim?TCPLX?As?New?Socket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp)?'建立一個(gè)新的SOCKET

TCPLX=TCPL.Accept()?’將第一個(gè)接入掛起的連接傳給新建SOCKET，因?yàn)楸O(jiān)聽(tīng)的SOCKET還要繼續(xù)監(jiān)聽(tīng)

dim?Ripep?as??new?ipendpoint=TCPLX.RemoteEndPoint?'此時(shí)獲得遠(yuǎn)程的ip與端口號(hào)

listbox.add(ripep.ip)

dim?buff?as?byte()

buff=TCPLX.Receive()?'listenacceptrecieve這時(shí)候可以接受數(shù)據(jù)了

dim?s?as?string=Encoding.Default.GetString(buff)?'轉(zhuǎn)換成文本

msg?"s"

TCPLX.send(buff)?'這個(gè)是發(fā)送

end?if

End?Sub

長(zhǎng)時(shí)間沒(méi)寫(xiě)，可能有點(diǎn)小錯(cuò)誤，你自己調(diào)試調(diào)試，大概步驟就是listenacceptrecieve，最好看看msdn，那個(gè)學(xué)起來(lái)才系統(tǒng)

有沒(méi)有人能詳細(xì)的說(shuō)明vb.net 的特點(diǎn)，優(yōu)缺點(diǎn)及應(yīng)用領(lǐng)域？最好也舉個(gè)運(yùn)用VB.NET的例子啊！

Visual Basic .NET Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮闹虚g解釋性語(yǔ)言，可以看作是Visual Basic在.Net Framework平臺(tái)上的升級(jí)版本,增強(qiáng)了對(duì)面向?qū)ο蟮闹С?。但由于改?dòng)太大，導(dǎo)致VB.net對(duì)VB的向后兼容性不好，在業(yè)界引起不小的爭(zhēng)議。 大多的VB.Net程序員使用Visual Studio .Net作為IDE（integrated development environment). SharpDevelop是另一種可用的開(kāi)源的IDE。VB.Net需要在.Net Framework平臺(tái)上才能執(zhí)行。 VB.NET的主頁(yè) 1 目前版本 2005年9月以來(lái)，存在三種不同版本的Visual Basic .NET. 1 Visual Basic .NET:是隨vc#和ASP.NET一起在2002年發(fā)布的最初始的VB.net版本。C#被大力宣傳為微軟對(duì)付JAVA的王牌，受到媒體極力關(guān)注。然而VB.NET(有時(shí)被稱(chēng)為VB7)影響面不廣，這導(dǎo)致VB社區(qū)之外很少人關(guān)注它。那些試用過(guò)此版VB.NET的人在層層幕布下發(fā)現(xiàn)一個(gè)強(qiáng)大卻艱深的語(yǔ)言，而且還有不少弱點(diǎn)，比如它比VB6來(lái)有一個(gè)大了十倍的進(jìn)行時(shí)(RunTime)，內(nèi)存footprint也大大增加。 2 Visual Basic .NET 2003:是和.NET Framework 1.1一起發(fā)布的。新功能包括對(duì).NET Compact Framework的支持和更好的VB升遷向?qū)А２⒏倪M(jìn)了運(yùn)行狀況，IDE穩(wěn)定性(尤其是后臺(tái)編譯器)，以及運(yùn)行時(shí)RunTime穩(wěn)定性。另外，VB.NET 2003還有一個(gè)學(xué)院版Visual Studio .NET 2003 Academic Edition (VS03AE)，它是分發(fā)給各國(guó)某些學(xué)者免費(fèi)使用的版本。 3 Visual Basic 2005:VB2005是VB.Net的重大轉(zhuǎn)變，微軟決意在其軟件名稱(chēng)中去掉了.NET部份。在VB2005中，微軟增加了許多新功能，以引用VB對(duì)于初學(xué)者來(lái)說(shuō)的一些優(yōu)點(diǎn)： A, Edit and Continue - 也許是從VB那里丟掉的最大的功能，允許代碼的編輯和執(zhí)行立即的執(zhí)行恢復(fù)。 B, Design-time expression evaluation C, My偽命名空間，提供了訪問(wèn).NET Framework特定域的不需大量編碼的簡(jiǎn)單方式；還能動(dòng)態(tài)產(chǎn)生類(lèi)(顯然的是My.Forms)；提供了改進(jìn)的VB到VB.NET轉(zhuǎn)換向?qū)?；Using 語(yǔ)法，簡(jiǎn)化了需要部署pattern to free resources的對(duì)象的使用；My編碼，可隱藏由VB.NET IDE寫(xiě)的模板代碼；數(shù)據(jù)源綁定，簡(jiǎn)化了數(shù)據(jù)庫(kù)C/S開(kāi)發(fā) 上述功能(尤其是My)增強(qiáng)了VB.Net成為快速開(kāi)發(fā)應(yīng)用平臺(tái)的可能，并與C#進(jìn)一步區(qū)別開(kāi)來(lái)。參見(jiàn)： 使用My開(kāi)發(fā) 通過(guò)My命名空間訪問(wèn).NET Framework 和項(xiàng)目 Visual Basic 2005 通過(guò)增加新功能而填補(bǔ)了和其它所謂更強(qiáng)大的.NET語(yǔ)言的差距。 A, 增加了.NET 2.0語(yǔ)言功能包括：generics和Partial類(lèi)(在一個(gè)文件里定義一個(gè)類(lèi)的某部份然后再添加更多的定義，這個(gè)方法在整合用戶(hù)編碼和系統(tǒng)自動(dòng)生成編碼時(shí)尤其有用)。 B, XML注釋?zhuān)梢员籒Doc等工具處理而自動(dòng)生成文檔 C, operator overloading D, 支持在其它語(yǔ)言中已經(jīng)廣泛使用的unsigned integer數(shù)據(jù)類(lèi)型。 E, 支持在許多C衍生編程語(yǔ)言已提供的復(fù)合操作符如："+=", "-=" 4, IsNot專(zhuān)利：If Not X Is Y表達(dá)式被轉(zhuǎn)換成If X IsNot Y。當(dāng)微軟為IsNot申請(qǐng)專(zhuān)利時(shí)招致了惡名(尤其來(lái)自Real公司)。 5, Visual Basic 2005 Express：作為VS產(chǎn)品線上的一部份,VB2005 Express是專(zhuān)為業(yè)余愛(ài)好者和新手定制的免費(fèi)的VS Express系列的一員。Express版本目的定位在幫助人們學(xué)習(xí)一種語(yǔ)言，所以他們有和標(biāo)準(zhǔn)版一致的用戶(hù)界面，只是少了一些高級(jí)功能。另外，VS 查看更多答案

記得采納啊

使用VS 2015軟件利用VB.NET編程操作excel 怎么樣像Excel VBA那樣將區(qū)域單元格直接讀入數(shù)組？

'首先通過(guò)菜單[項(xiàng)目] -- [添加引用]，選擇[COM]選項(xiàng)卡，選擇“Microsoft Excel XX.0 Object Library”，[確定]。

添加一個(gè)按鈕：

試試下面的代碼：注意版本；先建立以個(gè)EXCEL文件保存到c:\下面，我的計(jì)算機(jī)是安裝OFFICE 2010。

Public Class Form1

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

Dim AppXls As Microsoft.Office.Interop.Excel.Application '聲明Excel對(duì)象

Dim AppWokBook As Microsoft.Office.Interop.Excel.Workbook '聲明工作簿對(duì)象

Dim AppSheet As New Microsoft.Office.Interop.Excel.Worksheet '聲明工作表對(duì)象

AppXls = New Microsoft.Office.Interop.Excel.Application '實(shí)例化Excel對(duì)象

AppXls.Workbooks.Open("C:\工作簿1.xlsx") '打開(kāi)已經(jīng)存在的EXCEL文件

AppXls.Visible = False '使Excel不可見(jiàn)

'AppWokBook = New Microsoft.Office.Interop.Excel.Workbook '實(shí)例化工作簿對(duì)象

'AppSheet = New Microsoft.Office.Interop.Excel.Worksheet '實(shí)例化工作表對(duì)象

AppWokBook = AppXls.Workbooks(1) 'AppWokBook對(duì)象指向工作簿"C:\學(xué)生成績(jī).xls"

AppSheet = AppWokBook.Sheets("Sheet1") 'AppSheet對(duì)象指向AppWokBook對(duì)象中的表“Sheet1”，即："C:\學(xué)生成績(jī).xls"中的表“Sheet1”

'下面舉一些例子：

'1、如果不聲明工作表對(duì)象 AppSheet ，那么應(yīng)用AppWokBook對(duì)象中的表“Sheet1”的語(yǔ)句就是：AppWokBook.Sheets("Sheet1")

'2、如果不聲明工作簿對(duì)象 AppWokBook ，那么應(yīng)用"C:\學(xué)生成績(jī).xls"中的表“Sheet1”的語(yǔ)句就是：AppXls.Workbooks("C:\學(xué)生成績(jī).xls").Sheets("Sheet1")

'要讀取數(shù)據(jù)表"Sheet1"中的單元格“A1”的值，到變量S1里

Dim S1 As String

'方法一

S1 = AppXls.Workbooks(1).Sheets("Sheet1").Range("A1").Value

MsgBox(S1)

'方法二

S1 = AppWokBook.Sheets("Sheet1").Range("A1").Value

MsgBox(S1)

'方法三

S1 = AppSheet.Range("A1").Value

MsgBox(S1)

'把數(shù)據(jù)寫(xiě)入到單元格“H2”，就是第2行第8個(gè)單元格

'方法一

AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value = "您好！"

S1 = AppXls.Workbooks(1).Sheets("Sheet1").Cells(2, 8).Value '為了驗(yàn)證，讀取并顯示它

MsgBox(S1)

'方法二

AppWokBook.Sheets("Sheet1").Cells(2, 8).Value = "你們好！"

S1 = AppWokBook.Sheets("Sheet1").Cells(2, 8).Value '為了驗(yàn)證，讀取并顯示它

MsgBox(S1)

'方法二

AppSheet.Cells(2, 8).Value = "大家好！"

S1 = AppSheet.Cells(2, 8).Value '為了驗(yàn)證，讀取并顯示它

MsgBox(S1)

'使用完畢必須關(guān)閉EXCEL，并退出

AppXls.ActiveWorkbook.Close(SaveChanges:=True)

AppXls.Quit()

'完成此程序，打開(kāi)EXCEL檢查，可以看到在“Sheet1”表的單元格“H2”里是文本“大家好！”

End Sub

End Class

關(guān)于vb.net中socket編程實(shí)例：服務(wù)器端的一些問(wèn)題

Socket類(lèi)連接后 可以通過(guò)類(lèi)中的 RemoteEndPoint 來(lái)獲取遠(yuǎn)程IP和端口信息.

要注意的是.需要將它強(qiáng)制轉(zhuǎn)化為 IPEndPoint類(lèi)型 然后通過(guò) IPEndPoint.Address以及IPEndPoint.Port來(lái)獲取對(duì)應(yīng)的IP及端口

例:

Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

'這里創(chuàng)建一個(gè)UDP Socket連接的實(shí)例 TCP也是一樣的

'省略SOCKET連接的代碼 當(dāng)SOCKET連接成功后 可以用下面的語(yǔ)句獲取遠(yuǎn)程信息

Dim IP as string ,Port as integer

'定義IP和Port變量 用來(lái)保存地址及端口

IP = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Address.ToString())

Port = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Port)

當(dāng)前標(biāo)題：關(guān)于vb.net軟件編程事例的信息
當(dāng)前鏈接：http://jinyejixie.com/article42/hejshc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App設(shè)計(jì)、軟件開(kāi)發(fā)、網(wǎng)站排名、微信小程序、域名注冊(cè)、搜索引擎優(yōu)化

廣告

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