1.vbs获取网页源码
2.vbs是什么文件
3.求一个能自动运行的vbs源码，就是运行某一个程序就会自动运行。要简单一点的，举个例子就行。andlua怎么解压源码
4.vbs代码举例

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是什么文件

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

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

求一个能自动运行的vbs源码，就是运行某一个程序就会自动运行。要简单一点的，举个例子就行。如何读系统源码

       调用外部程序，不知道你说的是不是这个意思

set ws = createobject("wscript.shell")

       ws.run "notepad" '打开记事本程序

       打开Windows文件夹中的文件只填写文件名就可以了。其他地方的要填写完整路径，如：

set ws = createobject("wscript.shell")

       ws.run "d:\.exe" '打开D:\.EXE

       如果路径名中带有空格，需要三个引号，php源码变小程序如：

set ws = createobject("wscript.shell")

       ws.run """D:\Program Files\Tencent\QQ\Bin\QQ.exe"""

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的源程序， 用户就能执行了。