ADSL常见出错代码(转载)

这个也太麻烦了吧，不同的系统出错信息也会不一样的。
2 b' ~- v: F, t3 H7 ~" A其实VB里可以用一个叫RasGetErrorString的API函数获得网络连接出错信息。
+ l  I5 I+ M2 w- r6 g8 B( s建立一个窗体，在通用段声明（你的系统必须有RasAPI32.dll,不过一般能上网的都会有这个DLL）
; \4 k3 ~9 C5 Z! jPrivate Declare Function RasGetErrorString Lib "RasAPI32.dll" _
* S1 t+ w) ~3 R    Alias "RasGetErrorStringA" _
) ^0 J% J8 s6 _: I) K4 q+ Q    (ByVal errorNum As Long, ByVal errorString As String, _
9 n' U8 b# `5 t1 g2 a! f8 D; l    ByVal lenString As Long) As Long

2 t9 h& K7 r4 d/ z, r/ o* S再建一个按钮，填入以下代码：
! A% P' K& l1 T! ?! j2 l( A9 y7 V  Dim errorString As String
  errorString = Space(128)
1 w8 u9 q5 M" m6 W0 y: g5 J  Call RasGetErrorString(691, errorString, 128)'这里的691就是出错代码，有兴趣自己改
  O& J6 U' s4 D' V+ s  Form1.Print errorString
运行，点击命令按钮，就会出现“由于域上的用户名和/或密码无效而拒绝访问。”的字样了。
这些个代码也算不上程序了，大家有兴趣就玩玩，千万不要对别人说我会编这种无聊的东西。
3 z5 c2 ~1 F, [4 ]/ `& ^3 e: c