批处理之家 - Powered by Discuz! Board

Dim OIE, FSO, str, arr, vbstr, font, endfont
Set OIE = WScript.CreateObject("internetexplorer.application","event_")
Set FSO = CreateObject("scripting.filesystemobject")
arr = Split(FSO.OpenTextFile(WScript.ScriptName).readall(), vbCrLf)
For Each str In arr
If Left(str, 1) = "'" Then vbstr = vbstr & Mid(str, 2, Len(str)) & vbCrLf
Next
Set FSO = Nothing
OIE.Navigate "about:blank"
Do Until OIE.ReadyState = 4 : WScript.Sleep 200 : Loop
OIE.Document.write "<html><body bgColor=black scroll=no>"
OIE.Document.write "<title>" & String(5, "-") & "VBS控制IE对象实现网页特效实例" & String(5, "-") & "By BatMan From BatHome</title>"
With OIE
.Width = 600
.Height = 400
.Top = (.Document.ParentWindow.Screen.Availheight - .Height)/2
.Left = (.Document.ParentWindow.Screen.Availwidth - .width)/2
.MenuBar = False
.AddressBar = False
.StatusBar = False
.ToolBar = False
.Resizable = flase
.Visible = True
font = ""
endfont = ""
With .Document
arr = Split(vbstr, vbCrLf)
For Each str In arr
.write "        "
For i = 1 To Len(str)
.write font & Mid(str, i, 1) & endfont
WScript.Sleep 200
Next
.write " "
.parentwindow.scrollby 0,600
WScript.Sleep 200
Next
End With
End With
WScript.Sleep 2000
OIE.Quit
Set OIE = Nothing
'长情 -- 佚名
'
'我的思念就像夕阳下的影子越来越长，
'直到无法在留住那模糊的记忆，
'才收敛起那颗早已破碎的心，
'拾起满地散落的忧伤，
'回到堆满思绪的小屋。
'把忧伤，把思念化成一粒粒墙角静静的微尘，
'在没有人来的时候，
'不去碰触她。
'
'我的思念就像灯火阑珊下的影子好长好长，
'慢慢延伸到窗外那颗充满沧桑的老树下。
'寂寞的老树是孤独的。
'我愿爬上树梢，
'做它最顶端的一片叶子。
'柔柔的风是孤独的，
'任由它吹起我的思念。
'满院的月光似水柔情，
'那一颗颗晶莹的星，
'是我散满天空对你的期望。
'很多时候，
'我都是这样想你。
'你就像一杯浓浓的奶茶，
'真想停住苍茫的脚步，
'闭起双眼静静的品尝那淡淡的清香。
'
'很多时候，
'我把自己分割成一个个小段。
'让每一个小段都有一份思念，
'那样不会聚集一个更大的思念也就不会受伤。
'小小的思念是一种幸福，
'是一种相思的美。
'如果可以，
'我会把自己分割成千百万个小段，
'好让我的思念追随你飘荡的衣襟。
'清幽的小河，
'泛起如雪的白浪。
'把心折成一只小船，
'放逐在最顶端的浪花。
'如果还有机会，
'在我还没被吞没的时候，
'为你在写下一首诗。
'那一段段缭绕的文字，
'会慢慢的沉入水底，
'直到消失。
'而我的思念却越来越深。
'
'轻轻地推开冰封已久的心门，
'让那散落满地的灰尘，
'在那个狭小空间里晒晒太阳。
'拿起扫把清扫一片寂寞，
'小屋豁然开朗。
'想你在瞬间化作万只彩蝶翩翩起舞。
'你会莫名的心动吗？
'那是我思念的手臂在触摸你。
'我把遥远的思念化成一个个想你的点，
'再用心底最美的一束光串联。
'离你越远我的点就越多，
'我心里的光会随着点的增加而无限延长。
'想你了，
'我用串联的点捎去我的思念。
'黑夜里，
'我用那束光为你照亮回家的路。
'点慢慢的增加，
'而那束光也在延长。
'直到有一天你拉住我点的那头，
'我会小心的拽住点的这头。
'让你顺着我编织的梦，
'不再醒。