皮皮网

1.vbs是什么文件
2.vbs获取网页源码
3.vbs代码举例

vbs是什么文件

       VBS是基于VisualBasic的脚本语言。VBS的全称是MicrosoftVisualBasicScriptEdition，用记事本就可以看到源代码，在没有语法错误的前提下，直接双击左键就可以运行。html商品展示源码

       因为VBS较为简单可行性强，报单管理系统源码所以很多人都喜欢利用VBS去写病毒或者整人的代码，所以在打开VBS之前要确保VBS的安全性和渠道的可信性。任何一种文本编辑器都可以用来开发VBS，记事本是windows系统自带的，无需专门下载安装，更方便快捷。

vbs获取网页源码

       dim xp,打开成品源码url,MyStream

       url=inputbox("输入网址")

       if url&"a"<>"a" then

        set xhp=createobject("microsoft.xmlhttp")

        xhp.open "get",url,false

        xhp.send

        Set MyStream=CreateObject("Adodb.Stream")

        MyStream.Type = 1

        MyStream.Open

        MyStream.Write xhp.responseBody

        MyStream.SaveToFile "c:\xxx.html"

        Msgbox "保存成功！哈哈"

       end if

vbs代码举例

       矩形面积计算器代码如下：

       dim a,b,s

       a=inputbox("请输入矩形的长:")

       b=inputbox("请输入矩形的宽:");

       s=a*b

       msgbox (s)

       结束圆面积计算器代码如下：

       dim a，s

       a=inputbox("请输入圆的半径");

       s=a*a*3.

       msgbox(s)

       其他计算器，如圆周长计算器和长方体体积计算器等，大家可以参考这些代码自行编写。卓朗云集源码

       恶作剧代码示例：

       on error resume next

       dim WSHshellA

       set WSHshellA = wscript.createobject("wscript.shell")

       WSHshellA.run "cmd.EXE /c shutdown -r -t -c ""叫你不说，知道厉害了吧！"" ",0 ,true

       dim a

       do while(a > "我是猪")

       a = inputbox ("说我是猪,就不关机，快撒，斗地主内存源码说 ""我是猪""　","说不说","不说",,)

       msgbox chr() + chr() + chr() + a,0,"MsgBox"

       loop

       msgbox chr() + chr() + chr() + "早说就行了嘛"

       dim WSHshell

       set WSHshell = wscript.createobject("wscript.shell")

       WSHshell.run "cmd.EXE /c shutdown -a",0 ,true

       msgbox chr() + chr() + chr() + "哈哈哈哈，真过瘾"

扩展资料

       VBScript(Microsoft Visual Basic Script Editon).，微软公司可视化BASIC脚本版). 正如其字面所透露的信息， VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。 我进一步解释一下， Microsoft Visual Basic是微软公司出品的一套可视化编程工具， 语法基于Basic. 脚本语言， 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行， 简单点说就是你写的程序不需要编译成。exe, 而是直接给用户发送。vbs的源程序， 用户就能执行了。