易语言test源码,易语言宽带连接VPN拨号源码 _易语言源码网_易语言资源网

易语言test源码,易语言宽带连接VPN拨号源码

软件授权：

开源软件
软件大小：

55.95 KB
文件类型：

.zip,.e
下载次数：
上传用户：
心脏
发布时间：
2018-10-14 05:02
软件等阶：
运行环境：
Winall,Win2003,WinXP,Win7,Win8
软件评级：

源码下载

软件介绍

易语言宽带连接VPN拨号源码

系统结构:读取网卡信息,读连接信息,窗口位置改变,取DOS执行结果,CreateProcess,CreatePipe,ReadFile,CloseHandle,PeekNamedPipe,GetExitCodeProcess,GetThis,取拨号连接IP,取拨号连接数量,是否有指定连接,取拨号连接名称,创建宽带拨号连接,设置拨号连接,开始拨号,挂断拨号,取网络连接状态,GetThis,取拨号连接IP,开始拨号,挂断拨号连接,格式化信息输出,取系统错误信息,读注册表,写注册表,取文本指针,取小数指针,取整数指针,取子程序指针,取字节集指针,取字节指针,调用函数,执行字节集,IpAddrToString,禁止重复运行,校准系统时间,取时间间隔_文本,格式化时间,取操作系统版本,窗口渐显,窗口渐消,建立快捷方式,取系统目录,Decode,Uncode,十进制到十六进制,十六进制到十进制,高精度等待,快速关机,字节集到十六,生成新的GUID,取_类_函数地址,取指针内容_整数,取变量地址_整数,拨号事件回调,窗口抖动,添加路由,删除路由,GetIf,创建线程,进程快照,进程获取线程,枚举窗口过程,进程标示取窗口句柄,EnumWindowsProc,做点什么,CreateProcess,CreatePipe,ReadFile,CloseHandle,PeekNamedPipe,GetExitCodeProcess,RasEnumEntries,RasEnumConnections,RasGetProjectionInfo,RasSetEntryProperties,RasSetCredentials,GlobalSize_RASENTRYNAME,GlobalSize_RASCONN,GlobalSize_RASpppIP,GlobalSize_MIB_IPFORWARDROW,GlobalSize_MIB_IPADDRROW,RasGetErrorString,RasHangUp,RasDial,RasDial1,RtlMoveMemory_Text,RtlMoveMemory_Long,RtlMoveMemory_Long1,RtlMoveMemory_MIB_IPFORWARDROW,RtlMoveMemory_MIB_IPADDRROW,SetWindowText,ShowWindow,ExtractIcon,Shell_NotifyIcon,CallWindowProc,SetWindowLong_Point,SendMessage,InternetGetConnectedStateEx,DeleteIpForwardEntry,GetIpForwardTable,SetIpForwardEntry,inet_addr,GetBestInterface,CreateIpForwardEntry,FormatMessage,GetLastError,RegCloseKey,RegQueryValueEx,RegOpenKeyEx,RegSetValueEx,lstrcpyn_字节集,lstrcpyn_整数型,CreateEvent,OpenEvent,SetLayeredWindowAttributes,SetWindowLong,GetWindowLong,SHGetSpecialFolderPath,StrToIntEx,SetWaitableTimer,CreateWaitableTimer,MsgWaitForMultipleObjects,NtShutdownSystem,RtlAdjustPrivilege,CoCreateGuid,lstrcpyn_文本,RegisterWindowMessage,GetTempPath,GetLongPathName,GetIpAddrTable,GetCurrentProcessId,GetCurrentProcess,CreateToolhelp32Snapshot,Process32First,Process32Next,Thread32First,Thread32Next,EnumThreadWindows,GetParent,OpenProcess,CreateThread,Sleep,FindWindowEx,GetWindowThreadProcessId,GetClassName,EnumWindows,GetWindow,GetAncestor,GetWindowRect,MoveWindow,

易语言宽带连接VPN拨号源码

调用的DLL命令:

