1.vbs获取网页源码
2.vbs是什么文件
3.求一个能自动运行的vbs源码，就是运行某一个程序就会自动运行。要简单一点的，举个例子就行。信用盘源码
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系统自带的，无需专门下载安装，解析源码4更方便快捷。
求一个能自动运行的vbs源码，就是运行某一个程序就会自动运行。要简单一点的，举个例子就行。音头源码
调用外部程序，不知道你说的是不是这个意思set ws = createobject("wscript.shell")ws.run "notepad" '打开记事本程序
打开Windows文件夹中的文件只填写文件名就可以了。其他地方的要填写完整路径，如：
set ws = createobject("wscript.shell")ws.run "d:\.exe" '打开D:\.EXE
如果路径名中带有空格，需要三个引号，源码码优选如：
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的源程序， 用户就能执行了。
