.版本 2
.支持库 iext
.支持库 sock

.程序集 程序集1
.程序集变量 hRasConn, 整数型
.程序集变量 状态条_, 状态条
.程序集变量 tptb, 托盘图标类

.子程序 VPN连接, 文本型, 公开, 一行代码，轻松进行创建、连接操作,成功返回空白文本,失败返回出错信息
.参数 VPN连接名称, 文本型, , 拨号连接的名称
.参数 IP地址域名, 文本型, , 可以填写IP地址或者域名
.参数 用户名, 文本型, , 用于拨号的用户名
.参数 密码, 文本型, , 用于拨号的密码
.参数 状态条, 状态条, , 可以用来查看拨号状态
.局部变量 temp

.如果真 (创建VPN (VPN连接名称, 用户名, 密码, IP地址域名) ＝ 假)
    返回 (“创建VPN连接失败”)
.如果真结束
状态条_ ＝ 状态条
temp ＝ AddConnection (VPN连接名称, “”, “”, 用户名, 密码, “”)
返回 (获取连接信息 (temp))

.子程序 挂断拨号, 整数型, 公开

返回 (RasHangUp (hRasConn))

.子程序 AddConnection, 整数型
.参数 strNewEntryName, 文本型
.参数 strNewPhoneNumber, 文本型
.参数 strNewCallbackNumber, 文本型
.参数 strNewUsername, 文本型
.参数 strNewPassword, 文本型
.参数 strNewDomain, 文本型
.局部变量 lngRetCode, 整数型
.局部变量 lngRetLstrcpy, 整数型
.局部变量 lngRetHangUp, 整数型
.局部变量 lprasdialparams, RASDIALPARAMS95

lprasdialparams.dwSize ＝ 1052
lngRetLstrcpy ＝ lstrcpy (lprasdialparams.szEntryName, strNewEntryName)
lngRetLstrcpy ＝ lstrcpy (lprasdialparams.szPhoneNumber, strNewPhoneNumber)
lngRetLstrcpy ＝ lstrcpy (lprasdialparams.szCallbackNumber, strNewCallbackNumber)
lngRetLstrcpy ＝ lstrcpy (lprasdialparams.szUserName, strNewUsername)
lngRetLstrcpy ＝ lstrcpy (lprasdialparams.szPassword, strNewPassword)
lngRetLstrcpy ＝ lstrcpy (lprasdialparams.szDomain, strNewDomain)
hRasConn ＝ 0
lngRetCode ＝ 0
lngRetCode ＝ RasDial (0, 0, lprasdialparams, 0, 到整数 (&backMsg), hRasConn)
.如果真 (lngRetCode ＞ 0)
    lngRetHangUp ＝ RasHangUp (hRasConn)
.如果真结束
返回 (lngRetCode)

.子程序 backMsg
.参数 Msg, 整数型
.参数 State, 整数型
.参数 Error, 整数型

状态条_.置文本 (0, 获取连接过程信息 (State, Error))
.如果真 (寻找文本 (状态条_.取文本 (0), “不”, , 假) ≠ -1)
    信息框 (“发生错误：  错误号 ” ＋ 到文本 (State), 0, , )
.如果真结束


.子程序 获取连接过程信息, 文本型
.参数 State, 整数型
.参数 Error, 整数型
.局部变量 ErrorString, 文本型
.局部变量 返回值, 文本型
.局部变量 IP, 文本型, , "0"
.局部变量 N, 整数型

.如果真 (Error ≠ 0)
    ErrorString ＝ 取空白文本 (100)
    RasGetErrorString (Error, ErrorString, 100)
    返回 (ErrorString)
.如果真结束
.判断开始 (State ＝ 0)
    返回值 ＝ “正在打开端口”
.判断 (State ＝ 1)
    返回值 ＝ “端口打开”
.判断 (State ＝ 2)
    返回值 ＝ “正在连接设备”
.判断 (State ＝ 3)
    返回值 ＝ “DeviceConnected”
.判断 (State ＝ 4)
    返回值 ＝ “所有设备已连接上”
