求一些有趣的VBS代码

无害的，一个心理测试（膨胀）

有点简单。（。）

代码如下：

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

WScript.Echo("你是可爱的小朋吗?")

WScript.Echo("哈,我想你拉，这你都不知道吗？")

WScript.Echo("怎么才来，说~是不是不关心我")

WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")

WScript.Echo("小强很生气，后果很严重哦。")

WScript.Echo("嘿嘿！你也会很惨滴哦")

WScript.Echo("是不是想清除我？")

WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")

WScript.Echo("还剩49下，快点点哦")

WScript.Echo("还剩48下，快点，小笨蛋！")

WScript.Echo("还剩47下对，就这样快点点！")

WScript.Echo("还剩46下。你啊就是笨，要快哦大帆敏，我先不打扰你工作。")

WScript.Echo("还剩45下，记得要快哦！")

WScript.Echo("还剩43下")

WScript.Echo("还剩42下")

WScript.Echo("还剩41下")

WScript.Echo("还剩40下")

WScript.Echo("还剩39下")

WScript.Echo("还剩38下")

WScript.Echo("还剩37下")

WScript.Echo("还剩36下")

WScript.Echo("还剩35下")

WScript.Echo("还剩34下")

WScript.Echo("还剩33下")

WScript.Echo("还剩32下")

WScript.Echo("还剩30下")

WScript.Echo("还剩29下")

WScript.Echo("还剩28下")

WScript.Echo("还剩27下")

WScript.Echo("还剩26下")

WScript.Echo("还剩25下")

WScript.Echo("还剩24下")

WScript.Echo("还剩23下")

WScript.Echo("还剩22下")

WScript.Echo("还剩21下")

WScript.Echo("还剩20下")

WScript.Echo("还剩19下")

WScript.Echo("还剩18下")

WScript.Echo("还剩17下")

WScript.Echo("还剩16下")

WScript.Echo("还剩15下")

WScript.Echo("还剩14下")

WScript.Echo("还剩13下停停！！！慢点，我有话要说")

WScript.Echo("还剩12下，你滚枝继续点我就会消失滴")

WScript.Echo("还剩11下，以后就看不到我拉。555555")

WScript.Echo("还剩10下，你现在可以选择停止！")

WScript.Echo("还剩9下。你还点啊，不要我拉？")

WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")

WScript.Echo("还剩7下。疯了，你有点负意！")

WScript.Echo("还剩6下。对。你就点吧，我恨你！")

WScript.Echo("还剩5下，不明白，删除我你就好吗？")

WScript.Echo("还剩4下！真要删除我？")

WScript.Echo("还剩3下。可是我真的很眷恋你。。。")

WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")

WScript.Echo("还剩1下。哼，既然你轿州这么绝情。也别怪我无义！！！")

WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

——————分割线————————

保存，保存类型为所有文件，名字随便，矿展名“.vbs”，保存后点开。

ect("Excel.Application")

objExcel.Visible = true

Set objWorkbooks = objExcel.Workbooks.Open ("D:\123.xls",3,false)

x=objExcel.Cells(1,1).value

msgbox x

cells(x,y)代表x行y列的数据。

============================教程===============================

Set oExcel= CreateObject("Excel.Application")

(一) 使用动态创建的方法

首先创建 Excel 对象，使用ComObj:

oExcel = CreateObject( "Excel.Application" )

1) 显示当前窗口：

oExcel.Visible = True

2) 更改 Excel 标题栏：

oExcel.Caption = "应用程序调用 Microsoft Excel"

3) 添加新工作簿：

oExcel.WorkBooks.Add

4) 打开已存在的工作簿：

oExcel.WorkBooks.Open( "C:\Excel\Demo.xls" )

5) 设置第2个工作表为活动工作表：

oExcel.WorkSheets(2).Activate

或

oExcel.WorksSheets( "Sheet2" ).Activate

6) 给单元桐乎格赋值：

oExcel.Cells(1,4).Value = "第一行第四列"

7) 设置指定列的宽度（雹升单位：字符个数），以第一列为例：

oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5

8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：

oExcel.ActiveSheet.Rows(2).RowHeight = 1/0.035 ' 1厘米

9) 在第8行之前插入分页符：

oExcel.WorkSheets(1).Rows(8).PageBreak = 1

10) 在第8列之前删除分页符：

oExcel.ActiveSheet.Columns(4).PageBreak = 0

11) 指定边框线宽度：

oExcel.ActiveSheet.Range( "B3:D4" ).Borders(2).Weight = 3

1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )

12) 清除第一行第四列单元格公式：

oExcel.ActiveSheet.Cells(1,4).ClearContents

13) 设置第一行字体属性：

oExcel.ActiveSheet.Rows(1).Font.Name = "隶书"源轮老

oExcel.ActiveSheet.Rows(1).Font.Color = clBlue

