易语言VPN服务连接源码

系统结构:AddConnection,RemoveConnection,backMsg,获取连接过程信息,获取连接信息,lstrcpy,RasDial,RasHangUp,RasGetErrorString,

======窗口程序集1
           |  |
           |  |------ AddConnection
           |  |
           |  |------ RemoveConnection
           |  |
           |  |------ backMsg
           |  |
           |  |------ 获取连接过程信息
           |  |
           |  |------ 获取连接信息
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   lstrcpy
           |  |
           |  |---[dll]------   RasDial
           |  |
           |  |---[dll]------   RasHangUp
           |  |
           |  |---[dll]------   RasGetErrorString

调用的DLL命令:

.DLL命令 lstrcpy, 整数型, "kernel32.dll", "lstrcpyA", , lstrcpyA
    .参数 文本1, 字节型, 数组, RetVal
    .参数 文本2, 文本型, , Ptr

.DLL命令 RasDial, 整数型, "RasApi32.dll", "RasDialA", ,  RasDialA
    .参数 lpRasDialExtensions, 整数型, , RetVal
    .参数 lpszPhonebook, 整数型, , RetVal
    .参数 lprasdialparams, RASDIALPARAMS95, , RetVal
    .参数 dwNotifierType, 整数型, , RetVal
    .参数 lpvNotifier, 整数型, , RetVal
    .参数 lphRasConn, 整数型, 传址, RetVal

.DLL命令 RasHangUp, 整数型, "RasApi32.dll", "RasHangUpA", ,  RasHangUpA
    .参数 hRasConn, 整数型, , RetVal

.DLL命令 RasGetErrorString, 整数型, "RasApi32.dll", "RasGetErrorStringA", ,  RasHangUpA
    .参数 ErrorValue, 整数型, , RetVal
    .参数 ErrorString, 文本型, 传址
    .参数 cBufSize, 整数型