.判断 (State ＝ 5)
    返回值 ＝ “开始认证”
.判断 (State ＝ 6)
    返回值 ＝ “AuthenticationNotify”
.判断 (State ＝ 7)
    返回值 ＝ “认证测试”
.判断 (State ＝ 8)
    返回值 ＝ “CallbackRequested”
.判断 (State ＝ 9)
    返回值 ＝ “ChangePasswordRequested”
.判断 (State ＝ 10)
    返回值 ＝ “ProjectionPhaseStarted”
.判断 (State ＝ 11)
    返回值 ＝ “LinkSpeedCalculation”
.判断 (State ＝ 12)
    返回值 ＝ “认证通过”
.判断 (State ＝ 13)
    返回值 ＝ “ReauthenticationStarted”
.判断 (State ＝ 14)
    返回值 ＝ “Authenticated”
.判断 (State ＝ 15)
    返回值 ＝ “PreparationForCallback”
.判断 (State ＝ 16)
    返回值 ＝ “WaitingForModemReset”
.判断 (State ＝ 17)
    返回值 ＝ “WaitingForCallback”
.判断 (State ＝ 18)
    返回值 ＝ “Projected”
.判断 (State ＝ 19)
    返回值 ＝ “StartAuthentication”
.判断 (State ＝ 20)
    返回值 ＝ “CallbackComplete”
.判断 (State ＝ 21)
    返回值 ＝ “正在登录网络”
.判断 (State ＝ 4096)
    返回值 ＝ “Interactive”
.判断 (State ＝ 4097)
    返回值 ＝ “RetryAuthentication”
.判断 (State ＝ 4098)
    返回值 ＝ “CallbackSetByCaller”
.判断 (State ＝ 4099)
    返回值 ＝ “PasswordExpired”
.判断 (State ＝ 8192)
    返回值 ＝ “连接成功”
    IP ＝ 取本机IP ()
    .计次循环首 (取数组成员数 (IP), N)
        .判断开始 (寻找文本 (IP [N], “10.26”, , 假) ＝ -1 且 寻找文本 (IP [N], “10.6”, , 假) ＝ -1 且 寻找文本 (IP [N], “10.86”, , 假) ＝ -1)
            到循环尾 ()
        .默认
            运行 (“route -p add 100.0.0.0 mask 255.255.255.0” ＋ “ ” ＋ IP [N], 真, #隐藏窗口)
        .判断结束
        跳出循环 ()
    .计次循环尾 ()
    tptb.创建托盘图标 (_启动窗口.取窗口句柄 (), _启动窗口.图标, “VPN”, &托盘事件)
    tptb.弹出气泡提示 (“VPN提示”, “连接成功，QQ不会掉线了”)
    _启动窗口.位置 ＝ 2
    _启动窗口.可视 ＝ 假
    _启动窗口.按钮1.禁止 ＝ 真
    _启动窗口.按钮2.禁止 ＝ 假
.判断 (State ＝ 8193)
    返回值 ＝ “断开连接”
.默认
    返回值 ＝ 到文本 (State)
.判断结束
返回 (返回值)

.子程序 获取连接信息, 文本型
.参数 State, 整数型
.局部变量 返回值, 文本型

.判断开始 (State ＝ 756)
    返回值 ＝ “正在连接中！稍后再拨”
.判断 (State ＝ 602)
    返回值 ＝ “端口已经打开！”
.判断 (State ＝ 650)
    返回值 ＝ “拨入的远程计算机没有响应！”
.判断 (State ＝ 666)
    返回值 ＝ “设备没有准备好！”
.判断 (State ＝ 690)
    返回值 ＝ “用户名或密码出错！”
.判断 (State ＝ 718)
    返回值 ＝ “接入超时！”
.判断 (State ＝ 0)
    返回值 ＝ “”
.默认
    返回值 ＝ “错误代码：” ＋ 到文本 (State)
.判断结束
返回 (返回值)

[此贴子已经被作者于2016-2-16 13:12编辑过]