求大神来看看！！！我的代码出什么问题了。

zzc1314

我的代码意思是验证QQ群，如果验证过了的话就会打开窗口2.
可验证通过了打开窗口2，过几秒时间后程序就会自动关闭，求大神来给我改进改进。（调用的是精易模块）

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
取QQ号	文本型
取skey	文本型
验证	逻辑型
验证成功	逻辑型

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

_启动窗口.可视 ＝ 假
验证 ＝ 真

子程序名	返回值类型	公开	备 注
_超文本浏览框1_载入完毕

判断 (验证成功 ≠ 真)
判断 (寻找文本 (网页_取Cookie (“www.qun.qzone.qq.com”), “skey=”, , 假) ≠ -1)
判断 (验证 ＝ 真)
启动线程 (&取资料, , )

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

变量名	类 型	静态	数组	备 注
hash	整数型
o	整数型
ske	文本型

hash ＝ 5381
ske ＝ 文本_取出中间文本 (skey, “skey=”, “;”)
如果真 (ske ＝ “”)
ske ＝ skey
计次循环首 (取文本长度 (ske), o)
hash ＝ hash ＋ 左移 (hash, 5) ＋ 取代码 (ske, o)
计次循环尾 ()
hash ＝ 位与 (hash, 2147483647)
返回 (到文本 (hash))

子程序名	返回值类型	公开	备 注
qq群验证	逻辑型
参数名	类 型	参考	可空	数组	备 注
skey	文本型
验证QQ群	文本型

变量名	类 型	静态	数组	备 注
返回信息	文本型

