• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: 小 中 大 | 推荐给好友 上一篇 | 下一篇

编写映射驱动器

发布: 2007-5-25 09:21 | 作者: jlum99 | 来源: 互联网 | 查看: 30次 | 进入软件测试论坛讨论

领测软件测试网 步骤：新建一窗体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.WINDOWS/TEMP//flyswat/fsstc/images\\underlineOnClick.gif)';}" onmouseover="window.status = 'Flyswat Link: dll'; for (i = 0; i < this.children.length; i++) {this.children[i].style.backgroundImage='url(C:/WINDOWS/TEMP//flyswat/fsstc/images\\underlineHighlight.gif)';}" style="BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: url(C:/WINDOWS/TEMP//flyswat/fsstc/images\\underline.gif); CURSOR: hand; BACKGROUND-REPEAT: repeat-x" onclick="document.URL='flyswat:link(dll,,)', '_self';return false;" onmouseout="window.status='Flyswat NoLink'; window.status = '; for (i = 0; i < this.children.length; i++) {this.children[i].style.backgroundImage='url(C:/WINDOWS/TEMP//flyswat/fsstc/images\\underline.gif)';}">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

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/

软件测试论坛

领测软件测试网最新更新
软件测试技术相关文章

软件测试培训信息
最新软件测试技术专题
最新领测软件测试网新闻
软件测试技术文章排行榜
  • 编辑推荐
  • 周排行
  • 月排行
软件测试技术分类最新内容
关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003－2010 TestAge（领测软件测试网）|领测国际科技（北京）有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备2023014753号-2
技术支持和业务联系：[email protected] 电话：010-51297073

软件测试 | 领测国际 | ISTQB | ISTQB官网 | TMMi | TMMi认证 | 国际软件测试工程师认证 | 领测软件测试网