包含vb.netshare的詞條
如何用VB對WIN2000共享的文件設(shè)置權(quán)限為只讀
2000系統(tǒng)下API實現(xiàn)目錄共享/刪除
成都創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供仙居網(wǎng)站建設(shè)、仙居做網(wǎng)站、仙居網(wǎng)站設(shè)計、仙居網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、仙居企業(yè)網(wǎng)站模板建站服務(wù)，十年仙居做網(wǎng)站經(jīng)驗，不只是建網(wǎng)站，更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
ACCESS_READ
共享類型
Private Const STYPE_ALL As Long = -1
Private Const STYPE_DISKTREE As Long = 0
Private Const STYPE_PRINTQ As Long = 1
Private Const STYPE_DEVICE As Long = 2
Private Const STYPE_IPC As Long = 3
Private Const STYPE_SPECIAL As Long = H80000000
'共享權(quán)限
Private Const ACCESS_READ As Long = H1
Private Const ACCESS_WRITE As Long = H2
Private Const ACCESS_CREATE As Long = H4
Private Const ACCESS_EXEC As Long = H8
Private Const ACCESS_DELETE As Long = H10
Private Const ACCESS_ATRIB As Long = H20
Private Const ACCESS_PERM As Long = H40
Private Const ACCESS_ALL As Long = ACCESS_READ Or _
ACCESS_WRITE Or _
ACCESS_CREATE Or _
ACCESS_EXEC Or _
ACCESS_DELETE Or _
ACCESS_ATRIB Or _
ACCESS_PERM
'共享信息
Private Type SHARE_INFO_2
shi2_netname As Long '共享名
shi2_type As Long '類型
shi2_remark As Long '備注
shi2_permissions As Long '權(quán)限
shi2_max_uses As Long '最大用戶
shi2_current_uses As Long '
shi2_path As Long '路徑
shi2_passwd As Long '密碼
End Type
'設(shè)置共享
Private Declare Function NetShareAdd Lib "netapi32" _
(ByVal ServerName As Long, _
ByVal level As Long, _
buf As Any, _
parmerr As Long) As Long
'刪除共享
Private Declare Function NetShareDel Lib "netapi32.dll" _
(ByVal ServerName As Long, _
ByVal ShareName As Long, _
ByVal dword As Long) As Long
'設(shè)置共享
Private Sub Command1_Click()
Dim success As Long
success = ShareAdd("\\XP","C:\","DOWNLOAD","資源目錄","")
End Sub
'刪除共享
Private Sub Command2_Click()
Dim success As Long
success = DelShare("\\XP","DOWNLOAD")
End Sub
'設(shè)置共享(返回0 為成功)
'參數(shù):
'sServer 計算機名
'sSharePath 要共享路徑
'sShareName 顯示的共享名
'sShareRemark 備注
'sSharePw 密碼
Private Function ShareAdd(sServer As String, _
sSharePath As String, _
sShareName As String, _
sShareRemark As String, _
sSharePw As String) As Long
Dim lngServer As Long
Dim lngNetname As Long
Dim lngPath As Long
Dim lngRemark As Long
Dim lngPw As Long
Dim parmerr As Long
Dim si2 As SHARE_INFO_2
lngServer = StrPtr(sServer) '轉(zhuǎn)成地址
lngNetname = StrPtr(sShareName)
lngPath = StrPtr(sSharePath)
'如果有備注信息
If Len(sShareRemark) 0 Then
lngRemark = StrPtr(sShareRemark)
End If
'如果有密碼
If Len(sSharePw) 0 Then
lngPw = StrPtr(sSharePw)
End If
'初始化共享信息
With si2
.shi2_netname = lngNetname
.shi2_path = lngPath
.shi2_remark = lngRemark
.shi2_type = STYPE_DISKTREE
.shi2_permissions = ACCESS_ALL
.shi2_max_uses = -1
.shi2_passwd = lngPw
End With
'設(shè)置共享(用戶名,共享類型,共享信息,)
ShareAdd = NetShareAdd(lngServer, _
2, _
si2, _
parmerr)
End Function
'刪除共享(返回0 表示成功)
'參數(shù):
'sServer 計算機名
'sShareName 共享名
Private Function DelShare(sServer As String, _
sShareName As String) As Long
Dim lngServer As Long '計算機名
Dim lngNetname As Long '共享名
lngServer = StrPtr(sServer) '轉(zhuǎn)成地址
lngNetname = StrPtr(sShareName)
'刪除共享
DelShare = NetShareDel(lngServer, lngNetname, 0)
End Function
如何使用netshare?
調(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)不帶選項使用本命令
時，它會列出該計算機上正在被共享的所有資源。對于每一種資源，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
指一個或多個被共享名所共享的打印機
(LPT1:
至
LPT9:)。
/DELETE
終止資源的共享。
/CACHE:Automatic
啟用脫機客戶緩存和自動重新集成
/CACHE:Manual
啟用脫機客戶緩存和手動重新集成
/CACHE:No
告訴客戶脫機緩存不合適
NET
HELP
command
|
MORE
用于逐屏顯示幫助。
瓢蟲病毒的病毒介紹
12月18日，金山毒霸全球反病毒監(jiān)測中心發(fā)布圣誕期間緊急病毒預(yù)警，行為極度惡劣的“瓢蟲”病毒新變種（Win32.Troj.Downloader.vb.237568）預(yù)計在圣誕節(jié)前后大面積發(fā)作，感染電腦內(nèi)將爬滿“瓢蟲”，廣大用戶需高度警惕。
金山毒霸反病毒專家戴光劍表示，“瓢蟲病毒集熊貓燒香、AV終結(jié)者等年內(nèi)重大病毒破壞性于一身，雖然目前病毒本身還有些缺陷，但隨著新變種的不斷出現(xiàn)，其破壞程度不容小覷?！?/p>
據(jù)了解，“瓢蟲”病毒與熊貓燒香類似，感染性極強，用戶電腦一旦感染該病毒，除系統(tǒng)盤，被感染后的exe文件圖標(biāo)將變成綠色的“小瓢蟲”；同時，用戶電腦內(nèi)的瀏覽器、任務(wù)管理器、文件夾選項、系統(tǒng)時間等項目都將遭受破壞。戴光劍指出，這是一個感染性極強的病毒，病毒運行后，用戶電腦將表現(xiàn)出五大“中毒”癥狀：
1、電腦運行速度立刻變慢，殺毒軟件無法正常使用；
2 、 系統(tǒng)時間被修改為2030年，使依賴系統(tǒng)時間的軟件全部失效；
3、瀏覽器首頁被篡改。當(dāng)用戶打開瀏覽器，會發(fā)現(xiàn)首頁被修改為一個偽裝的“百度”，由于該網(wǎng)址同樣具有正常的搜索功能，所以極具容易迷惑性；
4、“任務(wù)管理器”和“文件夾選項”遭屏蔽。如果用戶想使用“任務(wù)管理器”和“文件夾選項”來查看是誰在系統(tǒng)中搗鬼，會發(fā)現(xiàn)這兩個功能都被病毒屏蔽掉；而當(dāng)用戶試圖打開注冊表時，會彈出一個對話框，提示“注冊表編輯已被管理員停用”；再仔細(xì)檢查，會發(fā)現(xiàn)連System32文件夾都不見了，病毒已經(jīng)把自己隱藏得非常深；
5、硬盤、軟驅(qū)、光驅(qū)自動共享。用戶打開“我的電腦”時，可發(fā)現(xiàn)機器的硬盤以及軟驅(qū)、光驅(qū)全部已經(jīng)自動設(shè)置成共享狀態(tài)，并且這種共享還被病毒鎖死，無法改回正確的設(shè)置。這樣，只要有誰愿意，都可以一覽無遺地瀏覽用戶電腦中的資料。
金山毒霸反病毒工程師分析指出，病毒潛入用戶電腦系統(tǒng)后，會在系統(tǒng)盤中釋放出6個病毒文件，分別為%windows%\system32\目錄下的AUTORUN.INF、netshare.cmd、Avpser.cmd、Taskeep.vbs、SDGames.exe，以及%windows%下的system.ini。除此而外，病毒還在全部磁盤的根目錄下生成AUTORUN.INF、Recycleds.url、SDGames.exe、Windows.url、新建文件夾.url等文件。
根據(jù)瓢蟲病毒的傳播特點，金山毒霸反病毒應(yīng)急中心及時進(jìn)行了病毒庫更新，升級毒霸到2007年12月18的病毒庫即可查殺以上病毒；如未安裝金山毒霸，可以免費下載最新版金山毒霸2008或使用金山毒霸在線殺毒來防止病毒入侵。撥打金山毒霸反病毒急救電話010—82331816，反病毒專家將為您提供幫助。
年終歲末是病毒的高發(fā)期，金山毒霸反病毒工程師建議廣大用戶：1、最好安裝專業(yè)的殺毒軟件進(jìn)行全面監(jiān)控，防范日益增多的病毒。用戶在安裝反病毒軟件之后，應(yīng)將一些主要監(jiān)控經(jīng)常打開（如郵件監(jiān)控、內(nèi)存監(jiān)控等）、經(jīng)常進(jìn)行升級、遇到問題要上報，這樣才能真正保障計算機的安全。2、由于玩網(wǎng)絡(luò)游戲、利用QQ聊天的用戶數(shù)量逐漸增加，所以各類盜號木馬必將隨之增多，建議用戶一定要養(yǎng)成良好的網(wǎng)絡(luò)使用習(xí)慣，及時升級殺毒軟件，開啟防火墻以及實時監(jiān)控等功能，切斷病毒傳播的途徑，不給病毒以可乘之機。
當(dāng)前文章：包含vb.netshare的詞條
文章起源：http://m.jiaotiyi.com/article/dohiipd.html