.DLL命令 CreateProcess, 整数型, , "CreateProcessA"
    .参数 lpApplicationName, 整数型
    .参数 lpCommandLine, 文本型
    .参数 lpProcessAttributes, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 bInheritHandles, 逻辑型
    .参数 dwCreationFlags, 整数型
    .参数 lpEnvironment, 整数型
    .参数 lpCurrentDriectory, 整数型
    .参数 lpStartupInfo, STARTUPINFO, 传址
    .参数 lpProcessInformation, PROCESS_INFORMATION, 传址

.DLL命令 CreatePipe, 整数型, , "CreatePipe"
    .参数 phReadPipe, 整数型, 传址
    .参数 phWritePipe, 整数型, 传址
    .参数 lpPipeAttributes, SECURITY_ATTRIBUTES, 传址
    .参数 nSize, 整数型

.DLL命令 ReadFile, 整数型, , "ReadFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nNumberOfBytesToRead, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 CloseHandle, 整数型, , "CloseHandle"
.参数 hObject, 整数型

.DLL命令 PeekNamedPipe, 整数型, , "PeekNamedPipe"
    .参数 hNamedPipe, 整数型
    .参数 lpBuffer, 整数型
    .参数 nBufferSize, 整数型
    .参数 lpBytesRead, 整数型
    .参数 lpTotalBytesAvail, 整数型, 传址
    .参数 lpBytesLeftThisMessage, 整数型

.DLL命令 GetExitCodeProcess, 整数型, , "GetExitCodeProcess"
.参数 hProcess, 整数型
.参数 lpExitCode, 整数型, 传址

调用的DLL命令:

.DLL命令 CreateProcess, 整数型, , "CreateProcessA"
    .参数 lpApplicationName, 整数型
    .参数 lpCommandLine, 文本型
    .参数 lpProcessAttributes, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 bInheritHandles, 逻辑型
    .参数 dwCreationFlags, 整数型
    .参数 lpEnvironment, 整数型
    .参数 lpCurrentDriectory, 整数型
    .参数 lpStartupInfo, STARTUPINFO, 传址
    .参数 lpProcessInformation, PROCESS_INFORMATION, 传址

.DLL命令 CreatePipe, 整数型, , "CreatePipe"
    .参数 phReadPipe, 整数型, 传址
    .参数 phWritePipe, 整数型, 传址
    .参数 lpPipeAttributes, SECURITY_ATTRIBUTES, 传址
    .参数 nSize, 整数型

.DLL命令 ReadFile, 整数型, , "ReadFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nNumberOfBytesToRead, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 CloseHandle, 整数型, , "CloseHandle"
.参数 hObject, 整数型

.DLL命令 PeekNamedPipe, 整数型, , "PeekNamedPipe"
    .参数 hNamedPipe, 整数型
    .参数 lpBuffer, 整数型
    .参数 nBufferSize, 整数型
    .参数 lpBytesRead, 整数型
    .参数 lpTotalBytesAvail, 整数型, 传址
    .参数 lpBytesLeftThisMessage, 整数型

.DLL命令 GetExitCodeProcess, 整数型, , "GetExitCodeProcess"
.参数 hProcess, 整数型
.参数 lpExitCode, 整数型, 传址

.DLL命令 RasEnumEntries, 整数型, "rasapi32.dll", "RasEnumEntriesA", , 取连接信息结构,连接名称,数量等等
    .参数 lpStrNull, 整数型, , 保留字段,必须为NIL
    .参数 lpszphonebook, 整数型, , 电话本名称,在Win9X下无作用
    .参数 lprasetryname, RASENTRYNAME, 传址数组, RASENTRYNAME类型数组的指针
    .参数 lpcb, 整数型, 传址, 接收拨号连接名称的缓冲区的大小
    .参数 lpcentries, 整数型, 传址, 实际获得的拨号连接名称的数目

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

