至少需要
在碧江等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都做網(wǎng)站、網(wǎng)站設(shè)計、外貿(mào)營銷網(wǎng)站建設(shè) 網(wǎng)站設(shè)計制作按需定制,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),成都品牌網(wǎng)站建設(shè),成都全網(wǎng)營銷推廣,成都外貿(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
還要了解異步與委托
簡單點(diǎn)的話
sub?tcplisten()?'監(jiān)聽過程
Const?LPort?As?Integer?=?6850?'本地監(jiān)聽端口
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)聽實(shí)例
TCPL.Start()?'開始監(jiān)聽
If?TCPL.Pending?=?True?Then?'如果有連接接入
Dim?TCPLX?As?New?Socket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp)?'建立一個新的SOCKET
TCPLX=TCPL.Accept()?’將第一個接入掛起的連接傳給新建SOCKET，因?yàn)楸O(jiān)聽的SOCKET還要繼續(xù)監(jiān)聽
dim?Ripep?as??new?ipendpoint=TCPLX.RemoteEndPoint?'此時獲得遠(yuǎn)程的ip與端口號
listbox.add(ripep.ip)
dim?buff?as?byte()
buff=TCPLX.Receive()?'listenacceptrecieve這時候可以接受數(shù)據(jù)了
dim?s?as?string=Encoding.Default.GetString(buff)?'轉(zhuǎn)換成文本
msg?"s"
TCPLX.send(buff)?'這個是發(fā)送
end?if
End?Sub
長時間沒寫，可能有點(diǎn)小錯誤，你自己調(diào)試調(diào)試，大概步驟就是listenacceptrecieve，最好看看msdn，那個學(xué)起來才系統(tǒng)
Visual Basic .NET Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮闹虚g解釋性語言，可以看作是Visual Basic在.Net Framework平臺上的升級版本,增強(qiáng)了對面向?qū)ο蟮闹С?。但由于改動太大，?dǎo)致VB.net對VB的向后兼容性不好，在業(yè)界引起不小的爭議。 大多的VB.Net程序員使用Visual Studio .Net作為IDE（integrated development environment). SharpDevelop是另一種可用的開源的IDE。VB.Net需要在.Net Framework平臺上才能執(zhí)行。 VB.NET的主頁 1 目前版本 2005年9月以來，存在三種不同版本的Visual Basic .NET. 1 Visual Basic .NET:是隨vc#和ASP.NET一起在2002年發(fā)布的最初始的VB.net版本。C#被大力宣傳為微軟對付JAVA的王牌，受到媒體極力關(guān)注。然而VB.NET(有時被稱為VB7)影響面不廣，這導(dǎo)致VB社區(qū)之外很少人關(guān)注它。那些試用過此版VB.NET的人在層層幕布下發(fā)現(xiàn)一個強(qiáng)大卻艱深的語言，而且還有不少弱點(diǎn)，比如它比VB6來有一個大了十倍的進(jìn)行時(RunTime)，內(nèi)存footprint也大大增加。 2 Visual Basic .NET 2003:是和.NET Framework 1.1一起發(fā)布的。新功能包括對.NET Compact Framework的支持和更好的VB升遷向?qū)?。并改進(jìn)了運(yùn)行狀況，IDE穩(wěn)定性(尤其是后臺編譯器)，以及運(yùn)行時RunTime穩(wěn)定性。另外，VB.NET 2003還有一個學(xué)院版Visual Studio .NET 2003 Academic Edition (VS03AE)，它是分發(fā)給各國某些學(xué)者免費(fèi)使用的版本。 3 Visual Basic 2005:VB2005是VB.Net的重大轉(zhuǎn)變，微軟決意在其軟件名稱中去掉了.NET部份。在VB2005中，微軟增加了許多新功能，以引用VB對于初學(xué)者來說的一些優(yōu)點(diǎn)： A, Edit and Continue - 也許是從VB那里丟掉的最大的功能，允許代碼的編輯和執(zhí)行立即的執(zhí)行恢復(fù)。 B, Design-time expression evaluation C, My偽命名空間，提供了訪問.NET Framework特定域的不需大量編碼的簡單方式；還能動態(tài)產(chǎn)生類(顯然的是My.Forms)；提供了改進(jìn)的VB到VB.NET轉(zhuǎn)換向?qū)?；Using 語法，簡化了需要部署pattern to free resources的對象的使用；My編碼，可隱藏由VB.NET IDE寫的模板代碼；數(shù)據(jù)源綁定，簡化了數(shù)據(jù)庫C/S開發(fā) 上述功能(尤其是My)增強(qiáng)了VB.Net成為快速開發(fā)應(yīng)用平臺的可能，并與C#進(jìn)一步區(qū)別開來。參見： 使用My開發(fā) 通過My命名空間訪問.NET Framework 和項(xiàng)目 Visual Basic 2005 通過增加新功能而填補(bǔ)了和其它所謂更強(qiáng)大的.NET語言的差距。 A, 增加了.NET 2.0語言功能包括：generics和Partial類(在一個文件里定義一個類的某部份然后再添加更多的定義，這個方法在整合用戶編碼和系統(tǒng)自動生成編碼時尤其有用)。 B, XML注釋，可以被NDoc等工具處理而自動生成文檔 C, operator overloading D, 支持在其它語言中已經(jīng)廣泛使用的unsigned integer數(shù)據(jù)類型。 E, 支持在許多C衍生編程語言已提供的復(fù)合操作符如："+=", "-=" 4, IsNot專利：If Not X Is Y表達(dá)式被轉(zhuǎn)換成If X IsNot Y。當(dāng)微軟為IsNot申請專利時招致了惡名(尤其來自Real公司)。 5, Visual Basic 2005 Express：作為VS產(chǎn)品線上的一部份,VB2005 Express是專為業(yè)余愛好者和新手定制的免費(fèi)的VS Express系列的一員。Express版本目的定位在幫助人們學(xué)習(xí)一種語言，所以他們有和標(biāo)準(zhǔn)版一致的用戶界面，只是少了一些高級功能。另外，VS 查看更多答案
記得采納啊
'首先通過菜單[項(xiàng)目] -- [添加引用]，選擇[COM]選項(xiàng)卡，選擇“Microsoft Excel XX.0 Object Library”，[確定]。
添加一個按鈕：
試試下面的代碼：注意版本；先建立以個EXCEL文件保存到c:\下面，我的計算機(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對象
Dim AppWokBook As Microsoft.Office.Interop.Excel.Workbook '聲明工作簿對象
Dim AppSheet As New Microsoft.Office.Interop.Excel.Worksheet '聲明工作表對象
AppXls = New Microsoft.Office.Interop.Excel.Application '實(shí)例化Excel對象
AppXls.Workbooks.Open("C:\工作簿1.xlsx") '打開已經(jīng)存在的EXCEL文件
AppXls.Visible = False '使Excel不可見
'AppWokBook = New Microsoft.Office.Interop.Excel.Workbook '實(shí)例化工作簿對象
'AppSheet = New Microsoft.Office.Interop.Excel.Worksheet '實(shí)例化工作表對象
AppWokBook = AppXls.Workbooks(1) 'AppWokBook對象指向工作簿"C:\學(xué)生成績.xls"
AppSheet = AppWokBook.Sheets("Sheet1") 'AppSheet對象指向AppWokBook對象中的表“Sheet1”，即："C:\學(xué)生成績.xls"中的表“Sheet1”
'下面舉一些例子：
'1、如果不聲明工作表對象 AppSheet ，那么應(yīng)用AppWokBook對象中的表“Sheet1”的語句就是：AppWokBook.Sheets("Sheet1")
'2、如果不聲明工作簿對象 AppWokBook ，那么應(yīng)用"C:\學(xué)生成績.xls"中的表“Sheet1”的語句就是：AppXls.Workbooks("C:\學(xué)生成績.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ù)寫入到單元格“H2”，就是第2行第8個單元格
'方法一
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()
'完成此程序，打開EXCEL檢查，可以看到在“Sheet1”表的單元格“H2”里是文本“大家好！”
End Sub
End Class
Socket類連接后 可以通過類中的 RemoteEndPoint 來獲取遠(yuǎn)程IP和端口信息.
要注意的是.需要將它強(qiáng)制轉(zhuǎn)化為 IPEndPoint類型 然后通過 IPEndPoint.Address以及IPEndPoint.Port來獲取對應(yīng)的IP及端口
例:
Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
'這里創(chuàng)建一個UDP Socket連接的實(shí)例 TCP也是一樣的
'省略SOCKET連接的代碼 當(dāng)SOCKET連接成功后 可以用下面的語句獲取遠(yuǎn)程信息
Dim IP as string ,Port as integer
'定義IP和Port變量 用來保存地址及端口
IP = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Address.ToString())
Port = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Port)
重慶分公司
重慶分公司
