04 自动登录百度案例

Paste_Image.png
Paste_Image.png

里面设计到界面的技术,非常简单,点击界面就会有帮助文档;当然也可以在按键论坛里面学习,里面各种资料;

这里要谈谈浏览器的操作:
在使用如下语句去点击或其他操作去控制网页时,需要"元素特征字符串"
,那么如何获取呢?

myWindow.WebBrowser.HtmlClickEx("tag:A&txt:去签到")

  1. 使用WQM(在按键精灵的安装目录下)可以查看特征元素(但是我在win10下竟然不可以)


  2. 如果不能使用WQM的情况下怎么办呢?
    可以用chrome的检查工具查看元素特征;
    原则:
    有id的用id,因为id足以标识一个元素
    没有id的可以使用组合

"tag:SPAN&txt:消息"
Paste_Image.png
源码
/*---------------大漠注册-----------------*/
//DimEnv dm
Function registerDM
    PutAttachment "C:\dm\","*.*" //所以文件都释放到c盘大漠目录下
    Call Plugin.RegDll.Reg("C:\dm\dm.dll") //注意dm.dll
    Set dm = createobject("dm.dmsoft") //创建一个大漠对象
    dm.SetPath "C:\dm\" //设置资源路径

End Function
/*-------------------------------------*/


DimEnv screenW //屏幕宽度
DimEnv screenH //屏幕高度
DimEnv zhidaoAD //百度知道网址
DimEnv wenkuAD //百度文库网址

DimEnv zhidao //是否勾选签到百度知道
Dimenv wenku //是否勾选签到百度文库

DimEnv zhidaoDone//知道是否加载完成
Dimenv wenkuDone//文库是否加载完成

DimEnv zhidaoTask//知道是否加载完成
Dimenv wenkuTask//文库是否加载完成


Dimenv flush_time//无响应多久刷新（线程要想获得该值，那么必须DimEnv）
Dimenv exit_time//刷新几次无果后退出程序

Dimenv zhidaoID //知道线程ID
DimEnv wenkuID

Dimenv zhidaoTCID //知道timer线程ID
DimEnv wenkuTCID

Dimenv zhidaoTC //定时器执行次数（TimerCount）
Dimenv wenkuTC

DimEnv info //提示信息

/*----------------前端操作------------------*/
//窗体加载
Event myWindow.Load
    
    screenW = Plugin.Sys.GetScRX()
    screenH = Plugin.Sys.GetScRY()
    
    zhidaoAD = "http://zhidao.baidu.com/"
    wenkuAD = "http://wenku.baidu.com/task/browse/daily"
    
    zhidao = myWindow.zhidao_cb.Value
    wenku = myWindow.wenku_cb.Value
    
    zhidaoDone = false
    wenkuDone = false
    
    zhidaoTask = false
    wenkuTask = false
    
    zhidaoTC = 0
    wenkuTC = 0
    
    flush_time = myWindow.flushT_cb.ListIndex
    exit_time = myWindow.exitT_cb.ListIndex
    
End Event

//浏览器加载完成


//勾选知道
Event myWindow.zhidao_cb.Click
    If myWindow.zhidao_cb.Value = 1 Then 
        zhidao = True
    Else 
        zhidao = false
    End If
End Event

//勾选文库
Event myWindow.wenku_cb.Click
    If myWindow.wenku_cb.Value = 1 Then 
        wenku = True
    Else 
        wenku = false
    End If
End Event

// 刷新 时间
Event myWindow.flushT_cb.SelectChange
    flush_time = myWindow.flushT_cb.ListIndex
End Event

// 时间 结束
Event myWindow.exitT_cb.SelectChange
    exit_time = myWindow.exitT_cb.ListIndex
End Event

//启动
Event myWindow.go.Click

    temp = BeginThread(operateManag)
    
End Event



/*--------------后台操作---------------*/

//总操作线程
Sub operateManag
//  promptFun
    tmep = BeginThread(isDone)
    
    //如果勾选了知道那么开启签到知道进程
    If zhidao Then 
        zhidaoID = BeginThread(signZhiDao_pro)
        
    End If
    
    //如果勾选了知道那么开启签到知道进程
    If wenku Then 
        wenkuID = BeginThread(signWenKu_pro)
        
    End If
End Sub





// 设置提示
Function promptFun()
    Dim prompt
    
    If zhidao Then 
        prompt = prompt & "签到百度知道 | "
    End If
    
    If wenku Then 
        prompt = prompt & "签到百度文库 | "
    End If
    
    prompt = prompt & ("无响应" & (flush_time*1000+100000) & "秒后刷新 | ")
    
    prompt = prompt & ("刷新" & (exit_time*1000+10000) & "秒无响应后退出 | ")
    
    MessageBox "您的设置为：   " & prompt & "若想修改，请及时按热键取消操作"
End Function

//百度知道签到（线程）
Sub signZhiDao_pro
    zhidaoTCID = BeginThread(zhidaoTimer_pro)
    signZhiDao
End Sub

//百度文库签到（线程）
Sub signWenKu_pro
    
    //如果勾选了百度知道，那么等待其先完成
    Do While True
        If (zhidao and zhidaoTask) or zhidao = false Then 
            Exit Do
        End If
            
        Delay 1000
    Loop
    
    wenkuTCID = BeginThread(wenkuTimer_pro)
    signWenKu 
