谁教我做易语言快速充值Q币的软件！！

囧艹 · 发表于 2012-4-1 18:30:15

谁肯教我做易语言的快速充值Q币的软件？最好是用源码。

女友和Dota · 发表于 2012-4-1 18:30:16

LZ 加我QQ634322272 我发给你

C。 · 发表于 2012-4-1 18:31:50

可以仿POST，借助网页

q1029367878 · 发表于 2012-4-1 18:32:05

哪种QQ卡。。

囧艹 · 发表于 2012-4-1 21:08:51

q1029367878 发表于 2012-4-1 18:32
哪种QQ卡。。

就是30元的QQ卡
。

囧艹 · 发表于 2012-4-1 21:09:15

q1029367878 发表于 2012-4-1 18:32
哪种QQ卡。。

就是30元的QQ卡。

秦阿榛 · 发表于 2012-4-1 21:30:17

试试看 post截包

q1029367878 · 发表于 2012-4-1 22:18:36

囧艹发表于 2012-4-1 21:09
就是30元的QQ卡。

我是说TX的还是一卡通的。。

囧艹 · 发表于 2012-4-1 22:25:20

q1029367878 发表于 2012-4-1 22:18
我是说TX的还是一卡通的。。

TX的充值卡

坑爹人生 · 发表于 2012-4-2 00:08:10

利用超文本浏览不就行了！[e].版本 2
.支持库 eCompress
.支持库 iext

.判断循环首 (尾记录后 () ＝假)
检验＝取字节集数据 (读入文件 (取运行目录 () ＋ “\” ＋读 (2) ＋ “.jsp”), #文本型)
.如果真 (寻找文本 (检验, “找不到文件<br>”, , 真) ＝ -1)

      列表文件名＝子文本替换 (读 (2), “/”, “\”, , , 真)
      ' 信息框 (取运行目录 () ＋ “\” ＋列表文件名＋ “.jsp” ＋ “!!!!!!” ＋取运行目录 () ＋ “\” ＋列表文件名, 0, )
      .如果真 (复制文件 (取运行目录 () ＋ “\” ＋列表文件名＋ “.jsp”, 取运行目录 () ＋ “\” ＋列表文件名) ＝真)  ' 用下载的文件覆盖本地文件

         标签9.标题＝标签9.标题＋选择 (寻找文本 (列表文件名, “\”, , 真) ＝ -1, 取运行目录 () ＋ “\”, 取运行目录 () ＋ “\” ＋取文本左边 (列表文件名, 寻找文本 (列表文件名, “\”, , 真))) ＋ #换行符

         .如果真 (到小写 (取文本右边 (取运行目录 () ＋ “\” ＋列表文件名, 4)) ＝ “.zip”)
            ' 信息框 (选择 (寻找文本 (列表文件名, “\”, , 真) ＝ -1, 取运行目录 () ＋ “\”, 取运行目录 () ＋ “\” ＋取文本左边 (列表文件名, 寻找文本 (列表文件名, “\”, , 真))), 0, )

            .如果真 (ZIP压缩1.解压 (取运行目录 () ＋ “\” ＋列表文件名, 选择 (寻找文本 (列表文件名, “\”, , 真) ＝ -1, 取运行目录 () ＋ “\”, 取运行目录 () ＋ “\” ＋取文本左边 (列表文件名, 寻找文本 (列表文件名, “\”, , 真)))) ＝ 1)  ' 这里是解压缩ZIP文件.
                  展开ZIP文件数＝展开ZIP文件数＋ 1
                  ' 信息框 (取运行目录 () ＋ “\” ＋列表文件名, 0, )
                  删除文件 (取运行目录 () ＋ “\” ＋列表文件名)
            .如果真结束

         .如果真结束

         .如果真 (读 (3) ＝真且到大写 (取文本右边 (取运行目录 () ＋ “\” ＋列表文件名, 4)) ＝ “.EXE”)  ' 数据库标记3为是否是自动运行的.EXE文件,如果是的就自动运行!
            ' 信息框 (取运行目录 () ＋ “\” ＋列表文件名, 0, )
            ' 运行 (取运行目录 () ＋ “\” ＋列表文件名, 假, )
            .如果真 (运行 (取运行目录 () ＋ “\” ＋列表文件名, 假, ))  ' 这里是自动运行EXE安装升级包
                  自动EXE安装文件数＝自动EXE安装文件数＋ 1
                  ' 删除文件 (取运行目录 () ＋ “\” ＋列表文件名)
            .如果真结束

         .如果真结束

         文件＝文件＋ 1
      .如果真结束

.如果真结束
状态条1.置文本 (1, “正在更新文件 ” ＋读 (2))
跳过 ()
.判断循环尾 ()
[/e]

		自动登录	找回密码
密码			注册

[已解决] 谁教我做易语言快速充值Q币的软件！！

最佳答案