1.vbs获取网页源码
2.vbs是什么文件
3.求一个能自动运行的vbs源码,就是运行某一个程序就会自动运行。要简单一点的,举个例子就行。345源码
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较为简单可行性强,tow指标公式源码所以很多人都喜欢利用VBS去写病毒或者整人的代码,所以在打开VBS之前要确保VBS的安全性和渠道的可信性。任何一种文本编辑器都可以用来开发VBS,记事本是windows系统自带的,无需专门下载安装,预测指标公式源码更方便快捷。
求一个能自动运行的vbs源码,就是运行某一个程序就会自动运行。要简单一点的,举个例子就行。app美女直播源码
调用外部程序,不知道你说的是不是这个意思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的源程序, 用户就能执行了。2025-01-04 05:36175人浏览
2025-01-04 05:33746人浏览
2025-01-04 04:36605人浏览
2025-01-04 03:542856人浏览
2025-01-04 03:362963人浏览
2025-01-04 03:161403人浏览
延宕1年8個月,土耳其國會終於批准瑞典加入北約案,土耳其國會23日以287票贊成、55票反對的壓倒性票數通過議案,預料這幾天就會送交總統艾爾段簽署生效。這是瑞典成為北約第32個成員國的重要一步,瑞典總
摘要:8月31日,十三届全国人大常委会第五次会议表决通过了关于修改个人所得税法的决定,这是我国个人所得税法自1980年出台以来第七次大修。修改后的个税法将于自2019年1月1日起正式实施。
中国消费者报上海讯记者刘浩)5月13日,结合2024年世界计量日中文主题“可持续发展”及中国特别主题“计量筑基新质生产力 促进可持续发展”,上海市市场监管局举办主题活动,出实招助力上海市新质生产力培育