51Testing软件测试论坛

标题: 如何创建一个vbs文件，来操作控制面板？ [打印本页]

作者: sd2951811 时间: 2010-4-23 10:56
标题: 如何创建一个vbs文件，来操作控制面板？
以设置关闭防火墙为例子。以下一段脚本仅仅是打开防火墙。但是没有操作的
dim pp
Set pp=CreateObject("WScript.Shell")
pp.run "rundll32.exe shell32.dll,Control_RunDLL firewall.cpl @0"

应该怎么做才能让它执行关闭防火墙并确定呢？
我本来是用QTP来记录操作。用QTP回放。但是现在准备做成一个可执行文件。不用QTP直接把脚本做成可执行文件。
我想做成vbs，但是不知道后面应该怎么写！请各位达人帮帮忙！

作者: TIB 时间: 2010-4-23 20:31
' Disable the Firewall

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

objPolicy.FirewallEnabled = FALSE

Set objPolicy = Nothing
Set objFirewall = Nothing

作者: sd2951811 时间: 2010-4-24 14:54
果然好用。能不能家点注释啊？想学习学习。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)