设为首页收藏本站
切换到宽版 Language

 找回密码
 注册
搜索
无忧启动论坛»论坛 › ::谈天说地:: › 休闲娱乐 › 如何批量自动网络录入
系统gho:最纯净好用系统下载站投放广告、加入VIP会员，请联系 微信:wuyouceo
返回列表 发新帖
查看: 1435|回复: 5

如何批量自动网络录入

[复制链接]
lwz
发表于 2009-12-4 13:48:00 | 显示全部楼层 |阅读模式
---> 升级权限
万能的论坛，请帮帮忙
有一份近一万条的数据，已经有电子表格版，可是上面要求网络录入，那个界面很枯燥，只能单用户录入（一个密钥盘）。自己算了一下，每天录入200条，需要50天。
现在有两个办法：
1、把电子表格用邮件发送到服务器端，让数据库管理员手工导入数据。（这条路几乎不可能）
2、采用按键精灵等软件，自动录入
请各位推荐一个比较简单而又高效的软件（方法）
谢谢了

已经完成，使用按键精灵

[General]
Description=temp1
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=35801
PauseHotkeyMod=30673
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
Plugin ProcessID=Web.Bind("wqm.exe")
Delay 1000
If ProcessID=0
    MessageBox "网页按键精灵没有运行"
    EndScript
EndIf
Plugin Web.Tips("脚本开始运行")
Plugin Web.SetSize(1024,742)
Plugin Web.ScrollTo(0,0)
VBS dim x
VBS dim cun
VBS dim YYY
VBS dim YYYY
VBS dim YYYY1
VBS dim YYYY2
//设定从第11行起
VBS x = 11
Set xlApp = CreateObject("Excel.Application")
xlApp.visible = True
Set xlBook = xlApp.Workbooks.Open("d:\按键精灵\1234.xls")
Set xlSheet = xlBook.ActiveSheet
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~自动登录~~~~~~~~~~~~~~~~~~~~~~~~~~~
Rem denglu1
Plugin Web.Go("http://XXX.XXX.XXX")
Delay 2000
Plugin DL1=Web.HtmlExists("name:UserPIN")
If DL1<=0
    Plugin Web.Tips("正在打开农村房屋抗震普查系统")
    Delay 1000
    Goto denglu1
EndIf
//输入密码
Rem denglu2
Plugin Web.HtmlInput("111111","name:UserPIN")
Delay 500
Plugin Web.LeftClick(600,430)
Delay 500
KeyPress 13,1
Delay 1000
//查找“普查表录入
Plugin DL2=Web.HtmlExists("tag:TD&txt:　&frame:1")
If DL2<=0
    Plugin Web.Tips("正在登录，请稍侯！")
    Delay 1000
    Goto denglu2
EndIf
//根据行政村编号，设置点击的链接地址
If xlsheet.cells(2,2).value="1" or xlsheet.cells(2,2).value="01"
    VBS cun = "id:webfx-tree-object-6-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="1" or xlsheet.cells(2,2).value="02"
    VBS cun = "id:webfx-tree-object-7-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="3" or xlsheet.cells(2,2).value="03"
    VBS cun = "id:webfx-tree-object-8-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="4" or xlsheet.cells(2,2).value="04"
    VBS cun = "id:webfx-tree-object-9-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="5" or xlsheet.cells(2,2).value="05"
    VBS cun = "id:webfx-tree-object-10-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="6" or xlsheet.cells(2,2).value="06"
    VBS cun = "id:webfx-tree-object-11-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="7" or xlsheet.cells(2,2).value="07"
    VBS cun = "id:webfx-tree-object-12-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="8" or xlsheet.cells(2,2).value="08"
    VBS cun = "id:webfx-tree-object-13-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="9" or xlsheet.cells(2,2).value="09"
    VBS cun = "id:webfx-tree-object-14-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="10"
    VBS cun = "id:webfx-tree-object-15-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="11"
    VBS cun = "id:webfx-tree-object-16-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="12"
    VBS cun = "id:webfx-tree-object-17-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="13"
    VBS cun = "id:webfx-tree-object-18-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="14"
    VBS cun = "id:webfx-tree-object-19-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="15"
    VBS cun = "id:webfx-tree-object-20-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="16"
    VBS cun = "id:webfx-tree-object-21-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="17"
    VBS cun = "id:webfx-tree-object-22-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="18"
    VBS cun = "id:webfx-tree-object-23-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="19"
    VBS cun = "id:webfx-tree-object-24-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="20"
    VBS cun = "id:webfx-tree-object-25-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="21"
    VBS cun = "id:webfx-tree-object-26-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="22"
    VBS cun = "id:webfx-tree-object-27-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="23"
    VBS cun = "id:webfx-tree-object-28-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="24"
    VBS cun = "id:webfx-tree-object-29-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="25"
    VBS cun = "id:webfx-tree-object-30-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="26"
    VBS cun = "id:webfx-tree-object-31-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="27"
    VBS cun = "id:webfx-tree-object-32-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="28"
    VBS cun = "id:webfx-tree-object-33-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="29"
    VBS cun = "id:webfx-tree-object-34-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="30"
    VBS cun = "id:webfx-tree-object-35-anchor&frame:0"
