vb.net從一臺主機(jī)通過socket同時向多臺主機(jī)傳送信息，如何操作？

用VB5 Winsock控件創(chuàng)建TCP/IP通訊程序 隨著Windows 95中文版和Windows NT Server 4.0中文版的流行， Microsoft公司推出了相應(yīng)平臺上的開發(fā)軟件: Visual Basic 5.0 中文企業(yè) 版。它為Windows環(huán)境下的網(wǎng)絡(luò)開發(fā)提供了強(qiáng)大的工具，Winsock控件就是其中之一。 Winsock控件建立在TCP、UDP協(xié)議的基礎(chǔ)上，完成與遠(yuǎn)程計算機(jī)的通信。即使對TCP/IP不太熟悉的用戶，使用該控件也可以在十幾分鐘內(nèi)創(chuàng)建一個簡單的客戶機(jī)/服務(wù)器程序。下面我們對Winsock控件的事件、方法、屬性按其在程序中出現(xiàn)的順序分別作詳細(xì)的介紹，以便更好地理解程序源代碼。

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

vb.net EXCEL 問題

使用了VB.NET開發(fā)一個訪問excel讀取數(shù)據(jù)并修改的小程序，有一些經(jīng)驗性的東西和大家共享，如果有誤還請大家指正。

大致分為這樣幾個部分來說明：

1、 準(zhǔn)備部分：

準(zhǔn)備部分我們需要添加excel library的引用到工程中：我使用office2003，它的庫文件為 Microsoft excel 11.0 object library。如果使用excel2000，那么它使用的是Microsoft excel 9.0 object library。

有需要時，我們添加Imports 命名空間。

我在這個程序中只是訪問了excel的數(shù)據(jù)，不需要命名空間了哈。

2、 聲明一些對象：

這些對象并不是都需要，前面三個應(yīng)該有，后面的，你需要什么對象就聲明：

Dim excelapp As Excel.Application ‘聲明一個application對象

Dim excelworkbook As Excel.Workbook ‘聲明一個工作簿對象

Dim excelsheet As Excel.Worksheet ‘聲明一個工作表對象

等等…如：

Dim excelrange As Excel.Range ‘聲明一個范圍對象

3、 訪問一個excel文件：

excelapp = New Excel.Application

excelworkbook = excelapp.Workbooks.Open(strfile) ‘訪問到工作簿：這個strfile 是文件的路徑，我從打開文件對話框中得到的。

excelsheet = excelworkbook.Sheets.Item(1) ‘訪問到工作表：item使用索引值來得到sheet對象的引用

excelsheet.activate

我們可以得到此文件中的值：

定義一個string變量：

Dim strcellvalue as string

Strcellvalue=excelsheet.cells(1,1).value ‘得到A1單元格的內(nèi)容。

修改的時候反過來就可以了：

excelsheet.cells(1,1).value= Strcellvalue

4、 善后：

在程序的每一個退出口操作excel對象，保存或者不保存：

Excelworkbook.save

Excelworkbook.close

Excelapp=nothing

5其它：

需要注意~上面的代碼需要一些容錯機(jī)制，比如：

If Not excelworkbook Is Nothing Then 這樣的話來達(dá)到程序的正確運行

需要判斷現(xiàn)在excel又沒有打開。如果有excel進(jìn)程正在運行。你的代碼很可能會影響到打開的excel，像Excelworkbook.close這樣的語句雖然前面已經(jīng)很好的唯一指定了工作簿，但不能很武斷的進(jìn)行魯莽的操作，我們需要判斷現(xiàn)在excel的運行情況。

另外，VB.NET 讀取Excel 2007的xlsx文件和讀取老的.xls文件是一樣的，都是用Oledb讀取,僅僅連接字符串不同而已。讀取xlsx 用的是Microsoft.Ace.OleDb.12.0;具體操作方法如下：

Public Shared Function GetExcelToDataTableBySheet(ByVal FileFullPath As String, ByVal SheetName As String) As DataTable

'string strConn = "Provider=Microsoft.Jet.OleDb.4.0;" + "data source=" + FileFullPath + ";Extended Properties='Excel 8.0; HDR=NO; IMEX=1'"; //此連接只能操作Excel2007之前(.xls)文件

