易语言vpn拨号类应用源码

系统结构:拨号,消息回调,挂断,是否已连接,指针_类回调,指针_类回调清除,TXT_连续查找,RAS_创建连接,RAS_RasDial,RAS_RasHangUp,RAS_取错误信息,API_文本到字节组,api_GlobalSize_rasconn,Ras_枚举连接,api_HeapFree,api_GetProcessHeap,api_HeapAlloc,

======ec_vpn拨号
           |  |
           |  |------ 拨号
           |  |
           |  |------ 消息回调
           |  |
           |  |------ 挂断
           |  |
           |  |------ 是否已连接
           |  |
           |  |
======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 指针_类回调
           |  |
           |  |------ 指针_类回调清除
           |  |
           |  |------ TXT_连续查找
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   RAS_创建连接
           |  |
           |  |---[dll]------   RAS_RasDial
           |  |
           |  |---[dll]------   RAS_RasHangUp
           |  |
           |  |---[dll]------   RAS_取错误信息
           |  |
           |  |---[dll]------   API_文本到字节组
           |  |
           |  |---[dll]------   api_GlobalSize_rasconn
           |  |
           |  |---[dll]------   Ras_枚举连接
           |  |
           |  |---[dll]------   api_HeapFree
           |  |
           |  |---[dll]------   api_GetProcessHeap
           |  |
           |  |---[dll]------   api_HeapAlloc

调用的DLL命令:

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

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

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

.DLL命令 RAS_取错误信息, 整数型, "RasApi32.dll", "RasGetErrorStringA", ,  RasGetErrorStringA
    .参数 ErrorValue, 整数型, , RetVal
    .参数 ErrorString, 文本型, 传址
    .参数 cBufSize, 整数型

.DLL命令 API_文本到字节组, 整数型, "kernel32.dll", "lstrcpyA", 公开, 拷贝内存
    .参数 目的数据, 字节型, 数组, lpString1
    .参数 源数据, 文本型, , lpString2

.DLL命令 api_GlobalSize_rasconn, 整数型, "kernel32.dll", "GlobalSize", , 取rasconn结构尺寸
    .参数 结构, RASCONN, 传址

.DLL命令 Ras_枚举连接, 整数型, "Rasapi32.dll", "RasEnumConnectionsA", , 获取所有活动的拨号连接的信息（连接句柄和设置信息）,返回值为０时表示执行成功，非０表示错误代码。
    .参数 lprasconn, RASCONN, 传址 数组, 接收活动连接的缓冲区的指针
    .参数 lpcb, 整数型, 传址, 缓冲区大小
    .参数 lpcConnections, 整数型, 传址, 实际的活动连接数

.DLL命令 api_HeapFree, 逻辑型, "kernel32.dll", "HeapFree", , 释放堆内存
    .参数 hHeap, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMem, 整数型

.DLL命令 api_GetProcessHeap, 整数型, "kernel32.dll", "GetProcessHeap", , 取堆句柄

.DLL命令 api_HeapAlloc, 整数型, "kernel32.dll", "HeapAlloc", , 申请堆内存
    .参数 hHeap, 整数型
    .参数 dwFlags, 整数型
    .参数 dwBytes, 整数型