网站登录例子

xiaoge2014

一个网站的登录例子

网址   https://23.248.196.12:64511/home/hall

lomansoft

用的是网易盾，这个就卡住了

王永康

用填表模式就好了

2224848

demo.e (966.1 KB, 下载次数: 15)

2025-7-27 22:45 上传

点击文件名下载附件
使用精易模块即可。

2224848

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
网站登录示例

变量名	类 型	静态	数组	备 注
登录Url	文本型
登录数据	文本型
请求头	文本型
响应头	文本型
Cookie	文本型
下载文件路径	文本型
临时Cookie文件	文本型
页面内容	文本型

' 设置登录URL和临时文件路径
登录Url ＝ “https://23.248.196.12:64511/home/hall”
下载文件路径 ＝ 取运行目录 () ＋ “\temp_login.html”
临时Cookie文件 ＝ 取运行目录 () ＋ “\temp_cookie.txt”
' 启用TLS协议支持（确保HTTPS连接正常）
网页_修补TLS协议 ()
' 第一步：发送GET请求获取初始Cookie
请求头 ＝ “Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” ＋ #换行符 ＋ “Accept-Language: zh-CN,zh;q=0.8,en;q=0.6”
' 发送GET请求（不带回调函数）
删除文件 (下载文件路径)
网页_断点续传 (登录Url, 下载文件路径, )
' 从响应中提取初始Cookie（这里通过模拟方式获取，实际需根据具体实现调整）
' 注：由于没有回调，我们通过文件存在性判断请求是否成功
如果真 (文件_是否存在 (下载文件路径))
' 模拟提取Cookie（实际应用中需要正确获取响应头）
' 这里使用之前可能保存的Cookie或空值
Cookie ＝ 获取CookieFromResponse (下载文件路径)
输出调试文本 (“获取初始Cookie: ” ＋ Cookie)

' 第二步：构造POST登录请求
请求头 ＝ “Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” ＋ #换行符 ＋ “Accept-Language: zh-CN,zh;q=0.8,en;q=0.6” ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded” ＋ #换行符 ＋ “Cookie: ” ＋ Cookie
' 设置登录数据（根据实际网站表单字段调整）
登录数据 ＝ “username=你的用户名&password=你的密码&remember=1”
' 发送POST登录请求（不带回调函数）
删除文件 (下载文件路径)
网页_断点续传 (登录Url, 下载文件路径, )
' 读取登录结果
如果真 (文件_是否存在 (下载文件路径))
' 读取页面内容判断登录状态
页面内容 ＝ 到文本 (读入文件 (下载文件路径))
' 更新Cookie（实际应用中需要从响应头获取）
Cookie ＝ Cookie ＋ “; ” ＋ 获取CookieFromResponse (下载文件路径)
' 判断登录是否成功
如果真 (寻找文本 (页面内容, “欢迎回来”, , 假) ≠ -1 或 寻找文本 (页面内容, “dashboard”, , 假) ≠ -1)
输出调试文本 (“登录成功！”)
输出调试文本 (“当前Cookie: ” ＋ Cookie)
输出调试文本 (“登录后页面已保存至: ” ＋ 下载文件路径)
' 保存Cookie供后续使用
写到文件 (临时Cookie文件, 到字节集 (Cookie))

如果真 (寻找文本 (页面内容, “用户名或密码错误”, , 假) ≠ -1 或 寻找文本 (页面内容, “登录失败”, , 假) ≠ -1)
输出调试文本 (“登录失败: 用户名或密码错误”)

子程序名	返回值类型	公开	备 注
获取CookieFromResponse	文本型
参数名	类 型	参考	可空	数组	备 注
响应文件路径	文本型

变量名	类 型	静态	数组	备 注
模拟Cookie	文本型

' 模拟从响应中提取Cookie的过程
' 实际应用中需要根据具体实现从响应头中提取
模拟Cookie ＝ “sessionid=abc123; csrftoken=def456”  ' 这里仅为示例
返回 (模拟Cookie)

子程序名	返回值类型	公开	备 注
HeadersToCookie	文本型
参数名	类 型	参考	可空	数组	备 注
aryHeaders	文本型

变量名	类 型	静态	数组	备 注
dwCount	整数型
dwBegin	整数型
dwEnd	整数型
szHeaders	文本型
i	整数型

dwCount ＝ 取数组成员数 (aryHeaders)
计次循环首 (dwCount, i)
dwBegin ＝ 寻找文本 (aryHeaders [i], “set-cookie:”, 1, 真)
如果真 (dwBegin ＝ 1)
dwEnd ＝ 寻找文本 (aryHeaders [i], “;”, 12, 真)
如果真 (dwEnd ≠ -1)
如果真 (szHeaders ≠ “”)
szHeaders ＝ szHeaders ＋ “; ”
szHeaders ＝ szHeaders ＋ 删首尾空 (取文本中间 (aryHeaders [i], 12, dwEnd － 12))


计次循环尾 ()
返回 (szHeaders)

子程序名	返回值类型	公开	备 注
网页_修补TLS协议	逻辑型

