东方时尚驾校自动约车方法
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
东方时尚驾校自动约车系统
上海限制外地人学车的消息，让本来就生意兴隆的北京东方时尚驾校人满为患，
我跟许多人一样宁可信其有的报名学车了，虽然心里早有准备，但约车的难度仍然让我崩溃：
从早上7点开始打约车电话，不断的重拨重拨40分钟后才拨通电话，但所有时段的车都已约满了。
研究发现有些人约上车后，可能因故退车，于是自己编写了一个脚本程序，能自动刷新东方时尚的网页，发现有人退车时自动约车，
bt_mn = Plugin.Web.HtmlGet("value", "id:RadioButtonList1_2")
If bt_mn = "" Then //由于刷的人太多，有时间网站打不开出错，系统会在这里自动点回退，保证网页正常。
Plugin.Web.Back
End If
//刷新网页时，有时会丢失数据，可获取第一行第一列按钮的值，如果值为空，说明丢失了数据。
//这时点一下“模拟”，再点一下“散段”，网页就能恢复正常。
bt_1_9_value = Plugin.Web.HtmlGet("value", "id:gv_ctl02_I_HOUR7_9")
If bt_1_9_value = "" Then
//发现有车位，立即点击按钮约车，
For i = 0 To UBound(y_bt_name_array)
y_click_bt_name = y_bt_name_array(i)
y_click_Βιβλιοθήκη t_value=Plugin.Web.HtmlGet("value",y_click_bt_name)
[Script]
//说明：此脚本为东方时尚自动约车脚本，由于未做验证码自动识别脚本，因此不能自动登录，需要先手工登录到东方时尚的约车页面。
//运行此脚本前，请先打开按键精灵9的“网页按键精灵”,并且要让订车页面位于第二个标签页上,然后再运行此脚本。
//注意：请用“网页按键精灵”打开网页，而不是用IE浏览器，
Delay 3000
End If
Next
Sub OnScriptExit()
Call Plugin.Web.Tips("脚本停止运行")
End Sub
////脚本结束－－－－－－－－－－－－－－－－
ProcessID=Plugin.Web.Bind("wqm.exe")
Delay 2000
If ProcessID=0 then
MessageBox "网页按键精灵没有运行"
EndScript
End If
Call Plugin.Web.Tips("脚本开始运行")
Call Plugin.Web.SetSize(1024,768)
以下为自动约车脚本，请复制此脚本保存为.Q 后缀的文件：
[General]
SyntaxVersion=2
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
//设置要约车的时段，将按钮名称放入数组
//如按钮：id:gv_ctl02_I_HOUR7_9 ，02表示第一行，7_9表示7至9点时段
//02为第一行，03第二行，04第三行，05第四行，06第五行，07第六行，08第七行
Dim y_bt_name_array
y_bt_name_array = Array("id:gv_ctl02_I_HOUR7_9","id:gv_ctl02_I_HOUR9_13","id:gv_ctl02_I_HOUR13_17","id:gv_ctl02_I_HOUR17_19","id:gv_ctl02_I_HOUR19_21","id:gv_ctl03_I_HOUR7_9","id:gv_ctl03_I_HOUR9_13","id:gv_ctl03_I_HOUR13_17","id:gv_ctl03_I_HOUR17_19")
RunOnce=0
EnableWindow=
MacroID=98fbf1ed-3b89-4efb-b1d1-922a2f76f9aa
Description=东方时尚自动约车脚本
Enable=1
AutoRun=0
[Repeat]
Type=2
Number=32400
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment]
[UIPackage]
UEsDBBQAAgAIAN5ViD+HRvSyfQAAAMIAAAAJABEAVUlQYWNrYWdlVVQNAAeHleBOh5XgToeV4E5jYmBgYARiFhB2yy/KZQURhowgMSRgwsTAUAkU43Avyi8tcMqv4IQxQEqROEC1MkAsCMSlQM4tIM3hnJGanA3SA2OA9HCYb3187aDl1sdAkxnCgFgDiJcDsQ3IRaw+iUmpOWxgEqSa7dqdgz8X72IGyqkAsQ4Q+wKxPRADAFBLAQIXCxQAAgAIAN5ViD+HRvSyfQAAAMIAAAAJAAkAAAAAAAAAAAAAgAAAAABVSVBhY2thZ2VVVAUAB4eV4E5QSwUGAAAAAAEAAQBAAAAAtQAAAAAA
If y_click_bt_value ="1" or y_click_bt_value="2" or y_click_bt_value="3" Then
Call Plugin.Web.HtmlClick(y_click_bt_name)
//MessageBox "哇哈哈，居然有人退车,捡到宝了。-->" & y_click_bt_name
3、进个按键精灵9，导入步骤2中保存的脚本。（可将导入后的脚本命名为：东方时尚自动约车）
4、打开按键精灵9附带的工具：网页按键精灵 ，进入东方时尚的网站 ，输入你的员号和密码登录进系统。
5、进入按键精灵9，运行“东方时尚自动约车”脚本。系统会每1秒钟刷新一下网页，发现有车会自动帮你约车，按键精灵可在后台运行不影响你的工作。
此方法帮我约了好多节课，包括周六日白天的课，这样每个周末2天我都能12小时的课，只花了1个半月我就拿到车本了。
现将此方法写一下，希望能帮助大家顺利拿到车本。
1、先下载“按键精灵9”软件， 在上搜索“按键精灵9”，下载安装。（推荐去官网下载，防止木马）
2、打开记事本，新建一个txt文件，将本文最后的脚本复制到txt文件中，保存为后缀为".Q "的文件，如：abc.Q
Call Plugin.Web.ScrollTo(0,0)
Call Plugin.Web.TabGoTo(2)
Delay 500
Call Plugin.Web.HtmlClick("id:btnRefresh")
Delay 1000 //表示点击刷新按钮后，等待1秒钟，如果发现东方时尚的网页慢，可将此时间改长一点，这里的值1000为1秒。
Call Plugin.Web.HtmlClick("id:RadioButtonList1_0")
Delay 1000
Call Plugin.Web.HtmlClick("id:RadioButtonList1_1")
Delay 1000
End If
//约车前，需要在网页上看看约车时段按钮的位置，因为这个位置每天都变动一次的，需要每天确认一次，并修改下面脚本。
上海限制外地人学车的消息，让本来就生意兴隆的北京东方时尚驾校人满为患，
我跟许多人一样宁可信其有的报名学车了，虽然心里早有准备，但约车的难度仍然让我崩溃：
从早上7点开始打约车电话，不断的重拨重拨40分钟后才拨通电话，但所有时段的车都已约满了。
研究发现有些人约上车后，可能因故退车，于是自己编写了一个脚本程序，能自动刷新东方时尚的网页，发现有人退车时自动约车，
bt_mn = Plugin.Web.HtmlGet("value", "id:RadioButtonList1_2")
If bt_mn = "" Then //由于刷的人太多，有时间网站打不开出错，系统会在这里自动点回退，保证网页正常。
Plugin.Web.Back
End If
//刷新网页时，有时会丢失数据，可获取第一行第一列按钮的值，如果值为空，说明丢失了数据。
//这时点一下“模拟”，再点一下“散段”，网页就能恢复正常。
bt_1_9_value = Plugin.Web.HtmlGet("value", "id:gv_ctl02_I_HOUR7_9")
If bt_1_9_value = "" Then
//发现有车位，立即点击按钮约车，
For i = 0 To UBound(y_bt_name_array)
y_click_bt_name = y_bt_name_array(i)
y_click_Βιβλιοθήκη t_value=Plugin.Web.HtmlGet("value",y_click_bt_name)
[Script]
//说明：此脚本为东方时尚自动约车脚本，由于未做验证码自动识别脚本，因此不能自动登录，需要先手工登录到东方时尚的约车页面。
//运行此脚本前，请先打开按键精灵9的“网页按键精灵”,并且要让订车页面位于第二个标签页上,然后再运行此脚本。
//注意：请用“网页按键精灵”打开网页，而不是用IE浏览器，
Delay 3000
End If
Next
Sub OnScriptExit()
Call Plugin.Web.Tips("脚本停止运行")
End Sub
////脚本结束－－－－－－－－－－－－－－－－
ProcessID=Plugin.Web.Bind("wqm.exe")
Delay 2000
If ProcessID=0 then
MessageBox "网页按键精灵没有运行"
EndScript
End If
Call Plugin.Web.Tips("脚本开始运行")
Call Plugin.Web.SetSize(1024,768)
以下为自动约车脚本，请复制此脚本保存为.Q 后缀的文件：
[General]
SyntaxVersion=2
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
//设置要约车的时段，将按钮名称放入数组
//如按钮：id:gv_ctl02_I_HOUR7_9 ，02表示第一行，7_9表示7至9点时段
//02为第一行，03第二行，04第三行，05第四行，06第五行，07第六行，08第七行
Dim y_bt_name_array
y_bt_name_array = Array("id:gv_ctl02_I_HOUR7_9","id:gv_ctl02_I_HOUR9_13","id:gv_ctl02_I_HOUR13_17","id:gv_ctl02_I_HOUR17_19","id:gv_ctl02_I_HOUR19_21","id:gv_ctl03_I_HOUR7_9","id:gv_ctl03_I_HOUR9_13","id:gv_ctl03_I_HOUR13_17","id:gv_ctl03_I_HOUR17_19")
RunOnce=0
EnableWindow=
MacroID=98fbf1ed-3b89-4efb-b1d1-922a2f76f9aa
Description=东方时尚自动约车脚本
Enable=1
AutoRun=0
[Repeat]
Type=2
Number=32400
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment]
[UIPackage]
UEsDBBQAAgAIAN5ViD+HRvSyfQAAAMIAAAAJABEAVUlQYWNrYWdlVVQNAAeHleBOh5XgToeV4E5jYmBgYARiFhB2yy/KZQURhowgMSRgwsTAUAkU43Avyi8tcMqv4IQxQEqROEC1MkAsCMSlQM4tIM3hnJGanA3SA2OA9HCYb3187aDl1sdAkxnCgFgDiJcDsQ3IRaw+iUmpOWxgEqSa7dqdgz8X72IGyqkAsQ4Q+wKxPRADAFBLAQIXCxQAAgAIAN5ViD+HRvSyfQAAAMIAAAAJAAkAAAAAAAAAAAAAgAAAAABVSVBhY2thZ2VVVAUAB4eV4E5QSwUGAAAAAAEAAQBAAAAAtQAAAAAA
If y_click_bt_value ="1" or y_click_bt_value="2" or y_click_bt_value="3" Then
Call Plugin.Web.HtmlClick(y_click_bt_name)
//MessageBox "哇哈哈，居然有人退车,捡到宝了。-->" & y_click_bt_name
3、进个按键精灵9，导入步骤2中保存的脚本。（可将导入后的脚本命名为：东方时尚自动约车）
4、打开按键精灵9附带的工具：网页按键精灵 ，进入东方时尚的网站 ，输入你的员号和密码登录进系统。
5、进入按键精灵9，运行“东方时尚自动约车”脚本。系统会每1秒钟刷新一下网页，发现有车会自动帮你约车，按键精灵可在后台运行不影响你的工作。
此方法帮我约了好多节课，包括周六日白天的课，这样每个周末2天我都能12小时的课，只花了1个半月我就拿到车本了。
现将此方法写一下，希望能帮助大家顺利拿到车本。
1、先下载“按键精灵9”软件， 在上搜索“按键精灵9”，下载安装。（推荐去官网下载，防止木马）
2、打开记事本，新建一个txt文件，将本文最后的脚本复制到txt文件中，保存为后缀为".Q "的文件，如：abc.Q
Call Plugin.Web.ScrollTo(0,0)
Call Plugin.Web.TabGoTo(2)
Delay 500
Call Plugin.Web.HtmlClick("id:btnRefresh")
Delay 1000 //表示点击刷新按钮后，等待1秒钟，如果发现东方时尚的网页慢，可将此时间改长一点，这里的值1000为1秒。
Call Plugin.Web.HtmlClick("id:RadioButtonList1_0")
Delay 1000
Call Plugin.Web.HtmlClick("id:RadioButtonList1_1")
Delay 1000
End If
//约车前，需要在网页上看看约车时段按钮的位置，因为这个位置每天都变动一次的，需要每天确认一次，并修改下面脚本。