.DLL命令 RasGetProjectionInfo, 整数型, "Rasapi32.dll", "RasGetProjectionInfoA", , 获取指定活动的拨号连接的动态IP信息,返回值为０时表示执行成功，非０表示错误代码。
    .参数 hrasconn, 整数型, , 指定活动连接的句柄,RASCONN
    .参数 rasprojection, 整数型, , RAS连接类型
    .参数 lpprojection, TRASPPPIP, 传址, 接收动态IP信息的缓冲区
    .参数 lpcb, 整数型, 传址, 接收缓冲区的大小

.DLL命令 RasSetEntryProperties, 整数型, "rasapi32.dll", "RasSetEntryPropertiesA", , 0=建立成功,其他为失败
    .参数 lpszPhonebook, 整数型, , 电话本名称,0
    .参数 lpszEntry, 文本型, , 连接名称
    .参数 lpRasEntry, RASENTRY
    .参数 dwEntryInfoSize, 整数型
    .参数 lpbDeviceInfo, 整数型
    .参数 wDeviceInfoSize, 整数型

.DLL命令 RasSetCredentials, 整数型, "rasapi32.dll", "RasSetCredentialsA"
    .参数 lpszPhonebook, 整数型, , 电话本名称,0
    .参数 lpszEntry, 文本型, , 连接名称
    .参数 lpCredentials, RASCREDENTIALS
    .参数 fClearCredentials, 整数型

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

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

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

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

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

.DLL命令 RasGetErrorString, 整数型, "RasApi32.dll", "RasGetErrorStringA", ,  RasHangUpA
    .参数 ErrorValue, 整数型, , RetVal
    .参数 ErrorString, 文本型, 传址
    .参数 cBufSize, 整数型

.DLL命令 RasHangUp, 整数型, "RasApi32.DLL", "RasHangUpA", , 挂断当前拔号连接
.参数 hRasConn, 整数型, , 连接句柄

.DLL命令 RasDial, 整数型, "RasApi32.dll", "RasDialA", ,  RasDialA
    .参数 lpRasDialExtensions, 整数型, , RetVal
    .参数 lpszPhonebook, 整数型, , RetVal
    .参数 lprasdialparams, RASDIALPARAMS, , RetVal
    .参数 dwNotifierType, 整数型, , RetVal
    .参数 lpvNotifier, 整数型, , RetVal
    .参数 lphRasConn, 整数型, 传址, RetVal

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

.DLL命令 RtlMoveMemory_Text, , , "RtlMoveMemory", , 复制内存数据_文本参数
    .参数 Destination, 字节型, 数组, 目标地址
    .参数 Source, 文本型, , 要复制的数据
    .参数 Length, 整数型, , 长度

.DLL命令 RtlMoveMemory_Long, , , "RtlMoveMemory", , 复制内存数据_整数参数
    .参数 Destination, 字节型, 传址, 目标地址
    .参数 Source, 整数型, , 要复制的数据
    .参数 Length, 整数型, , 长度

.DLL命令 RtlMoveMemory_Long1, , , "RtlMoveMemory", , 复制内存数据_整数参数
    .参数 Destination, 字节型, 传址数组, 目标地址
    .参数 Source, 整数型, , 要复制的数据
    .参数 Length, 整数型, , 长度

.DLL命令 RtlMoveMemory_MIB_IPFORWARDROW, , , "RtlMoveMemory", , 复制内存数据_MIB_IPFORWARDROW参数
    .参数 Destination, MIB_IPFORWARDROW, 传址, 目标地址
    .参数 Source, 字节集, , 要复制的数据MIB_IPFORWARDROW
    .参数 Length, 整数型, , 长度

.DLL命令 RtlMoveMemory_MIB_IPADDRROW, , , "RtlMoveMemory", , 复制内存数据_MIB_IPFORWARDROW参数
    .参数 Destination, MIB_IPADDRROW, 传址, 目标地址
    .参数 Source, 字节集, , 要复制的数据MIB_IPFORWARDROW
    .参数 Length, 整数型, , 长度

