Experto
18 de Agosto del 2003

me gustaria tener informacion sobre programacion estoy haciendo un api pero con un estilo diferente se podria decir que es un truco que estoy creando si hay algun programador espero me ayude desde ya les doy las gracias.

acá les dejo lo que tengo es una funcion de error que digitaliza la faya en modo de .necesito un commando sis para agregarlo a una web o Server

Public Declare Function GetLastError _
Lib "kernel32" () As Long
Public 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

Public Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000

Public Function InformacionError() As String

Dim sError As String * 500
Dim lErrNum As Long
Dim lErrMsg As Long

lErrNum = GetLastError
lErrMsg = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, _
ByVal 0&, lErrNum, 0, sError, Len(sError), 0)
LastSystemError = Trim(sError)

End Function


gracias!!!!!!!!!!!!