用VB怎样打开网络上共享的文件（此文件所在目录加有共享密码）

进入共享文件夹可以用直接路径的，不过如果要进入共享文件夹下子文件夹里，要先进入共享文件夹，然后再过，不然可能会出现文件查找不到(就算没有密码也有可能会出现)例如：进入局域网客户机PC的共享文件夹basic下子文件夹file里的文件texttxt就要先访问//pc/basic，写入密码，然后再进入//pc/basic/file/texttxt

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

Shell("c:\windows\system32\cmdexe /c net use \\1921680199 """"" & " /user:" & """guest""")

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

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

另外如果你可以使用

MyComputerNetworkDownloadFile()

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

1、先将网页另存到本机，假设文件名为ABCHTM，保存在C盘根目录下；

2、用VB读取存好的ABCHTM文件的全部内容到一个变量或文本框；

3、用搜索函数InStr()和取字串的函数Mid()来抽取出介于“>”和“</A>”之间的文本，就是超链接的文字；抽取“href=”和空格之间的内容，就是链接的URL。

代码如下：（在窗体添加一个按钮Command1，一个文本框Text1，将Multiline属性设置为True，ScrollBars设置为Virtical）

Private Sub Command1_Click()

Dim htmltext As String, aLine As String

Dim linkText As String, linkURL As String

Open "C:\ABCHTM" For Input As #1

Do While Not EOF(1)

Line Input #1, aLine

htmltext = htmltext & aLine

Loop

htmltext = LCase(htmltext)

Close

Open "C:\linkscsv" For Output As #1

Dim pos1 As Integer, pos2 As Integer

pos1 = InStr(1, htmltext, "href=")

Do While pos1 > 0

htmltext = Mid(htmltext, pos1 + 5)

pos1 = 1

pos2 = InStr(pos1, htmltext, " ")

linkURL = Mid(htmltext, pos1, pos2 - pos1)

If InStr(linkURL, ">") > 0 Then

pos2 = InStr(pos1, htmltext, ">")

linkURL = Mid(htmltext, pos1, pos2 - pos1)

End If

linkURL = Replace(linkURL, """", "")

linkURL = Replace(linkURL, "'", "")

pos1 = InStr(pos2, htmltext, ">")

pos2 = InStr(pos1, htmltext, "</a>")

linkText = Mid(htmltext, pos1 + 1, pos2 - pos1 - 1)

If Left(linkText, 4) = "<img" Then linkText = "链接"

Text1Text = Text1Text & linkText & " ---- " & linkURL & vbCrLf

Print #1, linkText & "," & linkURL

pos1 = InStr(pos2, htmltext, "href=")

Loop

Close

MsgBox "在C盘根目录下找到 linkscsv ，双击即可看到你想要的。", , "提取完毕"

Unload Me

End Sub

以上就是关于用VB怎样打开网络上共享的文件（此文件所在目录加有共享密码）全部的内容，包括:用VB怎样打开网络上共享的文件（此文件所在目录加有共享密码）、vb.net访问局域网指定计算机上的文件、vb 获取一个网页内的链接和链接名称等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！