易语言智能拨号源码

系统结构:vpn线程导入,进入IP检测,查找可用IP,连接ADSL,创建VPN,连接VPN,倒计时,拨号连接初始化,创建连接,设置连接,lstrcpy,RasDial,RasHangUp,RasGetErrorString,复制内存数据,InternetGetConnectedState,InternetOpenA,InternetOpenUrlA,HttpQueryInfoA,InternetCloseHandle,InternetReadFile,CallWindowProcA,SetProcessWorkingSetSize,

======窗口程序集1
           |  |
           |  |------ _超级列表框2_右键单击表项
           |  |
           |  |------ _导入IP_被选择
           |  |
           |  |------ vpn线程导入
           |  |
           |  |------ _Ping测试所有IP_被选择
           |  |
           |  |------ 进入IP检测
           |  |
           |  |------ 查找可用IP
           |  |
           |  |------ _删除当选中IP_被选择
           |  |
           |  |------ _筛选正常IP_被选择
           |  |
           |  |------ _超级按钮_连接_被单击
           |  |
           |  |------ 连接ADSL
           |  |
           |  |------ 创建VPN
           |  |
           |  |------ 连接VPN
           |  |
           |  |------ 倒计时
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _选择框_ADSL拨号_被单击
           |  |
           |  |------ _选择框_VPN拨号_被单击
           |  |
           |  |------ _选择框_循环拨号_被单击
           |  |
           |  |------ _拨号间隔_编辑框_内容被改变
           |  |
           |  |------ _断线等待_编辑框_内容被改变
           |  |
           |  |------ _超级按钮_获取用户名密码_被单击
           |  |
           |  |------ 拨号连接初始化
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建连接
           |  |
           |  |---[dll]------   设置连接
           |  |
           |  |---[dll]------   lstrcpy
           |  |
           |  |---[dll]------   RasDial
           |  |
           |  |---[dll]------   RasHangUp
           |  |
           |  |---[dll]------   RasGetErrorString
           |  |
           |  |---[dll]------   复制内存数据
           |  |
           |  |---[dll]------   InternetGetConnectedState
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   InternetOpenUrlA
           |  |
           |  |---[dll]------   HttpQueryInfoA
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   SetProcessWorkingSetSize

调用的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命令 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, 整数型

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

.DLL命令 InternetGetConnectedState, , "Wininet.dll", "InternetGetConnectedState"
    .参数 lpdwFlags, 整数型, 传址
    .参数 dwReserved, 整数型

.DLL命令 InternetOpenA, 整数型, "Wininet.dll", "InternetOpenA"
    .参数 lpszAgent, 文本型
    .参数 dwAccessType, 整数型
    .参数 lpszProxyName, 整数型
    .参数 lpszProxyBypass, 整数型
    .参数 dwFlags, 整数型

.DLL命令 InternetOpenUrlA, 整数型, "Wininet.dll", "InternetOpenUrlA"
    .参数 hInternet, 整数型
    .参数 lpszUrl, 文本型
    .参数 lpszHeaders, 文本型
    .参数 dwHeadersLength, 整数型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 HttpQueryInfoA, 整数型, "Wininet.dll", "HttpQueryInfoA"
    .参数 hRequest, 整数型
    .参数 dwInfoLevel, 整数型
    .参数 lpvBuffer, 整数型, 传址
    .参数 lpdwBufferLength, 整数型, 传址
    .参数 lpdwIndex, 整数型, 传址

.DLL命令 InternetCloseHandle, , "Wininet.dll", "InternetCloseHandle"
    .参数 handle, 整数型

.DLL命令 InternetReadFile, 整数型, "Wininet.dll", "InternetReadFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集
    .参数 dwNumberOfBytesToRead, 整数型
    .参数 lpdwNumberOfBytesRead, 整数型, 传址

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 子程序指针, 子程序指针
    .参数 参数1, 整数型
    .参数 参数2, 整数型
    .参数 参数3, 整数型
    .参数 参数4, 整数型

.DLL命令 SetProcessWorkingSetSize, 整数型, , "SetProcessWorkingSetSize"
    .参数 hProcess
    .参数 dwMinimumWorkingSetSize
    .参数 dwMaximumWorkingSetSize