我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net打开局域网 vb打开局域网文件夹

vb局域网访问

我想你肯定有服务器S上的管理员用户名和口令,这样你就可以先调用API建立一个IPC连接,然后你就能访问这台机器上的资源了。

网站建设、网站设计介绍好的网站是理念、设计和技术的结合。成都创新互联公司拥有的网站设计理念、多方位的设计风格、经验丰富的设计团队。提供PC端+手机端网站建设,用营销思维进行网站设计、采用先进技术开源代码、注重用户体验与SEO基础,将技术与创意整合到网站之中,以契合客户的方式做到创意性的视觉化效果。

在你的工程中增加一个模块,该模块代码如下:

Option Explicit

'=====================================说明======================================

'funIpcConn(资源名,用户名,口令)建立连接

'funIpcDisConn(资源名)断开连接

'引用:操作系统自带的库文件 mpr.dll

'=============================自定义常量========================================

Private Const RESOURCETYPE_DISK = H1

Private Const RESOURCE_GLOBALNET As Long = H2

Private Const RESOURCEDISPLAYTYPE_SHARE = H3

Private Const RESOURCEUSAGE_CONNECTABLE = H1

'=============================自定义结构========================================

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

'=================================API声明=======================================

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

Public Function funIpcConn(ByVal strRemoteName As String, ByVal strUserName As String, ByVal strPassword As String) As Boolean

'目的:建立网络间的联系

'返回: True ---- 成功

' False --- 失败

'注释:strRemoteName为要连接的计算机名称(如:\\HostName、\\192.168.199.144、\\HostName\Data)

' strUserName为登录的用户名,strPassword为登录的密码

Dim NetR As NETRESOURCE

NetR.dwScope = RESOURCE_GLOBALNET

NetR.dwType = RESOURCETYPE_DISK

NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE

NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE

NetR.lpRemoteName = strRemoteName

'建立网络映射

funIpcConn = IIf(WNetAddConnection2(NetR, strPassword, strUserName, 0) = 0, True, False)

End Function

Public Function funIpcDisConn(ByVal strName As String) As Long

funIpcDisConn = WNetCancelConnection2(strName, 0, 0) '原样返回API的返回值

End Function

vb.net访问局域网指定计算机上的文件

如果你有该永动机的登陆用户名和密码.那简单了.

Shell("c:\windows\system32\cmd.exe /c net use \\192.168.0.199 """"" " /user:" """guest""")

里面冒号太多了.你可以通过CHR去转换里面中的一些冒号.

这句话可以不要人为去输入用户名和密码.

另外如果你可以使用

My.Computer.Network.DownloadFile()

函数去进行文件下载.这个比较方便 .

VB.NET 如何实现局域网内即时会话

楼主你好,你所指的那个指令就是"winchat",Windows自带的局域网聊天工具.使用方法:开始--运行--输入winchat,就可以打开Winchat了.只能实现很简单的功能,并且是中文,没什么好介绍的,相信你一看就懂,希望可以帮到你!

ps:你所说的电影是杜拉拉升职记吧?貌似那是用的邮件发的,不小心点成群发了~嘿嘿..

用VB.net 写的软件 想打开局域网中一台电脑A的某个文件,代码如下,运行后提示未知的用户名或密码错误

不能直接访问,需要先登录,然后才能访问。比如先

net USE\\计算机名\目录 登录密码 登录用户名 一下。


本文名称:vb.net打开局域网 vb打开局域网文件夹
URL地址:http://mswzjz.cn/article/dochdgj.html

其他资讯