.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 包id, 文本型 .子程序 _按钮3_被单击 .局部变量 url, 文本型 .局部变量 data, 文本型 .局部变量 str, 文本型 .局部变量 领包信息, 文本型 url ＝ “https://h5.ha.chinamobile.com/hnmccClientWap/HPHYJanuary06/submit.do” data ＝ 文本_取右边 (编辑框6.内容, “=”, , ) data ＝ “mobile=” ＋ 编辑框5.内容 ＋ “&red_id=” ＋ data str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 1, data, , , , )) 调试输出 (str) 领包信息 ＝ 文本_取出中间文本 (str, #信息, #引号) 编辑框3.内容 ＝ 删全部空 (编辑框3.内容) 编辑框3.内容 ＝ 领包信息 .子程序 _按钮4_被单击 编辑框5.内容 ＝ “” .子程序 _按钮5_被单击 编辑框6.内容 ＝ “” ' 复制 .子程序 _按钮6_被单击 置剪辑板文本 (编辑框6.内容) ' 粘贴 .子程序 _按钮7_被单击 编辑框6.内容 ＝ 取剪辑板文本 () .子程序 __启动窗口_创建完毕