如何用Visual Basic编写病毒
用VB编写病毒需要
【菜科解读】
相信电脑界的每个人都痛恨计算机病毒，她给我们带来了很多麻烦和损失，可你知道编写病毒的方法和过程吗？在此我仅以VB编写为例，揭开她的面纱。
用VB编写病毒需要考虑到如下几点： * 感染主机 首先染毒文件运行后先要判断主机是否以感染病毒，也就是判断病毒主体文件是否存在，如果不存在则将病毒主体拷贝到指定位置(如：将病毒文件拷贝到c:\windows\system\)，可用filecopy语句实现；如果病毒已感染主机则结束判断。
例如，判断C:\windows\system\Killer.exe是否存在，如果有则退出判断，如果没有则证明本机未感染病毒，立即拷入病毒文件。
病毒源文件名为game.exe 声明部分： ""定义 FileExists% 函数 public success% Function FileExists%(fname$) On Local Error Resume Next Dim ff% ff% = FreeFile Open fname$ For Input As ff% If Err Then FileExists% = False Else FileExists% = True End If Close ff% End Function 代码部分： ""判断文件是否存在 success% = FileExists%("C:\windows\system\Killer.exe") If success% = False Then ""病毒不存在则拷贝病毒到计算机 FileCopy "game.exe", "C:\windows\system\Killer.exe" ... ""修改注册表，将其加入RUN中。
(省略若干代码) End If * 开机启动病毒 在病毒感染主机的同时，将自身加入注册表的开机运行中，这与向主机拷入病毒是同时进行的，主机感染后不再修改注册表。
可通过编程和调用API函数对WIN注册表进行操作来实现，这样在每次启动计算机时病毒自动启动。
(具体编写方法请查阅其它资料) * 任务管理器 在任务管理器列表中禁止病毒本身被列出，可以通过编程来实现。
用代码 App.TaskVisible = false 就可以实现；再有就是通过调用Win API函数来实现，这里就不作介绍了。
* 病毒发作条件 可用Day(Date)来判断今天是几号，再与确定好的日期作比较，相同则表现出病毒主体的破坏性，否则不发作。
也可用Time、Date或其它方法作为病毒发作条件的判断。
例： if day(date)=16 then ""16是发作日期，取值为1-31的整数 ... ... ""kill ******* 当日期相符时运行的破坏性代码(格式化、删除指定的文件类型、发送数据包杜塞网路等，省略若干代码) end if * 病毒的破坏性 编写的此部分代码决定了病毒威力的强弱。
轻的可以使系统资源迅速减少直至死机(需要你懂得一点蠕虫的原理)，也就是实现开机即死的效果；也可以加入硬盘炸弹代码、系统后台删文件等。
重的可以使计算机彻底瘫痪(不作介绍，你可以参阅其它病毒的有关资料)。
* 病毒的繁殖 原理很简单，就是将其自身与其它可执行文件合并，也就是两个文件并成一个文件。
也可通过E-Mail传播，方法是病毒读取被感染主机的邮件列表，将带有病毒附件的E-Mail发给列表中的每一个人(这需要你懂得VB网络编程)。
读完本文章相信您已对病毒的编写思路有了初步的了解，如果你是个VB爱好者，你已经可以编写一个很简单的病毒了，但你要是精通VB的话，请不要有编写后传播她的想法，因为传播她造成很大的影响将改变你的命运(被公安抓住就挂了)。
青岛如意大厦灵异？酒店房间半夜出现奇怪声音/一个人千万别关灯
青岛如意大厦灵异事件2016年的时候，因为工作变故的原因，所以心情不是特别好，那段时间过得非常的低迷，朋友看我这样，决定约小编出去旅游，因为是夏日，天气太过炎热，所以哪里都不想去，只想每天在家里吹着空调睡觉或者打游戏，朋友提议说要不我们去青岛吧。
听说那边比我们湖北凉快，反正我们也没去过，正好去放松放松。
随即朋友就在某app上订了机票和酒店，然后我们就开启了这场美好的说走就走的旅行，当我们到达青岛的时候就直奔酒店了，就是当时在app上预订的酒店，青岛如意大厦内的某酒店，进酒店后说实话有点大失所望，这完全跟app上看到的图片相差甚远吗。
因为是暑假旅游旺季，所以房源也非常紧张，所以当时办理入住后给我们安排了走道最后面的房间，心里虽然不舒服，但是也没办法只能将就的住一晚上，明天在换酒店了，但是我万万没想到当天晚上居然发生了青岛如意大厦灵异事件。
我跟朋友两个人放下行李后决定去附近逛逛，舟车劳顿了一天了，先填饱肚子再说，然后就下楼去吃东西，因为如意大厦靠近火车站，所以还比较繁华，吃完东西我们回来休息，在房间里看电视，吃不多到晚上十一点多的时候两个人都累了，就关灯休息了。
半夜碰到鬼揉垃圾袋大约睡到晚上一点多的时候迷迷糊糊的，我突然发现窗边有脚步声，我以为是我朋友起床上厕所，就迷糊的睁开眼睛看了看，结果我发现什么也没有，朋友安静的睡在身旁，我就闭着眼睛继续睡觉，结果过了一会，我又听到了有人在揉塑料袋的声音。
我顿时毫无睡意了，就起来看了下，结果什么也没发现，而朋友当天晚上好像比平时睡的更熟了，一点动静也没有，我顺便看了下垃圾桶的袋子也检查了床下有没有老鼠，结果是什么也没有，我想着该不会是发生了青岛如意大厦灵异事件吧，这样一想心里就有点害怕了，赶紧躲进被子里面。
就这样在被子里面躲着睡觉，过了一会，声音又响了，而且越来越大了，我心里更害怕了，然后我就叫醒了身边的朋友，跳起来把灯打开了，边开灯我边说脏话，因为听老人说过遇到这种事情你一定要比它还狠，一定要拿出你身上的阳刚之气，然后将它击退，朋友可能听到了我的叫骂声，所以揉着眼睛问我怎么了。
我告诉朋友今天晚上发生的事情，她一点也不相信，说我肯定是睡迷糊了吧，我说真的是碰到了青岛如意大厦灵异事件了，后来我们两就靠在一起聊天，最后不知道怎么聊着聊着就睡着了，第二天早上我们就赶紧退房走了，并且还在APP上给了差评。
说实话到现在我也未明白当天晚上到底是怎么回事。
反正搞得我再也不敢住酒店了。
香港如心酒店灵异？半夜有人唱戏/半夜有人敲门 持续高烧几天
香港如心酒店灵异事件有此公司派同事小美出差去香港，小美高兴坏了，因为香港就是女人的天堂吗，主要是她特别的喜欢购物，并且老板说这次也算是奖励小美平时工作认真，所以算是工费旅行，吃住都可以报销，当时正好赶上春节，香港到处都是人，酒店也到处客满，最后小美就选择了如心酒店。
在如今酒店办理好入住后，她自己便上楼了，反正一到她所住的那层楼后，她感觉自己人都要晕了，本来就有点路痴，在加上房间的走廊跟迷宫一样，根本分不清东南西北，还好在楼道碰上服务员才找到自己所在的房间。
进房间后还没什么感觉，因为住在60楼，能够俯瞰半个香港的全貌，所以她就陶醉了，一个劲的在那里自拍，忽然她感觉厕所有冲水的声音，她跑到厕所去看，结果什么也没有，小美想可能是隔音效果不好，隔壁冲水声也很正常，因为在大陆很多小酒店就是这样的。
所以也没太在意。
香港如心海景酒店诡异一天的舟车劳顿加上明天要去办正经事，所以小美玩了会就洗澡睡觉了，上半夜她睡得特别的安稳，但是后半夜的时候她迷糊的听到了唱戏的声音，就是那种很古老的，她心想随这么大晚上的不睡觉还唱戏啊，就继续睡了，但是唱戏的声音却是忽远忽近，有时候甚至能感觉在她耳边。
不知道是太累还是怎么。
小美反正后来就睡着了，第二天因为忙所以忘了这件事情，到晚上在回到酒店时已经是半夜十一点多了，她赶忙洗完澡准备睡觉，结果听到有人敲门的声音，因为一个人在外面所以有警惕，她在门口问了声，谁啊，也没人应她，她在猫眼往外看，也没发现人，最后她打开门，也没人影。
她想这么大的酒店还有谁会恶作剧啊，难不成发生了香港如心酒店灵异事件，后来到晚上半夜两三点吧，又出现了唱戏的声音，还伴随着小孩在走廊上嬉闹的声音，她有些烦了，就开门出去看，结果什么也没有，她打电话给前台，跟前台说了情况，前台派人来看也没发现什么。
当晚她要求换房，后来服务员说房间都满了，没什么特殊情况不能换房，最后小美只能这样将就了一晚，半夜她开始发烧，人都快烧糊涂了，还是第二天打扫房间的服务员来敲门，发现没有声音就开门进来了，发现她都没力气了，将她送到医院才好。
总结：后来小美换了酒店，因为她认为接二连三发生的香港如心酒店灵异事件，就是让她发烧的重要原因，她也没什么心情玩，处理好工作的事情就回来了，回来后在公司提起了这件事，公司有人说如心酒店是属于郊区，而酒店正对面有一片墓地，所以发生这种事情在正常不过了。
