最后一次写关于凯旋辅助
考试的得与失演讲稿推荐7篇
考试的得与失演讲稿推荐7篇（经典版）编制人：__________________审核人：__________________审批人：__________________编制单位：__________________编制时间：____年____月____日序言下载提示：该文档是本店铺精心编制而成的，希望大家下载后，能够帮助大家解决实际问题。
文档下载后可定制修改，请根据实际需要进行调整和使用，谢谢!并且，本店铺为大家提供各种类型的经典范文，如工作总结、活动方案、致辞讲话、条据文书、合同协议、规章制度、思想汇报、教学资料、作文大全、其他范文等等，想了解不同范文格式和写法，敬请关注!Download tips: This document is carefully compiled by this editor. I hope that after you download it, it can help you solve practical problems. The document can be customized and modified after downloading, please adjust and use it according to actual needs, thank you!Moreover, our store provides various types of classic sample essays for everyone, such as work summaries, activity plans, speeches, documents, contracts and agreements, rules and regulations, thought reports, teaching materials, complete essays, and other sample essays. If you want to learn about different sample formats and writing methods, please pay attention!考试的得与失演讲稿推荐7篇演讲稿可以帮助我们在演讲中使用恰当的逻辑和论证，增加演讲的可信度，通过提前写好演讲稿，我们可以更好地选择和使用合适的视觉辅助工具，增加演讲的视觉效果和吸引力，本店铺今天就为您带来了考试的得与失演讲稿推荐7篇，相信一定会对你有所帮助。
小学生关于神舟十三号的作文【五篇】
【导语】神州十三号载人飞船的三位航天员将首次在轨驻留6个月，这也是中国女航天员首次进驻中国空间站。
神州十三号载人飞船的成功发射，让大家倍感自豪。
为大家提供《小学生关于神舟十三号的作文【五篇】》，欢迎阅读。
1.小学生关于神舟十三号的作文“飞天梦永不失重，科学梦张力无限。
”8年前，“太空教师”王亚平为全国6000多万名学生太空授课时的寄语尚萦绕在耳畔，如今她又一次踏上了太空之旅，将成为中国首位进驻空间站的女航天员，以及中国首位出舱女航天员。
寻声凝望，原本神秘遥远的深邃太空离我们越来越近，一个个美丽的“飞天梦”正成为现实。
16日凌晨，神舟十三号成功发射，此时距神舟十二号载人飞船成功返回不到一月时间。
由翟志刚、王亚平、叶光富组成的新“太空出差三人组”搭乘载人飞船奔赴中国空间站。
此次任务将实现与核心舱径向交会对接、由救援船转入正式任务船等多个“首次”，还将在神舟十二号任务的基础上开展更多的空间科学实验与技术试验。
“坐地日行八万里，巡天遥看一千河。
”2003年，神舟五号飞船搭载杨利伟在酒泉卫星发射中心发射，历时21小时23分钟成功返回地面，首次实现了中华民族的飞天梦。
18年来，7次载人飞行，间隔期从以年计算到以月相隔，“出差”的频率更快、衔接更顺畅，准备更从容，展现着我国科技自立自强的能力;太空之旅从“一日游”到“季度游”，再到此次半年的“深度游”，“太空出差”的时间更长，步伐迈得更大更远更坚定，彰显着大国自信的豪情。
2.小学生关于神舟十三号的作文神舟十三号载人飞船将于10月16日凌晨发射。
对此，中国外交部发言人赵立坚15日表示，不到一个月前，中国欢迎神舟十二号载人飞船胜利凯旋，16日凌晨，中国将再次怀着激动的心情目送神舟十三号飞向太空。
“这不仅生动诠释了特别能吃苦、特别能战斗、特别能攻关、特别能奉献的中国载人航天精神，也集中体现了中国人民对太空敢于追梦、勇于探索、永不止境的科学探索精神。
”在当天举行的外交部例行记者会上，赵立坚称，15日，神舟十三号载人飞行任务新闻发布会在酒泉卫星发射中心举行，中国载人航天工程新闻发言人介绍了相关情况，神舟13号载人飞行任务是中国空间站关键技术验证阶段，第6次飞行任务是该阶段的决胜之战、收官之战，也是空间站在轨建设过程中承前启后的关键之战。
跨越作文600字
跨越作文600字跨越作文600字四篇跨越作文600字篇1每一张脸写着一个梦想，每一盏灯，指引着前方，每一个家都有两个守护星，守护在我们的身旁――父母。
可是那现在的许多家庭中，我们和父母之间似乎总有堵墙，让我们总是会为一些无所谓的事情而争吵起来。
前段时间，我突然开始追星了，刚开始我只是听听歌，到后面我收集他的海报，整理东西。
有时忙到深夜，到了第二天，导致我上课老是钓鱼，老师看见我上课老是精力不集中，便打电话给父母，爸爸妈妈并没有说什么，妈妈只是提醒了我一下说：”并不要因为一些无关紧要的事情干扰到你的学习，没有下一次哦!“我心里有些愧疚，但还是有些生气，那些在你们眼里无关紧要，可对我不同啊!直到一次考试，我的成绩下滑的非常厉害，心情也跟着下滑。
回到家中就看见气氛不对，只看见爸爸妈妈坐在沙发上安静的不说一句话，我也知道是什么原因，但我轻轻地换了鞋之后，就是静回到了房间，看见一片狼藉，偶像的海报被撕烂了，写真也被撕开了。
我因为考试失落，再加上刚才看到的那一幕，便愤恨的说：”你们凭什么动我东西啊，你们很过分诶。
“话还没说完，妈妈便厉声的说：”动一动西怎么了啊?你整天弄那个东西，还学不学习了?在考试考了个几分啊?“我刚想反驳回去，爸爸提高分贝说能不能好好说话?一看平时疼我的爸爸也不帮我说话了，我就跟大声的说：”你们懂什么，什么都不懂，每天只知道叫我学习学习，我讨厌你们，我讨厌你们!“我立刻进房间，然后把门锁了。
到了半夜，我轻轻地推开门，却发现爸爸妈妈都坐在外面，我看见他们后又赶紧跑回去，却被妈妈叫叫住我说：”我们心平气和的谈一谈，好吗?“我别扭的走到他们面前，就像妈妈轻声说：”孩子妈妈先跟你道歉，妈妈今天太冲动，你不要放在心上。
“这时这时我的心一颤，一把抱住妈妈，哭的稀里哗啦的。
那一夜，似乎是一个神奇的夜晚，让我跨越了我与父母之间的那堵墙。
跨越作文600字篇2读了沈石溪写的《红豺》我只想说：如此凶悍的豺和狼都可以走到一起生活，我们这些有理性思考能力的人类，还有什么理由彼此仇恨呢？《红豺》这本书的主人公是母豺火烧云，它先后遭遇了家庭支离破碎，遭到猎人攻击等生活变故，而这些变故全都来自它最大的天敌――黑毛母狼。
《航天英雄凯旋》作文500字
《航天英雄凯旋》作文500字
2022年4月16日，这是让全国14亿人民一齐骄傲的日子，三位宇航员太空出差183天，顺利返回地球，神舟十三号载人飞船返回舱在东风着陆场成功着陆，载人飞行任务取得圆满成功，航天员翟志刚、王亚平、叶光富平安归来。
三名航天员状态良好！欢迎航天员回家，致敬所有为此付出的中国航天人！
神舟十三号首次实现快速返回，4月16日，神舟十三号首次采取快速返回的技术，从飞船撤离空间站到返回地面，原本应用28小时的路程，只用了9个多小时。
过去神舟飞船的标准返回流程是绕地球11圈后再入大气层，而神舟十三号只绕地球5圈后就再入大气层。
这一切都是因为我国的科技力量大大增强。
地面支持人员是航天员长期在轨生活的强大后盾，在神舟十三号6个月的驻留期间，地面支持人员一周7天，每天24小时在线，时刻关注着航天员们的动态，以便随时提供相应的支持和保障。
以曙光岗为代表的航天员中心飞控试验队, 在经历两个乘组的驻留后，已经成为了航天员长期在轨生活强大的后盾。
古往今来，无数文人墨客写下了对宇宙的浪漫想象，当
“宇宙之无穷”映入眼帘，当“手可摘星辰”不再夸张，当“大鹏一日同风起，扶摇而上九万里”成为现实，浩瀚宇宙见证着中国人的浪漫。
我们应该努力学习，为国家的科技研究出一份力，为国家做出应有贡献！。
写给航天员的一封信范文（通用9篇）
写给航天员的一封信写给航天员的一封信范文（通用9篇）在平平淡淡的日常中，大家都有写信的经历，对书信很是熟悉吧，书信可以传达自己的思想感情。
那么你有了解过书信吗？下面是小编整理的写给航天员的一封信范文（通用9篇），希望对大家有所帮助。
写给航天员的一封信篇1尊敬的刘洋阿姨：你好。
我是怀远路小学四年级一班的马芊芊，是一个即将上五年级的学生。
作为一名中国人，我真为您骄傲，为您自豪。
当你们飞向太空的那一刻，我是多么羡慕啊！我也多么想去遨游太空，看一看心目中所想象的太空人，看一看银河系里壮观的星系，从而探索太空的奥秘。
对了，我还想问问您，月球上真得有广寒宫吗？还有你们在失重的情况下，怎样喝水呢？睡在太空舱里舒服吗？脸上有没有长青春痘呀？嘿嘿，你们行走一定很困难吧。
刘洋阿姨，等你下次再去太空时，请把我最爱的小兔子也带上天吧！那样，你孤独寂寞时还可以和它说话，对了还有我的白白。
白白是一条可爱的狗狗，在你想家的时候，它会在你的腿上蹭来蹭去，逗你开心的！阿姨，我希望您还能登上2013年的“神十”，再为祖国创佳绩。
当2020年时，您一定会成为一名经验丰富的“老”航天人。
那时我会成为您的学生吧，和您一起去拥抱蓝天。
我多么盼望这一天呀！为了这个远大的理想，我从现在一定会好好学习，让我的航天梦成为现实。
此致敬礼xxx日期：写给航天员的一封信篇2杨利伟叔叔：您好！您最近身体好吗？您一定很忙吧？我是一个四年级的小学生。
我非常爱看课外书，也很喜欢看电视。
那时候，我常常在电视上看到您，看到您和“神舟五号”冲出了地球，看到了您在太空的一些情景，看到了您安全降落在草原上。
还看到您到香港访问。
我想告诉您，我最佩服的就是您了！我常常做梦都梦见您和我坐上“神舟五号”上太空去。
我在上图画课时，画的还是您坐着“神舟五号”飞上天的情景呢！我多么希望能和您一起照相呀！我看电视的时候看到了一点您在飞船里在太空中生活的情景，可是我很想多知道一些，想知道您在太空中的感觉是怎么样的。
写校运会的初中作文(精选5篇)
写校运会的初中作文（精选5篇）写校运会的初中作文1迎着初升的太阳，伴着习习的微风，我们迎来了期待已久的校运会。
上午进行的大部分都是预赛，只有200米跑是最引人注目的。
我们班女子组派出的是1号种子卢筱暖，素有“飞人”之称的她给为我们班女子夺取桂冠呢？我们屏息期待着。
“砰！”枪声一响，选手们飞快地跑出跑道，似离弦之箭般向终点冲去。
这时，我们看到卢筱暖遥遥领先于其他选手，我们再也安奈不住，一起大声为她呐喊助威：“加油！卢筱暖！加油！”终点渐渐逼近，卢筱暖不负众望，毫无悬念地取得了第一名。
“耶！”全班同学都在为卢筱暖高兴﹑欢呼。
所谓几家欢喜几家愁，运动场上总是有喜有悲。
在下午进行的400米跑比赛中，我们班的种子选手陈倚枫不小心摔倒了，腿被扭伤了。
顿时，班里的许多同学都吓坏了，不管是男生还是女生个个都争着来到陈倚枫身边。
有的帮忙扶起受伤的陈倚枫，有的则在一旁关心的问道：“陈倚枫，你没事吧。
”“腿还痛不痛？”或许是受到了打击，陈倚枫眼睛红红的，泪水夺眶而出。
见此，同学们更加你一言，我一语地安慰她：“没关系的，重在参与。
”“是啊，这只是意外，你不必太自责，这并不怪你。
”一句句简简单单的慰问，我却体会到了同学们对陈倚枫发自内心的关心，爱护。
一阵风吹来，我却感受不到一丝凉意。
这次的运动会出了欢乐与悲伤，还夹杂着一点小小的遗憾。
在男子4X100米接力赛中，我们班派出了四大主力，本以为能稳操胜券。
谁知比赛当天，他们的状态都不佳，在最后一次交接棒时已经慢了许多，即使林楚钦最后拼命追赶，也难已挽回败局，最终只获得第三名。
这是这次比赛中最大的遗憾。
在运动场上，几多欢笑，几多泪水，几多遗憾汇聚了一曲和谐的青春交响乐，耐人回味，催人奋进。
写校运会的初中作文2昨天，当我们还在回味亚运的精彩时，又迎来了初中部第二十一届校运会。
第一个比赛日的上午，进行了30×50米的集体接力赛。
我们班在比赛中却出现了食物：三次吊磅。
这便使时间白白浪费了不少，拖了后腿。
我心目中的英雄作文600字
我心目中的英雄作文600字•相关推荐我心目中的英雄作文600字（通用30篇）在学习、工作或生活中，大家都不可避免地要接触到作文吧，作文一定要做到主题集中，围绕同一主题作深入阐述，切忌东拉西扯，主题涣散甚至无主题。
为了让您在写作文时更加简单方便，下面是店铺帮大家整理的我心目中的英雄作文600字，希望对大家有所帮助。
我心目中的英雄作文600字篇1大江东去，浪淘尽，千古风流人物。
许多风流人物的生命早已消逝，但他们的故事却留颂至今，如武松打虎、三顾茅庐的刘备，而我最敬佩的就是岳飞。
岳飞，何许人也，那可是百战百胜、有勇有谋的大将军。
他的军队岳家军可真可谓是德武双全呀！岳家军的团结智谋，让金军闻风丧胆。
岳家军为国立了无数功勋，百姓得平安，理应得到人们的赞美与崇敬。
岳家军对百姓的各种税利从不接受，有时打完仗后饥肠辘辘，也不肯向百姓要一粒米，累的上眼皮与下眼皮打架，也不愿留住于民宅。
有这么一支所向披靡的军队和一位有勇有谋的将军，本是一个国家的骄傲，但只可惜当时的皇帝昏庸，又听信小人之言，让这个国家毁于一旦。
有一次，岳家军和金军打仗，金军狼狈而逃，岳家军紧追不舍，直追到金军大本营，眼看就要收复金军了，皇帝怕岳飞打完胜仗之后，带回原来的皇帝，自己的王位不保，便连发十二道金牌叫他速速撤军。
岳飞回去后秦桧又对皇帝说岳飞的.坏话，以莫须有的罪名处死了岳飞父子之后，岳家军也散了。
读完这个故事后，我的愤慨之情也一下子涌上心头，秦桧这个小人，阴险奸诈只会谋害忠良，而这皇帝也是无用之才，听信小人之言，杀害了不少忠诚，岳飞便是其中一位。
岳飞死后人们流传了一句话：青山有幸埋忠骨，白铁无辜铸佞臣。
青山有幸能成为忠诚之墓地，而这白铁却很无辜，没做错什么事，却被迫成了小人的化身。
岳飞爱国，舍己为人、无私奉献的精神感动着我，也希望世界多一些像岳飞，这样的这样的大英雄，少一些像秦桧这样的奸诈小人。
我心目中的英雄作文600字篇2从古到今中国五千年的历史中，涌现出不少宁死不屈的英雄，他们面对敌人的折磨，不肯低头，而在我心中，一直有一个英雄，他陪伴我长大，那个人就是我的爸爸。
感谢那个为我提灯的人作文800字（精选68篇）
感谢那个为我提灯的人作文800字（精选68篇）感谢那个为我提灯的人作文800字（精选68篇）在生活、工作和学习中，大家都写过作文，肯定对各类作文都很熟悉吧，作文是一种言语活动，具有高度的综合性和创造性。
相信写作文是一个让许多人都头痛的问题，以下是小编为大家收集的感谢那个为我提灯的人作文（精选68篇），仅供参考，希望能够帮助到大家！感谢那个为我提灯的人作文篇1花开花谢，春去秋来，不经意间，我们发现自己在长大。
这一路上，我遇到过很多人，但是，我唯一想感激的人，那就是你。
从我出生，从那一声响亮的啼哭开始，到现在的初三，十四年了啊妈妈啊，您总是无微不至的照顾着我，关怀着我。
我呢，却一再给你添乱，不懂得感激。
那时我还小，不懂事，自己不肯睡，偏要你抱着我悠来悠去才肯睡。
那时都秋末了啊，您的胳膊冻得通红，我却吵着闹着不要你放下我。
您的病就是那时落下的吧。
可是您却不说，独自一个人担着，依旧温柔的抱着我。
小学的时候，爸爸出差三个月没回家，那天回来本应全家欢喜的，我却把您气哭了。
你没有说什么，可我，却很愧疚。
初一初二，您花钱给我买了很多资料，初二还请了家教，花了几千块，不就是为了让我好好学习吗？但是我却又让你失望了，用我二十名的成绩，回报您这么大的努力……妈妈呀，我该怎样感谢你啊！您为我付出了这么多，为我花再多钱也不心疼，这就是为了让我好啊。
妈妈，我好感激您，给了我一个这么好的妈妈。
妈妈，您给予了我这么多，这么多，让我怎么去偿还呢？我心中积存的那么多的感激，我会用一生去回报。
您额角的皱纹开始有了，白发开始慢慢代替黑发，满头白发开始像白色过度，手掌慢慢干枯，您为我操劳过度，操白了头，操出眼角的鱼尾纹，操的手掌干枯，妈妈……九年级，我已是少女了，我已不再是那个因为一点小事就委屈得哇哇大哭的女孩了。
我会用成绩作为回报，用成绩来表达我的感激。
妈妈，您是为我“提灯”的人，是我永远感谢的哪个人……感谢那个为我提灯的人作文篇2手持明灯，行走夜路，在那万般黑暗之中带着丝丝的光明，引着平坦的道路，三年又三年，变得只有那斑白的鬓发，不变得就是那执着的职业操守。
坚持的力量优秀作文600字（精选63篇）
坚持的力量优秀作文600字（精选63篇）坚持的力量优秀作文600字（精选63篇）在平平淡淡的学习、工作、生活中，大家都尝试过写作文吧，作文根据写作时限的不同可以分为限时作文和非限时作文。
为了让您在写作文时更加简单方便，以下是小编精心整理的坚持的力量优秀作文600字，欢迎阅读与收藏。
坚持的力量优秀作文600字篇1坚持能让一件事变简单，坚持是一股强大无比的力量。
每当我遇到困难准备放弃的时候，是坚持给了我力量。
记得8岁时，看到哥哥﹑姐姐都在骑自行车，我也想学骑车，就对爸爸说：我也想骑自行车，可不可以教我？好，不过你要答应我没学会不能放弃。
没问题。
我自信满满的说。
没过几天，爸爸给我买了一辆崭新的二轮自行车，我把车子推到了篮球场。
第一次骑上自行车，我的心怦怦直跳，生怕翻车，爸爸鼓励着对我说：不要害怕，眼睛看前方，身子保持平衡，我在后面扶着。
扶了一段路，爸爸悄悄的松开了手，我感觉不对，便反头一看，爸爸已经跑的无影无踪了，心里一紧张，身子向右一倒，扑通一声，连人带车摔了个底朝天。
这时的我恨不得把车子摔倒在地，走到爸爸跟前，对他说：我不学了，太难了！爸爸抚摸着我的头耐心的对我说：你忘记之前的约定了吗？坚持就是胜利，你是男子汉，可不能被困难打倒。
听了爸爸的话，我重新振作起来。
我又一次座上自行车，爸爸仍然在后面扶着，扶完一段路，等我身子保持平衡后，一声不响地把手放了，知道爸爸放手了，我又有点紧张了，但我知道有一种力量叫坚持，只要坚持了，就会成功。
我尽力让身体保持平衡，并且顺利的骑了一圈。
我高兴的一边骑一边大喊：我终于学会骑自行车了！世上无难事，只怕有心人。
是坚持给了我力量，只要坚持，就没有做不成的事。
坚持的力量优秀作文600字篇2一星陨落，黯淡不了星空灿烂；一花凋谢，荒芜不了整个春天；一次打击，摧毁不了心中的信念。
空气中弥漫着春末夏初的淡淡温热，我在跑道上奔跑着……自从跨进了九年级，便被一个可怕的消息震住了——中考改革，其中体育“20分”正中了我的死穴。
感谢那个为我提灯的人作文700字初三
感谢那个为我提灯的人作文700字初三全文共9篇示例，供读者参考感谢那个为我提灯的人作文700字初三篇1漫漫长路，总有一个提灯的人，为你照亮前行的路。
考试临近，班级氛围格外紧张，而我却浑然不知。
知道当我发呆时看到其他同学正在“不耻下问”，我才忽地明白。
班主任走进教室，喊我的名字。
我忐忑地走近老师，不敢直视老师那双隐藏在镜片后面的凌厉的眼睛。
老师正低着头，审视着那张成绩单。
我顿时明白了老师的意图。
我回想着我的成绩和表现，立马在心底哀嚎，仿佛有千万匹骏马奔腾而过。
只是，老师一开口，那温柔平和的语气和淳淳教导，抚平了我内心的波澜。
老师带着那闪着微弱光芒的灯盏似的话语，引导我一步步走出那片迷雾。
我满怀感激地走回地走回座位，仿佛能感受到老师在我背后注视着我的殷切目光。
但由于老师所给的压力实在太大，我再一次被这块名叫希望的巨石压倒了。
本以为这次老师定会狠狠批评我，但出乎意料，老师没有盯着成绩单，而是看着我缓缓向她走来。
望着老师那双饱含希冀的眼睛，我更加无地自容。
兴许老师感受到我的压力，把要求放低了一点，即使他说“没有压力就没有动力”，但依旧放低了要求。
我仿佛感到老师在前方提着的灯，光芒又亮了一些，驱散了周身的迷雾，挣脱了身上的桎梏。
我轻轻地点开电脑上的“成绩单”文件，慢慢地目光下移，看到了我的名字。
想起老师与我的两次谈话，和我脑海中不停歇地提着灯盏的人，她手中的灯光仿佛又亮了一些。
感谢为我提着灯的您，老师。
感谢那个为我提灯的人作文700字初三篇2三年又三年，花开又花落。
无数次的陪伴，无数次的鼓励，无数次的帮助，虽然您只陪伴了我六年，但您已经在我的生命中留下了深深的痕迹，您就是那个为我提灯的人。
您是一名严厉的老师，但严厉中带有着母亲般的慈祥。
每当我因失败而失去信心时，您会用微笑鼓励我，那甜甜的微笑真有魔力呀，顿时让我有了勇气。
我记得那时春天刚刚来临，小雨淅淅沥沥地下着。
您把我叫出了教室，高兴地告诉我说有一个作文比赛，想要让我去试试。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
最后一次写关于凯旋辅助雨中看草发表于2010年03月06日 19:01 阅读(11) 评论(3) 分类：个人日记举报其实这个VB小软件真不是什么稀罕的东西，真的没有啥技术含量的，我把源代码发到战网里了，要的自己去下吧，以后有啥要改基址或添加啥功能的自己去弄吧，我已经没有玩游戏好久了。
因为以前和个新人交流我把部分变量写成中文的了，应该说新学VB的也可以很好的看懂代码的，但。
VB现在没有啥前途的了，要是你没有学过VB而又想学写程序的最好不要去学VB，换个其他啥语言都好，VB是个懒人程序，会学会很多不好的编程序习惯，以后后想换其他语言会吃苦头滴。
,想发上去发现空间关闭，还是贴在这里吧，要的自己去编译。
因为是在以前的软件基础上修改的，代码有点乱。
‘模块Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As LongDeclare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '发送消息Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As LongDeclare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As LongDeclare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As LongDeclare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByValDeclare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal y As Long) As LongPublic Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPublic Type POINTAPI '定义点(Point)结构X As Long '点在X坐标(横坐标)上的坐标值y As Long '点在Y坐标(纵坐标)上的坐标值End TypePublic Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Long) As LongPublic Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPublic Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As LongPublic 游戏ID As LongPublic 检测ID As LongPublic 血值 As LongPublic 蓝值 As LongPublic Function EnumGameProc(ByVal hwnd As Long, ByVal lParam As Long) As LongDim r As StringDim i As Longr = GetWinCap(hwnd)If r = "Turf Battles" Then检测ID = CStr(hwnd)End IfEnumGameProc = 1End FunctionPublic Function GetWinCap(ByVal hwnd As Long) As StringDim Ret As LongDim sSave As StringRet = GetWindowTextLength(hwnd)sSave = Space(Ret)GetWindowText hwnd, sSave, Ret + 1GetWinCap = sSaveDeclare Function GetOpenFileName Lib "comdlg32.dll" Alias _"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongDeclare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long Public Type OPENFILENAMElStructSize As LonghwndOwner As LonghInstance As LonglpstrFilter As StringlpstrCustomFilter As StringnMaxCustFilter As LongnFilterIndex As LonglpstrFile As StringnMaxFile As LonglpstrFileTitle As StringnMaxFileTitle As LonglpstrInitialDir As StringlpstrTitle As Stringflags As LongnFileOffset As IntegernFileExtension As IntegerlpstrDefExt As StringlCustData As LonglpfnHook As LonglpTemplateName As StringEnd TypePublic Const VK_LBUTTON = &H1Public Const VK_RBUTTON = &H2Public Const VK_CANCEL = &H3Public Const VK_MBUTTON = &H4Public Const VK_BACK = &H8Public Const VK_TAB = &H9Public Const VK_CLEAR = &HCPublic Const VK_SHIFT = &H10 Public Const VK_CONTROL = &H11 Public Const VK_MENU = &H12 Public Const VK_PAUSE = &H13 Public Const VK_CAPITAL = &H14 Public Const VK_ESCAPE = &H1B Public Const VK_SPACE = &H20 Public Const VK_PRIOR = &H21 Public Const VK_NEXT = &H22 Public Const VK_END = &H23 Public Const VK_HOME = &H24 Public Const VK_LEFT = &H25 Public Const VK_UP = &H26 Public Const VK_RIGHT = &H27 Public Const VK_DOWN = &H28 Public Const VK_Select = &H29 Public Const VK_PRINT = &H2A Public Const VK_EXECUTE = &H2B Public Const VK_SNAPSHOT = &H2C Public Const VK_Insert = &H2D Public Const VK_Delete = &H2E Public Const VK_HELP = &H2F Public Const VK_0 = &H30Public Const VK_1 = &H31Public Const VK_2 = &H32Public Const VK_3 = &H33Public Const VK_4 = &H34Public Const VK_5 = &H35Public Const VK_6 = &H36Public Const VK_7 = &H37Public Const VK_8 = &H38Public Const VK_9 = &H39Public Const VK_A = &H41Public Const VK_C = &H43Public Const VK_D = &H44Public Const VK_E = &H45Public Const VK_F = &H46Public Const VK_G = &H47Public Const VK_H = &H48Public Const VK_I = &H49Public Const VK_J = &H4APublic Const VK_K = &H4BPublic Const VK_L = &H4CPublic Const VK_M = &H4DPublic Const VK_N = &H4EPublic Const VK_O = &H4FPublic Const VK_P = &H50Public Const VK_Q = &H51Public Const VK_R = &H52Public Const VK_S = &H53Public Const VK_T = &H54Public Const VK_U = &H55Public Const VK_V = &H56Public Const VK_W = &H57Public Const VK_X = &H58Public Const VK_Y = &H59Public Const VK_Z = &H5APublic Const VK_STARTKEY = &H5B Public Const VK_CONTEXTKEY = &H5D Public Const VK_NUMPAD0 = &H60 Public Const VK_NUMPAD1 = &H61 Public Const VK_NUMPAD2 = &H62 Public Const VK_NUMPAD3 = &H63 Public Const VK_NUMPAD4 = &H64 Public Const VK_NUMPAD5 = &H65 Public Const VK_NUMPAD6 = &H66Public Const VK_MULTIPLY = &H6A Public Const VK_ADD = &H6B Public Const VK_SEPARATOR = &H6C Public Const VK_SUBTRACT = &H6D Public Const VK_DECIMAL = &H6E Public Const VK_DIVIDE = &H6F Public Const VK_F1 = &H70Public Const VK_F2 = &H71Public Const VK_F3 = &H72Public Const VK_F4 = &H73Public Const VK_F5 = &H74Public Const VK_F6 = &H75Public Const VK_F7 = &H76Public Const VK_F8 = &H77Public Const VK_F9 = &H78Public Const VK_F10 = &H79 Public Const VK_F11 = &H7A Public Const VK_F12 = &H7B Public Const VK_F13 = &H7C Public Const VK_F14 = &H7D Public Const VK_F15 = &H7E Public Const VK_F16 = &H7F Public Const VK_F17 = &H80 Public Const VK_F18 = &H81 Public Const VK_F19 = &H82 Public Const VK_F20 = &H83 Public Const VK_F21 = &H84 Public Const VK_F22 = &H85 Public Const VK_F23 = &H86 Public Const VK_F24 = &H87 Public Const VK_NUMLOCK = &H90Public Const VK_OEM_COMMA = &HBC Public Const VK_OEM_MINUS = &HBD Public Const VK_OEM_PERIOD = &HBE Public Const VK_OEM_2 = &HBF Public Const VK_OEM_3 = &HC0 Public Const VK_OEM_4 = &HDB Public Const VK_OEM_5 = &HDC Public Const VK_OEM_6 = &HDD Public Const VK_OEM_7 = &HDE Public Const VK_OEM_8 = &HDF Public Const VK_ICO_F17 = &HE0 Public Const VK_ICO_F18 = &HE1 Public Const VK_OEM102 = &HE2 Public Const VK_ICO_HELP = &HE3 Public Const VK_ICO_00 = &HE4 Public Const VK_ICO_CLEAR = &HE6 Public Const VK_OEM_RESET = &HE9 Public Const VK_OEM_JUMP = &HEA Public Const VK_OEM_PA1 = &HEB Public Const VK_OEM_PA2 = &HEC Public Const VK_OEM_PA3 = &HED Public Const VK_OEM_WSCTRL = &HEE Public Const VK_OEM_CUSEL = &HEF Public Const VK_OEM_ATTN = &HF0 Public Const VK_OEM_FINNISH = &HF1 Public Const VK_OEM_COPY = &HF2 Public Const VK_OEM_AUTO = &HF3 Public Const VK_OEM_ENLW = &HF4 Public Const VK_OEM_BACKTAB = &HF5 Public Const VK_ATTN = &HF6Public Const VK_CRSEL = &HF7Public Const VK_PLAY = &HFAPublic Const VK_ZOOM = &HFBPublic Const VK_NONAME = &HFCPublic Const VK_PA1 = &HFDPublic Const VK_OEM_CLEAR = &HFEPublic Const WM_KEYDOWN = &H100Public Const WM_KEYUP = &H101Public Const WM_CHAR = &H102'Public Const VK_C = 67Public Const WM_LBUTTONDOWN = &H201Public Const WM_LBUTTONUP = &H202Public Const WM_MOUSEMOVE = &H200Public Const MK_LBUTTON = &H1Public Const MK_MBUTTON = &H10Public Const MOUSEEVENTF_LEFTDOWN = &H2Public Const MOUSEEVENTF_LEFTUP = &H4Public Const MOUSEEVENTF_MIDDLEDOWN = &H20Public Const MOUSEEVENTF_MIDDLEUP = &H40Public Const MOUSEEVENTF_MOVE = &H1Public Const MOUSEEVENTF_ABSOLUTE = &H8000Public Const MOUSEEVENTF_RIGHTDOWN = &H8Public Const MOUSEEVENTF_RIGHTUP = &H10Public Function Key(Anjian As Long) As Long '用于转换按键的函数Select Case AnjianCase 0Key = &H70 'F1Case 1Key = &H71 'F2Case 2Key = &H72 'F3Case 3Case 4Key = &H74Case 5Key = &H75Case 6Key = &H76Case 7Key = &H77Case 8Key = &H31 '1 Case 9Key = &H32 '2 Case 10Key = &H33 '3 Case 11Key = &H34Case 12Key = &H35Case 13Key = &H36Case 14Key = &H37Case 15Key = &H38Case 16Key = &H39 '9 Case 17Key = &H30 '0 Case 18Key = &H25A Case 20Key = &H10 End Select’----------------------------------------------------------------------------------------------'---------------声明函数-----------------------'得到进程标识符的函数Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long'得到目标进程句柄的函数Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long'关闭句柄的函数Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long'读取进程内存的函数Private Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long'参数决定了对进程的存储权限，使用完全控制Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long'延迟函数Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As LongPrivate Declare Sub mouse_event Lib "user32" _( _ByVal dwFlags As Long, _ByVal dx As Long, _ByVal dy As Long, _ByVal cButtons As Long, _ByVal dwExtraInfo As Long _)Private Declare Function GetTickCount Lib "kernel32" () As LongConst PROCESS_ALL_ACCESS = &H1F0FFFDim 游戏进程ID As LongDim 是否自动补血 As Boolean '3-0Dim 是否自动补蓝 As Boolean '3-1Dim 角色血量 As Long '4-0Dim 角色魔法量 As Long '4-1Dim 角色总血量 As Long '5-0Dim 角色总魔法量 As Long '5-1Dim 攻击点 As POINTAPIDim 游戏载入 As BooleanDim 文件路径 As StringPrivate Sub Check1_Click()If Check1.Value = 1 ThenTimer1.Enabled = TrueElseTimer1.Enabled = FalseEnd IfTimer1.Interval = Val(HScroll1.Value) * 500 End SubPrivate Sub CmmExe_Click()If CmmExe.Caption = "开始" ThenCmmExe.Caption = "停止"If Check1.Value = 1 Then Timer1.Enabled = True Timer3.Enabled = TrueElseCmmExe.Caption = "开始"End IfEnd SubPrivate Sub Form_Load()Dim i As Longi = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) Me.Left = (Screen.Width - Me.Width) / 2 - 100Call StoTMe.Top = TPScale * 20For i = 10 To 1 Step -1CmbHP.AddItem CStr(i * 10)CmbMP.AddItem CStr(i * 10)Next i游戏载入 = FalseDim st As String游戏基址 = &HE92E8C文件路径 = IIf(Right(App.Path, 1) <> "\", App.Path & "\", App.Path)On Error GoTo 1Dim FileNumber As LongFileNumber = FreeFile ' 取得未使用的文件号。