VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何映射 / 中断网络磁盘
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8942, 日期:2001-11-26
如何映射 / 中断网络磁盘

  下面的程序段可以模拟【网上邻居】及【我的电脑】中的【映射 / 中断网络磁盘】,就是出现【映射 / 中断网络磁盘】的问话框,让使用者根据自己电脑的情形,来决定要连接的网络磁盘要映射到自己的那一个磁盘?要中断的又是那一个对应的磁盘?

  请在声明区中加入以下声明及模组:

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