ColorDialog改為ColorDialog1
十年的西安網(wǎng)站建設(shè)經(jīng)驗,針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務(wù),響應(yīng)快,48小時及時工作處理。營銷型網(wǎng)站的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動調(diào)整西安建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計,從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)公司從事“西安網(wǎng)站設(shè)計”,“西安網(wǎng)站推廣”以來,每個客戶項目都認(rèn)真落實執(zhí)行。
你照抄要看仔細(xì)啊....
'--------------------
百度VB2010(VB.NET)吧建設(shè)發(fā)展中,需要你的支持和幫助!!!
快加入我們吧!發(fā)表你的疑問,經(jīng)驗,程序,分享..
讓我們共同進(jìn)步!
我不會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);
}
Imports System
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
Imports System.Drawing
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim blackpen As New System.Drawing.Pen(System.Drawing.Color.Black, 2)
Dim bluepen As New System.Drawing.Pen(System.Drawing.Color.Blue, 1)
Dim g As System.Drawing.Graphics
g = Me.CreateGraphics()
blackpen.StartCap = LineCap.NoAnchor’錯誤出現(xiàn)在此行
blackpen.EndCap = LineCap.ArrowAnchor'
redpen.StartCap = LineCap.NoAnchor’錯誤出現(xiàn)在此行
redpen.EndCap = LineCap.ArrowAnchor'
g.DrawLine(blackpen, LL, buttom, LL, top)
在OpTree中,要調(diào)用GetInfo的ReadInfo(),可以新建一個GetInfo類的實例:
Dim GI As New GetInfo
GI.ReadInfo()
調(diào)用
net
share命令即可
在vb中
可用
shell
語句
,如
shell
"net
share
XXXXXX"
NET
SHARE
sharename
sharename=drive:path
[/USERS:number
|
/UNLIMITED]
[/REMARK:"text"]
[/CACHE:Manual
|
Documents|
Programs
|
None
]
sharename
[/USERS:number
|
/UNLIMITED]
[/REMARK:"text"]
[/CACHE:Manual
|
Documents
|
Programs
|
None]
{sharename
|
devicename
|
drive:path}
/DELETE
NET
SHARE
使網(wǎng)絡(luò)用戶可以使用某一服務(wù)器上的資源。
當(dāng)不帶選項使用本命令
時,它會列出該計算機(jī)上正在被共享的所有資源。對于每一種資源,Windows
都
會報告其設(shè)備名或路徑名,以及與之相關(guān)的描述性注釋。
sharename
指共享資源的網(wǎng)絡(luò)名。輸入
NET
SHARE
和一個共享名只會
顯示那個共享的有關(guān)信息。
drive:path
指定將被共享的目錄的絕對路徑。
/USERS:number
設(shè)置可以同時訪問共享資源的最大用戶數(shù)。
/UNLIMITED
指定用戶可以同時訪問共享資源的不受限制的數(shù)目。
/REMARK:"text"
添加一個有關(guān)資源的描述性注釋,應(yīng)將文本包含在引號中。
devicename
指一個或多個被共享名所共享的打印機(jī)
(LPT1:
至
LPT9:)。
/DELETE
終止資源的共享。
/CACHE:Automatic
啟用脫機(jī)客戶緩存和自動重新集成
/CACHE:Manual
啟用脫機(jī)客戶緩存和手動重新集成
/CACHE:No
告訴客戶脫機(jī)緩存不合適
NET
HELP
command
|
MORE
用于逐屏顯示幫助。
網(wǎng)頁標(biāo)題:vb.net共享對象的簡單介紹
URL網(wǎng)址:http://muchs.cn/article46/hcpshg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供、ChatGPT、面包屑導(dǎo)航、品牌網(wǎng)站制作、云服務(wù)器、微信小程序
聲明:本網(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)