Paste_Image.png
Paste_Image.png
里面设计到界面的技术,非常简单,点击界面就会有帮助文档;当然也可以在按键论坛里面学习,里面各种资料;
这里要谈谈浏览器的操作:
在使用如下语句去点击或其他操作去控制网页时,需要"元素特征字符串"
,那么如何获取呢?
myWindow.WebBrowser.HtmlClickEx("tag:A&txt:去签到")
-
使用WQM(在按键精灵的安装目录下)可以查看特征元素(但是我在win10下竟然不可以)
-
如果不能使用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