精易论坛

标题: 求大神指点 服务器1 返回网页问题 [打印本页]

---

作者: 拉面    时间: 2017-1-21 03:48
标题: 求大神指点 服务器1 返回网页问题
手控电脑 - 副本.rar (151.39 KB, 下载次数: 1)

2017-1-21 03:46 上传

点击文件名下载附件
下载积分: 精币 -2 枚

为什么我 点击了网页上面的按钮  但是网页不会刷新的？

用JS 只是不想 网址有小尾巴   或者有没有其他方法 求指点

其实我对JS html 基础为1%都是常量里面东西都是东拼西凑 百回来的

---

作者: 拉面    时间: 2017-2-15 15:38

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
线程池	鱼刺类_线程池
临界	鱼刺类_临界许可
已成功注册数量	整数型
代理内容记忆	文本型
代理数组	文本型	0
代理数量	整数型
代理计次	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 线程池任务模型例程  赶集网注册+代理IP调用

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

工作结束 ()  ' 关闭前关闭任务 这是个好习惯哦
' 为啥不在 将被销毁里加入呢 因为听说将被销毁的时候 控件都销毁了
' 例如 那时候列表框都销毁了 线程子程序执行到 设置列表框标题什么的时候 就报错喽 因为列表框已经销毁 “目标组件不存在”

子程序名	返回值类型	公开	备 注
_按钮_启动停止_被单击

变量名	类 型	静态	数组	备 注
str	文本型

str ＝ 按钮_启动停止.标题
判断 (str ＝ “启动”)
工作开始 ()
判断 (str ＝ “停止”)
工作结束 ()
_处理事件 ()
返回 ()

子程序名	返回值类型	公开	备 注
工作开始

变量名	类 型	静态	数组	备 注
bool	逻辑型
int	整数型
并发线程数	整数型
需注册数量	整数型
已派发任务数	整数型
单条代理使用次数	整数型
代理派发计次	整数型

如果真 (线程池.取_状态 () ≠ 0)  ' 这个不解释了 为了防止频繁调用
返回 ()

