.版本 2 .支持库 internet .支持库 iext .程序集 窗口程序集_启动窗口 .程序集变量 ID, 文本型 .子程序 _按钮1_被单击 .局部变量 str, 文本型, , , 返回数据 .局部变量 error, 文本型, , , 错误文本 .局部变量 X, 文本型 str ＝ 网页_访问S (“http://ptlogin.4399.com/ptlogin/login.do?v=1”, 1, “loginFrom=uframe&postLoginHandler=default&layoutSelfAdapting=true&externalLogin=qq&displayMode=popup&layout=vertical&appId=www_home&gameId=&css=&redirectUrl=&sessionId=” ＋ ID ＋ “&mainDivId=popup_login_div&includeFcmInfo=false&userNameLabel=4399%E7%94%A8%E6%88%B7%E5%90%8D&userNameTip=%E8%AF%B7%E8%BE%93%E5%85%A54399%E7%94%A8%E6%88%B7%E5%90%8D&welcomeTip=%E6%AC%A2%E8%BF%8E%E5%9B%9E%E5%88%B04399&username=” ＋ 编辑框1.内容 ＋ “&password=” ＋ 编辑框2.内容 ＋ “&inputCaptcha=” ＋ 编辑框3.内容, , , , , , , , , , , , , , , , , , ) error ＝ 文本_取出中间文本 (str, “window.parent.unionLoginProps.__errorCallback('”, “');”, , ) .如果 (error ＝ “”) .如果 (寻找文本 (str, #验证码, , 假) ≠ -1) X ＝ 编码_utf8到gb2312 (网页_访问S (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋ 编辑框1.内容 ＋ “&appId=www_home&t=1436538384466&inputWidth=iptw2&v=1”, , , , , , , , , , , , , , , , , , , , )) ID ＝ 文本_取出中间文本 (X, #代码_前, #代码_后, , ) 图片框1.图片 ＝ HTTP读文件 (“http://ptlogin.4399.com” ＋ 文本_取出中间文本 (X, #验证码_前, #验证码_后, , )) 透明标签4.标题 ＝ “请输入验证码” 编辑框3.内容 ＝ “” .否则 透明标签4.标题 ＝ “登录成功” ID ＝ “” 图片框1.图片 ＝ { } 编辑框3.内容 ＝ “” ' 载入 (主窗口, , 假) ' 销毁 () ' 返回 () .如果结束 .否则 .如果真 (error ＝ “验证码错误”) X ＝ 编码_utf8到gb2312 (网页_访问S (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋ 编辑框1.内容 ＋ “&appId=www_home&t=1436538384466&inputWidth=iptw2&v=1”, , , , , , , , , , , , , , , , , , , , )) ID ＝ 文本_取出中间文本 (X, #代码_前, #代码_后, , ) 图片框1.图片 ＝ HTTP读文件 (“http://ptlogin.4399.com” ＋ 文本_取出中间文本 (X, #验证码_前, #验证码_后, , )) 透明标签4.标题 ＝ “请输入验证码” 编辑框3.内容 ＝ “” 编辑框3.获取焦点 () .如果真结束 透明标签4.标题 ＝ error .如果结束 .子程序 _图片框1_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .局部变量 X, 文本型 X ＝ 编码_utf8到gb2312 (网页_访问S (“http://ptlogin.4399.com/ptlogin/verify.do?username=” ＋ 编辑框1.内容 ＋ “&appId=www_home&t=1436538384466&inputWidth=iptw2&v=1”, , , , , , , , , , , , , , , , , , , , )) ID ＝ 文本_取出中间文本 (X, #代码_前, #代码_后, , ) 图片框1.图片 ＝ HTTP读文件 (“http://ptlogin.4399.com” ＋ 文本_取出中间文本 (X, #验证码_前, #验证码_后, , ))