.版本 2

.程序集 启动窗口程序集

.子程序 _按钮2_被单击

结束 ()
.子程序 创建VPN, 逻辑型
.参数 连接名称, 文本型
.参数 用户名, 文本型
.参数 密码, 文本型
.参数 目的地址, 文本型
.局部变量 re, RASENTRY
.局部变量 rc, RASCREDENTIALS
.局部变量 n, 整数型
.局部变量 sDeviceName, 文本型
.局部变量 sDeviceType, 文本型

.如果真 (连接名称 ＝ “”)
连接名称 ＝ “虚拟专用网络连接”
.如果真结束
.如果 (用户名 ＝ “” 或 密码 ＝ “”)
n ＝ 1
.否则
n ＝ 0
.如果结束
目的地址 ＝ “ ” ＋ 目的地址 ‘ 不加三个空格建立后的地址少了前三位，不知是何原因
sDeviceName ＝ “WAN 微型端口 (L2TP)”
sDeviceType ＝ “vpn”
re.dwSize ＝ 2884
re.dwCountryCode ＝ 86
re.dwCountryID ＝ 86
re.dwDialExtraPercent ＝ 75
re.dwDialExtraSampleSeconds ＝ 120
re.dwDialMode ＝ 1
re.dwEncryptionType ＝ 3
re.dwfNetProtocols ＝ 4
re.dwfOptions ＝ 1024262928
re.dwfOptions2 ＝ 367
re.dwFramingProtocol ＝ 1
re.dwHangUpExtraPercent ＝ 10
re.dwHangUpExtraSampleSeconds ＝ 120
re.dwRedialCount ＝ 3
re.dwRedialPause ＝ 60
re.dwType ＝ 2
re.dwVpnStrategy ＝ 1 ‘ 这句改变VPN类型
复制内存数据 (re.szDeviceType, sDeviceType, 取文本长度 (sDeviceType))
复制内存数据 (re.szDeviceName, sDeviceName, 取文本长度 (sDeviceName))
复制内存数据 (re.szLocalPhoneNumber, 目的地址, 取文本长度 (目的地址))

rc.dwSize ＝ 540
rc.dwMask ＝ 11
复制内存数据 (rc.szUserName, 用户名, 取文本长度 (用户名))
复制内存数据 (rc.szPassword, 密码, 取文本长度 (密码))
输出调试文本 (连接名称, 用户名, 密码, n)
.如果真 (创建连接 (0, 连接名称, re, re.dwSize, 0, 0) ＝ 0)
.如果真 (n ＝ 1)
返回 (真)
.如果真结束
.如果真 (设置连接 (0, 连接名称, rc, 0) ＝ 0)
返回 (真)
.如果真结束

.如果真结束
返回 (假)

.子程序 _按钮1_被单击

.如果 (创建VPN (编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容))
信息框 (“创建成功!”, 0, )
发送快捷方式到桌面 ()

.否则
信息框 (“创建失败”, 0, )

.如果结束
.子程序 发送快捷方式到桌面
.局部变量 网络连接集, 对象
.局部变量 网络连接, 对象
.局部变量 z, 整数型
.局部变量 x, 整数型
网络连接集.创建 (“Shell”, 读环境变量 (“windir”) ＋ “\system32\shell32.dll”)
z ＝ 网络连接集.对象型方法 (“NameSpace”, 49).对象型方法 (“Items”, ).读数值属性 (“Count”, )
.计次循环首 (z, x)
‘ 输出调试文本 (网络连接集.对象型方法 (“NameSpace”, 49).对象型方法 (“Items”, ).对象型方法 (“Item”, 到短整数 (x － 1)).读文本属性 (“Name”, ))
.如果真 (网络连接集.对象型方法 (“NameSpace”, 49).对象型方法 (“Items”, ).对象型方法 (“Item”, 到短整数 (x － 1)).读文本属性 (“Name”, ) ＝ 选择 (编辑框1.内容 ＝ “”, “虚拟专用网络连接”, 编辑框1.内容))
网络连接 ＝ 网络连接集.对象型方法 (“NameSpace”, 49).对象型方法 (“Items”, ).对象型方法 (“Item”, 到短整数 (x － 1))
跳出循环 ()
.如果真结束

.计次循环尾 ()
‘ 输出调试文本 (z)
‘ 网络连接.查看 ()
z ＝ 网络连接.对象型方法 (“Verbs”, ).读数值属性 (“Count”, )
.计次循环首 (z, x)
‘ 输出调试文本 (网络连接.对象型方法 (“Verbs”, ).对象型方法 (“Item”, 到短整数 (x － 1)).读文本属性 (“Name”, ))
.如果真 (网络连接.对象型方法 (“Verbs”, ).对象型方法 (“Item”, 到短整数 (x － 1)).读文本属性 (“Name”, ) ＝ “创建快捷方式(&S)”)
网络连接.对象型方法 (“Verbs”, ).对象型方法 (“Item”, 到短整数 (x － 1)).对象型方法 (“DoIt”, )
跳出循环 ()
.如果真结束

.计次循环尾 ()
网络连接.清除 ()
网络连接集.清除 ()

IE缓存影音文件提取器源码

IE缓存影音文件提取器