经典VBS操作记住免得丢了

最新推荐文章于 2021-09-20 15:20:52 发布
最新推荐文章于 2021-09-20 15:20:52 发布
阅读量905 收藏 2
点赞数
分类专栏： vbs 文章标签： input function each javascript scroll ie
'----------用鼠标抓网页元素***(子皮作品)-----------
'----------大家继续修改哈!!增加更多功能------------
'本意是想动态获得鼠标处网页源码,可惜VBS中不知道怎么实现,高手可以继续改
'JS我不太懂，置顶不完善，JS高手可以改更酷一点的发上来，呵呵

WebNumberx = 1:Allie = ""
Set SHApp = CreateObject("Shell.Application")
For Each SHWin In SHApp.Windows
If LCase(Right(SHWin.FullName, 12)) = "iexplore.exe" Then
Allie = Allie & WebNumberx & ") " & SHWin.locationname & vbcrlf
WebNumberx = WebNumberx + 1
End if
Next
Set SHApp = Nothing

ca = InputBox(Allie,"请输入要抓的网页编号","")

WebNumberx = 1
Set SHApp = CreateObject("Shell.Application")
For Each SHWin In SHApp.Windows
If LCase(Right(SHWin.FullName, 12)) = "iexplore.exe" Then
If WebNumberx = Int(ca) Then Set x = SHWin:Exit For
WebNumberx = WebNumberx + 1
End if
Next
Set SHApp = Nothing

Set WMI=GetObject("WinMgmts:")
Set Objs=WMI.InstancesOf("Win32_Process")
i = 1
For Each Obj In Objs
If LCase(Obj.name) = "iexplore.exe" Then
If i = Int(ca) Then x_pid = obj.ProcessID:Exit For
i = i + 1
End if
Next
Set Objs = Nothing:Set WMI = Nothing

CreateObject("WScript.Shell").AppActivate x_pid, False
Wsh.sleep 300

While x.busy or x.readystate<>4:wsh.sleep 100:Wend

Set v = x.document.createElement("div")
v.setAttribute "id","xxx"
v.setAttribute "value",""
v.setAttribute "type","hidden"
x.Document.appendChild(v)

Set v = x.document.createElement("div")
v.setAttribute "id","yyy"
v.setAttribute "value",""
v.setAttribute "type","hidden"
x.Document.appendChild(v)


js = js & "function mousePosition(ev){" & vbCrLf
js = js & "if(ev.pageX || ev.pageY){" & vbCrLf
js = js & "return {x:ev.pageX, y:ev.pageY};" & vbCrLf
js = js & "}" & vbCrLf
js = js & "return {" & vbCrLf
js = js & "x:ev.clientX + document.body.scrollLeft - document.body.clientLeft," & vbCrLf
js = js & "y:ev.clientY + document.body.scrollTop - document.body.clientTop" & vbCrLf
js = js & "};" & vbCrLf
js = js & "}" & vbCrLf
js = js & "function mouseMove(ev){" & vbCrLf
js = js & "ev = ev || window.event;" & vbCrLf
js = js & "var mousePos = mousePosition(ev);" & vbCrLf
js = js & "document.getElementById('xxx').value = mousePos.x;" & vbCrLf
js = js & "document.getElementById('yyy').value = mousePos.y;" & vbCrLf

js = js & "}" & vbCrLf

js = js & "document.onmousemove = mouseMove;" & vbCrLf

x.Document.parentWindow.execScript js, "javascript"

set oIE = WScript.CreateObject("InternetExplorer.Application","Event_")
With oIE
.MenuBar = 0
.StatusBar = 0
.AddressBar = 0
.ToolBar = 0
.Height = 410
.Width = 300
.Navigate "about:blank"
.Visible = 1
.Document.Write "<HTML><script language='javascript'>"
.Document.Write "function move(){if (window.screenLeft*2 > window.screen.width){window.moveTo(0,window.screen.height-410);}"
.Document.Write "else window.moveTo(window.screen.width-300,window.screen.height-410);}"
.Document.Write "function top(){setInterval('document.body.focus()',10);}"
'function top(){window.focus();setTimeout('top()',10);}
.Document.Write "top();</script>"
.Document.Write "<BODY οnmοuseοver='move()' scroll='no'>x: <input id='input1'><br>"
.Document.Write "y: <input id='input2'><br><BUTTON id='btn'>复制</BUTTON><br>"
.Document.Write "源码: <textarea id='input3' style='WIDTH:270px;Height:250px' size='6'></textarea><br>"
.Document.Write "</BODY></HTML>"
End With