返回 (系统_写数值注册项 ( #HKEY_LOCAL_MACHINE, “SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp”, #REG_DWORD, “DefaultSecureProtocols”, 2560, 假))

子程序名	返回值类型	公开	备 注
_按钮1_被单击

网站登录示例 ()

i支持库列表	支持库注释
const	(未知支持库)

.版本 2<br /> .支持库 const<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 网站登录示例<br /> .局部变量 登录Url, 文本型<br /> .局部变量 登录数据, 文本型<br /> .局部变量 请求头, 文本型<br /> .局部变量 响应头, 文本型<br /> .局部变量 Cookie, 文本型<br /> .局部变量 下载文件路径, 文本型<br /> .局部变量 临时Cookie文件, 文本型<br /> .局部变量 页面内容, 文本型<br /> <br /> ' 设置登录URL和临时文件路径<br /> 登录Url ＝ “https://23.248.196.12:64511/home/hall”<br /> 下载文件路径 ＝ 取运行目录 () ＋ “\temp_login.html”<br /> 临时Cookie文件 ＝ 取运行目录 () ＋ “\temp_cookie.txt”<br /> <br /> ' 启用TLS协议支持（确保HTTPS连接正常）<br /> 网页_修补TLS协议 ()<br /> <br /> ' 第一步：发送GET请求获取初始Cookie<br /> 请求头 ＝ “Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” ＋ #换行符 ＋ “Accept-Language: zh-CN,zh;q=0.8,en;q=0.6”<br /> <br /> ' 发送GET请求（不带回调函数）<br /> 删除文件 (下载文件路径)<br /> 网页_断点续传 (登录Url, 下载文件路径, )<br /> <br /> ' 从响应中提取初始Cookie（这里通过模拟方式获取，实际需根据具体实现调整）<br /> ' 注：由于没有回调，我们通过文件存在性判断请求是否成功<br /> .如果真 (文件_是否存在 (下载文件路径))<br />     ' 模拟提取Cookie（实际应用中需要正确获取响应头）<br />     ' 这里使用之前可能保存的Cookie或空值<br />     Cookie ＝ 获取CookieFromResponse (下载文件路径)<br />     输出调试文本 (“获取初始Cookie: ” ＋ Cookie)<br /> .如果真结束<br /> <br /> ' 第二步：构造POST登录请求<br /> 请求头 ＝ “Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36” ＋ #换行符 ＋ “Accept-Language: zh-CN,zh;q=0.8,en;q=0.6” ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded” ＋ #换行符 ＋ “Cookie: ” ＋ Cookie<br /> <br /> ' 设置登录数据（根据实际网站表单字段调整）<br /> 登录数据 ＝ “username=你的用户名&password=你的密码&remember=1”<br /> <br /> ' 发送POST登录请求（不带回调函数）<br /> 删除文件 (下载文件路径)<br /> 网页_断点续传 (登录Url, 下载文件路径, )<br /> <br /> ' 读取登录结果<br /> .如果真 (文件_是否存在 (下载文件路径))<br />     ' 读取页面内容判断登录状态<br />     页面内容 ＝ 到文本 (读入文件 (下载文件路径))<br /> <br />     ' 更新Cookie（实际应用中需要从响应头获取）<br />     Cookie ＝ Cookie ＋ “; ” ＋ 获取CookieFromResponse (下载文件路径)<br /> <br />     ' 判断登录是否成功<br />     .如果真 (寻找文本 (页面内容, “欢迎回来”, , 假) ≠ -1 或 寻找文本 (页面内容, “dashboard”, , 假) ≠ -1)<br />         输出调试文本 (“登录成功！”)<br />         输出调试文本 (“当前Cookie: ” ＋ Cookie)<br />         输出调试文本 (“登录后页面已保存至: ” ＋ 下载文件路径)<br />         ' 保存Cookie供后续使用<br />         写到文件 (临时Cookie文件, 到字节集 (Cookie))<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (页面内容, “用户名或密码错误”, , 假) ≠ -1 或 寻找文本 (页面内容, “登录失败”, , 假) ≠ -1)<br />         输出调试文本 (“登录失败: 用户名或密码错误”)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 获取CookieFromResponse, 文本型<br /> .参数 响应文件路径, 文本型<br /> .局部变量 模拟Cookie, 文本型<br /> <br /> ' 模拟从响应中提取Cookie的过程<br /> ' 实际应用中需要根据具体实现从响应头中提取<br /> 模拟Cookie ＝ “sessionid=abc123; csrftoken=def456”  ' 这里仅为示例<br /> 返回 (模拟Cookie)<br /> <br /> .子程序 HeadersToCookie, 文本型<br /> .参数 aryHeaders, 文本型, 数组<br /> .局部变量 dwCount, 整数型<br /> .局部变量 dwBegin, 整数型<br /> .局部变量 dwEnd, 整数型<br /> .局部变量 szHeaders, 文本型<br /> .局部变量 i, 整数型<br /> <br /> dwCount ＝ 取数组成员数 (aryHeaders)<br /> .计次循环首 (dwCount, i)<br />     dwBegin ＝ 寻找文本 (aryHeaders <i>, “set-cookie:”, 1, 真)<br />     .如果真 (dwBegin ＝ 1)<br />         dwEnd ＝ 寻找文本 (aryHeaders <i>, “;”, 12, 真)<br />         .如果真 (dwEnd ≠ -1)<br />             .如果真 (szHeaders ≠ “”)<br />                 szHeaders ＝ szHeaders ＋ “; ”<br />             .如果真结束<br />             szHeaders ＝ szHeaders ＋ 删首尾空 (取文本中间 (aryHeaders <i>, 12, dwEnd － 12))<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (szHeaders)<br /> <br /> .子程序 网页_修补TLS协议, 逻辑型, 公开<br /> <br /> 返回 (系统_写数值注册项 (#HKEY_LOCAL_MACHINE, “SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp”, #REG_DWORD, “DefaultSecureProtocols”, 2560, 假))<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 网站登录示例 ()

opphk

我连网站都打不开

designer

参数都出来了，就是不能易调用..............

xiaoge2014

2224848 发表于 2025-7-27 22:45
使用精易模块即可。

源码不能运行，提示不能载入支持库1.6版

xiaoge2014

2224848 发表于 2025-7-27 22:45
使用精易模块即可。

能登录吗？