易语言写空间一键浇花施肥工具

1005398026 · 发表于 2012-7-11 09:12

备注：您的电脑只有先安装易语言免费版编程软件才可以正常打开.e后缀的源码文件哟！否则是无法正常打开的。如程序没有自动关联所附带的彗星HTTP应用模块，请在“程序”里的模块引用表双击手动添加。
部分程序代码如下：
.版本 2
.支持库 HtmlView
.程序集窗口程序集1
.子程序 _按钮1_被单击, , , 菲菲博客
.局部变量 love, 文本型, , , 爱心值
.局部变量 rain, 文本型, , , 雨露值
.局部变量 sun, 文本型, , , 阳光值
.局部变量 nutri, 文本型, , , 营养值
.如果真 (编辑框1.内容 ≠ “”)
love ＝ “uin=” ＋编辑框1.内容＋ “&act=love”
彗星HTTP读文本 (“http://flower.qzone.qq.com/fcg-bin/cgi_plant”, “POST”, , , love, )
' 发送增加爱心值请求
rain ＝ “uin=” ＋编辑框1.内容＋ “&act=rain”
彗星HTTP读文本 (“http://flower.qzone.qq.com/fcg-bin/cgi_plant”, “POST”, , , rain, )
' 发送增加雨露值请求
sun ＝ “uin=” ＋编辑框1.内容＋ “&act=sun”
彗星HTTP读文本 (“http://flower.qzone.qq.com/fcg-bin/cgi_plant”, “POST”, , , sun, )
' 发送增加阳光值请求
nutri ＝ “uin=” ＋编辑框1.内容＋ “&act=nutri”
彗星HTTP读文本 (“http://flower.qzone.qq.com/fcg-bin/cgi_plant”, “POST”, , , nutri, )
' 发送增加营养值请求
信息框 (“您的浇花操作已经完成！”, 64, “菲菲博客提示”)
返回 ()
.如果真结束
信息框 (“QQ号码不可以为空哦！”, 16, “菲菲博客提示您”)

一键浇花施肥工具.rar (14.41 KB, 下载次数: 28)

彗星HTTP应用模块.rar (5 KB, 下载次数: 4)

Demo · 发表于 2012-7-11 09:33

谢谢楼主的源码

qq823333727 · 发表于 2012-7-11 10:32

自己时间下·················

好名字被猪取了 · 发表于 2012-10-9 15:05

好，支持啊

帐号		自动登录	找回密码
密码			注册[Register]

[易语言 转载] 易语言写空间一键浇花施肥工具

[易语言转载] 易语言写空间一键浇花施肥工具