EndIf
//点击对应行政村
Rem denglu3
Plugin Web.LeftClick(53,87)
Delay 1000
Plugin DL3=Web.HtmlExists("id:webfx-tree-object-6-anchor&frame:0")
If DL3<=0
    Plugin Web.Tips("正在点击普查登录")
    Delay 1000
    Goto denglu3
EndIf
Plugin Web.HtmlClick(cun)
Delay 1000
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~开始录入~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//检查Excel文件中的标记，确定开始输入的行
Rem pd1
If xlsheet.cells(x,1).value=""
    MessageBox "用户姓名为空，可能已经输入完成"
    Goto tuichu
EndIf
If xlsheet.cells(x,32).value=""
    Goto luru
Else
    x = x + 1
    Goto pd1
EndIf
YYYY=0
Rem luru
//测试1：是否进入录入普查工作入户调查表界面
Rem ceshi1
Plugin L1=Web.HtmlExists("id:butnull&frame:1")
If L1<1 and YYYY<30
    Plugin Web.Tips("正在打开普查工作入户调查表录入界面")
    Delay 100
    Plugin Web.LeftClick(741,118)
    Delay 300
    YYYY = YYYY + 1
    Goto ceshi1
EndIf
Rem ceshia1
Plugin L1=Web.HtmlExists("id:butnull&frame:1")
If L1<1
    Plugin Web.Tips ("无法正常打开普查工作入户调查表录入界面，请等待10分钟，无法录入则按F12停止")
    Delay 1000
    Plugin Web.HtmlClick(cun)
    Delay 2000
    Plugin Web.LeftClick(741,118)
    Delay 3000
    //在excel的第33列，标记错误提示“无法进入评定报告”
    xlApp.Cells(x,33).Value ="无法打开入户调查表"
    Goto ceshia1
