admin 管理员组

文章数量: 1184232


2024年4月30日发(作者：gradle下载慢怎么办)

1. '这里是一个登陆填写用户和密码自动登陆VBS联盟论坛的实例教程

2. On Error Resume Next

3. MsgBox "VBS自动填写网页表单,点击确定执行",,"〓【VBS联盟】教程〓"

4. Set ie = CreateObject("ation")

5. te "/"

6. 1000

7. e=true

8. = "admin" '这里填写用户ID

9. = "123456" '这里填写密码

10. () '提交表单(若需验证码的请注释掉这一行)

set pc=getobject("winmgmts:win32_process").instances_

for each p in pc

if ="" then

Set objWord = CreateObject("ation")

Set colTasks =

If ("记事本") Then

colTasks("记事本").WindowState = 2 '0原样 1最大化 2最小化

End If

ate

end if

next

下面这段代码可以激活很多窗口（如IE、Word、Excel、CAD等等），但是对超星阅

览器就不行了，不知是什么原因

set ws=createobject("")

ivate "hao123－－我的上网主页 - Microsoft

Internet Explorer" '窗口标题

ys "{ENTER}"

用进程的路径来激活窗口

Lj_="" '这里填写进程路径

Set WMI_Obj=GetObject("winmgmts:.rootcimv2").ExecQuery ("Select *

from Win32_Process", ,48)

For each obj in WMI_Obj

M_=dLine

Id_=sId

if InStr(1,M_,Lj_,1)>0 then

Exit For

end if

Next

set ws=createobject("")

ivate Id_

检测进程中有几个进程

Set IDxx1=Getobject("winmgmts:.")

Set IDxxa=cesOf("Win32_Process")

Dim Sxx

For Each wbemObject In IDxxa

msgbox Jcxx

Jcxx=

if InStr(1,Jcxx,"",1)>0 then

Sxx=Sxx+1

end if

Next


本文标签： 填写 表单 不知 自动 进程

版权声明：本文标题：vbs 操作网页 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1714450457a680660.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。