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

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
'ie.document.getElementsByClassName("login-btn")(0).click
ie.document.getElementsByClassName("s1")().click
Wscript.sleep
ie.document.getElementsByClassName("wblogin")().click
Wscript.sleep
'for i = 0 to 6
'WshShell.SendKeys "{Tab}"
'Wscript.sleep 2000
'next
mouse.move , '把鼠标移动到坐标
WScript.Sleep
mouse.clik "LEFT" '左击
WshShell.SendKeys "+"
Wscript.sleep
WshShell.SendKeys "liaoqiao02278@163.com"
Wscript.sleep
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "5ct90f"
Wscript.sleep
'*********************************************************************** ' 将鼠标移到验证码 '***********************************************************************
mouse.move , '把鼠标移动到坐标
WScript.Sleep
mouse.clik "RIGHT" '右击
WScript.Sleep
WshShell.SendKeys "S"
WScript.Sleep
WshShell.SendKeys "temp"
WScript.Sleep
WshShell.SendKeys "{Enter}"
WScript.Sleep
WshShell.SendKeys "{LEFT}"
WScript.Sleep
WshShell.SendKeys "{Enter}"
WScript.Sleep
Set exeRs = WshShell.Exec("curl.exe -F ""image=@C:\Users\HugeTech7\Pictures\temp.png"" ""http://api.ysdm.net/create.json?username=hq20150618&password=huge247247&typeid=3050&softid=52084&softkey=45b6a56f262a46f38d086c4f50826631""")
Wscript.sleep
errMsg = exeRs.StdErr.ReadAll()
stdMsg = exeRs.StdOut.ReadAll()
identify = Mid(stdMsg,,)
WScript.Sleep
mouse.move , '把鼠标移动到坐标
WScript.Sleep
mouse.clik "LEFT" '左击
WshShell.SendKeys identify
Wscript.sleep
WshShell.SendKeys "{Enter}"
Wscript.sleep
mouse.move , '把鼠标移动到坐标
WScript.Sleep
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, , "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()
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, , , ,
Case "RIGHT"
xls.Run "mouse_event", &H8 + &H10, , , ,
Case "MIDDLE"
xls.Run "mouse_event", &H20 + &H40, , , ,
Case "DBCLICK"
xls.Run "mouse_event", &H2 + &H4, , , ,
xls.Run "mouse_event", &H2 + &H4, , , ,
End Select
End Sub End Class '*********************************************************************** '代码结束 '***********************************************************************

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

  1. 2.如何实现使用VBS脚本程序对直播间自动评论

    前言:本文使用的是VBS脚本,实现了对繁星直播自动登录,自动进入房间并且自动评论. 前提准备:把需要刷的评论放到mysql中,再使用vbs读出评论 -------------------------- ...

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

    set WshShell=WScript.CreateObject("WScript.Shell") Const user = "hugetech2" Cons ...

  3. 基于python的直播间接口测试实战 详解结合项目

    基于python的直播间接口测试详解 一.基本用例内容描述 以设置白名单 /advisor/setUserWhiteList.do接口为例,该方法为POST at first,先要导入一些常用到的模块 ...

  4. Vbs 脚本编程简明教程之一

    —为什么要使用 Vbs ? 在 Windows 中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动 计算机第一件 ...

  5. 使用vbs脚本进行批量编码转换

    使用vbs脚本进行批量编码转换 最近需要使用SourceInsight查看分析在Linux系统下开发的项目代码,我们知道Linux系统中文本文件默认编码格式是UTF-8,而Windows中文系统中的默 ...

  6. 在本地主机上powershell中连接远程主机执行vbs脚本,得到执行结果(2008版及以上)

    在桌面版的主机上远程管理服务器版主机,在本地powershell中连接远程主机执行vbs脚本,得到执行结果. 执行步骤: 1.将本地主机上的Hyper.vbs复制到远程连接主机上.例如,本地vbs脚本 ...

  7. [VBS]脚本中的字典、动态数组、队列和堆栈

    今天用VBS脚本写了几个程序,用到了字典(Dictionary).动态数组(ArrayList).队列(Queue)和堆栈(Stack).现在写篇Blog总结一下 :-) 1.编写环境 今天突发奇想下 ...

  8. Vbs脚本经典教材(转)

    Vbs脚本经典教材(最全的资料还是MSDN) —为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改 ...

  9. 用VBS脚本发邮件

    需求是这样的:针对账号的管理,如果发现该账号的管理员给账号加了批注,(比如要过期,修改密码,完善资料等),就需要找到这样的账号及其管理的邮件,然后发邮件给他们的管理员同时抄送给账号以达到提醒的目的.那 ...

随机推荐

  1. Spring 日期时间处理

    1 Spring自身的支持 1.1 factory-bean <bean id="dateFormat" class="java.text.SimpleDateFo ...

  2. 腾讯云更换yum源

    最近公司使用了云服务器代替了机房的一些服务器,然而选择了腾讯云,个人观点通过比较还是阿里云好了点,可能为了使用腾讯云的一些其他功能吧,书归正文. 由于腾讯的源网站经常挂,在我使用过的一台腾讯云主机的时 ...

  3. SpringMVC + spring3.1.1 + hibernate4.1.0 集成及常见问题总结

    下载地址: http://pan.baidu.com/s/1qWDinyk 一 开发环境 1.动态web工程 2.部分依赖 hibernate-release-4.1.0.Final.zip hibe ...

  4. javaWeb学习总结(10)- EL表达式

    一.EL表达式简介 EL 全名为Expression Language.EL主要作用: 1.获取数据 EL表达式主要用于替换JSP页面中的脚本表达式,以从各种类型的web域 中检索java对象.获取数 ...

  5. Swift 入门之简单语法(一)

    定义 let 定义常量,一经赋值不允许再修改 var 定义变量,赋值之后仍然可以修改 //: # 常量 //: 定义常量并且直接设置数值 let x = 20 //: 常量数值一经设置,不能修改,以下 ...

  6. Best packages for data manipulation in R

    dplyr and data.table are amazing packages that make data manipulation in R fun. Both packages have t ...

  7. rPithon vs. rPython(转)

    Similar to rPython, the rPithon package (http://rpithon.r-forge.r-project.org) allows users to execu ...

  8. 跟着刚哥深入学maven

    前言:目前所有的项目都在使用maven,可是一直没有时间去整理学习,这两天正好有时间,好好的整理一下. 一.为什么使用Maven这样的构建工具[why] ① 一个项目就是一个工程 如果项目非常庞大,就 ...

  9. python-广度优先搜索

    广度优先搜索 下面我们来来BFS算法策略: 比如:我们要从双子峰---->金门大桥,最短路径如何? 我们利用广度优先搜索来一步步求解,注意广度优先搜索在于的关键在于"广",也 ...

  10. C++如何入门

    去 Visual Studiohttps://www.visualstudio.com/zh-hans/?rr=https%3A%2F%2Flink.zhihu.com%2F%3Ftarget%3Dh ...