程序异常:-529697949代表什么错误?
我做的一个软件,能多开,经常出现意外错误,直接挂掉。我用ModSEH模块截获到一些信息,请帮我分析分析大概是什么原因引起的,源码不方便公开。错误1
软件编号:6
系统版本:Windows7 64位 [v6.1]
错误内容:未知意外错误:-529697949
异常地址:&H74BDC41F
参数0:429065504
参数1:1637359
regEIP:&H74BDC41F
错误2
软件编号:2
系统版本:Windows7 64位 [v6.1]
错误内容:未知意外错误:-2147467259
异常地址:&H75E2C41F
参数0:2
参数1:0
regEIP:&H75E2C41F
一般都是Windows7 Windows8 出现,XP很少见到 无法打开文件 无法打开什么文件?网络上服务器网页?
能不能说详细点 顶。。。。。。。 如何避免出现这种错误
Public Function FileExists(filename) As Boolean如果是打开本地文件出错,不可能出现这两个错误号吧,都查不到相关信息 这论坛基本上解决不了难题了 既然是你自己写的软件, 直接拿源码在目标电脑上调试运行一下吧. 有些问题埋得比较深, 光看错误代码难以判断.
Dim msg As String
On Error GoTo CheckError
FileExists = (Dir(filename) <> "")
Exit Function
CheckError:
Const mnErrDiskNotReady = 71, mnErrDeviceUnavailable = 68
If (Err.Number = mnErrDiskNotReady) Then
msg = "将软盘插入驱动器 "
msg = msg & ",然后关好驱动器门。"
If MsgBox(msg, vbExclamation & vbOKCancel, "XAJH.COM") = vbOK Then
Resume
Else
Resume Next
End If
ElseIf Err.Number = mnErrDeviceUnavailable Then
msg = "找不到: "
msg = msg & filename
MsgBox msg, vbExclamation, "XAJH.COM"
Resume Next
Else
msg = "出现 #" & str(Err.Number)
msg = msg & " 意外错误: " & Err.Description
MsgBox msg, vbCritical, "XAJH.COM"
Stop
End If
Resume
End Function
补充:VB , API