你的位置：
QQ华夏后台种植自己用的源码
11:47:48 |
来源: 按键精灵资源站
本帖最后由 袋/抱拳子 于
11:54 编辑
谢谢大漠老师，谢谢361老师{:5_151:}
我的电脑是单核1。86GCPU，能完美运行，每次可收228，一直是自己用，别人用不用的了，就看你们的了
sTime = Plugin.Sys.GetTime()
Call Plugin.Sys.SetSc() //这句是设置屏幕分辨率()/颜色质量(32位)
Set dm = createobject(&dm.dmsoft&)
PutAttachment &F:\新建文件夹\3.1221&,&*.txt&
dm_ret = dm.SetPath(&F:\新建文件夹\3.1221&)
dm_ret = dm.SetDict(0, &dm_soft.txt&)
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, &gdi&, &dx&, &dx&, 0)
If dm_ret = 1 Then
& & Call Plugin.bgkms6_10.FakeWindowState(hwnd, 1)//没有这行，不能后台。。谢谢361大大的无私奉献
& & Call Plugin.Msg.Tips(&绑定成功&)
& & Goto 绑定
X = 0 : Y = 0 : a = 0 : c = 0 : jj = 0
dm.KeyDown 17
dm.keypress 90
dm.keyup 17
s = dm.Ocr(100, 568, 126, 598, &00ffff-000000&, 1.0)
If s & 0 Then
& & Goto kaiaa
Rem 种下一个
dm.KeyPress 50//种子放在2键，，懒的搞了，想搞好点自己改
For b = 1 To 10
& & dm_ret = dm.FindColor(270,148,530,364, &000&, 1.0, 0, intX2, intY2)//找血条的，记得把自己的血条关了，找个没人的角落数种子去嘿嘿
& & Delay 30
& & If dm_ret = 1 Then
& && &&&b = 10
& && &&&b = b + 1
& & End If
If intX2 &= 0 and intY2 &= 0 Then
& & dm.moveto intX2 + 22, intY2 + 61
& & Delay 10
& & dm.RightClick
& & Delay 10
& & For b = 1 To 12
& && &&&Delay 20
& && &&&dm_ret = dm.FindPic(51,163,794,489, &种地.bmp&, &000&, 0.9, 3, X, Y)
& && &&&Delay 20
& && &&&If dm_ret = 0 Then
& && && && &b = 12
& && &&&Else
& && && && &b = b + 1
& && &&&End If
& & If X &= 0 and Y &= 0 Then
& && &&&dm_ret0 = dm.CmpColor(X + 47, Y - 92, &a5ff00&, 1.0)
& && &&&Delay 10
& && &&&dm_ret3 = dm.CmpColor(X + 47, Y - 157, &ff0000&, 1.0)
& && &&&Delay 10
& && &&&dm_ret4 = dm.CmpColor(X + 47, Y - 125, &ff0000&, 1.0)
& && &&&Delay 10
& && &&&dm_ret5 = dm.CmpColor(X + 47, Y - 157, &ffff00&, 1.0)
& && &&&Delay 10
& && &&&dm_ret6 = dm.CmpColor(X + 47, Y - 125, &ffff00&, 1.0)
& && &&&Delay 10
& && &&&dm_ret1 = dm.CmpColor(X + 102, Y - 156, &a5ff00&, 1.0)
& && &&&Delay 10
& && &&&dm_ret2 = dm.CmpColor(X + 102, Y - 124, &a5ff00&, 1.0)
& && &&&Delay 10
& && &&&If dm_ret0 = 1 Then
& && && && &dm.moveto X + 97, Y - 39
& && && && &Delay 20
& && && && &dm.leftclick
& && && && &Goto 开始
& && &&&ElseIf dm_ret3 = 0 Then
& && && && &dm.moveto X + 11, Y - 40
& && && && &Delay 20
& && && && &dm.leftclick
& && && && &Goto 开始
& && &&&ElseIf dm_ret4 = 0 Then
& && && && &dm.moveto X + 53, Y - 39
& && && && &Delay 20
& && && && &dm.leftclick
& && && && &Goto 开始& && &&&
& && &&&ElseIf dm_ret5 = 0 Then
& && && && &dm.moveto X + 11, Y - 40
& && && && &Delay 20
& && && && &dm.leftclick
& && && && &Goto 开始& &
& && &&&ElseIf dm_ret6 = 0 Then
& && && && &dm.moveto X + 53, Y - 39
& && && && &Delay 20
& && && && &dm.leftclick
& && && && &Goto 开始&&
& && &&&ElseIf dm_ret1 = 1 Then
& && && && &dm.moveto X + 11, Y - 40
& && && && &Delay 20
& && && && &dm.leftclick
& && && && &Goto 开始
& && &&&ElseIf dm_ret2 = 1 Then
& && && && &dm.moveto X + 53, Y - 39
& && && && &Delay 20
& && && && &dm.leftclick
& && && && &Goto 开始
& && &&&End If
& && &&&Goto 开始
& && &&&Delay 200
& && &&&b = 0
& && &&&For b = 1 To 10
& && && && &dm_ret = dm.FindPic(33,139,790,370, &收割.bmp&, &000&, 0.9, 2, X1, Y1)
& && && && &Delay 40
& && && && &If dm_ret = 0 Then
& && && && && & b = 10
& && && && &Else
& && && && && & b = b + 1
& && && && &End If
& && &&&Next
& && &&&If X1 &= 0 and Y1 &= 0 Then
& && && && &dm.moveto X1 + 16, Y1 + 14
& && && && &dm.leftclick
& && && && &a = a + 1
& && && && &If a = 12 Then
& && && && && & Goto 结束
& && && && &End If
& && && && &Goto 开始
& && &&&End If
& && &&&Goto 开始
& & End If
//下面的是判断结束的，纠结了好久，还是不会，但马马虎虎可行了
& & Delay 500
& & jj = jj + 1
& & If jj &= 20 Then
& && &&&Goto 结束
& & End If& &
& & sTime3 = Plugin.Sys.GetTime()
& & Delay 200
& & dd = sTime3 - sTime
& & dd = int(dd / 1000 / 60)
& & If dd &= 15 Then
& && &&&Goto 结束
& & End If
& & Rem kaia
& & Delay 100
& & sb = dm.Ocr(100, 568, 126, 598, &00ffff-000000&, 1.0)
& & Delay 200
& & If sb & 0 Then
& && &&&Goto kaia
& && &&&hg = s - sb
& && &&&If hg = 0 and hg = 12 Then
& && && && &Goto 结束
& && &&&End If
& & End If
& & Goto 种下一个
dm_ret = dm.UnBindWindow()
sTime1 = Plugin.Sys.GetTime()
s = sTime1 - sTime
xs = int(s / 1000 / 60 / 60)
fz = int(s / 1000 / 60) - xs * 60
m = Clng(s / 1000) - fz * 60 - xs * 60 * 60
Msgbox &种植了& & hg & &个种子，收了& & a & &个农作物！！用时：& & xs & &小时& & fz & &分钟& & m & &秒&
//如果没有大漠~361度插件，这代码就废了！！！自己用的东东，不做任何解释，俺是新手，大虾别笑出芽后的种子为什么莫名奇妙死了？这些原因你注意过吗？
我的图书馆
出芽后的种子为什么莫名奇妙死了？这些原因你注意过吗？
弥敦道 来自塔莎园艺
00:00 04:05
BGM：洪卓立&- 弥敦道编者按最近有些花友反应前阵子播种的花种，好不容易出芽了，但是莫名奇妙又死了，播种是一个长期的过程，出芽、带苗、假植、定植……每一步都需要耐心细心，每一步都不可以掉以轻心，成功把一粒种子带大，花开似锦，这种喜悦感和自豪感是在花市上买一盆成品花所满足不了的。鲲鹏同学就自己播种、带苗的经验，给了新手花友一些建议，希望能对初次播种的花友们有所帮助。- 坐标：福建 泉州 -天凉好个秋，9~10月是播种草花的季节。秋播草花容易打顶成球，并且开花质量相比春播来的高，所以大多数花友选择秋播。那么我们该如何播种呢？&你需要准备的材料有：育苗工具、泥炭、种子、喷壶。&育苗工具我推荐使用72目的育苗盘，个人经验总结适合于草花播种。泥炭的话选择播种泥炭，千万不要贪图便宜用营养土或者田园土播种。种子可是不便宜的呦，用泥炭播种的出芽率和生长情况可是最好的。种子建议选择到正规种子店购买F1代种子即杂交种子，而非自收的F2代种子。为何？F1代种子具有良好的品种特性，比如丰花性、抗病性。而F2代种子可能会出现退化。种子尚未出芽或者刚刚萌发，用水壶浇水容易把种子冲走或者苗冲倒，所以要准备喷壶。- 播种步骤 -1.泥炭先用水拌湿，播种泥炭吸水性不强，不先伴湿，后面很难浇透水。2.填入穴盘内，用手抚平泥炭。避免种子浇水后飘走。3.放入种子，丸化种子无需覆土，大粒种子需要覆盖土壤。?丸化种子 不覆土?大粒种子 覆土4.放置在无日照处，如果是露台可以拉上遮阳网。5.每天早晚用喷壶喷水，保持泥炭湿润，一般在7-10天就会出芽。个别品种3-5天就出芽。请耐心等待～播种下去后并不意味着可以高枕无忧了，播种仅是开始，播种下去后有个别花友可能会发现出芽率比较低，影响出芽率的因素有以下几点：1.种子新鲜度。这个主要指的是种子的采收时间和储存环境，我们需要知道种子越新鲜它的发芽率越高。在低温（5℃左右）干燥环境可以储存种子1-2年保证它的发芽率不至于过低。放置过久的种子或者储存条件不正确都可能导致出芽率低。所以当年购买的种子最好于当年种下，尽量不要搁放到第二年再播种。2.温度。秋播草花需要温度稳定在20-25左右开始播种，如果过高或过低都很可能导致不出芽。所以我们每年会选择在9-10月间播种，各地根据当地的天气情况酌情提前或推迟。3. 播种操作不当。这个包括播种的容器选择、土壤的选择、播种时的覆土与否、覆土深度、水分管理等多方面。a.播种容器选择。前文有推荐过使用72目的育苗盘，给每一粒种子独立的生长空间，不过因为空间过大而难控制水分，也不会因为空间过小而影响生长。b.土壤选择。选择育苗泥炭，而不是直接用院子里挖的土。c.覆土与否、覆土深度。这个是种子萌发对光照的敏感度，一般情况下大粒种子厌光，需要覆盖2cm蛭石，细小的种子和丸化种子喜光，不能覆土。&4.水分管理。种子发芽需要水分，如果水分不足自然也不会出芽了。刚刚播种为了避免被水冲出来，需要用喷壶喷水，早晚各一次。- 带苗 -出芽之后小心翼翼的照顾着，每年还是有很多的花友照顾死，到底是溺爱了还是当了后妈？正确打开方式到底是个啥？&1.日照。是的，日照是大多数人带苗失败的原因。草花一般是喜阳性强的植物，但是刚刚发芽的幼苗稚嫩，不能猛然接受强日照。这时候正确做法应该是拉上一层遮阳网，放置在遮阳网下接受全日照 。在遮阳网“庇护”生长下一周后可去除遮阳网接受日照。循序渐进才是王道。如果日照不足，则会引起徒长。徒长的苗瘦弱不堪，输在了起跑线还想种成你所喜欢的样子，可能吗？不存在的。2.水分。植物的生长离不开水，缺水则会萎靡死亡，过多则会涝害烂根。前文我提到要使用72目穴盘的意义就在于此，不大不小刚刚好。秋播在露台需要早晚浇水一次，阳台族早上浇一次就好。&3.病虫害。在草花上，常见的病害有白粉病、猝倒病。常见的虫害有红蜘蛛、蚜虫、菜青虫、尖眼蕈蚊（俗称小黑飞）。得了病虫害，轻则长势衰弱重则一命呜呼，应当防范于未然，在穴盘附近挂置粘虫黄板可以减少虫害的发生，平时多观察苗，有不对劲的时候就需要留心。我们可通过喷施药物对病虫害进行防治，病害可用一千二百倍多菌灵溶液喷施，虫害可用一百倍护花神喷施。4.施肥。苗期存在一个营养临界期，这时候苗对肥料的需求虽然少但是十分急迫，这时候就需要施肥。但是施肥没错，问题在于很多人用大苗的浓度给小苗用，结果肥伤死亡了。我在苗期（有两片真叶时）使用的是缓释肥，安全可靠，每个穴盘丢三粒进去。&5.通风。通风做好，病虫害少、不易烂根、生长健康。什么样的才叫通风好呢？能够明显感觉到有风吹过是最好的。一般露台的通风是最好的，不需要考虑通风。阳台族可以把育苗穴盘周边10cm腾空，留出空位或者放置小风扇通风。&6.温度。秋老虎的到来可能让你秋播前功尽弃，忽然的回温让秋播草花因为不耐热而死亡。在播种的时候要确定降温是否稳定，如果秋老虎来了立马把苗搬进遮阴处。超过30℃就需要进空调房了。- 假植 -&假植的意义很重要，正所谓根正苗红，根系强大的苗才具备强有力的潜质。那么假植是什么？指的是穴盘的苗长到一定程度（根从穴盘底冒出来、苗叶子3-4片），将其移栽到10cm花盆内。10cm花盆并不是很大，在浇水上面好掌握不会出现久浇不干，干湿循环好，苗的根系才能长好。假植的时候需小心，首先将苗连带着土团从穴盘内取出，不能伤害幼苗的根系，基质采用泥炭珍珠岩=3:1，基质:鸡粪=15:1，混合均匀，种好苗后浇一次透水，放置在阴凉处两天在移出去接受全日照，这时候可以开始打顶了，施肥也可以使用速效水溶肥（例如花多多1号）。- 定植 -&定植的话小苗标准根系长出假植花盆，冠幅超过假植盆。定植花盆我选择在18-25cm之间，种植基质泥炭:椰糠:珍珠岩=3:1:1，基质:鸡粪:骨粉 10:1:1。这个时期需要使用高氮肥（比如花多多），让它快速生长，枝繁叶茂。适当打顶直到出现花蕾，改为高磷肥（比如磷酸二氢钾）。秋播已经开始，不要错过秋播之际，现在播下种子来年收获的是满园春色。图文：鲲鹏编辑：荼蘼- 再推荐你们几篇好文章 -点击下方文字即可阅读
馆藏&15096
TA的最新馆藏[转]&[转]&[转]&[转]&
喜欢该文的人也喜欢为什么我的qq华夏25级后在线24小时了都没有点亮图标
为什么我的qq华夏25级后在线24小时了都没有点亮图标
09-01-10 &匿名提问
恩``不用``自动点亮的``
请登录后再发表评论!
〖  华夏的点亮方法 〗 ：〖 三步可轻松获赠点亮“ 华夏图标” 〖1} 下载 华夏游戏客户端；〖2}  直接登陆 华夏；〖3} 游戏角色达到25级后。过24小时， 华夏图标可亮；〖 提示：您的 版本需要为 20072007BETA4以上版本。 〖 现在还处于系统测试阶段 点亮的时间先后有差别 请耐心等待。
请登录后再发表评论!
〖  华夏的点亮方法 〗 ：〖 三步可轻松获赠点亮“ 华夏图标” 〖1} 下载 华夏游戏客户端；〖2}  直接登陆 华夏；〖3} 游戏角色达到25级后。过24小时， 华夏图标可亮；〖 提示：您的 版本需要为 20072007BETA4以上版本。 〖 现在还处于系统测试阶段 点亮的时间先后有差别 请耐心等待。
请登录后再发表评论!
1《穿火线》! 4月28：点亮方法改了：进入游戏后打游戏获得9点荣誉值即可点亮图标(级别下士)。关于荣誉值和经验兑换的规则去官网查询。2《QQ音速》! 现在改成要5个种子才可以点亮了。一个月不上又会再次熄灭3《QQ幻想》! 游戏到了10级即可点亮4《QQ自由幻想》! 到10后去龙城转职就可以点亮了 5《QQ飞车》!达到12级和积累1800酷币都很容易，只需要正常游戏，就可以获得经验值和酷币，6《QQ3国 》! 师傅和徒弟都到20后。48小时会亮图标QQ三国：三国点亮图标的条件 （1）自己先升到20级以上 ，（2）收个15级以下的徒弟带到20级 ，（3）徒弟升20的时候你必须得在线 (此点很重要).个人建议徒弟快20的时候最好组队在一起 7《QQ华夏》! （QQ华夏1）25后的24小时会亮图标。1 QQ 华夏 游戏 角色 必须 达到25级以后，2 QQ 版本 必须是 最新 版本 ，只有 最新 版本 方可 显示 QQ 华夏，3 当华夏游戏角色达到25级的时候必须在线24小时方可点亮(如果华夏点不亮 建议你去玩华夏2)（QQ华夏2） 1华夏游戏角色同样需要达到8级以上2 QQ版本必须是最新版本才能显示华夏图标3当华夏游戏角色达到8级的时候还需要在线24小时8《QQ飞行岛》! 到18级到官网手动点亮游戏角色达到18级以后，请到官网(手动)点亮您的『QQ飞行岛』图标，点亮后14天不进入游戏，图标就会熄灭，若再想点亮，就得进入游戏，然后在次日到官网上(手动)复活熄灭的图标 9《QQ堂》! 游戏到500积分就可以点亮了10《QQ对战平台》! 这个图标没人点亮过。暂时还不能点亮（现在很多人都说看到过，那只有两中可能：用PS改过的和那是平台的内侧人员）11《Q歌Q魅》! 暂时还不能点亮在刚出这个图标的时候可以免费点亮，现在由于用户过多，暂停此业务点亮（免费，现不可点亮） 12《QQ炫舞》你首先要升级到10级，在到官方点亮。接着检查下你的QQ版本是否是最新的2008beta1以上喔，这样才可以看到点亮的图13《QQ空间》! 点击自己的QQ空间图标进入注册。注册完成就可以点亮了14《QQ播克》!1、首先登录QQ播客 2、进入QQ播客后，点击首页顶部菜单的“设置”进入自己的设置页面进行设置 3、在“修改我的设置”里面点击“点亮播客图标”的按钮即可 15《QQ家园》! 进家园后右边有免费的东西。随便装个保存。等系统帮你刷新就行（可能要1天）16《QQ邮箱》! 点QQ邮箱图标进入网站后,点上面的设置,然后拉到最下面钩上(在QQ中点亮邮箱图标)17《摄像头》! 只要电脑上配有视频摄像头头的话就可以，如果没有，可以去网站搜索下虚拟摄像头下载也能点亮（免费，可亮） 18《QQ3D绣》! 去3D网站上登陆,在右上边的地方找到动作馆.随便选个！保存，免费的那里的东西！就可以亮了！19《QQ宠物》! 去宠物社区领一个就亮了， 砸蛋成功可亮，让朋友送一只也亮（5元，可亮） 20《QQ交友中心》! 点自己的交友中心图标进入注册就亮了。金色的是要钱的。是高级用户21《QQ相册》! 进空间新建一相册。并传统一图片进去就点亮了22《QQTALK》! QQTalk 现在只需要登陆一下就可以了(可亮) 23《 Q吧 》 、新规则马上点亮：一.登陆Q吧--到首页左上角《我的社区档案》点进去--按“点亮图标”就马上点亮了。 24《QQ书签》! 公开收集10个书签了就可以点亮了25《QQ旋风》! 1.只需500积分可以点亮超级旋风.26《QQLIVE》! 用自己的QQ号挂90小时即可27《 滔滔 》 （1）活跃天要15天。有叨客*** 。（2）要邀请5个好友加入才可以点亮登录滔滔，如果1周内不发表唠叨（通过任何渠道发布均可，不一定是手机短信），则自动熄灭QQ滔滔图标。再次点亮QQ滔滔图标，需要先取消手机关联后再重新关联一次 28《财富通》! 注册后冲入1分钱。或者交易成功一次后即可点亮29《问问 》 第一步：先把QQ资料里的那个问号点开（就是把你的鼠标指向你自己的头像，然后找到那个问号点一下） 第二步：点一下之后你会进入官方网站，然后提个问题等待回答（很短时间哦 ），等***出来会通知你的 第三步：然后选一个你满意的***给出评分等级。再点确定即可点亮30《拍拍 》 注册后点我要认证，。认证完了即可点亮（***验证，银行卡验证都可以）（红拍）去申请一个店铺就可以亮起，（蓝色）的图标是去拍拍上购物的买家（免费，可亮） 31《手机QQ》! 用手机QQ软件登陆QQ即可（去手机腾讯网下载） 只要使用手机登录QQ2007 BATE 1以一版本在上面发了条消息给好友,然后退出时不是按挂***键强行退出而是一步一步地选择注销再退出就可以了。 32《手机腾讯网》! 手机登陆手机腾讯网即可。33《手机绑定》! 用手机绑定成功后即可点亮图标。点银色手机图表进入绑定34《短信超人》! 12元/月 点自己的图标进入开通35《超级.飞信QQ》! 超级QQ 10元/月 飞信QQ 5元/月 点图标进入开通（它们公用一图标的）36《QQ移动》：只要有手机就可以点亮（每月5元，可亮）37《会员》! 点自己会员图标进入开通 10元/月38《旋铃》! 开了员后对好友设置成功后即可点亮只要是会员， 给好友设置一下上线，信息和下线铃声就会自动亮起（QQ会员前提下，QQ会员10元每月，可亮） 39《音信》! 使用过多次或1次音信业务的用户，找到1位已经点亮音信图标的用户，让他/她给你赠送1颗图标 ，获赠图标后，你的音信图标将自动点亮 ，QQ音信图标是有有效期的，有效期是2个月。每使用1次QQ音信业务，图标有效期将延长至2个月。如果忘记使用熄灭了， 使用一次QQ音信就可以再次点亮了。 QQ会员特权：QQ会员只要使用过QQ音信业务，用QQ号码登录“音信图标”页面后，无需其他用户赠送图标，即可自行点亮音信图标 40《书》! QQ会员可免费点亮图书图标,非会员QQ，得成为图书VIP会员，5QB/月即可开通,经过调整，现在腾讯书是5元/月。付费即可点亮41《QQ音乐》：听歌的网站，成为这个听歌的网站会员才能点亮（每月10元，可亮） 42《红钻 》! 红钻用户（10）元每月!点自己的红钻图标进入开通43《黄钻 》! 黄钻用户（10）元每月!点自己的黄钻图标进入开通44《蓝钻 》! 蓝钻用户（10）元每月!点自己的蓝钻图标进入开通45《绿钻 》! 绿钻用户（10）元每月!点自己的绿钻图标进入开通46《紫钻 》! 紫钻用户（10）元每月!点自己的紫钻图标进入开通47《粉钻 》! 粉钻用户（10）元每月!点自己的粉钻图标进入开通48《黑钻 》! 黑钻用户（20）元每月!点自己的黑钻图标进入开通49《QQ火炬点亮》 ①.接受QQ好友邀请，参加火炬在线传递，获得一个未点亮的图标。 ②.邀请1个QQ好友参加火炬在线传递，选择你的宣言，送出邀请。 ③.成功邀请，图标被点亮成为火炬在线传递大使~祝你成功,早日为奥运加油! 50《地下城与勇士》! 到18级然后去官网手动点亮。51《QQ爱墙》! 购买爱墙字条背景，成功发表1张爱墙字条。并获得一点亮用户送的图标即可点亮52《寻仙!》 寻仙官方网站： 暂时不可以点亮53《WAP用户》 !wapqq图标点亮方法是移动用户有两种途径：1.发送172，收到免费短信后点击地址直接进入WAPQQ；2.进入移动梦网-&交友-&QQ聊天（建议将QQ聊天设置书签，方便下次使用） 54《CF VIP》详情见官网。和CF差不多。绑定了区了。获得30荣誉点即可点亮55《QQ校友》! 班级绑定QQ群后，群内成员加入班级数量达到10人后，全群用户点亮图标。 56 《QQ熊》现在可以点亮，但是有限的，而且现在QQ熊没有单独图 表! 57 《QQ坦克》:公测中58《QQ日历》图标需要挂100小时!就可以点亮了! （免费，可亮）
请登录后再发表评论!
不能拉，必须达到25级 以后才能亮，
请登录后再发表评论!