EndIf
YYYY = 0
L1=""
//标记上一行已“评定报告”
xlApp.Cells(x-1,38).Value =1
Plugin Web.Tips("正在录入普查工作入户调查表")
//姓名
Plugin Web.HtmlInput(xlsheet.cells(x,1).value,"id:field_153928&frame:1")
//常住人口
Plugin Web.HtmlInput(xlsheet.cells(x,2).value,"id:field_153986&frame:1")
//队名
Plugin Web.HtmlInput(xlsheet.cells(x,3).value,"id:field_153930&frame:1")
//几处住宅(默认1处）
//Plugin Web.HtmlInput(xlsheet.cells(x,4).value,"id:field_153948&frame:1")
//面积
Plugin Web.HtmlInput(xlsheet.cells(x,5).value,"id:field_153949&frame:1")
//建造年代
//Plugin Web.HtmlCheck("true","id:field_153950_1&frame:1")
//Plugin Web.HtmlCheck("true","id:field_153950_2&frame:1")
Plugin Web.HtmlCheck("true",xlsheet.cells(x,6).value)
//Plugin Web.HtmlCheck("true","id:field_153950_4&frame:1")
//Plugin Web.HtmlCheck("true","id:field_153950_5&frame:1")
//Plugin Web.HtmlCheck("true","id:field_153950_6&frame:1")
//结构类型
//Plugin Web.HtmlCheck("true","id:field_153951_3&frame:1")//砖木结构
Plugin Web.HtmlCheck("true",xlsheet.cells(x,7).value)
//基础类型
Plugin Web.HtmlCheck("true",xlsheet.cells(x,8).value)
//屋盖形式（默认坡屋顶）
//Plugin Web.HtmlCheck("true",xlsheet.cells(x,9).value)
//屋面材料（默认“瓦屋面”，以下是其他）
//Plugin Web.HtmlCheck("true",xlsheet.cells(x,10).value)
//场地调查结论（默认“否”
//Plugin Web.HtmlCheck("true",xlsheet.cells(x,11).value)
//结构调查结论
//Plugin Web.HtmlCheck("true","id:field_153956_1&frame:1")//A级
//Plugin Web.HtmlCheck("true","id:field_153956_2&frame:1")//B级
Plugin Web.HtmlCheck("true",xlsheet.cells(x,12).value)
//Plugin Web.HtmlCheck("true","id:field_153956_4&frame:1")//D级
//评定人员
Plugin Web.HtmlInput(xlsheet.cells(x,13).value,"id:field_153958&frame:1")
//评定人员签字时间
Plugin Web.HtmlInput(xlsheet.cells(x,14).value,"id:field_153959&frame:1")
//评定小组负责人
Plugin Web.HtmlInput(xlsheet.cells(x,15).value,"id:field_153960&frame:1")
//评定小组负责人签字时间
Plugin Web.HtmlInput(xlsheet.cells(x,16).value,"id:field_153961&frame:1")
//当地村委会负责人
Plugin Web.HtmlInput(xlsheet.cells(x,17).value,"id:field_153962&frame:1")
//村委会负责人签字时间
Plugin Web.HtmlInput(xlsheet.cells(x,18).value,"id:field_153963&frame:1")
//调查时间
Plugin Web.HtmlInput(xlsheet.cells(x,19).value,"id:field_153957&frame:1")
//备注
Plugin Web.HtmlInput(xlsheet.cells(x,20).value,"id:field_163208&frame:1")
//填表人
Plugin Web.HtmlInput(xlsheet.cells(x,21).value,"id:field_16348700&frame:1")
//填表时间
Plugin Web.HtmlInput(xlsheet.cells(x,22).value,"id:field_16348701&frame:1")
//点击提交
Plugin Web.HtmlClick("id:butnull&frame:1")
Delay 500
//KeyPress 13,1
Delay 50
//Delay 500
YYYY1=0
//测试：是否入户调查表已经提交
Rem ceshi2
Plugin L2=Web.HtmlExists("id:butnull&frame:1")
If L2>0 and YYYY1<30
    //如果弹出确认窗口，点击回车
    //KeyPress 13,1
    Delay 100
    Plugin Web.Tips("正在提交入户调查表")
    Delay 300
    YYYY1 = YYYY1 + 1
    Goto ceshi2
EndIf
Rem ceshia2
Plugin L2=Web.HtmlExists("id:butnull&frame:1")
If L2>0
    Plugin Web.Tips ("提交没有正常完成，正在尝试重新点击提交，这有可能造成重复输入用户信息，完成后请认真核对")
    Delay 5000
    Plugin Web.HtmlClick("id:butnull&frame:1")
    Delay 5000
    //KeyPress 13,1
    Delay 5000
    Plugin Web.HtmlClick(cun)
    Delay 5000
    //在excel的第34列，标记错误提示“无法正常提交入户调查表”
    xlApp.Cells(x,34).Value ="无法正常提交入户调查表"
    Goto ceshia2
EndIf
YYYY1 = 0
L2=""
//测试1：是否进入录入普查工作入户调查表界面
YYY=0
Rem ceshi3
Plugin L3=Web.HtmlExists("id:subtn&frame:1")
If L3<1 and YYY<30
    Plugin Web.Tips("正在进入抗震性能评定报告界面")
    //KeyPress 13,1
    Delay 100
    Plugin Web.LeftClick(946,265)
    Delay 300
    YYY = YYY + 1
    Goto ceshi3
