Visual Basic編程映射/中斷網絡磁盤

發表于:2007-05-25來源:作者:點擊數: 標簽:網絡編程中斷映射visual
下面的程序段可以模擬【網上鄰居】及【我的電腦】中的【映射 / 中斷 網絡 磁盤】,就是出現【映射 / 中斷網絡磁盤】的問話框,讓使用者根據自己電腦的情形,來決定要連接的網絡磁盤要映射到自己的那一個磁盤?要中斷的又是那一個對應的磁盤? 請在聲明區中加
 下面的程序段可以模擬【網上鄰居】及【我的電腦】中的【映射 / 中斷網絡磁盤】,就是出現【映射 / 中斷網絡磁盤】的問話框,讓使用者根據自己電腦的情形,來決定要連接的網絡磁盤要映射到自己的那一個磁盤?要中斷的又是那一個對應的磁盤?

  請在聲明區中加入以下聲明及模組:

clearcase/" target="_blank" >cc66" width="90%" align="center" bgcolor="#dadacf" border="1">
Private Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd _
As Long, ByVal dwType As Long) As Long
Private Declare Function WNetDisconnectDialog Lib "mpr.dll" _
(ByVal hwnd As Long, ByVal dwType As Long) As Long

Sub ShowMapDrives(hwnd As Long)
 WNetConnectionDialog hwnd, 1
End Sub

Sub ShowUnMapDrives(hwnd As Long)
 WNetDisconnectDialog hwnd, 1
End Sub

’程序中使用方式如下:

Private Sub Command1_Click()
 ’出現 映射網絡磁盤 問話框
 ShowMapDrives Me.hwnd
End Sub

Private Sub Command2_Click()
 ’出現 中斷網絡磁盤 問話框
 ShowUnMapDrives Me.hwnd
End Sub

 

原文轉自:http://www.anti-gravitydesign.com

国产97人人超碰caoprom_尤物国产在线一区手机播放_精品国产一区二区三_色天使久久综合给合久久97