End Sub


// 百度知道签到（函数）
Function signZhiDao()
    registerDM

    //加载网址并等待网页加载完成
    myWindow.WebBrowser.Url = zhidaoAD
    Do
        Delay 200
    Loop While not (myWindow.WebBrowser.GetReadyState = 4) //等待加载完网页（4表示加载完成）
    
    myWindow.WebBrowser.Refresh
    Do
        Delay 200
    Loop While not (myWindow.WebBrowser.GetReadyState = 4) //等待加载完网页（4表示加载完成）
    
    myWindow.WebBrowser.HtmlClickEx("tag:A&txt:去签到")
    //弹出网页所占宽度 高度
//  temp = myWindow.WebBrowser.RunJS(0,"alert(document.body.scrollWidth);")
//  temp = myWindow.WebBrowser.RunJS(0,"alert(document.body.scrollHeight);")
    Delay 1000

    Do While True
        dm_ret = dm.FindPic(0, 0, screenW, screenH, "点击签到.bmp", "000000", 0.9, 0, intX, intY)
        
        
        If not (dm_ret = - 1 )  Then 
            TracePrint "已找到"
            Exit Do
        Else 
            TracePrint "找字/图中"
        End If
        Delay 2000
    Loop

    MoveTo intX, intY

    LeftClick 1
    
    Delay 1000
    
    zhidaoTask = True
End Function


// 百度文库签到（函数）
Function signWenKu()
    registerDM

    //加载网址并等待网页加载完成
    myWindow.WebBrowser.Url = wenkuAD
    Do
        Delay 200
    Loop While not (myWindow.WebBrowser.GetReadyState = 4) //等待加载完网页（4表示加载完成）
    
    myWindow.WebBrowser.Refresh
    Do
        Delay 200
    Loop While not (myWindow.WebBrowser.GetReadyState = 4) //等待加载完网页（4表示加载完成）
    
    myWindow.WebBrowser.ScrollTo 980, 1200

    Delay 500

    Do While True
        dm_ret = dm.FindPic(0, 0, screenW, screenH, "马上签到.bmp", "000000", 0.9, 0, intX, intY)
        
        If not(dm_ret=-1) Then
            Exit Do
        Else 
            TracePrint "找字/图中"
        End If
        Delay 2000
    Loop

    MoveTo intX + 5, intY + 5
    
    LeftClick 1
    
    Delay 1000

    wenkuTask = True
End Function

/*--------------辅助函数---------------*/

//开启定时器线程

Sub zhidaoTimer_pro
    For (flush_time + 10)
        Delay 1000
        TracePrint "zhidaoTimer"
    Next
    
    
    If zhidaoTC >= (exit_time + 1) Then 
        info = "执行超时，请确定退出"
        temp = BeginThread(exitSub)
    Else    
        If zhidaoTask = false Then 
            StopThread (zhidaoID)
            zhidaoID = BeginThread(signZhiDao_pro)
            TracePrint "重来一次"
        End If
    End If
        
    zhidaoTC = zhidaoTC + 1 
End Sub

Sub wenkuTimer_pro
    For (flush_time + 10)
        Delay 1000
        TracePrint "wenkuTimer"
    Next
    
//  TracePrint wenkuTC
    If wenkuTC >= (exit_time + 1) Then 
        info = "执行超时，请确定退出"
        temp = BeginThread(exitSub)
    
    Else 
        If wenkuTask = false Then 
            StopThread (wenkuID)
            wenkuID = BeginThread(signWenKu_pro)
            TracePrint "重来一次"
        End If
    End If
    
    wenkuTC = wenkuTC + 1
End Sub


//判断是否执行完毕线程
Sub isDone
    Do While True
        If wenku Then 
            If wenkuTask Then 
                If zhidao Then 
                    If zhidaoTask Then 
                        Exit Do
                    End If
                Else 
                    Exit Do
                End If
            End If
        End If
        TracePrint "wenku: " & wenku
        TracePrint "wenkuTask: " & wenkuTask
        Delay 3000
    Loop
    
    info = "执行完毕，请确定退出"
    temp = BeginThread(exitSub)
End Sub


// 开启退出程序线程
Sub exitSub
    StopThread (zhidaoID)
    StopThread (wenkuID)
    StopThread (zhidaoTCID)
    StopThread (wenkuTCID)
    MessageBox (info)
    
    temp = BeginThread(closeSign) //关闭百度签到
    temp = BeginThread(closeRunner) //关闭Runner(脚本执行器)
End Sub

Sub closeSign
    Call Lib.系统.结束进程("我的百度签到.exe")
End Sub


Sub closeRunner
    Call Lib.系统.结束进程("Runner.exe")
End Sub

//点击进入百度知道页面（目的去截图）
Event myWindow.zhidao_btn.Click
    myWindow.WebBrowser.Url = zhidaoAD
End Event

//点击进入百度文库页面（目的去截图）
Event myWindow.wenku_btn.Click
    myWindow.WebBrowser.Url = wenkuAD
End Event
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
【社区内容提示】社区部分内容疑似由AI辅助生成，浏览时请结合常识与多方信息审慎甄别。
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

相关阅读更多精彩内容

友情链接更多精彩内容