Set oIE.Document.getElementById("btn").OnClick = GetRef("aaa")

Do
oIE.Document.getElementById("input1").value = x.Document.getelementbyid("xxx").Value
oIE.Document.getElementById("input2").value = x.Document.getelementbyid("yyy").Value

Set ym = x.Document.selection
If Not (ym Is Nothing) Then
Set ymm = ym.createRange
If Not (ymm Is Nothing) Then
If ymm.htmlText <> oIE.Document.getElementById("input3").value then
oIE.Document.getElementById("input3").value = ymm.htmlText
End if
End If
End If
Set ym = Nothing:Set ymm = nothing
wsh.sleep 20
Loop

Sub aaa
Set IE=CreateObject("InternetExplorer.Application")
IE.Navigate("about:blank")
IE.document.parentwindow.clipboardData.SetData "text",oIE.Document.getElementById("input3").value
IE.Quit
Set IE = nothing
End Sub

Sub Event_OnQuit
Set oIE = Nothing: Set x = Nothing
WScript.Quit
End Sub

WebNumberx = 1:Allie = ""
Set SHApp = CreateObject("Shell.Application")
For Each SHWin In SHApp.Windows
If LCase(Right(SHWin.FullName, 12)) = "iexplore.exe" Then
Allie = Allie & WebNumberx & ") " & SHWin.locationname & vbcrlf
WebNumberx = WebNumberx + 1
End if
Next
Set SHApp = Nothing

ca = InputBox(Allie,"请输入要抓的网页编号","")

WebNumberx = 1
Set SHApp = CreateObject("Shell.Application")
For Each SHWin In SHApp.Windows
If LCase(Right(SHWin.FullName, 12)) = "iexplore.exe" Then
If WebNumberx = Int(ca) Then Set x = SHWin:Exit For
WebNumberx = WebNumberx + 1
End if
Next
Set SHApp = Nothing

Set WMI=GetObject("WinMgmts:")
Set Objs=WMI.InstancesOf("Win32_Process")
i = 1
For Each Obj In Objs
If LCase(Obj.name) = "iexplore.exe" Then
If i = Int(ca) Then x_pid = obj.ProcessID:Exit For
i = i + 1
End if
Next
Set Objs = Nothing:Set WMI = Nothing

===============================

这里都是获取 IE 的信息的，这样写脚本太罗嗦了吧~ 就不能一次搞定？