Dim strConn As String = ("Provider=Microsoft.Ace.OleDb.12.0;" "data source=") + FileFullPath ";Extended Properties='Excel 12.0; HDR=NO; IMEX=1'"

'此連接可以操作.xls與.xlsx文件

Dim conn As New OleDbConnection(strConn)

conn.Open()

Dim ds As New DataSet()

Dim odda As New OleDbDataAdapter(String.Format("SELECT * FROM [{0}]", SheetName), conn)

'("select * from [Sheet1$]", conn);

odda.Fill(ds, SheetName)

conn.Close()

Return ds.Tables(0)

End Function

讀取Excel文件時，可能一個文件中會有多個Sheet，因此獲取Sheet的名稱是非常有用的。根據(jù)Excel物理路徑獲取Excel文件中所有表名的具體操作方法如下：

Public Shared Function GetExcelSheetNames(ByVal excelFile As String) As [String]()

Dim objConn As OleDbConnection = Nothing

Dim dt As System.Data.DataTable = Nothing

Try

'string strConn = "Provider=Microsoft.Jet.OleDb.4.0;" + "data source=" + excelFile + ";Extended Properties='Excel 8.0; HDR=NO; IMEX=1'"; //此連接只能操作Excel2007之前(.xls)文件

Dim strConn As String = ("Provider=Microsoft.Ace.OleDb.12.0;" "data source=") + excelFile ";Extended Properties='Excel 12.0; HDR=NO; IMEX=1'"

'此連接可以操作.xls與.xlsx文件

objConn = New OleDbConnection(strConn)

objConn.Open()

dt = objConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)

If dt Is Nothing Then

Return Nothing

End If

Dim excelSheets As [String]() = New [String](dt.Rows.Count - 1) {}

Dim i As Integer = 0

For Each row As DataRow In dt.Rows

excelSheets(i) = row("TABLE_NAME").ToString()

i += 1

Next

Return excelSheets

Catch

Return Nothing

Finally

If objConn IsNot Nothing Then

objConn.Close()

objConn.Dispose()

End If

If dt IsNot Nothing Then

dt.Dispose()

End If

End Try

End Function

Internet連接共享 wifi

共享的方式常見的有三種

1、系統(tǒng)自帶的網(wǎng)絡(luò)共享

windows7 WIFI共享設(shè)置方法如下：

2、WIFI共享軟件

常用軟件如下：

WIFI共享大師

WIFI共享精靈

獵豹WiFi共享

360免費WIFI

160WIFI

3、WIFI硬件共享

常用硬件如下：

360隨身wifi

騰訊全民wifi

百度wifi

hao123wifi

此外還有以下品牌相同功能的產(chǎn)品：

EDUP、COMFAST、必聯(lián)（B-LINK）、美國網(wǎng)件（NETGEAR）

友訊（D-Link）、聯(lián)普（TP-Link）、拓實（TUOSHI）、迅捷（FAST）

水星（MERCURY）、磊科（netcore）、騰達(dá)（TENDA）

出現(xiàn)地址錯誤是正常的，應(yīng)為系統(tǒng)要求你一個網(wǎng)卡用來自身上網(wǎng)，無線網(wǎng)卡用來發(fā)送無線信號，最好的辦法是使用第三方的方法，而不要使用Windows系統(tǒng)自動的共享，如果選擇第三方軟件推薦WIFI共享大師，針對天翼校園網(wǎng)，如果選擇第三方硬件推薦360隨身WIFI，穩(wěn)定安全方便。

如果不用net use的方法，vb.net 有辦法訪問共享文件或者共享文件夾嗎

我不會VB，但是都是.net。c#的代碼稍微轉(zhuǎn)換一下就可以了。

C#實現(xiàn)訪問網(wǎng)絡(luò)共享文件夾，使用?WNetAddConnection2A?和?WNetCancelConnection2A。

在目標(biāo)服務(wù)器建立共享文件夾，建立訪問賬號test;

public?enum?ERROR_ID