EndIf
Rem ceshia3
Plugin L3=Web.HtmlExists("id:subtn&frame:1")
If L3<1
    Plugin Web.Tips ("可能无法进入评定报告界面，请等待10分钟，无法录入则按F12停止")
    Delay 2000
    Plugin Web.HtmlClick(cun)
    Delay 8000
    Plugin Web.LeftClick(946,265)
    Delay 3000
    //在excel的第35列，标记错误提示“无法进入评定报告”
    xlApp.Cells(x,35).Value ="无法进入评定报告"
    Goto ceshia3
EndIf
YYY = 0
L3=""
Rem baogao
//检查户主姓名是否相同,相同则继续录入，否则提示错误退出
Plugin Txt1=Web.HtmlGet("value","id:field_159951&frame:1")
If Txt1=xlsheet.cells(x,1).value
    txt1=""
    Plugin Web.Tips("正在录入评定报告")
    //评定机构
    Plugin Web.HtmlInput(xlsheet.cells(x,23).value,"id:field_159954&frame:1")
    //建成时间
    Plugin Web.HtmlInput(xlsheet.cells(x,24).value,"id:field_159953&frame:1")
    //评定时间
    Plugin Web.HtmlInput(xlsheet.cells(x,25).value,"id:field_159956&frame:1")
    //组成部分检查结果
    Plugin Web.HtmlSelect(xlsheet.cells(x,26).value,"id:field_159959&frame:1")
    Plugin Web.HtmlSelect(xlsheet.cells(x,27).value,"id:field_159960&frame:1")
    Plugin Web.HtmlSelect(xlsheet.cells(x,28).value,"id:field_159961&frame:1")
    Plugin Web.HtmlSelect(xlsheet.cells(x,29).value,"id:field_159962&frame:1")
    //处理意见
    Plugin Web.HtmlInput(xlsheet.cells(x,30).value,"id:field_159964&frame:1")
    //备注
    Plugin Web.HtmlInput(xlsheet.cells(x,31).value,"id:field_159965&frame:1")
    //读取编号
    Plugin Txt2=Web.HtmlGet("value","id:field_159948&frame:1")
    Delay 100
    //编号写入本地电子表格
    xlApp.Cells(x,32).Value = txt2
    txt2=""
    //点击提交
    Plugin Web.HtmlClick("id:subtn&frame:1")
    Delay 500
    //KeyPress 13,1
    Delay 50
    YYYY2=0
    //测试：是否入户调查表已经提交
    Rem ceshi4
    Plugin L4=Web.HtmlExists("id:subtn&frame:1")
    If L4>0 and YYYY2<30
        //如果弹出确认窗口，点击回车
        //KeyPress 13,1
        Delay 100
        Plugin Web.Tips("正在提交评定报告")
        Delay 300
        YYYY2 = YYYY2 + 1
        Goto ceshi4
    EndIf
    Rem ceshia4
    Plugin L4=Web.HtmlExists("id:subtn&frame:1")
    If L4>0
        Plugin Web.Tips ("评定报告提交没有正常完成，正在尝试重新点击提交，这有可能造成重复或遗漏评定报告，完成后请认真核对")
        Delay 5000
        Plugin Web.HtmlClick("id:subtn&frame:1")
        Delay 5000
        //KeyPress 13,1
        Delay 5000
        Plugin Web.HtmlClick(cun)
        Delay 5000
        //在excel的第36列，标记错误提示“无法正常提交评定报告”
        xlApp.Cells(x,36).Value ="无法正常提交评定报告"
        Goto ceshia4
    EndIf
    YYYY2 = 0
    L4=""
Else
    Plugin Web.Tips("录入人员姓名和评定报告姓名不符，请人工核对后Y继续,按N退出脚本")
    WaitKey key
    If key = 13
        Goto baogao
    Else
        Goto tuichu
    EndIf
EndIf
Delay 100
x = x + 1
Goto pd1
Rem tuichu
Sub OnScriptExit
    xlBook.Close (True)
    Set xlApp = Nothing
    Plugin Web.Tips("脚本停止运行")
Return

[ 本帖最后由 lwz 于 2009-12-8 20:28 编辑 ]
回复

使用道具 举报

发表于 2009-12-4 14:21:46 | 显示全部楼层
---> 升级权限
如果对方的网页没有验证数据来源，可以自己做网页，把数据提交到相关的页面，记得提交数据过程中，每个记录中间要加入一定时间的延迟。
回复

