如何使用VBS脚本给在直播间授权登陆

直接上代码,看不懂说明你技术不够

set WshShell=WScript.CreateObject("WScript.Shell")
Dim ie
Set mouse=New SetMouse
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "http://m.yy.com/live/anch/anchorRandomURL?f=6308"
Wscript.sleep 3000
‘ie.document.getElementsByClassName("login-btn")(0).click
ie.document.getElementsByClassName("s1")(0).click
Wscript.sleep 3000
ie.document.getElementsByClassName("wblogin")(0).click
Wscript.sleep 3000
‘for i = 0 to 6
‘WshShell.SendKeys "{Tab}"
‘Wscript.sleep 2000
‘next
mouse.move 717,345 ‘把鼠标移动到坐标
WScript.Sleep 1000
mouse.clik "LEFT" ‘左击
WshShell.SendKeys "+"
Wscript.sleep 2000
WshShell.SendKeys "[email protected]"
Wscript.sleep 1000
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "5ct90f"
Wscript.sleep 3000
‘***********************************************************************

‘ 将鼠标移到验证码

‘***********************************************************************
mouse.move 870,421 ‘把鼠标移动到坐标
WScript.Sleep 1000
mouse.clik "RIGHT" ‘右击
WScript.Sleep 1000
WshShell.SendKeys "S"
WScript.Sleep 1000
WshShell.SendKeys "temp"
WScript.Sleep 1000
WshShell.SendKeys "{Enter}"
WScript.Sleep 1000
WshShell.SendKeys "{LEFT}"
WScript.Sleep 1000
WshShell.SendKeys "{Enter}"
WScript.Sleep 2000
Set exeRs = WshShell.Exec("curl.exe -F ""[email protected]:\Users\HugeTech7\Pictures\temp.png"" ""http://api.ysdm.net/create.json?username=hq20150618&password=huge247247&typeid=3050&softid=52084&softkey=45b6a56f262a46f38d086c4f50826631""")
Wscript.sleep 2000
errMsg = exeRs.StdErr.ReadAll()
stdMsg = exeRs.StdOut.ReadAll()
identify = Mid(stdMsg,12,5)
WScript.Sleep 1000
mouse.move 717,421 ‘把鼠标移动到坐标
WScript.Sleep 1000
mouse.clik "LEFT" ‘左击
WshShell.SendKeys identify
Wscript.sleep 1000
WshShell.SendKeys "{Enter}"
Wscript.sleep 10000
mouse.move 860,350 ‘把鼠标移动到坐标
WScript.Sleep 1000
mouse.clik "LEFT" ‘左击
‘*****************将以下代码加入到vbs文件末就能如以上方法调用*******************************************************************************************

‘****************************************************************************************************************************************************

Class SetMouse
private S
private xls, wbk, module1
private reg_key, xls_code, x, y

Private Sub Class_Initialize()
Set xls = CreateObject("Excel.Application")
Set S = CreateObject("wscript.Shell")
‘vbs 完全控制excel
reg_key = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
reg_key = Replace(reg_key, "$", xls.Version)
S.RegWrite reg_key, 1, "REG_DWORD"
‘model 代码
xls_code = _
"Private Type POINTAPI : X As Long : Y As Long : End Type" & vbCrLf & _
"Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCrLf & _
"Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long" & vbCrLf & _
"Private Declare Sub mouse_event Lib ""user32"" Alias ""mouse_event"" " _
& "(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)" & vbCrLf & _
"Public Function getx() As Long" & vbCrLf & _
"Dim pt As POINTAPI : GetCursorPos pt : getx = pt.X" & vbCrLf & _
"End Function" & vbCrLf & _
"Public Function gety() As Long" & vbCrLf & _
"Dim pt As POINTAPI: GetCursorPos pt : gety = pt.Y" & vbCrLf & _
"End Function"
Set wbk = xls.Workbooks.Add
Set module1 = wbk.VBProject.VBComponents.Add(1)
module1.CodeModule.AddFromString xls_code
End Sub

‘关闭
Private Sub Class_Terminate
xls.DisplayAlerts = False
wbk.Close
xls.Quit
End Sub

‘可调用过程

Public Sub getpos( x, y)
x = xls.Run("getx")
y = xls.Run("gety")
End Sub

Public Sub move(x,y)
xls.Run "SetCursorPos", x, y
End Sub

Public Sub clik(keydown)
Select Case UCase(keydown)
Case "LEFT"
xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
Case "RIGHT"
xls.Run "mouse_event", &H8 + &H10, 0, 0, 0, 0
Case "MIDDLE"
xls.Run "mouse_event", &H20 + &H40, 0, 0, 0, 0
Case "DBCLICK"
xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
End Select
End Sub

