易语言建立VPN连接源码

系统结构:创建VPN,发送快捷方式到桌面,创建连接,设置连接,复制内存数据,

======启动窗口程序集
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 创建VPN
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 发送快捷方式到桌面
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建连接
           |  |
           |  |---[dll]------   设置连接
           |  |
           |  |---[dll]------   复制内存数据

调用的DLL命令:

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

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

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