400分求vb.net,求一個socket的編程實例，詳細見問題補充：

至少需要

在碧江等地區，都構建了全面的區域性戰略布局，加強發展的系統性、市場前瞻性、產品創新能力，以專注、極致的服務理念，為客戶提供成都做網站、網站設計、外貿營銷網站建設 網站設計制作按需定制,公司網站建設,企業網站建設,成都品牌網站建設,成都全網營銷推廣,成都外貿網站建設公司,碧江網站建設費用合理。

Imports?System

Imports?System.Net

Imports?System.Net.Sockets

Imports?System.Threading

Imports?System.Text

還要了解異步與委托

簡單點的話

sub?tcplisten()?'監聽過程

Const?LPort?As?Integer?=?6850?'本地監聽端口

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

'addresslist里面包括IPV6和IPV4

Dim?IPEP?As?New?IPEndPoint(IPadd,?LPort)?'結點

TCPL?=?New?TcpListener(IPEP)?’建立監聽實例

TCPL.Start()?'開始監聽

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

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

TCPLX=TCPL.Accept()?’將第一個接入掛起的連接傳給新建SOCKET，因為監聽的SOCKET還要繼續監聽

dim?Ripep?as??new?ipendpoint=TCPLX.RemoteEndPoint?'此時獲得遠程的ip與端口號

listbox.add(ripep.ip)

dim?buff?as?byte()

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

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

msg?"s"

TCPLX.send(buff)?'這個是發送

end?if

End?Sub

長時間沒寫，可能有點小錯誤，你自己調試調試，大概步驟就是listenacceptrecieve，最好看看msdn，那個學起來才系統

有沒有人能詳細的說明vb.net 的特點，優缺點及應用領域？最好也舉個運用VB.NET的例子啊！

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

記得采納啊

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

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

添加一個按鈕：

試試下面的代碼：注意版本；先建立以個EXCEL文件保存到c:\下面，我的計算機是安裝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 '實例化Excel對象

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

AppXls.Visible = False '使Excel不可見

'AppWokBook = New Microsoft.Office.Interop.Excel.Workbook '實例化工作簿對象

'AppSheet = New Microsoft.Office.Interop.Excel.Worksheet '實例化工作表對象

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

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

'下面舉一些例子：

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

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

'要讀取數據表"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)

'把數據寫入到單元格“H2”，就是第2行第8個單元格

'方法一

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

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

MsgBox(S1)

'方法二

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

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

MsgBox(S1)

'方法二

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

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

MsgBox(S1)

'使用完畢必須關閉EXCEL，并退出

AppXls.ActiveWorkbook.Close(SaveChanges:=True)

AppXls.Quit()

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

End Sub

End Class

關于vb.net中socket編程實例：服務器端的一些問題

Socket類連接后 可以通過類中的 RemoteEndPoint 來獲取遠程IP和端口信息.

要注意的是.需要將它強制轉化為 IPEndPoint類型 然后通過 IPEndPoint.Address以及IPEndPoint.Port來獲取對應的IP及端口

例:

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

'這里創建一個UDP Socket連接的實例 TCP也是一樣的

'省略SOCKET連接的代碼 當SOCKET連接成功后 可以用下面的語句獲取遠程信息

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)

當前標題：關于vb.net軟件編程事例的信息
當前鏈接：http://vcdvsql.cn/article42/hejshc.html

成都網站建設公司_創新互聯，為您提供App設計、軟件開發、網站排名、微信小程序、域名注冊、搜索引擎優化

廣告

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