返回信息 ＝ 到文本 (网页_访问 (“' http://qun.qzone.qq.com/cgi-bin/ ... roupPortal&uin=” ＋ 取QQ号 ＋ “&g_tk=” ＋ G_TK (skey) ＋ “&ua=Mozilla%2F4.0%20(compatible%3B%20MSIE%208.0%3B%20Windows%20NT%205.1%3B%20Trident%2F4.0%3B%20.NET%20CLR%202.0.50727)”, , ))
返回信息 ＝ 编码_URL解码 (返回信息, 真)
调试输出 (返回信息)
判断 (寻找文本 (返回信息, 验证QQ群, , 假) ≠ -1)
返回 (真)
返回信息 ＝ “”
返回 (假)

子程序名	返回值类型	公开	备 注
取资料

验证 ＝ 假
取QQ号 ＝ 到文本 (网页_访问 (“http://qun.qzone.qq.com/group”))
取QQ号 ＝ 文本_取出中间文本 (取QQ号, “g_iLoginUin = ”, “;”, )
取skey ＝ 文本_取出中间文本 (网页_取Cookie (“www.qun.qzone.qq.com”), “; skey=”, “;”)
调试输出 (网页_取Cookie (“www.qun.qzone.qq.com”))
如果 (取skey ＝ “”)
取skey ＝ 文本_取右边 (网页_取Cookie (“www.qun.qzone.qq.com”), “; skey=”)



判断 (qq群验证 (取skey, “347017096”) ＝ 真)
验证成功 ＝ 真
启动线程 (&开始运行, , )
信息框 (“验证失败”, 0, )

验证 ＝ 真

子程序名	返回值类型	公开	备 注
开始运行

可视 ＝ 假
信息框 (“验证成功”, 0, , )
载入 (窗口2, , 真)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 取QQ号, 文本型<br /> .程序集变量 取skey, 文本型<br /> .程序集变量 验证, 逻辑型<br /> .程序集变量 验证成功, 逻辑型<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> _启动窗口.可视 ＝ 假<br /> 验证 ＝ 真<br /> <br /> .子程序 _超文本浏览框1_载入完毕<br /> <br /> .判断开始 (验证成功 ≠ 真)<br /> <br /> <br /> .判断开始 (寻找文本 (网页_取Cookie (“<a href="http://www.qun.qzone.qq.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.qun.qzone.qq.com</a>”), “skey=”, , 假) ≠ -1)<br /> <br /> .判断开始 (验证 ＝ 真)<br /> 启动线程 (&取资料, , )<br /> .默认<br /> <br /> .判断结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> <br /> <br /> .子程序 G_TK, 文本型<br /> .参数 skey, 文本型, , cookies返回值<br /> .局部变量 hash, 整数型<br /> .局部变量 o, 整数型<br /> .局部变量 ske, 文本型<br /> <br /> hash ＝ 5381<br /> ske ＝ 文本_取出中间文本 (skey, “skey=”, “;”)<br /> .如果真 (ske ＝ “”)<br /> ske ＝ skey<br /> .如果真结束<br /> .计次循环首 (取文本长度 (ske), o)<br /> hash ＝ hash ＋ 左移 (hash, 5) ＋ 取代码 (ske, o)<br /> <br /> <br /> .计次循环尾 ()<br /> hash ＝ 位与 (hash, 2147483647)<br /> 返回 (到文本 (hash))<br /> <br /> .子程序 qq群验证, 逻辑型<br /> .参数 skey, 文本型<br /> .参数 验证QQ群, 文本型<br /> .局部变量 返回信息, 文本型<br /> <br /> <br /> <br /> 返回信息 ＝ 到文本 (网页_访问 (“' <a href="http://qun.qzone.qq.com/cgi-bin/get_group_list?groupcount=4&count=4&callbackFun=_GetGroupPortal&uin=" rel="nofollow" rel="nofollow" target="_blank">http://qun.qzone.qq.com/cgi-bin/ ... roupPortal&uin=</a>” ＋ 取QQ号 ＋ “&g_tk=” ＋ G_TK (skey) ＋ “&ua=Mozilla%2F4.0%20(compatible%3B%20MSIE%208.0%3B%20Windows%20NT%205.1%3B%20Trident%2F4.0%3B%20.NET%20CLR%202.0.50727)”, , ))<br /> 返回信息 ＝ 编码_URL解码 (返回信息, 真)<br /> 调试输出 (返回信息)<br /> .判断开始 (寻找文本 (返回信息, 验证QQ群, , 假) ≠ -1)<br /> 返回 (真)<br /> .默认<br /> 返回信息 ＝ “”<br /> 返回 (假)<br /> .判断结束<br /> <br /> <br /> .子程序 取资料<br /> <br /> 验证 ＝ 假<br /> <br /> 取QQ号 ＝ 到文本 (网页_访问 (“<a href="http://qun.qzone.qq.com/group" rel="nofollow" rel="nofollow" target="_blank">http://qun.qzone.qq.com/group</a>”))<br /> 取QQ号 ＝ 文本_取出中间文本 (取QQ号, “g_iLoginUin = ”, “;”, )<br /> 取skey ＝ 文本_取出中间文本 (网页_取Cookie (“<a href="http://www.qun.qzone.qq.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.qun.qzone.qq.com</a>”), “; skey=”, “;”)<br /> 调试输出 (网页_取Cookie (“<a href="http://www.qun.qzone.qq.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.qun.qzone.qq.com</a>”))<br /> .如果 (取skey ＝ “”)<br /> 取skey ＝ 文本_取右边 (网页_取Cookie (“<a href="http://www.qun.qzone.qq.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.qun.qzone.qq.com</a>”), “; skey=”)<br /> .否则<br /> <br /> .如果结束<br /> <br /> .判断开始 (qq群验证 (取skey, “347017096”) ＝ 真)<br /> 验证成功 ＝ 真<br /> 启动线程 (&开始运行, , )<br /> .默认<br /> 信息框 (“验证失败”, 0, )<br /> .判断结束<br /> <br /> 验证 ＝ 真<br /> <br /> <br /> .子程序 开始运行<br /> <br /> 可视 ＝ 假<br /> 信息框 (“验证成功”, 0, , )<br /> 载入 (窗口2, , 真)

Able软件

载入 (窗口2, _启动窗口, 假)这样子写

zzc1314

Able软件 发表于 2016-3-29 19:27
载入 (窗口2, _启动窗口, 假)这样子写

我去试试，看看能不能

zzc1314

Able软件 发表于 2016-3-29 19:27
载入 (窗口2, _启动窗口, 假)这样子写

不行啊！验证成功后没有弹出窗口2，而是窗口2隐藏了啊

补充内容 (2016-3-29 19:32):
如果把 假 改为 真 的话，过几秒程序还是自动关闭了啊

Able软件

zzc1314 发表于 2016-3-29 19:30
不行啊！验证成功后没有弹出窗口2，而是窗口2隐藏了啊

载入 (窗口1, , 假)这样子也是可以的
因为你_启动窗口隐藏了

zzc1314

Able软件 发表于 2016-3-29 19:32
载入 (窗口1, , 假)这样子也是可以的
因为你_启动窗口隐藏了

还是不行啊！过几秒程序还是自动关闭了啊

Able软件

zzc1314 发表于 2016-3-29 19:35
还是不行啊！过几秒程序还是自动关闭了啊

启动线程 (&开始运行, , )
这边你就不要用线程了
直接
开始运行（）
就可以啦

zzc1314

Able软件 发表于 2016-3-29 19:36
启动线程 (&开始运行, , )
这边你就不要用线程了
直接

还是不行啊！还是过几秒程序自动结束

Able软件

你把源码打包上来吧，我帮你调试下