当前位置:编程学习 > VB >>

程序异常:-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
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,