使用道具 举报

lwz
 楼主| 发表于 2009-12-4 14:31:33 | 显示全部楼层
---> 升级权限

回复 #2 netwinxp 的帖子

谢谢
惭愧呀，这对我来说很有难度
回复

使用道具 举报

发表于 2009-12-4 14:33:51 | 显示全部楼层
---> 升级权限
找个会做网页的去看看。
用网页按键精灵的脚本也有希望实现，当然录入时间也不会太短，几天还是可能滴(关键看你的网络速度和对方网站速度)。
回复

使用道具 举报

lwz
 楼主| 发表于 2009-12-8 20:26:08 | 显示全部楼层
---> 升级权限

回复 #1 lwz 的帖子

已经完成
用按键精灵，现学现卖
用了20个小时，终于传完
感觉excel录入数据还是最快的，好多相同的项目可以自动填充，录入后在用脚本传到网上

[General]
Description=temp1
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=35801
PauseHotkeyMod=30673
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
Plugin ProcessID=Web.Bind("wqm.exe")
Delay 1000
If ProcessID=0
    MessageBox "网页按键精灵没有运行"
    EndScript
EndIf
Plugin Web.Tips("脚本开始运行")
Plugin Web.SetSize(1024,742)
Plugin Web.ScrollTo(0,0)
VBS dim x
VBS dim cun
VBS dim YYY
VBS dim YYYY
VBS dim YYYY1
VBS dim YYYY2
//设定从第11行起
VBS x = 11
Set xlApp = CreateObject("Excel.Application")
xlApp.visible = True
Set xlBook = xlApp.Workbooks.Open("d:\按键精灵\1234.xls")
Set xlSheet = xlBook.ActiveSheet
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~自动登录~~~~~~~~~~~~~~~~~~~~~~~~~~~
Rem denglu1
Plugin Web.Go("http://nc.nxjst.gov.cn:81/")
Delay 2000
Plugin DL1=Web.HtmlExists("name:UserPIN")
If DL1<=0
    Plugin Web.Tips("正在打开农村房屋抗震普查系统")
    Delay 1000
    Goto denglu1
EndIf
//输入密码
Rem denglu2
Plugin Web.HtmlInput("111111","name:UserPIN")
Delay 500
Plugin Web.LeftClick(600,430)
Delay 500
KeyPress 13,1
Delay 1000
//查找“普查表录入
Plugin DL2=Web.HtmlExists("tag:TD&txt:　&frame:1")
If DL2<=0
    Plugin Web.Tips("正在登录，请稍侯！")
    Delay 1000
    Goto denglu2
EndIf
//根据行政村编号，设置点击的链接地址
If xlsheet.cells(2,2).value="1" or xlsheet.cells(2,2).value="01"
    VBS cun = "id:webfx-tree-object-6-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="1" or xlsheet.cells(2,2).value="02"
    VBS cun = "id:webfx-tree-object-7-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="3" or xlsheet.cells(2,2).value="03"
    VBS cun = "id:webfx-tree-object-8-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="4" or xlsheet.cells(2,2).value="04"
    VBS cun = "id:webfx-tree-object-9-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="5" or xlsheet.cells(2,2).value="05"
    VBS cun = "id:webfx-tree-object-10-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="6" or xlsheet.cells(2,2).value="06"
    VBS cun = "id:webfx-tree-object-11-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="7" or xlsheet.cells(2,2).value="07"
    VBS cun = "id:webfx-tree-object-12-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="8" or xlsheet.cells(2,2).value="08"
    VBS cun = "id:webfx-tree-object-13-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="9" or xlsheet.cells(2,2).value="09"
    VBS cun = "id:webfx-tree-object-14-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="10"
    VBS cun = "id:webfx-tree-object-15-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="11"
    VBS cun = "id:webfx-tree-object-16-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="12"
    VBS cun = "id:webfx-tree-object-17-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="13"
    VBS cun = "id:webfx-tree-object-18-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="14"
    VBS cun = "id:webfx-tree-object-19-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="15"
    VBS cun = "id:webfx-tree-object-20-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="16"
    VBS cun = "id:webfx-tree-object-21-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="17"
    VBS cun = "id:webfx-tree-object-22-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="18"
    VBS cun = "id:webfx-tree-object-23-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="19"
    VBS cun = "id:webfx-tree-object-24-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="20"
    VBS cun = "id:webfx-tree-object-25-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="21"
    VBS cun = "id:webfx-tree-object-26-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="22"
    VBS cun = "id:webfx-tree-object-27-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="23"
    VBS cun = "id:webfx-tree-object-28-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="24"
    VBS cun = "id:webfx-tree-object-29-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="25"
    VBS cun = "id:webfx-tree-object-30-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="26"
    VBS cun = "id:webfx-tree-object-31-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="27"
    VBS cun = "id:webfx-tree-object-32-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="28"
    VBS cun = "id:webfx-tree-object-33-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="29"
    VBS cun = "id:webfx-tree-object-34-anchor&frame:0"
ElseIf xlsheet.cells(2,2).value="30"
    VBS cun = "id:webfx-tree-object-35-anchor&frame:0"
EndIf
//点击对应行政村
Rem denglu3
Plugin Web.LeftClick(53,87)
Delay 1000
Plugin DL3=Web.HtmlExists("id:webfx-tree-object-6-anchor&frame:0")
If DL3<=0
    Plugin Web.Tips("正在点击普查登录")
    Delay 1000
    Goto denglu3
EndIf
Plugin Web.HtmlClick(cun)
Delay 1000
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~开始录入~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//检查Excel文件中的标记，确定开始输入的行
Rem pd1
If xlsheet.cells(x,1).value=""
    MessageBox "用户姓名为空，可能已经输入完成"
    Goto tuichu
EndIf
If xlsheet.cells(x,32).value=""
    Goto luru
Else
    x = x + 1
    Goto pd1
EndIf
YYYY=0
Rem luru
//测试1：是否进入录入普查工作入户调查表界面
Rem ceshi1
Plugin L1=Web.HtmlExists("id:butnull&frame:1")
If L1<1 and YYYY<30
    Plugin Web.Tips("正在打开普查工作入户调查表录入界面")
    Delay 100
    Plugin Web.LeftClick(741,118)
    Delay 300
    YYYY = YYYY + 1
    Goto ceshi1
EndIf
Rem ceshia1
Plugin L1=Web.HtmlExists("id:butnull&frame:1")
If L1<1
    Plugin Web.Tips ("无法正常打开普查工作入户调查表录入界面，请等待10分钟，无法录入则按F12停止")
    Delay 1000
    Plugin Web.HtmlClick(cun)
    Delay 2000
    Plugin Web.LeftClick(741,118)
    Delay 3000
    //在excel的第33列，标记错误提示“无法进入评定报告”
    xlApp.Cells(x,33).Value ="无法打开入户调查表"
    Goto ceshia1