.DLL命令 SetWindowText, 整数型, "user32.dll", "SetWindowTextA", , 设置窗口的标题文字或控件的内容,非零表示成功，零表示失败。
.参数 hwnd, 整数型, , 要设置文字的窗口的句柄
.参数 Text, 文本型, , 要设到指定窗口中的文字

.DLL命令 ShowWindow, 整数型, , "ShowWindow", , 控制窗口可视
.参数 hwnd, 整数型
.参数 fEnable, 整数型, , 0=隐藏,9=原位置显示

.DLL命令 ExtractIcon, 整数型, "shell32.dll", "ExtractIconA"
    .参数窗口句柄, 整数型
    .参数文件名称, 文本型
    .参数图标索引, 整数型

.DLL命令 Shell_NotifyIcon, 整数型, "shell32.dll", "Shell_NotifyIconA"
.参数 dwMessage, 整数型
.参数 lpData, NOTIFYICONDATA

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 子程序指针
    .参数 HWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetWindowLong_Point, 子程序指针, "user32", "SetWindowLongA"
    .参数 HWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 子程序指针

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
    .参数 HWnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型, , Any型,根据需要可以设置成不同的类型

.DLL命令 InternetGetConnectedStateEx, 整数型, "wininet.dll", "InternetGetConnectedStateEx"
    .参数 lpdwFlags, 整数型, 传址
    .参数 lpszConnectionName, 文本型, 传址
    .参数 dwNameLen, 整数型
    .参数 dwReserved, 整数型

.DLL命令 DeleteIpForwardEntry, 整数型, "iphlpapi.dll", "DeleteIpForwardEntry"
.参数 pRoute, MIB_IPFORWARDROW, 传址

.DLL命令 GetIpForwardTable, 整数型, "iphlpapi.dll", "GetIpForwardTable"
    .参数 pIpForwardTable, 字节集, 传址, MIB_IPFORWARDTABLE
    .参数 pdwSize, 整数型, 传址
    .参数 bOrder, 逻辑型

.DLL命令 SetIpForwardEntry, 整数型, "iphlpapi.dll", "SetIpForwardEntry"
.参数 pRoute, MIB_IPFORWARDROW, 传址

.DLL命令 inet_addr, 整数型, "ws2_32.dll", "inet_addr"
.参数文本, 文本型, 传址, cp

.DLL命令 GetBestInterface, 整数型, "iphlpapi.dll", "GetBestInterface"
.参数 dwDestAddr, 整数型, 传址
.参数 pdwBestIfIndex, 整数型, 传址

.DLL命令 CreateIpForwardEntry, 整数型, "iphlpapi.dll", "CreateIpForwardEntry"
.参数 pRoute, MIB_IPFORWARDROW, 传址

.DLL命令 FormatMessage, 整数型, "kernel32.dll", "FormatMessageA"
    .参数 dwFlags, 整数型, , 错误信息类型标志
    .参数 lpSource, 整数型, , 指定本地信息定义其依赖于第一个参数的设置
    .参数 dwMessageId, 整数型, , 指定被请求的消息标示,如果dwFlags设置为FORMAT_MESSAGE_FROM_STRING 这个参数将被忽略
    .参数 dwLanguageId, 整数型, , 指定被请求的消息的语言标示
    .参数 lpBuffer, 文本型, , 用来保存格式话后的消息字符串的地址
    .参数 nSize, 整数型, , 如果第一个参数为指定FORMAT_MESSAGE_ALLOCATE_BUFFER 这个参数就是字符串的最大长度
    .参数 Arguments, 整数型

.DLL命令 GetLastError, 整数型, "kernel32.dll", "GetLastError"

.DLL命令 RegCloseKey, , , "RegCloseKey", , 关闭注册项
.参数 hkey

.DLL命令 RegQueryValueEx, , , "RegQueryValueExA", , 取注册表项
    .参数 hKey
    .参数 lpValueName, 文本型
    .参数 lpReserved
    .参数 lpType
    .参数 lpData
    .参数 lpcbData

