-
- 用户组
- 管理员
- 总帖数
- 阅读权限
- 255
- 关注数
签到天数: 9 天
|
发表于 2011-10-31 22:24:05
|
显示全部楼层
广东省揭阳市
[e].子程序 网页_取cookie, 文本型, 公开
.参数 网址, 文本型
.参数 COOKIE名称, 文本型, 可空, 为空返回全部COOKIE
.局部变量 域名, 文本型
.局部变量 读取内容, 文本型
.局部变量 整数容器1, 整数型
.局部变量 整数容器2, 整数型
域名 = 网页_取域名 (网址)
读取内容 = 取空白文本 (250 × 30)
.如果 (API_InternetGetCookieA (“http://” + 域名, 字符 (0), 读取内容, 250 × 30))
.如果真 (COOKIE名称 ≠ “”)
整数容器1 = 寻找文本 (读取内容, COOKIE名称, 1, 真)
.如果真 (整数容器1 = -1)
返回 (“”)
.如果真结束
整数容器2 = 寻找文本 (读取内容, “;”, 整数容器1, 真)
.如果 (整数容器2 > 0)
读取内容 = 取文本中间 (读取内容, 整数容器1 + 取文本长度 (COOKIE名称) + 1, 整数容器2 - 整数容器1 - 取文本长度 (COOKIE名称) - 1)
.否则
读取内容 = 取文本右边 (读取内容, 取文本长度 (读取内容) - 整数容器1 - 取文本长度 (COOKIE名称))
.如果结束
.如果真结束
返回 (读取内容)
.否则
返回 (“”)
.如果结束
[/e]
[e].子程序 网页_取域名, 文本型, 公开, 如:http://www.3600gz.cn/redirect.php,只取出www.3600gz.cn
.参数 网址, 文本型
.局部变量 域名, 文本型
域名 = 子文本替换 (网址, “https://”, “”, , , 真)
域名 = 子文本替换 (域名, “http://”, “”, , , 真)
.判断开始 (寻找文本 (域名, “/”, , 假) = -1)
域名 = 到小写 (域名)
.默认
域名 = 到小写 (取文本左边 (域名, 寻找文本 (域名, “/”, , 假) - 1))
.判断结束
.判断开始 (寻找文本 (域名, “:”, , 假) = -1)
域名 = 到小写 (域名)
.默认
域名 = 到小写 (取文本左边 (域名, 寻找文本 (域名, “:”, , 假) - 1))
.判断结束
返回 (到小写 (域名))[/e]
[e].DLL命令 API_InternetGetCookieA, 逻辑型, "wininet.dll", "InternetGetCookieA", , 读取COOKIE
.参数 域名, 文本型
.参数 名称, 文本型
.参数 内容, 文本型, 传址
.参数 尺寸, 整数型, 传址
[/e]
|
|