Board logo

标题: [技术讨论] VBS控制IE对象实现网页特效实例 [打印本页]

作者: batman    时间: 2011-6-5 14:58     标题: VBS控制IE对象实现网页特效实例

文本同样用的是《长情》。。。
  1. Dim OIE, FSO, str, arr, vbstr, font, endfont
  2. Set OIE = WScript.CreateObject("internetexplorer.application","event_")
  3. Set FSO = CreateObject("scripting.filesystemobject")
  4. arr = Split(FSO.OpenTextFile(WScript.ScriptName).readall(), vbCrLf)
  5. For Each str In arr
  6.   If Left(str, 1) = "'" Then vbstr = vbstr & Mid(str, 2, Len(str)) & vbCrLf
  7. Next
  8. Set FSO = Nothing
  9. OIE.Navigate "about:blank"
  10. Do Until OIE.ReadyState = 4 : WScript.Sleep 200 : Loop
  11. OIE.Document.write "<html><body bgColor=black scroll=no>"
  12. OIE.Document.write "<title>" & String(5, "-") & "VBS控制IE对象实现网页特效实例" & String(5, "-") & "By BatMan From BatHome</title>"
  13. With OIE
  14.   .Width = 600
  15.   .Height = 400
  16.   .Top = (.Document.ParentWindow.Screen.Availheight - .Height)/2
  17.   .Left = (.Document.ParentWindow.Screen.Availwidth - .width)/2
  18.   .MenuBar = False
  19.   .AddressBar = False
  20.   .StatusBar = False
  21.   .ToolBar = False
  22.   .Resizable = flase
  23.   .Visible = True
  24.   font = "<font face=""楷体_gb2312"" size=4.5 color=Purple><b><i>"
  25.   endfont = "</i></b></font>"
  26.   With .Document
  27.     arr = Split(vbstr, vbCrLf)
  28.     For Each str In arr
  29.       .write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
  30.       For i = 1 To Len(str)
  31.         .write font & Mid(str, i, 1) & endfont
  32.         WScript.Sleep 200
  33.         Next
  34.       .write "<br>"
  35.       .parentwindow.scrollby 0,600
  36.       WScript.Sleep 200
  37.     Next   
  38.   End With
  39. End With
  40. WScript.Sleep 2000
  41. OIE.Quit
  42. Set OIE = Nothing
  43. '长情 -- 佚名   
  44. '
  45. '我的思念就像夕阳下的影子越来越长,
  46. '直到无法在留住那模糊的记忆,
  47. '才收敛起那颗早已破碎的心,
  48. '拾起满地散落的忧伤,
  49. '回到堆满思绪的小屋。
  50. '把忧伤,把思念化成一粒粒墙角静静的微尘,
  51. '在没有人来的时候,
  52. '不去碰触她。
  53. '   
  54. '我的思念就像灯火阑珊下的影子好长好长,
  55. '慢慢延伸到窗外那颗充满沧桑的老树下。
  56. '寂寞的老树是孤独的。
  57. '我愿爬上树梢,
  58. '做它最顶端的一片叶子。
  59. '柔柔的风是孤独的,
  60. '任由它吹起我的思念。
  61. '满院的月光似水柔情,
  62. '那一颗颗晶莹的星,
  63. '是我散满天空对你的期望。
  64. '很多时候,
  65. '我都是这样想你。
  66. '你就像一杯浓浓的奶茶,
  67. '真想停住苍茫的脚步,
  68. '闭起双眼静静的品尝那淡淡的清香。
  69. '   
  70. '很多时候,
  71. '我把自己分割成一个个小段。
  72. '让每一个小段都有一份思念,
  73. '那样不会聚集一个更大的思念也就不会受伤。
  74. '小小的思念是一种幸福,
  75. '是一种相思的美。
  76. '如果可以,
  77. '我会把自己分割成千百万个小段,
  78. '好让我的思念追随你飘荡的衣襟。
  79. '清幽的小河,
  80. '泛起如雪的白浪。
  81. '把心折成一只小船,
  82. '放逐在最顶端的浪花。
  83. '如果还有机会,
  84. '在我还没被吞没的时候,
  85. '为你在写下一首诗。
  86. '那一段段缭绕的文字,
  87. '会慢慢的沉入水底,
  88. '直到消失。
  89. '而我的思念却越来越深。
  90. '   
  91. '轻轻地推开冰封已久的心门,
  92. '让那散落满地的灰尘,
  93. '在那个狭小空间里晒晒太阳。
  94. '拿起扫把清扫一片寂寞,
  95. '小屋豁然开朗。
  96. '想你在瞬间化作万只彩蝶翩翩起舞。
  97. '你会莫名的心动吗?
  98. '那是我思念的手臂在触摸你。
  99. '我把遥远的思念化成一个个想你的点,
  100. '再用心底最美的一束光串联。
  101. '离你越远我的点就越多,
  102. '我心里的光会随着点的增加而无限延长。
  103. '想你了,
  104. '我用串联的点捎去我的思念。
  105. '黑夜里,
  106. '我用那束光为你照亮回家的路。
  107. '点慢慢的增加,
  108. '而那束光也在延长。
  109. '直到有一天你拉住我点的那头,
  110. '我会小心的拽住点的这头。
  111. '让你顺着我编织的梦,
  112. '不再醒。
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2