情人节病毒的亲密爱人（vbs.candylove）病毒

亲密爱人（vbscandylove）病毒是最浪漫的病毒。该病毒运行时会在C:\WINDOWS目录或C:\WINNT目录下产生一个名为：ilovevbs的病毒文件，并修改注册表的自启动项，以便每次开机时自动运行该病毒。

该病毒会通过系统的wscript引擎无穷地自制自身，感染硬盘中的所有目录。每次会在：Te amovbs、Te quierovbs、Solo pienso en tivbs、Eres lo mejorvbs、Poemas de amorvbs、Amigovbs这六个文件名中随机选择一个做为病毒文件名，病毒还会对自己的感染进行计数，当病毒发现自己已经感自制了1000次以上，病毒便自动弹出关于情人节的消息框：

feliz día de san valentín, día del amor, día de la amistad, dia de los enamorados

son los mejores desceos del (FBI) Fuerza Bruta Inteligente Hacked oaxacatqm

cualquier comentario escribir a anonimomix mixmail com以示炫耀。

该病毒在传染时会消耗大量的系统资源，导致系统变慢至到系统停止响应。

该病毒会在每年的情人节时发作（2月14日），发作时会删除windows文件夹中的所有文件并且执行记事本的1001个拷贝。

　　//如果你不需要做小精灵，可以直接赋值add=0,1,2任意一个

　　UserVar add=DropList{不加饵:0|空饵报警:1|自动加饵:2}=0 加饵方式

　　//首先是获取窗口句柄，注意2种方式获得的句柄的区别：

　　Plugin hwnd2=windowforeground()

　　//上面这句获得的窗口句柄可以移动窗口，但是无法在窗口点击鼠标

　　Plugin hwnd1=windowmousepoint()

　　//现在用这句得到的句柄，可以在窗口内点击鼠标，但是无法移动这个窗口

　　//所以，如果你需要移动窗口，使用的句柄应该是hwnd2，而点击使用的是hwnd1

　　//当然，这2种方式取得的窗口，大小是一样的，所以坐标的计算就无所谓了

　　//获得窗口左上角的位置，用于自动加饵后窗口返回初始位置

　　Plugin Rect = WindowGetwindowRect(Hwnd1)

　　MyArray = Split(Rect, "|")

　　xleft = Cint(MyArray(0))

　　ytop = Cint(MyArray(1))

　　//获得鼠标位置，并转换为窗口坐标

　　VBSCall GetCursorPos(xget,yget)

　　Plugin clixy=BGKM5ScrToCli(hwnd1,xget,yget)

　　VBSCall MyArray1=split(clixy,"|",-1,1)

　　VBSCall x=CInt(MyArray1(0))

　　VBSCall y=CInt(MyArray1(1))

　　Rem 开始

　　Gosub 体力

　　//如果选择的是不加饵，那么就不需要执行鱼饵判断

　　If add<>0

　　Gosub 鱼饵

　　EndIf

　　//选择鱼竿，然后在水面下杆

　　Plugin BGKM5KeyClick(hwnd1,112)

　　Delay 100

　　Plugin BGKM5LClick(hwnd1,x,y)

　　//7秒内不会出现鱼，所以延迟7秒后再开始循环找，避免无意义的循环

　　Delay 7000

　　//确定找鱼的次数，以及找鱼的范围

　　timelimit=60

　　zuoshangx=x-60

　　zuoshangy=y-100

　　youxiax=x+60

　　youxiay=y-40

　　//开始找鱼,一共60次，每次间隔200毫秒

　　//如果一直没有找到，会消耗12秒

　　//加上之前的7秒，整个钓鱼过程的检测时间是19秒

　　//不过测试中，找不到鱼的几率为0 ^_^

　　i=0

　　j=0

　　While i<timelimit and j=0

　　Plugin jt=BkgndColorFindColor(hwnd1,zuoshangx,zuoshangy,youxiax,youxiay,"F0CC98")

　　If jt="-1|-1"

　　//如果没有找到鱼，延迟200毫秒，重新找

　　i=i+1

　　Delay 200

　　Else

　　//如果找到了鱼（实际上是箭头），点击鱼

　　jtarray=Split(jt,"|",-1,1)

　　VBSCall xjt=cint(jtarray(0))

　　VBSCall yjt=cint(jtarray(1))