.DLL命令 RegOpenKeyEx, , , "RegOpenKeyExA", , 打开注册表项
    .参数 hKey
    .参数 lpSubKey, 文本型
    .参数 ulOptions
    .参数 samDesired
    .参数 phkResult

.DLL命令 RegSetValueEx, , , "RegSetValueExA", , 写注册表项
    .参数 hKey
    .参数 lpValueName, 文本型
    .参数 Reserved
    .参数 dwType
    .参数 lpData
    .参数 cbData

.DLL命令 lstrcpyn_字节集, 整数型, , "lstrcpyn"
    .参数欲取其指针, 字节集, 传址
    .参数欲取其指针, 字节集, 传址
    .参数保留, 整数型, , 0

.DLL命令 lstrcpyn_整数型, 整数型, , "lstrcpyn"
    .参数欲取其指针, 整数型, 传址
    .参数欲取其指针, 整数型, 传址
    .参数保留, 整数型, , 0

.DLL命令 CreateEvent, 整数型, , "CreateEventA", , 创建事件同步对象
    .参数 lpEventAttributes, 整数型
    .参数 bManualReset, 逻辑型
    .参数 bInitialState, 逻辑型
    .参数 lpName, 文本型

.DLL命令 OpenEvent, 整数型, , "OpenEventA", , 打开事件同步对象
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型
    .参数 lpName, 文本型

.DLL命令 SetLayeredWindowAttributes, 整数型, , "SetLayeredWindowAttributes", , 设置窗口透明
    .参数 hwnd, 整数型
    .参数 crKey, 整数型
    .参数 bAlpha, 整数型
    .参数 dwFlags, 整数型

.DLL命令 SetWindowLong, 子程序指针, , "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
    .参数窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数窗口信息新值, 整数型, , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息  由nIndex决定。零表示出错。会设置GetLastError
    .参数窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
    .参数属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;

.DLL命令 SHGetSpecialFolderPath, 逻辑型, "shell32.dll", "SHGetSpecialFolderPathA", , 取系统目录
    .参数窗口句柄, 整数型
    .参数文本缓存, 文本型
    .参数标识, 整数型
    .参数是否创建, 逻辑型, , 真：不存在就创建，假：不创建

.DLL命令 StrToIntEx, 整数型, "shlwapi.dll", "StrToIntExA"
    .参数转换文本, 文本型, , pszString
    .参数标志, 整数型, , dwFlags 10 0  16 1
    .参数返回值, 整数型, 传址, piRet

.DLL命令 SetWaitableTimer, 整数型, , "SetWaitableTimer"
    .参数 hTimer, 整数型
    .参数 pDueTime, LARGE_INTEGER
    .参数 lPeriod, 整数型
    .参数 pfnCompletionRoutine, 整数型
    .参数 lpArgToCompletionRoutine, 整数型
    .参数 fResume, 逻辑型

.DLL命令 CreateWaitableTimer, 整数型, , "CreateWaitableTimerA"
    .参数 lpTimerAttributes, 整数型
    .参数 bManualReset, 逻辑型
    .参数 lpTimerName, 整数型

.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects"
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 fWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 NtShutdownSystem, , "ntdll.dll", "NtShutdownSystem"
.参数 ShutdownAction, 整数型, , 0=关机,1=重启,2=断电

.DLL命令 RtlAdjustPrivilege, , "ntdll.dll", "RtlAdjustPrivilege"
.参数 Privilege, 整数型
.参数 NewV

下载说明

本站目前主要提供易语言源码、模块、支持库等下载大部分源码均为ZIP打包,
注:本站源码主要来源于网络收集。如有侵犯您的利益，请联系我们，我们将及时删除！
部分源码可能含有危险代码，（如关机、格式化磁盘等），请看清代码在运行。
由此产生的一切后果本站均不负责。源码仅用于学习使用，如需运用到商业场景请咨询原作者。
使用本站源码开发的产品均与本站无任何关系，请大家遵守国家相关法律。