按钮_启动停止.禁止 ＝ 真  ' 先让按钮禁止 防止用户瞎闹腾
按钮_启动停止.标题 ＝ “正在启动”
' 代理数据处理
如果真 (代理内容记忆 ≠ 编辑框_代理IP.内容)  ' 编辑框数据变动才会触发更新代理数组
代理内容记忆 ＝ 编辑框_代理IP.内容
代理数组 ＝ 分割文本 (代理内容记忆, #换行符, )
代理数量 ＝ 取数组成员数 (代理数组)
如果真 (代理数量 ＜ 1)
按钮_启动停止.标题 ＝ “启动”
按钮_启动停止.禁止 ＝ 假
返回 ()
代理计次 ＝ 1  ' 圆环计次
单条代理使用次数 ＝ 到整数 (编辑框_单条代理使用次数.内容)
如果真 (单条代理使用次数 ＜ 1)
单条代理使用次数 ＝ 1

' 创建/启动线程池
并发线程数 ＝ 到整数 (编辑框_并发线程数.内容)
如果真 (并发线程数 ＜ 1)
并发线程数 ＝ 1
如果真 (并发线程数 ＞ 999)
并发线程数 ＝ 999
bool ＝ 线程池.创建 (并发线程数)
如果真 (bool ＝ 假)  ' 创建失败？ 我是没遇到过 不过为了安全起见还是加个判断吧
按钮_启动停止.标题 ＝ “启动”
按钮_启动停止.禁止 ＝ 假
返回 ()

需注册数量 ＝ 到整数 (编辑框_注册数量.内容)
如果真 (需注册数量 ＜ 1)
需注册数量 ＝ 1

按钮_启动停止.标题 ＝ “停止”  ' 等一切就绪 再让按钮可以点击
按钮_启动停止.禁止 ＝ 假
已派发任务数 ＝ 0
判断循环首 (已派发任务数 ＜ 需注册数量)
int ＝ 线程池.取_空闲线程数 ()  ' 没有空闲的线程那就先歇会吧
判断循环首 (int ＝ 0)
如果真 (线程池.取_状态 () ≠ 1)  ' 这个明显是为了中途点击停止而加入的
返回 ()
_延迟 (10)
int ＝ 线程池.取_空闲线程数 ()
判断循环尾 ()
计次循环首 (int, )  ' 这样貌似更效率了 只是思路 也可以用 历程1 里的方式
' //代理传递方式二
int ＝ 打开内存文件 ()
写出文本 (int, 代理数组 [代理计次])
' ///
' 派发任务喽
线程池.投递任务 (到整数 (&线程任务子程序), 代理计次, int)
已派发任务数 ＝ 已派发任务数 ＋ 1
' //切换代理处理
' 注意的话会发现 工作中途停止后再次启动工作 代理使用还是在结束任务的计次上往下走的
' 并非把计次初始化到1而使用到已用过的代理
' 所以啊 动点脑筋 不需要暂停线程什么的 也是能实现工作记忆的 而且还安全可靠
代理派发计次 ＝ 代理派发计次 ＋ 1
如果真 (代理派发计次 ≥ 单条代理使用次数)
代理派发计次 ＝ 0
代理计次 ＝ 代理计次 ＋ 1
如果真 (代理计次 ＞ 代理数量)
代理计次 ＝ 1

' ///
计次循环尾 ()
_处理事件 ()
判断循环尾 ()
判断循环首 (线程池.取_是否空闲 () ＝ 假)
如果真 (线程池.取_状态 () ≠ 1)  ' 这个明显是为了中途点击停止而加入的
返回 ()
_延迟 (10)
判断循环尾 ()
工作结束 ()

子程序名	返回值类型	公开	备 注
工作结束

如果真 (线程池.取_状态 () ≠ 1)
返回 ()  ' 防止频繁调用 其实也没事的  线程池在销毁中被再次调用 销毁 会立即返回 假 不会造成报错
按钮_启动停止.禁止 ＝ 真
按钮_启动停止.标题 ＝ “正在停止”
线程池.销毁 ()
按钮_启动停止.标题 ＝ “启动”
按钮_启动停止.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
线程任务子程序
参数名	类 型	参考	可空	数组	备 注
代理传递方式_数组索引	整数型
代理传递方式_内存文件	整数型				弄了俩参数为了演示

变量名	类 型	静态	数组	备 注
赶集	reg_赶集
bool	逻辑型
user	文本型
pass	文本型
Proxy	文本型			代理ip
str	文本型
int	整数型

' 处理代理
判断 (代理传递方式_数组索引 ＞ 0 且 代理传递方式_数组索引 ≤ 代理数量)
Proxy ＝ 代理数组 [代理传递方式_数组索引]
判断 (代理传递方式_内存文件 ≠ 0)
移到文件首 (代理传递方式_内存文件)
Proxy ＝ 读入文本 (代理传递方式_内存文件, )
关闭文件 (代理传递方式_内存文件)


如果真 (Proxy ≠ “”)
调试输出 (Proxy)
赶集.设置代理 (Proxy)

' 初始化页面
bool ＝ 赶集.注册初始化 ()
如果真 (bool ＝ 假 或 线程池.取_状态 () ≠ 1)  ' 初始化失败 或 线程池状态不等于正在运行 直接返回不解释
返回 ()

' 生成注册信息
置随机数种子 ()
user ＝ 鱼刺文本_取随机字符数字串 (取随机数 (6, 12))
pass ＝ 鱼刺文本_取随机字符数字串 (取随机数 (8, 12))
' 提交
bool ＝ 赶集.提交注册 (user, pass)
如果真 (bool ＝ 假)
返回 ()

' 插入表象
临界.进入 ()  ' 临界许可 也叫 许可证
str ＝ 到文本 (列表_陈功数据.取表项数 () ＋ 1)
int ＝ 列表_陈功数据.插入表项 (, str, , , , )  ' 这里还是加上 临界资源 吧
' 已测试用线程子程序来设置列表框 选中项 是比较危险地   不知道为啥 反正容易卡死 程序消失 不晓得是E问题还是什么问题 放到窗口主线程来设置就没事了
' 所以 最好避免操作窗口组件 置取标题什么的貌似是没事的 总之 要么给主线程绑定CPU 要么避免频繁操作窗口和组件
临界.退出 ()
' 置信息
列表_陈功数据.置标题 (int, 1, user)  ' 设置和获取 表象标题 或 数值 不会和窗口线程冲突
列表_陈功数据.置标题 (int, 2, pass)
原子_递增 (已成功注册数量)
标签_已注册数量.标题 ＝ “已注册数量：” ＋ 到文本 (已成功注册数量)
返回 ()

子程序名	返回值类型	公开	备 注
_时钟_状态_周期事件

变量名	类 型	静态	数组	备 注
int	整数型

' 这个没用 只为了检测线程池状态 可供参考
' /// 频繁的 取_各种状态数值 是不耗资源的哦
' 0=未启动，1=正在工作，2=正在创建，3=正在销毁。
int ＝ 线程池.取_状态 ()
判断 (int ＝ 0)
标签_线程池状态.标题 ＝ “线程池状态：未启动”
判断 (int ＝ 1)
标签_线程池状态.标题 ＝ “线程池状态：正在工作”
判断 (int ＝ 2)
标签_线程池状态.标题 ＝ “线程池状态：正在创建”
判断 (int ＝ 3)
标签_线程池状态.标题 ＝ “线程池状态：正在销毁”
' 尼玛 没有别的状态了

int ＝ 线程池.取_线程池容量 ()
标签_线程池容量.标题 ＝ “线程池容量：” ＋ 到文本 (int)
int ＝ 线程池.取_执行线程数 ()
标签_执行线程数.标题 ＝ “执行线程数：” ＋ 到文本 (int)
int ＝ 线程池.取_空闲线程数 ()
标签_空闲线程数.标题 ＝ “空闲线程数：” ＋ 到文本 (int)
int ＝ 线程池.取_队列任务数 ()
标签_队列任务数.标题 ＝ “队列任务数：” ＋ 到文本 (int)

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 线程池, 鱼刺类_线程池<br /> .程序集变量 临界, 鱼刺类_临界许可<br /> .程序集变量 已成功注册数量, 整数型<br /> .程序集变量 代理内容记忆, 文本型<br /> .程序集变量 代理数组, 文本型, , "0"<br /> .程序集变量 代理数量, 整数型<br /> .程序集变量 代理计次, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 线程池任务模型例程  赶集网注册+代理IP调用<br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> 工作结束 ()  ' 关闭前关闭任务 这是个好习惯哦<br /> ' 为啥不在 将被销毁里加入呢 因为听说将被销毁的时候 控件都销毁了<br /> ' 例如 那时候列表框都销毁了 线程子程序执行到 设置列表框标题什么的时候 就报错喽 因为列表框已经销毁 “目标组件不存在”<br /> <br /> .子程序 _按钮_启动停止_被单击<br /> .局部变量 str, 文本型<br /> <br /> str ＝ 按钮_启动停止.标题<br /> .判断开始 (str ＝ “启动”)<br />     工作开始 ()<br /> .判断 (str ＝ “停止”)<br />     工作结束 ()<br /> .默认<br />     _处理事件 ()<br /> .判断结束<br /> 返回 ()<br /> <br /> .子程序 工作开始<br /> .局部变量 bool, 逻辑型<br /> .局部变量 int, 整数型<br /> .局部变量 并发线程数, 整数型<br /> .局部变量 需注册数量, 整数型<br /> .局部变量 已派发任务数, 整数型<br /> .局部变量 单条代理使用次数, 整数型<br /> .局部变量 代理派发计次, 整数型<br /> <br /> .如果真 (线程池.取_状态 () ≠ 0)  ' 这个不解释了 为了防止频繁调用<br />     返回 ()<br /> .如果真结束<br /> <br /> 按钮_启动停止.禁止 ＝ 真  ' 先让按钮禁止 防止用户瞎闹腾<br /> 按钮_启动停止.标题 ＝ “正在启动”<br /> <br /> ' 代理数据处理<br /> .如果真 (代理内容记忆 ≠ 编辑框_代理IP.内容)  ' 编辑框数据变动才会触发更新代理数组<br />     代理内容记忆 ＝ 编辑框_代理IP.内容<br />     代理数组 ＝ 分割文本 (代理内容记忆, #换行符, )<br />     代理数量 ＝ 取数组成员数 (代理数组)<br />     .如果真 (代理数量 ＜ 1)<br />         按钮_启动停止.标题 ＝ “启动”<br />         按钮_启动停止.禁止 ＝ 假<br />         返回 ()<br />     .如果真结束<br />     代理计次 ＝ 1  ' 圆环计次<br /> .如果真结束<br /> 单条代理使用次数 ＝ 到整数 (编辑框_单条代理使用次数.内容)<br /> .如果真 (单条代理使用次数 ＜ 1)<br />     单条代理使用次数 ＝ 1<br /> .如果真结束<br /> <br /> ' 创建/启动线程池<br /> 并发线程数 ＝ 到整数 (编辑框_并发线程数.内容)<br /> .如果真 (并发线程数 ＜ 1)<br />     并发线程数 ＝ 1<br /> .如果真结束<br /> .如果真 (并发线程数 ＞ 999)<br />     并发线程数 ＝ 999<br /> .如果真结束<br /> bool ＝ 线程池.创建 (并发线程数)<br /> .如果真 (bool ＝ 假)  ' 创建失败？ 我是没遇到过 不过为了安全起见还是加个判断吧<br />     按钮_启动停止.标题 ＝ “启动”<br />     按钮_启动停止.禁止 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> <br /> 需注册数量 ＝ 到整数 (编辑框_注册数量.内容)<br /> .如果真 (需注册数量 ＜ 1)<br />     需注册数量 ＝ 1<br /> .如果真结束<br /> <br /> 按钮_启动停止.标题 ＝ “停止”  ' 等一切就绪 再让按钮可以点击<br /> 按钮_启动停止.禁止 ＝ 假<br /> <br /> 已派发任务数 ＝ 0<br /> .判断循环首 (已派发任务数 ＜ 需注册数量)<br />     int ＝ 线程池.取_空闲线程数 ()  ' 没有空闲的线程那就先歇会吧<br />     .判断循环首 (int ＝ 0)<br />         .如果真 (线程池.取_状态 () ≠ 1)  ' 这个明显是为了中途点击停止而加入的<br />             返回 ()<br />         .如果真结束<br />         _延迟 (10)<br />         int ＝ 线程池.取_空闲线程数 ()<br />     .判断循环尾 ()<br />     .计次循环首 (int, )  ' 这样貌似更效率了 只是思路 也可以用 历程1 里的方式<br />         ' //代理传递方式二<br />         int ＝ 打开内存文件 ()<br />         写出文本 (int, 代理数组 [代理计次])<br />         ' ///<br /> <br />         ' 派发任务喽<br />         线程池.投递任务 (到整数 (&线程任务子程序), 代理计次, int)<br />         已派发任务数 ＝ 已派发任务数 ＋ 1<br /> <br />         ' //切换代理处理<br />         ' 注意的话会发现 工作中途停止后再次启动工作 代理使用还是在结束任务的计次上往下走的<br />         ' 并非把计次初始化到1而使用到已用过的代理<br />         ' 所以啊 动点脑筋 不需要暂停线程什么的 也是能实现工作记忆的 而且还安全可靠<br />         代理派发计次 ＝ 代理派发计次 ＋ 1<br />         .如果真 (代理派发计次 ≥ 单条代理使用次数)<br />             代理派发计次 ＝ 0<br />             代理计次 ＝ 代理计次 ＋ 1<br />             .如果真 (代理计次 ＞ 代理数量)<br />                 代理计次 ＝ 1<br />             .如果真结束<br /> <br />         .如果真结束<br />         ' ///<br />     .计次循环尾 ()<br />     _处理事件 ()<br /> .判断循环尾 ()<br /> .判断循环首 (线程池.取_是否空闲 () ＝ 假)<br />     .如果真 (线程池.取_状态 () ≠ 1)  ' 这个明显是为了中途点击停止而加入的<br />         返回 ()<br />     .如果真结束<br />     _延迟 (10)<br /> .判断循环尾 ()<br /> 工作结束 ()<br /> <br /> .子程序 工作结束<br /> <br /> .如果真 (线程池.取_状态 () ≠ 1)<br />     返回 ()  ' 防止频繁调用 其实也没事的  线程池在销毁中被再次调用 销毁 会立即返回 假 不会造成报错<br /> .如果真结束<br /> 按钮_启动停止.禁止 ＝ 真<br /> 按钮_启动停止.标题 ＝ “正在停止”<br /> 线程池.销毁 ()<br /> 按钮_启动停止.标题 ＝ “启动”<br /> 按钮_启动停止.禁止 ＝ 假<br /> <br /> .子程序 线程任务子程序<br /> .参数 代理传递方式_数组索引, 整数型<br /> .参数 代理传递方式_内存文件, 整数型, , 弄了俩参数为了演示<br /> .局部变量 赶集, reg_赶集<br /> .局部变量 bool, 逻辑型<br /> .局部变量 user, 文本型<br /> .局部变量 pass, 文本型<br /> .局部变量 Proxy, 文本型, , , 代理ip<br /> .局部变量 str, 文本型<br /> .局部变量 int, 整数型<br /> <br /> ' 处理代理<br /> .判断开始 (代理传递方式_数组索引 ＞ 0 且 代理传递方式_数组索引 ≤ 代理数量)<br />     Proxy ＝ 代理数组 [代理传递方式_数组索引]<br /> .判断 (代理传递方式_内存文件 ≠ 0)<br />     移到文件首 (代理传递方式_内存文件)<br />     Proxy ＝ 读入文本 (代理传递方式_内存文件, )<br />     关闭文件 (代理传递方式_内存文件)<br /> .默认<br /> <br /> .判断结束<br /> .如果真 (Proxy ≠ “”)<br />     调试输出 (Proxy)<br />     赶集.设置代理 (Proxy)<br /> .如果真结束<br /> <br /> ' 初始化页面<br /> bool ＝ 赶集.注册初始化 ()<br /> .如果真 (bool ＝ 假 或 线程池.取_状态 () ≠ 1)  ' 初始化失败 或 线程池状态不等于正在运行 直接返回不解释<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 生成注册信息<br /> 置随机数种子 ()<br /> user ＝ 鱼刺文本_取随机字符数字串 (取随机数 (6, 12))<br /> pass ＝ 鱼刺文本_取随机字符数字串 (取随机数 (8, 12))<br /> <br /> ' 提交<br /> bool ＝ 赶集.提交注册 (user, pass)<br /> .如果真 (bool ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 插入表象<br /> 临界.进入 ()  ' 临界许可 也叫 许可证<br /> str ＝ 到文本 (列表_陈功数据.取表项数 () ＋ 1)<br /> int ＝ 列表_陈功数据.插入表项 (, str, , , , )  ' 这里还是加上 临界资源 吧<br /> ' 已测试用线程子程序来设置列表框 选中项 是比较危险地   不知道为啥 反正容易卡死 程序消失 不晓得是E问题还是什么问题 放到窗口主线程来设置就没事了<br /> ' 所以 最好避免操作窗口组件 置取标题什么的貌似是没事的 总之 要么给主线程绑定CPU 要么避免频繁操作窗口和组件<br /> 临界.退出 ()<br /> <br /> ' 置信息<br /> 列表_陈功数据.置标题 (int, 1, user)  ' 设置和获取 表象标题 或 数值 不会和窗口线程冲突<br /> 列表_陈功数据.置标题 (int, 2, pass)<br /> 原子_递增 (已成功注册数量)<br /> 标签_已注册数量.标题 ＝ “已注册数量：” ＋ 到文本 (已成功注册数量)<br /> <br /> 返回 ()<br /> <br /> .子程序 _时钟_状态_周期事件<br /> .局部变量 int, 整数型<br /> <br /> ' 这个没用 只为了检测线程池状态 可供参考<br /> <br /> ' /// 频繁的 取_各种状态数值 是不耗资源的哦<br /> <br /> ' 0=未启动，1=正在工作，2=正在创建，3=正在销毁。<br /> int ＝ 线程池.取_状态 ()<br /> .判断开始 (int ＝ 0)<br />     标签_线程池状态.标题 ＝ “线程池状态：未启动”<br /> .判断 (int ＝ 1)<br />     标签_线程池状态.标题 ＝ “线程池状态：正在工作”<br /> .判断 (int ＝ 2)<br />     标签_线程池状态.标题 ＝ “线程池状态：正在创建”<br /> .判断 (int ＝ 3)<br />     标签_线程池状态.标题 ＝ “线程池状态：正在销毁”<br /> .默认<br />     ' 尼玛 没有别的状态了<br /> .判断结束<br /> <br /> int ＝ 线程池.取_线程池容量 ()<br /> 标签_线程池容量.标题 ＝ “线程池容量：” ＋ 到文本 (int)<br /> <br /> int ＝ 线程池.取_执行线程数 ()<br /> 标签_执行线程数.标题 ＝ “执行线程数：” ＋ 到文本 (int)<br /> <br /> int ＝ 线程池.取_空闲线程数 ()<br /> 标签_空闲线程数.标题 ＝ “空闲线程数：” ＋ 到文本 (int)<br /> <br /> int ＝ 线程池.取_队列任务数 ()<br /> 标签_队列任务数.标题 ＝ “队列任务数：” ＋ 到文本 (int)

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4