帝王谷资源网

VBS脚本也有GUI图形界面 日志清除功能
脚本专栏 2024/12/22 佚名
3 2
帝王谷资源网 Design By www.wdxyy.com

使用方法：将下面的代码保存为rizhi.vbs双击运行即可，如果不行可能是杀毒软件的问题。可以搜索下。以前提供过解决方法。

set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象' 
ie.menubar=0 '取消菜单栏' 
ie.addressbar=0 '取消地址栏' 
ie.toolbar=0 '取消工具栏' 
ie.statusbar=0 '取消状态栏' 
ie.width=400 '宽400' 
ie.height=400 '高400' 
ie.resizable=0 '不允许用户改变窗口大小' 
ie.navigate "about:blank" '打开空白页面' 
ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2) '水平居中' 
ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2) '垂直居中' 
ie.visible=1 '窗口可见' 

with ie.document '以下调用document.write方法，' 
.write "<html><body bgcolor=#dddddd scroll=no>" '写一段html到ie窗口中。' 
.write "<h2 align=center>远程清除系统日志</h2><br>" 
.write "<p>目标IP：<input id=ip type=text size=15>" '也可以用navigate方法直接打开一' 
.write "<p>用户名：<input id=user type=text size=30>" '个html文件，效果是一样的。' 
.write "<p>密码：　<input id=pass type=password size=30>" 
.write "<p align=center>类型：" '不仅是input对象，所有DHTML支持' 
.write "<input id=app type=checkbox>应用程序 " '的对象及其属性、方法都可以使用。' 
.write "<input id=sys type=checkbox>系统 " 
.write "<input id=sec type=checkbox>安全" '访问这些对象的办法和网页中访问' 
.write "<p align=center><br>" '框架内对象是类似的。' 
.write "<input id=confirm type=button value=确定> " 
.write "<input id=cancel type=button value=取消>" 
.write "</body></html>" 
end with 

dim wmi '显式定义一个全局变量' 
set wnd=ie.document.parentwindow '设置wnd为窗口对象' 
set id=ie.document.all '设置id为document中全部对象的集合' 
id.confirm.onclick=getref("confirm") '设置点击"确定"按钮时的处理函数' 
id.cancel.onclick=getref("cancel") '设置点击"取消"按钮时的处理函数' 

do while true '由于ie对象支持事件，所以相应的，' 
wscript.sleep 200 '脚本以无限循环来等待各种事件。' 
loop 

sub event_onquit 'ie退出事件处理过程' 
wscript.quit '当ie退出时，脚本也退出' 
end sub 

sub cancel '"取消"事件处理过程' 
ie.quit '调用ie的quit方法，关闭IE窗口' 
end sub '随后会触发event_onquit，于是脚本也退出了' 

sub confirm '"确定"事件处理过程，这是关键' 
with id 
if .ip.value="" then .ip.value="." '空ip值则默认是对本地操作' 
if not (.app.checked or .sys.checked or .sec.checked) then 'app等都是checkbox，通过检测其checked' 
wnd.alert("至少选择一种日志") '属性，来判断是否被选中。' 
exit sub 
end if 
set lct=createobject("wbemscripting.swbemlocator") '创建服务器定位对象' 
on error resume next '使脚本宿主忽略非致命错误' 
set wmi=lct.connectserver(.ip.value,"root/cimv2",.user.value,.pass.value) '连接到root/cimv2名字空间' 
if err.number then '自己捕捉错误并处理' 
wnd.alert("连接WMI服务器失败") '这里只是简单的显示“失败”' 
err.clear 
on error goto 0 '仍然让脚本宿主处理全部错误' 
exit sub 
end if 
if .app.checked then clearlog "application" '清除每种选中的日志' 
if .sys.checked then clearlog "system" 
if .sec.checked then clearlog "security" '注意，在XP下有限制，不能清除安全日志' 
wnd.alert("日志已清除") 
end with 
end sub 

sub clearlog(name) 
wql="select * from Win32_NTEventLogFile where logfilename='"&name&"'" 
set logs=wmi.execquery(wql) '注意，logs的成员不是每条日志，' 
for each l in logs '而是指定日志的文件对象。' 
if l.cleareventlog() then 
wnd.alert("清除日志"&name&"时出错！") 
ie.quit 
wscript.quit 
end if 
next 
end sub

上面是通过vbs输出html内容来实现，一般情况下，小编是使用hta来实现图像界面。

标签：
VBS,GUI,日志清除
帝王谷资源网 Design By www.wdxyy.com
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
帝王谷资源网 Design By www.wdxyy.com
www.wdxyy.com 帝王谷资源网
139,976互联网资源
144,792高清电影
21,817无损音乐
631,128技术资源

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。

《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。

更新日志

友情链接

杰晶网络 DDR爱好者之家 桃源资源网 杰网资源 富贵资源网 南强小屋 铁雪资源网 幽灵资源网 万梅资源网 狼山资源网 白云岛资源网 昆仑资源网 相思资源网 明霞山资源网 内蒙古资源网 黑松山资源网 茶园资源网 饿虎岗资源网 大旗谷资源网 常春岛资源网 岱庙资源网 兴国资源网 快活林资源网 蝙蝠岛资源网 帝王谷资源网 白云城资源网 伏龙阁资源网 清风细雨楼 天枫庄资源网 圆月山庄资源网 无争山庄资源网 神水资源网 移花宫资源网 神剑山庄资源网 无为清净楼资源网 金钱帮资源网 丐帮资源网 华山资源网 极乐门资源网 小李飞刀资源网 凤求凰客栈 风云阁资源网 金狮镖局 鸳鸯亭资源网 千金楼资源网 更多链接