qq444139212
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VBS
gr_guhun的博客
05-04 1059
简介 VBS是基于Visual Basic的脚本语言。(VBS对大小写不敏感) VBS的全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。 开发环境 开发工具：记事本(将扩展名改为.vbs即可) 程序编辑 输入框：inputbox("")，inputbox返回的是字符串，需要根据需要进行转换 例：name=inputbox(“请...
如何用vbs脚本获取登录信息？
wu_now的专栏
12-13 1786
想对某一个登录界面进行自动输入用户名和密码，然后点击登录按钮，执行登录这一操作，我想知道是否可以用vbs脚本来实现？如果可以实现的话，应该如何来写代码呢？ 如下的代码就可以实现了： Function jj() document.getElementById("username").value = "uu" document.getElementById("psw
vbs教程-3
it-dark的博客
09-20 363
vbs脚本教程 vbs语法：msgbox和inputbox用法详解 1.msgbox函数 作用：弹出一个对话框 参数：三个 第一个参数表示要显示的内容，是一个字符串 第二个参数表示按钮的个数， 第三个参数表示标题显示的内容，也是一个字符串 用法 msgbox "这是第一个参数，表示要显示的内容",,"这是第三个参数，表示标题显示的内容" 结果 2.inputbox函数 作用 获取用户输入并返回 参数 第一个参数表示显示的内容 第二个参数表示标题显示的内容 第三个参数表示默认输入的内容 用法 i
VBS中常见字符串操作函数
08-26
VBS中常见字符串操作函数 VBS（Visual Basic Scripting）是一种脚本语言，广泛应用于Windows操作系统中。其中，字符串操作函数是VBS中最基本和最常用的函数之一。本文将对VBS中常见的字符串操作函数进行详细的介绍...
用vbs操作注册表实例代码
09-06
虽然VBS脚本可以方便地操作注册表，但不当的操作可能会影响系统的稳定性和安全性，因此在进行注册表操作前，应当对脚本的功能和影响有充分的了解，最好在修改之前备份相关注册表项。另外，修改注册表通常需要管理员...
vbs操作txt文本文件常用方法与函数代码
08-27
"vbs操作txt文本文件常用方法与函数代码" vbs操作txt文本文件是非常常见的操作之一。下面我们将详细介绍vbs操作txt文本文件常用方法与函数代码。 首先，我们需要了解FSO对象（文件对象操作）。FSO对象是VBScript中...
[VB.NET]如何能获得网页中的input标签?
VB.NET学习网-VB.NET实例、VB.NET教程、VB.NET源码下载
12-28 959
<!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--><script type="text/javascript"
VBScript j脚本 中inputbox()以及msgbox()简单应用
leechoy
07-21 3564
vbs中创建信息框十分的方便，以下为利用inputbox()和msgbox()设计一个计算矩形面积的vbs脚本.新建txt文本，将下列代码复制于txt文本中，然后修改文件后缀为vbs即可。 rem Created by leechoy 2019/07/21 ' Name:calculate area dim a,b,s a = inputbox("请输入长方形的长：","length") b =...
VBS脚本和HTML DOM自动操作网页
医疗影像检索
06-16 1万+
本来是想通过JS实现对其他页面的控制，发现跨域无法获取页面DOM来操作。接着考虑bat，发现也实现不了，于是想到vbs。vbs还是很强大啊，病毒之类很多都是vbs脚本啊。vbs打开浏览器，然后通过dom来操作页面，可以实现自动填写内容和按钮点击等。摸索了几个常用的，代码如下： 1、网页文本框赋值并提交按钮 Dim wsh,ie,btn,con Set ie = WScript.Crea
etElementByID getElementsByName getElementsByTagName的区别和总结 +js+Mxl+xmlhttp
weixin_30492601的博客
12-15 173
etElementByID getElementsByName getElementsByTagName的区别和总结 WEB标准下可以通过getElementById(), getElementsByName(), and getElementsByTagName()访问DOCUMENT中的任一个标签： 1、getElementById()getElementById()可以访问DOCUMEN...
VBS教程
weixin_30894583的博客
10-09 1368
Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它...
vba 操作html,VBA IE对象的操作方法
weixin_29174013的博客
06-19 2065
‘同上，包括对象本身的文本所以，如果我们要抓取某个网站的所有HTML内容，代码可以这样写：......‘前面已经取得了ieA对象，并打开某URL网页set doc=ieA.Documentset xDoc=doc. documentElement‘取得根节点strX=xDoc.OuterHtml‘取得所有的HTML内容这种取值的方式不妨可以当成EXCEL的单元格取值：set shDocX=A...
html网页自动登录代码,VBS脚本实现网站自动登录
weixin_39998998的博客
05-31 6827
VBS脚本实现网站自动登录转载请注明出处：http://hooden.blog.51cto.com/user_index.php?action=addblog&job=modify&tid=1597749每天工作都有一些网站需要进行登录，如邮箱等。总会花一些时间在这个上面，有时候想：如果我还没来到电脑就能登录好给我用多好！省时又省力！现以http://www.baidu.com为例...
VBS脚本常用经典代码
热门推荐
多媒体编程、网络编程、系统编程、网络安全编程、驱动编程
11-21 6万+
VBS脚本常用经典代码 1、VBS获取系统安装路径 /*先定义这个变量是获取系统安装路径的，然后我们用“&strWinDir&”调用这个变量。*/ setWshShell = WScript.CreateObject("WScript.Shell") strWinDir= WshShell.ExpandEnvironmentStrings("%WinDir%") 2、VBS获取C:/Pr
2011年经典VBS脚本代码集合
"这是一份2011年的VBS（Visual Basic Script）经典代码集合，包含各种实用的脚本示例，适合学习和参考。其中包括播放音乐、创建整人脚本、修改桌面背景等功能。" 这篇内容展示了几个VBS编程中的关键知识点，让我们...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值