编写映射驱动器_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

编写映射驱动器

作者：闵涛文章来源：闵涛的学习笔记点击数：699 更新时间：2009/4/23 18:57:36

步骤：新建一窗体form，建立两个框架frame1和frame2在frame1上建立四个标签、四个text控件和一个按钮，在frame2上建立一个标签、一个text控件和一个按钮。
　　代码如下
　　Option Explicit
　　Private Type NETRESOURCE
　　dwScope As Long
　　dwType As Long
　　dwDisplayType As Long
　　dwUsage As Long
　　lpLocalName As String
　　lpRemoteName As String
　　lpComment As String
　　lpProvider As String
　　End Type
　　Const NO＿ERROR = 0
　　Const CONNECT＿UPDATE＿PROFILE = &H1
　　Const RESOURCETYPE＿DISK = &H1
　　Const RESOURCETYPE＿PRINT = &H2
　　Const RESOURCETYPE＿ANY = &H0
　　Const RESOURCE＿CONNECTED = &H1
　　Const RESOURCE＿REMEMBERED = &H3
　　Const RESOURCE＿GLOBALNET = &H2
　　Const RESOURCEDISPLAYTYPE＿DOMAIN = &H1
　　Const RESOURCEDISPLAYTYPE＿GENERIC = &H0
　　Const RESOURCEDISPLAYTYPE＿SERVER = &H2
　　Const RESOURCEDISPLAYTYPE＿SHARE = &H3
　　Const RESOURCEUSAGE＿CONNECTABLE = &H1
　　Const RESOURCEUSAGE＿CONTAINER = &H2
　　Private Declare Function WNetAddConnection2 Lib “mpr.dll” Alias ＿
　　“WNetAddConnection2A” ＿
　　lpNetResource As NETRESOURCE ＿
　　ByVal lpPassword As String ＿
　　ByVal lpUserName As String ＿
　　ByVal dwFlags As Long　 As Long
　　Private Declare Function WNetCancelConnection2 Lib “mpr.dll” Alias ＿
　　“WNetCancelConnection2A” ＿
　　ByVal lpName As String ＿
　　ByVal dwFlags As Long ＿
　　ByVal fForce As Long　 As Long
　　Private Sub cmdConnect＿Click　
　　Dim NetR As NETRESOURCE
　　Dim ErrInfo As Long
　　NetR.dwScope = RESOURCE＿GLOBALNET
　　NetR.dwType = RESOURCETYPE＿DISK
　　NetR.dwDisplayType = RESOURCEDISPLAYTYPE＿SHARE
　　NetR.dwUsage = RESOURCEUSAGE＿CONNECTABLE
　　NetR.lpLocalName = Text10　.Text
　　NetR.lpRemoteName = Text11　.Text
　　ErrInfo = WNetAddConnection2NetR Text13　.Text Text12　.Text CONNECT＿UPDATE＿PROFILE　
　　If ErrInfo = NO＿ERROR Then
　　MsgBox “Net connection successful” vbInformation
　　Else
　　MsgBox “ERROR ” & StrErrInfo　 & “ - Net connection unsuccessful” ＿
　　vbExclamation
　　End If
　　End Sub
　　Private Sub cmdDisconnect＿Click　
　　Dim ErrInfo As Long
　　Dim strLocalName As String
　　strLocalName = Text14　.Text
　　ErrInfo = WNetCancelConnection2strLocalName CONNECT＿UPDATE＿PROFILE False　
　　If ErrInfo = NO＿ERROR Then
　　MsgBox “Net disconnection successful” vbInformation
　　Else
　　MsgBox “ERROR ” & StrErrInfo　 & “ - Net disconnection unsuccessful” ＿
　　vbExclamation
　　End If
　　End Sub

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：用VBScript制作个人网站搜索引擎

下一篇教程：窗体特技效果

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……