重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net内存映射 vbnet invoke方法详解

用VB.NET 怎么编映射网络磁盘

本来可以用简单的dos命令的,但是影射成功与否返回不理想,建议用API,见下面

创新互联公司长期为近千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为慈溪企业提供专业的成都网站设计、成都网站建设,慈溪网站改版等技术服务。拥有10余年丰富建站经验和众多成功案例,为您定制开发。

Module LocalNetConnect'模块,直接复制即可

Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer

Public Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Integer, ByVal fForce As Integer) As Integer

Public Structure NETRESOURCE

Dim dwScope As Integer

Dim dwType As Integer

Dim dwDisplayType As Integer

Dim dwUsage As Integer

Dim lpLocalName As String

Dim lpRemoteName As String

Dim lpComment As String

Dim lpProvider As String

End Structure

Public Function netconnect(ByVal localDrive As String, ByVal sharePath As String, ByVal userName As String, ByVal UserPassword As String) As Boolean

Dim NetR As New NETRESOURCE

Dim ErrInfo As Integer

NetR.dwScope = 2

NetR.dwType = 1

NetR.dwDisplayType = 3

NetR.dwUsage = 1

'设置驱动器

NetR.lpLocalName = localDrive

'设置远程端口名字

NetR.lpRemoteName = sharePath

'设置连接

ErrInfo = WNetAddConnection2(NetR, UserPassword, userName, 1)

If ErrInfo = 0 Then

Return True

Else

Return False

End If

End Function

Public Function netdisconnect(ByVal localDrive As String) As Boolean

Dim ErrInfo As Integer

ErrInfo = WNetCancelConnection2(localDrive, 1, False)

If ErrInfo = 0 Then

Return True

Else

Return False

End If

End Function

End Module

‘调用

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'这里是映射调用,administrator为用户名,根据实际用户名

’如果将“Z:”设置为空就不会网络盘映射但是已经和172.26.120.47联机了(返回真时成立)。

If netconnect("Z:", "\\172.26.120.47\c$", "administrator", "局域网电脑实际密码") = True Then

MsgBox("success")

Else

MsgBox("Faile")

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click'这里是取消映射

If netdisconnect("Z:") = True Then

MsgBox("success")

Else

MsgBox("Faile")

End If

End Sub

vb.net 如何通过访问内存的方式,获取到另一个程序窗体中某个textbox中的内容。

vb.net 根本就访问不了内存,只能通过调用api函数方式,不光是vb.net ,C#也是,主要是为了安全,微软在net里面不容许直接访问内存。

vb.net文件映射怎么写

文件镜像功能吧, 监控文件的变化然后实时同步就行了 .. 好像是叫那个filewatcher类,可以做


网站栏目:vb.net内存映射 vbnet invoke方法详解
网站URL:http://cqcxhl.com/article/ddocgpi.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP