如何用vbs控制一个已经打开的网页?
你这个问题描述得有点偏差,应该是用于电脑操作考试的吧?我对这个问题的理解如下:1、打开vbs,点击"文件",选择"另存为",把名称那一条改为c.doc,然后点保存,c.doc就建好了(此时不要关闭这个文档)。
2、分别打开a、b文档(此时下面任务条上就同时打开了C、a、b三个文档),切换到a文档,选中a文档的第一段(要把段落符号一起选中,不然格式复制不下来),按鼠标右键,选择"复制",再切换到C文档,在光标闪烁处按鼠标右键,选"粘贴",a中的第一段就复制到C中了。
再切换到b文档,选中第一段后,按复制,再切换到c文档,按粘贴……以此类推,在 a、b、C三个文档中来回切换,复制完后(要在C文档这个窗口),直接点保存就全保存到C中了。
然后关闭全部文档,a、b不用保存修改。
用vbs控制关闭excel
Option ExplicitDim WSshellSet WSshell=CreateObject("WScript.Shell")WSshell.Run """F:小工具Notepad otepad .exe"" ""ip.txt"""'""F:小工具Notepad otepad .exe""替换成word的完全路劲即可'语法格式:"""软件的完全路径"" ""文件的完全路劲"""
VBS详细教程
VBS 取得本机IP strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For Each strAddress in IPConfig.IPAddress WScript.Echo strAddress Next End If Next 2 取得本机计算机名 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer in colComputers Wscript.Echo objComputer.Name Next --------------------------------------------------------------------------------4 检查升级包 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems Wscript.Echo objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion Next --------------------------------------------------------------------------------5 检查 Hot Fix strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering") For Each objQuickFix in colQuickFixes Wscript.Echo "Description: " & objQuickFix.Description Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID Next --------------------------------------------------------------------------------6 检查本地管理员数目 Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group") For Each objUser in objGroup.Members Wscript.Echo objUser.Name Next --------------------------------------------------------------------------------7 磁盘系统 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 3") For Each objDisk in colDisks Wscript.Echo "Disk drive: "& objDisk.DeviceID & " -- " & objDisk.FileSystem Next --------------------------------------------------------------------------------8 检测自动登录是否开启 Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon" strValueName = "AutoAdminLogon" objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,dwValue If dwValue = 1 Then Wscript.Echo "Auto logon is enabled." Else Wscript.Echo "Auto logon is disabled." End If --------------------------------------------------------------------------------9 关闭自动登录 Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon" strValueName = "AutoAdminLogon" dwValue = 0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue --------------------------------------------------------------------------------10 检查Guest是否禁用 Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName Set objUser = GetObject("WinNT://" & strComputer & "/Guest") If objUser.AccountDisabled Then Wscript.Echo "The Guest account is disabled." Else Wscript.Echo "The Guest account is enabled." End If --------------------------------------------------------------------------------11 关闭Guest Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName Set objUser = GetObject("WinNT://" & strComputer & "/Guest") If objUser.AccountDisabled Then Wscript.Echo "The Guest account is already disabled." Else objUser.AccountDisabled = True objUser.SetInfo Wscript.Echo "The Guest account has been disabled." End If --------------------------------------------------------------------------------12 检索本地共象 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colShares = objWMIService.ExecQuery("Select * from Win32_Share") For each objShare in colShares Wscript.Echo "Name: " & objShare.Name Wscript.Echo "Path: " & objShare.Path Wscript.Echo "Type: " & objS...
如何用VBS控制WEB网页中的按钮
vbs的话需要调用API,vba不行,vba只能支持在自定义的窗体或者区域控制.vbs我不会调用api.脚本模拟键盘操作还是简单点的,你可以考虑能否用键盘操作替代鼠标控制.将问题转化为控制按键输入.不知道你要做什么,要是自己电脑需要的话,可以下个 按键精灵8 来搞