{

ERROR_SUCCESS?=?0,??//?Success?

ERROR_BUSY?=?170,

ERROR_MORE_DATA?=?234,

ERROR_NO_BROWSER_SERVERS_FOUND?=?6118,

ERROR_INVALID_LEVEL?=?124,

ERROR_ACCESS_DENIED?=?5,

ERROR_INVALID_PASSWORD?=?86,

ERROR_INVALID_PARAMETER?=?87,

ERROR_BAD_DEV_TYPE?=?66,

ERROR_NOT_ENOUGH_MEMORY?=?8,

ERROR_NETWORK_BUSY?=?54,

ERROR_BAD_NETPATH?=?53,

ERROR_NO_NETWORK?=?1222,

ERROR_INVALID_HANDLE_STATE?=?1609,

ERROR_EXTENDED_ERROR?=?1208,

ERROR_DEVICE_ALREADY_REMEMBERED?=?1202,

ERROR_NO_NET_OR_BAD_PATH?=?1203

}

public?enum?RESOURCE_SCOPE

{

RESOURCE_CONNECTED?=?1,

RESOURCE_GLOBALNET?=?2,

RESOURCE_REMEMBERED?=?3,

RESOURCE_RECENT?=?4,

RESOURCE_CONTEXT?=?5

}

public?enum?RESOURCE_TYPE

{

RESOURCETYPE_ANY?=?0,

RESOURCETYPE_DISK?=?1,

RESOURCETYPE_PRINT?=?2,

RESOURCETYPE_RESERVED?=?8,

}

public?enum?RESOURCE_USAGE

{

RESOURCEUSAGE_CONNECTABLE?=?1,

RESOURCEUSAGE_CONTAINER?=?2,

RESOURCEUSAGE_NOLOCALDEVICE?=?4,

RESOURCEUSAGE_SIBLING?=?8,

RESOURCEUSAGE_ATTACHED?=?16,

RESOURCEUSAGE_ALL?=?(RESOURCEUSAGE_CONNECTABLE?|?RESOURCEUSAGE_CONTAINER?|?RESOURCEUSAGE_ATTACHED),

}

public?enum?RESOURCE_DISPLAYTYPE

{

RESOURCEDISPLAYTYPE_GENERIC?=?0,

RESOURCEDISPLAYTYPE_DOMAIN?=?1,

RESOURCEDISPLAYTYPE_SERVER?=?2,

RESOURCEDISPLAYTYPE_SHARE?=?3,

RESOURCEDISPLAYTYPE_FILE?=?4,

RESOURCEDISPLAYTYPE_GROUP?=?5,

RESOURCEDISPLAYTYPE_NETWORK?=?6,

RESOURCEDISPLAYTYPE_ROOT?=?7,

RESOURCEDISPLAYTYPE_SHAREADMIN?=?8,

RESOURCEDISPLAYTYPE_DIRECTORY?=?9,

RESOURCEDISPLAYTYPE_TREE?=?10,

RESOURCEDISPLAYTYPE_NDSCONTAINER?=?11

}

[StructLayout(LayoutKind.Sequential)]

public?struct?NETRESOURCE

{

public?RESOURCE_SCOPE?dwScope;

public?RESOURCE_TYPE?dwType;

public?RESOURCE_DISPLAYTYPE?dwDisplayType;

public?RESOURCE_USAGE?dwUsage;

[MarshalAs(UnmanagedType.LPStr)]

public?string?lpLocalName;

[MarshalAs(UnmanagedType.LPStr)]

public?string?lpRemoteName;

[MarshalAs(UnmanagedType.LPStr)]

public?string?lpComment;

[MarshalAs(UnmanagedType.LPStr)]

public?string?lpProvider;

}

public?class?NetworkConnection

