您现在的位置: 天下网吧 >> 网吧天地 >> 天下码农 >> 编程界 >> 正文

Visual Basic编程映射/中断网络磁盘

2006-12-16梦蝶网佚名

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

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



 

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

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com

关注天下网吧微信/下载天下网吧APP/天下网吧小程序,一起来超精彩

本文来源:梦蝶网 作者:佚名

声明
声明:本站所发表的文章、评论及图片仅代表作者本人观点,与本站立场无关。若文章侵犯了您的相关权益,请及时与我们联系,我们会及时处理,感谢您对本站的支持!联系邮箱:support@txwb.com,系统开号,技术支持,服务联系QQ:1175525021本站所有有注明来源为天下网吧或天下网吧论坛的原创作品,各位转载时请注明来源链接!
天下网吧 网吧天下