我正在测试一个应用程序,它检查网络中是否存在文件.在我的测试中,我故意拉网络插件,因此找不到文件.问题是这导致我的应用程序无响应至少15秒.我在VB6中使用了FileExists()和GetAttr()函数.有谁知道如何解决这个问题？ (不,我不能停止使用VB6)
谢谢,
查理
解决方法
不幸的是,VB并没有让这很容易,但幸运的是Win32 API,并且从VB中调用Win32函数非常简单.
对于LAN / WAN,您可以结合使用以下Win32 API调用来告诉您远程连接是否存在而无需处理网络超时：
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias _
"WNetGetConnectionA" (ByVal lpszLocalName As String,_
ByVal lpszRemoteName As String,ByRef cbRemoteName As Long) As Long
Private Declare Function PathIsNetworkPath Lib "shlwapi.dll" Alias _
"PathIsNetworkPathA" (ByVal pszPath As String) As Long
Private Declare Function PathIsUNC Lib "shlwapi.dll" Alias "PathIsUNCA" _
(ByVal pszPath As String) As Long
对于Internet,您可以使用Win32 API调用：
Private Declare Function InternetGetConnectedState Lib "wininet.dll" _
(ByRef lpdwFlags As Long,ByVal dwReserved As Long) As Long
Const INTERNET_CONNECTION_MODEM = 1
Const INTERNET_CONNECTION_LAN = 2
Const INTERNET_CONNECTION_PROXY = 4
Const INTERNET_CONNECTION_MODEM_BUSY = 8
这个VB站点有更多关于path oriented functions you can call in the Win32 API through VB.的讨论
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。