EndIf
YYYY = 0
L1=""
//标记上一行已“评定报告”
xlApp.Cells(x-1,38).Value =1
Plugin Web.Tips("正在录入普查工作入户调查表")
//姓名
Plugin Web.HtmlInput(xlsheet.cells(x,1).value,"id:field_153928&frame:1")
//常住人口
Plugin Web.HtmlInput(xlsheet.cells(x,2).value,"id:field_153986&frame:1")
//队名
Plugin Web.HtmlInput(xlsheet.cells(x,3).value,"id:field_153930&frame:1")
//几处住宅(默认1处）
//Plugin Web.HtmlInput(xlsheet.cells(x,4).value,"id:field_153948&frame:1")
//面积
Plugin Web.HtmlInput(xlsheet.cells(x,5).value,"id:field_153949&frame:1")
//建造年代
//Plugin Web.HtmlCheck("true","id:field_153950_1&frame:1")
//Plugin Web.HtmlCheck("true","id:field_153950_2&frame:1")
Plugin Web.HtmlCheck("true",xlsheet.cells(x,6).value)
//Plugin Web.HtmlCheck("true","id:field_153950_4&frame:1")
//Plugin Web.HtmlCheck("true","id:field_153950_5&frame:1")
//Plugin Web.HtmlCheck("true","id:field_153950_6&frame:1")
//结构类型
//Plugin Web.HtmlCheck("true","id:field_153951_3&frame:1")//砖木结构
Plugin Web.HtmlCheck("true",xlsheet.cells(x,7).value)
//基础类型
Plugin Web.HtmlCheck("true",xlsheet.cells(x,8).value)
//屋盖形式（默认坡屋顶）
//Plugin Web.HtmlCheck("true",xlsheet.cells(x,9).value)
//屋面材料（默认“瓦屋面”，以下是其他）
//Plugin Web.HtmlCheck("true",xlsheet.cells(x,10).value)
//场地调查结论（默认“否”
//Plugin Web.HtmlCheck("true",xlsheet.cells(x,11).value)
//结构调查结论
//Plugin Web.HtmlCheck("true","id:field_153956_1&frame:1")//A级
//Plugin Web.HtmlCheck("true","id:field_153956_2&frame:1")//B级
Plugin Web.HtmlCheck("true",xlsheet.cells(x,12).value)
//Plugin Web.HtmlCheck("true","id:field_153956_4&frame:1")//D级
//评定人员
Plugin Web.HtmlInput(xlsheet.cells(x,13).value,"id:field_153958&frame:1")
//评定人员签字时间
Plugin Web.HtmlInput(xlsheet.cells(x,14).value,"id:field_153959&frame:1")
//评定小组负责人
Plugin Web.HtmlInput(xlsheet.cells(x,15).value,"id:field_153960&frame:1")
//评定小组负责人签字时间
Plugin Web.HtmlInput(xlsheet.cells(x,16).value,"id:field_153961&frame:1")
//当地村委会负责人
Plugin Web.HtmlInput(xlsheet.cells(x,17).value,"id:field_153962&frame:1")
//村委会负责人签字时间
Plugin Web.HtmlInput(xlsheet.cells(x,18).value,"id:field_153963&frame:1")
//调查时间
Plugin Web.HtmlInput(xlsheet.cells(x,19).value,"id:field_153957&frame:1")
//备注
Plugin Web.HtmlInput(xlsheet.cells(x,20).value,"id:field_163208&frame:1")
//填表人
Plugin Web.HtmlInput(xlsheet.cells(x,21).value,"id:field_16348700&frame:1")
//填表时间
Plugin Web.HtmlInput(xlsheet.cells(x,22).value,"id:field_16348701&frame:1")
//点击提交
Plugin Web.HtmlClick("id:butnull&frame:1")
Delay 500
//KeyPress 13,1
Delay 50
//Delay 500
YYYY1=0
//测试：是否入户调查表已经提交
Rem ceshi2
Plugin L2=Web.HtmlExists("id:butnull&frame:1")
If L2>0 and YYYY1<30
    //如果弹出确认窗口，点击回车
    //KeyPress 13,1
    Delay 100
    Plugin Web.Tips("正在提交入户调查表")
    Delay 300
    YYYY1 = YYYY1 + 1
    Goto ceshi2
EndIf
Rem ceshia2
Plugin L2=Web.HtmlExists("id:butnull&frame:1")
If L2>0
    Plugin Web.Tips ("提交没有正常完成，正在尝试重新点击提交，这有可能造成重复输入用户信息，完成后请认真核对")
    Delay 5000
    Plugin Web.HtmlClick("id:butnull&frame:1")
    Delay 5000
    //KeyPress 13,1
    Delay 5000
    Plugin Web.HtmlClick(cun)
    Delay 5000
    //在excel的第34列，标记错误提示“无法正常提交入户调查表”
    xlApp.Cells(x,34).Value ="无法正常提交入户调查表"
    Goto ceshia2
EndIf
YYYY1 = 0
L2=""
//测试1：是否进入录入普查工作入户调查表界面
YYY=0
Rem ceshi3
Plugin L3=Web.HtmlExists("id:subtn&frame:1")
If L3<1 and YYY<30
    Plugin Web.Tips("正在进入抗震性能评定报告界面")
    //KeyPress 13,1
    Delay 100
    Plugin Web.LeftClick(946,265)
    Delay 300
    YYY = YYY + 1
    Goto ceshi3
