记录一次网页信息录入和下载后分类

录入资料信息，下载照片，将照片分类放到文件夹。

第一个采用了剪切板工具Ditto，可以方便的拖动一段文字到编辑框中。

第二个是采用按键精灵，采用识图和坐标点击的方式，批量下载照片。

第三个是采用excel，对下载下来的照片，和excel表格进行核对，看是否下载下来，根据的是excel判断是否存在指定文件。

第四个是采用excel和cmd的xcopy命令，将下载下来的文件分类放到指定文件夹。

 

按键精灵找到所有图，依次点击。

For 11
	一次点击下载
	
	'下一页
	MoveTo 1430, 775
	LeftClick 1
	Delay  10000
Next

Function 一次点击下载
坐标组 = 查找屏幕所有图片(0, 0, 2000, 2000, "Attachment:\证.bmp", 0.7)
If 坐标组 <> "-1,-1,-1" Then
    分割坐标组 = Split(坐标组, "|")
    For i = 0 To UBound(分割坐标组)
        XY = Split(分割坐标组(i), ",")
        If UBound(XY) > - 1 Then
            TracePrint "正在点击第 " & XY(0) & " 个图片。。。"
            MoveTo XY(1), XY(2)
            Delay 200
            LeftClick 1
            Delay 8000
            '下载电子证件
            MoveTo 1200, 320
			LeftClick 1
			Delay 6000
			
			'下载
			MoveTo 891, 500
			LeftClick 1
			Delay 2000
			'关闭
			MoveTo 1107, 225
			LeftClick 1
			Delay  2000
			'返回
			MoveTo 555, 322
			LeftClick 1
            Delay 1000
        End If
    Next
Else
    TracePrint "未找到！"
End If

End Function

Function 查找屏幕所有图片(左坐标,上坐标,右坐标,下坐标,图片路径,相似度)
    //A1.B1.C1.D1 是为了便于设置找图的范围
    Dim A1,B1,C1,D1,a,b,c,d,n,x,y,H,ret
    A1=左坐标
    B1=上坐标
    C1=右坐标
    D1=下坐标
    //(a.b.c.d)不要修改
    a = A1 : b = B1 : c = C1 : d = D1
    //n是图片的数量
    n = 0
    Rem 循环搜索
    Call FindPic(a, b, c, d, 图片路径, 相似度, x, y)
    If (x >= 0 and y >= 0 and y = b and a = A1) Or (x >= 0 and y >= 0 and y = b and a <> A1) Or (x >= 0 and y >= 0 and a = A1 and y <> b) Then
        ret = ret & n & "," & x & "," & y & "|"
        n = n + 1 : H = y : a = x + 1 : b = y
        Goto 循环搜索
    ElseIf a > A1 Then
        a = A1 : b = H + 1
        Goto 循环搜索
    End If
    If ret = "" Then ret = "-1,-1,-1"
    查找屏幕所有图片 = ret
End Function

　　

excel判断文件是否存在。

开发者工具->VB编辑->插入->模型

代码：

Function FileExists(sPath As String)
FileExists = Dir(sPath) <> ""
End Function
调用：

某个值不为空且文件存在，创建文件链接。

=IF(AND(NOT(ISBLANK(J10)),FileExists(sPath)),HYPERLINK(sPath, "Bill Available"),"")
sPath为全路径

 

excel批量创建cmd命令

分三列，分别写上xcopy 原文件路径 目录文件夹

然后复制到记事本中，再改后缀bat，批量运行即可。