.版本 2 .程序集 主窗口程序集 .程序集变量 HRasConn, 整数型 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 置错误提示管理 (&错误提示管理_) 载入 (窗口_主窗口, , 假) 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 错误提示管理_, 逻辑型, , 本命令用来设置当运行时如果产生了导致程序崩溃的严重错误时用来对该错误进行详细提示的子程序地址，如果未进行此项设置，发生严重错误时运行时环境将自动提示该错误的详细信息并直接退出 .参数 错误代码, 整数型, , 用作接收错误代码 .参数 错误文本, 文本型, , 用作接收详细错误文本 ' 该子程序必须返回一个逻辑值，返回真表示已经自行处理完毕，系统将不再显示该错误信息，返回假表示由系统来继续显示该错误信息。以上设置必须完全正确，否则结果不能预测，另外，还请注意以下几点： 1、该错误提示子程序不要再引发新的错误； 2、在进入该错误提示子程序后，系统将自动关闭事件消息通知处理机制，也就是说任何事件将无法得到响应； 3、无论如何，当该子程序调用退出后，系统将自动将整个应用程序关闭。 如果省略本参数，系统将恢复错误提示的默认处理方 信息框 (“程序出错!” ＋ #换行符 ＋ “错误代码: 00000” ＋ 到文本 (错误代码) ＋ #换行符 ＋ “错误信息: ” ＋ 错误文本, #信息图标, “友情提示”) 结束 () 返回 (真) .子程序 _窗口_主窗口_将被销毁 挂断拔号连接_ (HRasConn) .子程序 _按钮1_被单击 .如果 (挂断拔号连接_ (HRasConn) ＝ 0) 输出调试文本 (“挂断拔号连接成功!”) .否则 输出调试文本 (“挂断拔号连接失败!”) .如果结束 .子程序 _按钮2_被单击 HRasConn ＝ 拔号上网_ (“”, “*99#”, “”, “”, “”, “”) 输出调试文本 (HRasConn)