好友
阅读权限10
听众
最后登录1970-1-1
|
备注：您的电脑只有先安装易语言免费版编程软件才可以正常打开.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)
|
|
[复制链接]
发表于 2012-7-11 09:12