oExcel.ActiveSheet.Rows(1).Font.Bold = True

oExcel.ActiveSheet.Rows(1).Font.UnderLine = True

14) 进行页面设置：

a.页眉：

oExcel.ActiveSheet.PageSetup.CenterHeader = "报表演示"

b.页脚：

oExcel.ActiveSheet.PageSetup.CenterFooter = "第&P页"

c.页眉到顶端边距2cm：

oExcel.ActiveSheet.PageSetup.HeaderMargin = 2/0.035

d.页脚到底端边距3cm：

oExcel.ActiveSheet.PageSetup.HeaderMargin = 3/0.035

e.顶边距2cm：

oExcel.ActiveSheet.PageSetup.TopMargin = 2/0.035

f.底边距2cm：

oExcel.ActiveSheet.PageSetup.BottomMargin = 2/0.035

g.左边距2cm：

oExcel.ActiveSheet.PageSetup.LeftMargin = 2/0.035

h.右边距2cm：

oExcel.ActiveSheet.PageSetup.RightMargin = 2/0.035

i.页面水平居中：

oExcel.ActiveSheet.PageSetup.CenterHorizontally = 2/0.035

j.页面垂直居中：

oExcel.ActiveSheet.PageSetup.CenterVertically = 2/0.035

k.打印单元格网线：

oExcel.ActiveSheet.PageSetup.PrintGridLines = True

15) 拷贝 *** 作：

a.拷贝整个工作表：

oExcel.ActiveSheet.Used.Range.Copy

b.拷贝指定区域：

oExcel.ActiveSheet.Range( "A1:E2" ).Copy

c.从A1位置开始粘贴：

oExcel.ActiveSheet.Range.( "A1" ).PasteSpecial

d.从文件尾部开始粘贴：

oExcel.ActiveSheet.Range.PasteSpecial

16) 插入一行或一列：

a. oExcel.ActiveSheet.Rows(2).Insert

b. oExcel.ActiveSheet.Columns(1).Insert

17) 删除一行或一列：

a. oExcel.ActiveSheet.Rows(2).Delete

b. oExcel.ActiveSheet.Columns(1).Delete

18) 打印预览工作表：

oExcel.ActiveSheet.PrintPreview

19) 打印输出工作表：

oExcel.ActiveSheet.PrintOut

20) 工作表保存：

if not oExcel.ActiveWorkBook.Saved then

oExcel.ActiveSheet.PrintPreview

21) 工作表另存为：

oExcel.SaveAs( "C:\Excel\Demo1.xls" )

22) 放弃存盘：

oExcel.ActiveWorkBook.Saved = True

23) 关闭工作簿：

oExcel.WorkBooks.Close

24) 退出 Excel：

oExcel.Quit

(二) 使用VBS 控制Excle二维图

1）选择当第一个工作薄第一个工作表

set oSheet=oExcel.Workbooks(1).Worksheets(1)

2）增加一个二维图

achart=oSheet.chartobjects.add(100,100,200,200)

3）选择二维图的形态

achart.chart.charttype=4

4）给二维图赋值

set series=achart.chart.seriescollection

range="sheet1!r2c3:r3c9"

series.add range,true

5）加上二维图的标题

achart.Chart.HasTitle=True

achart.Chart.ChartTitle.Characters.Text=" Excle二维图"

6）改变二维图的标题字体大小

achart.Chart.ChartTitle.Font.size=18

7）给二维图加下标说明

achart.Chart.Axes(xlCategory, xlPrimary).HasTitle = True

achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "下标说明"

8）给二维图加左标说明

achart.Chart.Axes(xlValue, xlPrimary).HasTitle = True

achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "左标说明"

9）给二维图加右标说明

achart.Chart.Axes(xlValue, xlSecondary).HasTitle = True

achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "右标说明"

10）改变二维图的显示区大小

achart.Chart.PlotArea.Left = 5

achart.Chart.PlotArea.Width = 223

achart.Chart.PlotArea.Height = 108

=============================================================

On Error Resume Next

dim temp1,temp2

dim websz(100)

set objExcel = CreateObject("Excel.Application")

objExcel.Visible = true

Set objWorkbooks = objExcel.Workbooks.Open ("D:\123.xls",3,false)

for i = 1 to 5000

'这里修改excel中数据的结束行号码

websz(i)= "" &objExcel.Cells(i,1).value

next

for j=1 to 5000

temp2=j&".html"

Set xPost = CreateObject("Microsoft.XMLHTTP")

xPost.Open "GET",websz(j),0

xPost.Send()

Set sGet = CreateObject("ADODB.Stream")

sGet.Mode = 3

sGet.Type = 1

sGet.Open()

sGet.Write(xPost.responseBody)

sGet.SaveToFile temp2,2

Wscript.sleep 1000

next

---