直接从系统得到错误描述

原创 2001年02月08日 18:56:00

'作者: Thierry Waty
'作者主页: http://www.geocities.com/ResearchTriangle/6311/
'这是一个根据错误代码直接从系统中得到错误描述的程序,你可以不要用硬编码了

'使用举例:

'     Call APIError

       ' *** Or
 '      Debug.Print ReturnAPIError(53)
      ' *** Return : 网络适配器硬件出错。


' #VBIDEUtils#************************************************************
' * Programmer Name  : Waty Thierry
' * Web Site     : www.geocities.com/ResearchTriangle/6311/
' * E-Mail       : waty.thierry@usa.net
' * Date         : 12/10/1998
' * Time         : 20:20
' * Module Name  : APIError_Module
' * Module Filename  : APIError.bas
' **********************************************************************
' * Comments     :
' * 这是一个根据错误代码直接从系统中得到错误描述的程序,你可以不要用硬编码
' *
' *
' **********************************************************************

Option Explicit

Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200

Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" _
    (ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId As Long, _
    ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, _
    Arguments As Long) As Long

' *** Status Codes
Private Const INVALID_HANDLE_VALUE = -1&
Private Const ERROR_SUCCESS = 0&

Public Function ReturnAPIError(ErrorCode As Long) As String
   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Waty Thierry
   ' * Web Site     : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail       : waty.thierry@usa.net
   ' * Date         : 12/10/1998
   ' * Time         : 20:21
   ' * Module Name      : APIError_Module
   ' * Module Filename  : APIError.bas
   ' * Procedure Name   : ReturnAPIError
   ' * Parameters       :
   ' *            ErrorCode As Long
   ' **********************************************************************
   ' * Comments     :
   ' * Takes an API error number, and returns
   ' * a descriptive text string of the error
   ' *
   ' **********************************************************************

   Dim sBuffer    As String

   ' *** Allocate the string, then get the system to
   ' *** tell us the error message associated with
   ' *** this error number
  
   sBuffer = String(256, 0)
   FormatMessage FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS, 0&, ErrorCode, 0&, sBuffer, Len(sBuffer), 0&

   ' *** Strip the last null, then the last CrLf pair if it exists
  
   sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
   If Right$(sBuffer, 2) = Chr$(13) & Chr$(10) Then
      sBuffer = Mid$(sBuffer, 1, Len(sBuffer) - 2)
   End If

   ReturnAPIError = sBuffer

End Function

Public Sub ApiError()
   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Waty Thierry
   ' * Web Site     : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail       : waty.thierry@usa.net
   ' * Date         : 12/10/1998
   ' * Time         : 20:35
   ' * Module Name      : APIError_Module
   ' * Module Filename  : APIError.bas
   ' * Procedure Name   : APIError
   ' * Parameters       :
   ' **********************************************************************
   ' * Comments     :
   ' * Takes an API error number, and returns
   ' * a descriptive text string of the error
   ' *
   ' **********************************************************************

   Dim sError   As String
  
   On Error GoTo ERROR_APIError
  
   sError = InputBox("Enter the error number", "Returns API error")
  
   If IsNumeric(sError) = False Then Exit Sub
  
   MsgBox ReturnAPIError(CLng(sError)), vbInformation + vbOKOnly, "Error n " & sError
  
   Exit Sub
  
ERROR_APIError:
   MsgBox "Error n " & sError & vbCrLf & " Invalid error number" & vbCrLf & "You have to give another one", vbCritical + vbOKOnly, "Error n " & sError
  
End Sub



 

iOS工程师综合练习卷/ iOS工程师能力评估/搜狗2015 iOS工程师笔试题

通过网络搜寻和自己总结经历找了一些IOS面试经常被问道的问题: 1.搞清楚touch事件的传递(事件的响应链) 事件的响应(responder chain) 只有继承了UIResponder的类才能响...
  • u012605629
  • u012605629
  • 2015年03月11日 21:38
  • 1357

HDU2093:考试排名

Problem Description C++编程考试使用的实时提交系统,具有即时获得成绩排名的特点。它的功能是怎么实现的呢? 我们做好了题目的解答,提交之后,要么“AC”,要么错误,不管怎样错法...
  • libin56842
  • libin56842
  • 2013年05月27日 20:05
  • 3289

linux系统文件描述符file descriptor与inode的相关知识

转自: http://blog.csdn.net/simba888888/article/details/8806654   每个进程在Linux内核中都有一个task_stru...
  • coolmeme
  • coolmeme
  • 2013年06月24日 15:04
  • 5103

Win10+Ubuntu双系统UEFI启动方式下GRUB消失直接进入Windows以及重装时grub-install致命错误解决方法

Win10+Ubuntu双系统UEFI启动方式下GRUB消失直接进入Windows以及重装时grub-install致命错误解决方法...
  • zrf2112
  • zrf2112
  • 2017年05月01日 11:32
  • 3674

win7下安装 Ubuntu双系统(直接硬盘安装)错误问题完美解决,卡屏,无法启动

1、前言最近想尝试在Linux系统下编程,拿第一不就是要安装一个Linux的系统,刚好之前有接触过Ubuntu系统,于是就下载了Ubuntu系统来安装。这个安装不用U盘,使用硬盘安装还是很方便的。这是...
  • u013869488
  • u013869488
  • 2016年07月01日 14:50
  • 742

linux下的各种系统错误errno描述一览

收集到的linux下的各种系统错误errno描述一览:      0 --            Success      1 EPERM        +Operation not permit...
  • qq258711519
  • qq258711519
  • 2012年09月07日 10:04
  • 568

13个带例子 可以直接观看的404错误页面 报错页面

  • 2011年10月08日 14:26
  • 182KB
  • 下载

C语言常见错误中英文对照表(已经排版好_直接打印)

  • 2014年03月20日 23:58
  • 111KB
  • 下载

Android studio新建的空项目在真机上错误,直接闪退

  • 2016年12月18日 20:13
  • 15KB
  • 下载

vc 串口编程 功能很全 没有错误 可以直接使用

  • 2011年11月22日 16:45
  • 3.46MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:直接从系统得到错误描述
举报原因:
原因补充:

(最多只允许输入30个字)