主题：网络连接的问题请教

等候执行完毕再弹出提示。

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("net use \\192.168.1.211\共享的文件夹名  密码 /user:用户名")
p.StandardInput.WriteLine("exit")
'Dim strRst As String = p.StandardOutput.ReadToEnd()

'msgbox(strRst)

这样写

 

p.StandardInput.WriteLine("net use  \\192.168.44.202\e TBFCfs.2109 /user:Administrator")

意思是，先执行完命令

 

net use  \\192.168.44.202\e TBFCfs.2109 /user:Administrator

 

再，继续下面的代码。1楼的代码，是异步执行的，不一定执行结束就运行下面的代码了。

Dim str As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\FoxTable(狐表)"
If FileSys.DirectoryExists(str) Then
    filesys.DeleteDirectory(str,2,2)
End If
Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine( "net use  \\192.168.44.202\e TBFCfs.2109 /user:Administrator")
p.StandardInput.WriteLine("exit")
If FileSys.FileExists("\\192.168.44.202\e\空滤数据库\空滤数据库.mdb") = False Then
    MessageBox.Show("数据库连接失败,准备启动备用系统!,该情况请联系班长")
    E.Cancel = True
End If