EndIf
Rem ceshia3
Plugin L3=Web.HtmlExists("id:subtn&frame:1")
If L3<1
    Plugin Web.Tips ("可能无法进入评定报告界面，请等待10分钟，无法录入则按F12停止")
    Delay 2000
    Plugin Web.HtmlClick(cun)
    Delay 8000
    Plugin Web.LeftClick(946,265)
    Delay 3000
    //在excel的第35列，标记错误提示“无法进入评定报告”
    xlApp.Cells(x,35).Value ="无法进入评定报告"
    Goto ceshia3
EndIf
YYY = 0
L3=""
Rem baogao
//检查户主姓名是否相同,相同则继续录入，否则提示错误退出
Plugin Txt1=Web.HtmlGet("value","id:field_159951&frame:1")
If Txt1=xlsheet.cells(x,1).value
    txt1=""
    Plugin Web.Tips("正在录入评定报告")
    //评定机构
    Plugin Web.HtmlInput(xlsheet.cells(x,23).value,"id:field_159954&frame:1")
    //建成时间
    Plugin Web.HtmlInput(xlsheet.cells(x,24).value,"id:field_159953&frame:1")
    //评定时间
    Plugin Web.HtmlInput(xlsheet.cells(x,25).value,"id:field_159956&frame:1")
    //组成部分检查结果
    Plugin Web.HtmlSelect(xlsheet.cells(x,26).value,"id:field_159959&frame:1")
    Plugin Web.HtmlSelect(xlsheet.cells(x,27).value,"id:field_159960&frame:1")
    Plugin Web.HtmlSelect(xlsheet.cells(x,28).value,"id:field_159961&frame:1")
    Plugin Web.HtmlSelect(xlsheet.cells(x,29).value,"id:field_159962&frame:1")
    //处理意见
    Plugin Web.HtmlInput(xlsheet.cells(x,30).value,"id:field_159964&frame:1")
    //备注
    Plugin Web.HtmlInput(xlsheet.cells(x,31).value,"id:field_159965&frame:1")
    //读取编号
    Plugin Txt2=Web.HtmlGet("value","id:field_159948&frame:1")
    Delay 100
    //编号写入本地电子表格
    xlApp.Cells(x,32).Value = txt2
    txt2=""
    //点击提交
    Plugin Web.HtmlClick("id:subtn&frame:1")
    Delay 500
    //KeyPress 13,1
    Delay 50
    YYYY2=0
    //测试：是否入户调查表已经提交
    Rem ceshi4
    Plugin L4=Web.HtmlExists("id:subtn&frame:1")
    If L4>0 and YYYY2<30
        //如果弹出确认窗口，点击回车
        //KeyPress 13,1
        Delay 100
        Plugin Web.Tips("正在提交评定报告")
        Delay 300
        YYYY2 = YYYY2 + 1
        Goto ceshi4
    EndIf
    Rem ceshia4
    Plugin L4=Web.HtmlExists("id:subtn&frame:1")
    If L4>0
        Plugin Web.Tips ("评定报告提交没有正常完成，正在尝试重新点击提交，这有可能造成重复或遗漏评定报告，完成后请认真核对")
        Delay 5000
        Plugin Web.HtmlClick("id:subtn&frame:1")
        Delay 5000
        //KeyPress 13,1
        Delay 5000
        Plugin Web.HtmlClick(cun)
        Delay 5000
        //在excel的第36列，标记错误提示“无法正常提交评定报告”
        xlApp.Cells(x,36).Value ="无法正常提交评定报告"
        Goto ceshia4
    EndIf
    YYYY2 = 0
    L4=""
Else
    Plugin Web.Tips("录入人员姓名和评定报告姓名不符，请人工核对后Y继续,按N退出脚本")
    WaitKey key
    If key = 13
        Goto baogao
    Else
        Goto tuichu
    EndIf
EndIf
Delay 100
x = x + 1
Goto pd1
Rem tuichu
Sub OnScriptExit
    xlBook.Close (True)
    Set xlApp = Nothing
    Plugin Web.Tips("脚本停止运行")
Return

[ 本帖最后由 lwz 于 2009-12-8 20:29 编辑 ]
回复

使用道具 举报

发表于 2009-12-8 20:49:05 | 显示全部楼层
---> 升级权限
不错。可以留着。

....
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1|闽公网安备35020302032614号 )

GMT+8, 2026-9-14 20:10

Powered by Discuz! X5.0

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表