白云岛资源网 Design By www.pvray.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来实现图像界面。
白云岛资源网 Design By www.pvray.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
白云岛资源网 Design By www.pvray.com
暂无评论...
《魔兽世界》大逃杀!60人新游玩模式《强袭风暴》3月21日上线
暴雪近日发布了《魔兽世界》10.2.6 更新内容,新游玩模式《强袭风暴》即将于3月21 日在亚服上线,届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。
艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕,并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时,他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中,玩家将会进入一个全新的海盗主题大逃杀式限时活动,其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场,作为一个独立于主游戏之外的活动,玩家可以用大逃杀的风格来体验《魔兽世界》,不分职业、不分装备(除了你在赛局中捡到的),光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式,玩家在加入海盗主题的预赛大厅区域前,可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹,《巨龙崛起》和《魔兽世界:巫妖王之怒 经典版》的玩家都可以获得奖励。