　　Plugin BGKM5LClick(hwnd1,xjt-2,yjt+30)

　　Delay 150

　　//令J=1，跳出循环

　　j=1

　　EndIf

　　EndWhile

　　Delay 200

　　//切换F8是为了干什么我就不多说了，玩庄园的都知道

　　Plugin BGKM5KeyClick(hwnd1,119)

　　Delay 200

　　Goto 开始

　　Sub 体力

　　Plugin color7=BkgndcolorGetPixelColor(hwnd1,90,62)

　　//如果颜色为黑，吃血

　　If color7=2106400

　　Delay 200

　　Plugin BGKM5KeyClick(hwnd1,113)

　　Delay 200

　　Plugin BGKM5LClick(hwnd1,570,507)

　　Delay 1800

　　Plugin BGKM5KeyClick(hwnd1,113)

　　EndIf

　　Return 体力

　　Sub 鱼饵

　　//判断鱼饵的量是否小于3%，截图中发现，小于3%的鱼饵量是无法继续取色的了

　　//所以只能以3%来判断，小于3%就认为是没有鱼饵了

　　Plugin color0=BkgndColorGetPixelColor(hwnd1,531,553)

　　If color0=7864320

　　//如果颜色变黑，则说明需要加饵，根据变量选择的不同而判断

　　//选择报警时，弹出提示

　　If add=1

　　msgbox "鱼饵只剩3%，脚本会自动停止，请加饵后继续"

　　EndScript

　　Else

　　//选择自动加饵时，则自动加饵，自动加饵为前台操作

　　//先锁定鼠标

　　LockMouse

　　//窗口移动到左上，注意此处使用的窗口句柄

　　Plugin WindowMove(hwnd2,0,0)

　　Delay 500

　　//鼠标移动到10，10的位置点击一次是为了保证此窗口能前端显示

　　//所以使用此功能时，请注意把屏幕左上角留出至少10x10的位置

　　//也就是说你的其他窗口不能最大化

　　MoveTo 10,10

　　Delay 100

　　LeftClick 1

　　Delay 200

　　//点击钓竿的位置,可以用按键F1代替

　　MoveTo 519,539

　　Delay 100

　　LeftClick 1

　　Delay 1000

　　//点“添加鱼饵”按钮

　　MoveTo 584,503

　　Delay 500

　　LeftClick 1

　　Delay 500

　　MoveTo 10,10

　　Delay 500

　　//点击鱼饵(F3位置)，并按住鱼饵移动到空格中

　　MoveTo 591,539

　　Delay 200

　　LeftDown 1

　　Delay 200

　　MoveTo 290,279

　　Delay 200

　　LeftUp 1

　　Delay 1000

　　//点击“添加”按钮

　　MoveTo 329,369

　　Delay 500

　　LeftClick 1

　　Delay 1000

　　//加饵完成，窗口移动回初始位置

　　Plugin windowMove(hwnd2,xleft,ytop)

　　Delay 500

　　//释放鼠标

　　UnlockMouse

　　EndIf

　　EndIf

　　Return 鱼饵

风信子花语：胜利、竞技、喜悦、爱意、幸福、浓情、倾慕、顽固、生命

紫色的风信子：悲伤、妒忌，忧郁的爱（得到我的爱，你一定会幸福快乐）

白色的风信子：恬适、沉静的爱（不敢表露的爱）

红色的风信子：感谢你，让我感动的爱（你的爱充满我心中）

蓝色的风信子：恒心、贞操、彷佛见到你一样高兴。

**的风信子：幸福、美满，与你相伴很幸福

粉 风 信 子：倾慕、浪漫

蔷薇花表示的涵义：蔷薇花美丽、圣洁，表示崇高神圣的爱情，尤其是红色的蔷薇，更是初恋者赠送的佳品。

蔷薇花语：美好的爱情，爱的思念；美德。

1、红蔷薇--热恋；（表示求爱、爱情。）

2、粉蔷薇--爱的誓言；

3、白蔷薇--纯洁的爱情；（表示爱情、纯洁。）

4、黄蔷薇--永恒的微笑；

5、深红蔷薇--只想和你在一起；只想了解你一人；

6、粉红蔷薇--我要与你过一辈子；我要嫁给你；

7、圣诞蔷薇--追忆的爱情；

8、野蔷薇--浪漫的爱情（野蔷薇物语：跟你一起转到天堂去）