VpnDial/src/RasErrorHandler.bas

Attribute VB_Name = "RasErrorHandler"
Option Explicit

Public Declare Function RasGetErrorString _
     Lib "rasapi32.dll" Alias "RasGetErrorStringA" _
      (ByVal uErrorValue As Long, ByVal lpszErrorString As String, _
       cBufSize As Long) 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

Function VBRasErrorHandler(rtn As Long) As String
   Dim strError As String, i As Long
   strError = String(512, 0)
   If rtn > 600 Then
      RasGetErrorString rtn, strError, 512&
   Else
      FormatMessage &H1000, ByVal 0&, rtn, 0&, strError, 512, ByVal 0&
   End If
   i = InStr(strError, Chr$(0))
   If i > 1 Then VBRasErrorHandler = Left$(strError, i - 1)
End Function

1	joko	1.1	Attribute VB_Name = "RasErrorHandler"
2			Option Explicit
3
4			Public Declare Function RasGetErrorString _
5			Lib "rasapi32.dll" Alias "RasGetErrorStringA" _
6			(ByVal uErrorValue As Long, ByVal lpszErrorString As String, _
7			cBufSize As Long) As Long
8
9			Public Declare Function FormatMessage _
10			Lib "kernel32" Alias "FormatMessageA" _
11			(ByVal dwFlags As Long, lpSource As Any, _
12			ByVal dwMessageId As Long, ByVal dwLanguageId As Long, _
13			ByVal lpBuffer As String, ByVal nSize As Long, _
14			Arguments As Long) As Long
15
16			Function VBRasErrorHandler(rtn As Long) As String
17			Dim strError As String, i As Long
18			strError = String(512, 0)
19			If rtn > 600 Then
20			RasGetErrorString rtn, strError, 512&
21			Else
22			FormatMessage &H1000, ByVal 0&, rtn, 0&, strError, 512, ByVal 0&
23			End If
24			i = InStr(strError, Chr$(0))
25			If i > 1 Then VBRasErrorHandler = Left$(strError, i - 1)
26			End Function
27
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26