| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 上传数据 | 逻辑型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 关键词 | 文本型 | 引擎 | 文本型 | 排名 | 文本型 | ||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 源码 | 文本型 | |||||
| url | 文本型 | |||||
| http | _WinHttp | |||||
| Body | 文本型 | |||||
url ＝ “这是提交地址，隐藏了”
http.Open (“POST”, url, )
Body ＝ “keyword=” ＋ 到文本 (编码转换 (到字节集 (关键词), #编码_GB2312, #编码_UTF_8, )) ＋ “&user_id=” ＋ 全_用户ID ＋ “&type=” ＋ 引擎 ＋ “&paiming=” ＋ 到文本 (编码转换 (到字节集 (排名), #编码_GB2312, #编码_UTF_8, ))
http.Send (Body, )
源码 ＝ http.GetResponseTextUtf8 ()
’我用精易模块的网页访问对象，有时跑几百条，有时几千条就出现“程序停止运行”，点击程序就没了
' 网页_访问_对象 (, , , , , , , , , , , , , , , )
如果 (源码 ＝ “success”) ' 上传成功
返回 (真)
返回 (假)| i支持库列表 | 支持库注释 |
| iconv | 编码转换支持库 |
我自己两套程序都用精易模块的网页访问S,对象等等。两套都出现运行一段时间，偶尔来个“程序停止运行”。多线程，单线程都遇到过。