{

[DllImport("mpr.dll")]

public?static?extern?int?WNetAddConnection2A?(NETRESOURCE[]?lpNetResource,?string?lpPassword,?string?lpUserName,?int?dwFlags);

[DllImport("mpr.dll")]

public?static?extern?int?WNetCancelConnection2A?(string?sharename,?int?dwFlags,?int?fForce);

public?static?int?Connect?(string?remotePath,?string?localPath,?string?username,?string?password)

{

NETRESOURCE[]?share_driver?=?new?NETRESOURCE[1];

share_driver[0].dwScope?=?RESOURCE_SCOPE.RESOURCE_GLOBALNET;

share_driver[0].dwType?=?RESOURCE_TYPE.RESOURCETYPE_DISK;

share_driver[0].dwDisplayType?=?RESOURCE_DISPLAYTYPE.RESOURCEDISPLAYTYPE_SHARE;

share_driver[0].dwUsage?=?RESOURCE_USAGE.RESOURCEUSAGE_CONNECTABLE;

share_driver[0].lpLocalName?=?localPath;

share_driver[0].lpRemoteName?=?remotePath;

Disconnect(localPath);

int?ret?=?WNetAddConnection2A(share_driver,?password,?username,?1);

return?ret;

}

public?static?int?Disconnect?(string?localpath)

{

return?WNetCancelConnection2A(localpath,?1,?1);

}

調(diào)用方式：

public?static?void?TestNetWorkConnection()

{

string?localpath?=?"X:";

//int?status?=?NetworkConnection.Connect(@"\\192.168.0.2\test",?localpath,?@"test",?"test");

int?status?=?NetworkConnection.Connect("\\\\192.168.0.2\\test",?localpath,?@"test",?"test");

if?(status?==?(int)ERROR_ID.ERROR_SUCCESS)

{

FileStream?fs?=?new?FileStream(localpath?+?@"\\123.txt",?FileMode.OpenOrCreate);

using?(StreamWriter?stream?=?new?StreamWriter(fs))

{

stream.WriteLine("你好呀，成功了");

stream.Flush();

stream.Close();

}

fs.Close();

}

else

{

Console.WriteLine(status);

}

NetworkConnection.Disconnect(localpath);

}

vb.net編的web程序如何生成并且發(fā)布在sever2003服務(wù)器上并且用IE瀏覽器訪問

什么IIS架構(gòu)。暈～～～

1.首先正式版本的發(fā)布你必須要Release，不要直接把Debug程序放上去。

2.將所有的.cs文件刪除。vs.net有一個很方便的工具，“項目——復(fù)制項目”就ok了。

3.windows server2003上一定要安裝了"Internet 信息服務(wù)(IIS)管理器",如果沒有安裝的話可以到“控制面板——添加或刪除程序——添加\刪除WINDOWS組件——應(yīng)用程序服務(wù)器”如果“應(yīng)用程序服務(wù)器”沒有構(gòu)選的話鉤上，放入windows 2003的系統(tǒng)盤安裝。

4.安裝完成之后把項目靠到服務(wù)器上。簡單一點的方法是右鍵點擊項目文件夾，Web共享——共享文件夾。此時就算發(fā)布成功了。不過還有一些細(xì)節(jié)需要注意。如：IIS匿名訪問等。那就是另外的問題了。呵呵。IIS設(shè)置很簡單，可以在網(wǎng)上找些資料。

vb.net改端口物理地址怎么查

1、點擊右側(cè)的網(wǎng)絡(luò)連接，在彈出的對話框中點擊打開網(wǎng)絡(luò)和共享中心。

2、在網(wǎng)絡(luò)和共享中心界面中點擊更改適配器設(shè)置。

3、進(jìn)入網(wǎng)絡(luò)連接界面，右鍵本地連接。

4、在彈出的菜單中選擇屬性。

5、在本地連接屬性界面中點擊配置按鈕。

6、切換到高級選項卡，在屬性列表中找到并點擊網(wǎng)絡(luò)地址，在右側(cè)輸入修改后的網(wǎng)絡(luò)地址，點擊確定按鈕。

7、使用命令提示符，輸入Ipconfig-all，可以查看修改后的物理地址。

本文標(biāo)題：vb.net連接共享 vbs訪問共享文件夾
當(dāng)前網(wǎng)址：http://chinadenli.net/article44/dodjpee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信公眾號、靜態(tài)網(wǎng)站、網(wǎng)站建設(shè)、面包屑導(dǎo)航、軟件開發(fā)、網(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)