End Class

‘***********************************************************************

‘代码结束

‘***********************************************************************
时间: 2024-10-11 16:19:36

如何使用VBS脚本给在直播间授权登陆的相关文章

Vbs 脚本编程简明教程之一

-为什么要使用 Vbs ? 在 Windows 中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动 计算机第一件事情就是打开 WORD ,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某 些数据进行整理,把各式各样的数据按照某种规则排列起来--.这些事情重复.琐碎,使人容易疲劳. 第三方软件也许可以强化计算机的某些功能,但是解决这些重复劳动往

怎么用VBS脚本自动注册yy娱乐的账号

set WshShell=WScript.CreateObject("WScript.Shell") Const user = "hugetech2" Const pwd = "huge204204" Const pid = "2127" Const mobilePwd = "basketball123" Dim userToken Dim mobile Dim identify identify = &q

今天中了一个脚本病毒。把我的所有 html 加了 vbs 脚本,WriteData 是什么鬼?

今天中了一个脚本病毒.把我的所有 html 加了 vbs 脚本: WriteData 是什么鬼? <SCRIPT Language=VBScript><!-- DropFileName = "svchost.exe" WriteData = "4D5A90000300000004000000FFFF0000B8000000000000004000000000000000000000000000000000000000000000000000000000000

使用VBS脚本实现的Hosts文件一键配置

hosts文件存储了IP地址与域名的映射.因为有的时候需要经常性地配置hosts文件,因此这段时间我琢磨了一套傻瓜化的hosts文件配置方案,记录如下. 先说一下怎么样进入hosts文件,Windows环境(我用的是一个32位的Win7)下hosts文件在计算机中的位置,在目录%windir%\System32\drivers\etc\hosts下.不过相比每次都要点很多目录才能找到hosts文件,我们可以通过执行下面这个脚本直接用记事本打开hosts文件: @echo off  if "%1&

一个转换编码格式的VBS脚本

今天看到了一个转换编码格式的VBS脚本程序,但是只能转换2种,改造了一下,可以自己指定转换格式.支持: utf-8 ansi 或者是 gb2312 unicode 之间的相互转换.自动探测文件格式,手工指定输出格式,默认输出格式为utf-8.可以直接改变文件编码,也可以输出为另外的一个文件.支持强制覆盖选项. 用法为: cscript chcode.vbs inputfile.txt 会把inputfile.txt转换为utf-8格式编码 cscript chcode.vbs inputfile

VBS脚本和HTML DOM自动操作网页

VBS脚本和HTML DOM自动操作网页 2016-06-16 10:24 1068人阅读 评论(0) 收藏 举报  分类: Windows(42)  版权声明:本文为博主原创文章,未经博主允许不得转载. 本来是想通过JS实现对其他页面的控制,发现跨域无法获取页面DOM来操作.接着考虑bat,发现也实现不了,于是想到vbs.vbs还是很强大啊,病毒之类很多都是vbs脚本啊.vbs打开浏览器,然后通过dom来操作页面,可以实现自动填写内容和按钮点击等.摸索了几个常用的,代码如下: 1.网页文本框赋

BAT&VBS脚本:Windows连接VPN后同时登陆内网和外网

今天连公司的VPN,发现连上去之后就登陆不了外网了,上网查了下,再加上与同事的交流,发现连接VPN后同时登陆外网需要下面几个步骤: (我的环境:Windows 7 旗舰版 Service Pack 1) 1)建立好VPN,连接VPN 2)进入到VPN属性页面 3)找到网络选项卡,选中"Internet版本协议4(TCP/IPv4)",点击下方的"属性"按钮 4)在"Internet版本协议4(TCP/IPv4)"的属性界面中,点击"高级

Vbs脚本定时判断及启动tomcat服务

说到tomcat服务,我们大家都会联系到apache,那apache和tomcat有什么区别呢,apache是web服务器(静态解析,如HTML),tomcat是java应用服务器(动态解析,如JSP.PHP)tomcat只是一个servlet(jsp也翻译成servlet)容器,可以认为是apache的扩展,但是可以独立于apache运行,两者从以下几点可以比较的: 1.两者都是apache组织开发的 .2.两者都有HTTP服务的功能 .3.两者都是开源免费的 .当然对于一个java开发人员来

VBS脚本操作网页元素

=================打开百度,点击百度按钮==================== Dim btn,ieSet ie = WScript.CreateObject("InternetExplorer.Application")ie.Visible = true '若为false,则不显示浏览器ie.navigate "www.baidu.com" DoWscript.Sleep 200Loop Until ie.readyState = 4 '等页面载