易语言充值代码

Question

怎么使用易语言在线充值啊。我的意思是自己做一个软件 在软件上面写上填写QQ卡号和卡密 点确定就充值了 不用去官网填表格 请高手赐教！！！

Answer 1

.版本 2
.支持库 spec
.支持库 internet.程序集 窗口程序集1
.程序集变量 POST地址, 文本型
.程序集变量 POST数据, 文本型
.程序集变量 返回文本, 文本型.子程序 _按钮1_被单击POST地址 ＝ “ http://pay.qq.com/cgi-bin/account/account_qqcard_save_qbqd.cgi”
POST数据 ＝ “QQNum=” ＋ 编辑框1.内容 ＋ “&ReQQNum=” ＋ 编辑框2.内容 ＋ “&CardNum=” ＋ 编辑框3.内容 ＋ “&cardid1=” ＋ 编辑框4.内容 ＋ “&cardid2=” ＋ 编辑框5.内容 ＋ “&cardid3=” ＋ 编辑框6.内容 ＋ “&CardPassword=” ＋ 编辑框4.内容 ＋ 编辑框5.内容 ＋ 编辑框6.内容 ＋ “&FuncType=QCardSaveQPoint&SaveType=1&VerifyCode=” ＋ 编辑框7.内容 ＋ “&func=QCardSaveQPoint”
返回文本 ＝ 到文本 (访问网页 (POST地址, “POST”, , , POST数据))
调试输出 (返回文本)
.子程序 __启动窗口_创建完毕图片框1.图片 ＝ HTTP读文件 (“ http://captcha.qq.com/getimage?aid=11000101&0.8525645521879359” ＋ 到文本 (取现行时间 ()))
.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型图片框1.图片 ＝ HTTP读文件 (“ http://captcha.qq.com/getimage?aid=11000101&0.8525645521879359” ＋ 到文本 (取现行时间 ()))加点分发到你邮箱

Answer 2

抓包，用程序提交，不过应该有很多协议

Answer 3

不嫌麻烦阿