易语言旋律模块源码

系统结构:创建VPN,拨号开始,断开拨号,删除拨号,淡入,淡出,文本截取,动态加密_,根据进程ID取进程名,根据进程名取进程ID,动态解密_,创建连接,设置连接,复制内存数据,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 创建VPN
           |  |
           |  |------ 拨号开始
           |  |
           |  |------ 断开拨号
           |  |
           |  |------ 删除拨号
           |  |
           |  |------ 淡入
           |  |
           |  |------ 淡出
           |  |
           |  |------ 文本截取
           |  |
           |  |------ 动态加密_
           |  |
           |  |------ 根据进程ID取进程名
           |  |
           |  |------ 根据进程名取进程ID
           |  |
           |  |------ 动态解密_
           |  |
           |  |
======调用的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, 整数型