易语言建立隐藏VPN连接源码

系统结构:创建VPN,AddConnection,backMsg,获取连接过程信息,创建连接,设置连接,lstrcpy,复制内存数据,RasDial,RasHangUp,RasGetErrorString,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 创建VPN
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ AddConnection
           |  |
           |  |------ backMsg
           |  |
           |  |------ 获取连接过程信息
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建连接
           |  |
           |  |---[dll]------   设置连接
           |  |
           |  |---[dll]------   lstrcpy
           |  |
           |  |---[dll]------   复制内存数据
           |  |
           |  |---[dll]------   RasDial
           |  |
           |  |---[dll]------   RasHangUp
           |  |
           |  |---[dll]------   RasGetErrorString

调用的DLL命令:

.DLL命令 创建连接, 整数型, "rasapi32.dll", "RasSetEntryPropertiesA"
    .参数 lpszPhonebook, 文本型
    .参数 lpszEntry, 文本型
    .参数 lpRasEntry, RASENTRY
    .参数 dwEntryInfoSize, 整数型
    .参数 lpbDeviceInfo
    .参数 wDeviceInfoSize

.DLL命令 设置连接, 整数型, "rasapi32.dll", "RasSetCredentialsA"
    .参数 lpszPhonebook
    .参数 lpszEntry, 文本型
    .参数 lpCredentials, RASCREDENTIALS
    .参数 fClearCredentials, 整数型

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

.DLL命令 复制内存数据, , , "RtlMoveMemory"
    .参数 Destination, 字节型, 数组
    .参数 Source, 文本型
    .参数 Length, 整数型

.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, 整数型