ahk半自动网页填表

Untitled_clip.gif

    send !v 
Sleep 100
send {up}
Sleep 100
send {enter}
Sleep 500
send ^a
Sleep 100
send ^c
Sleep 200
Haystackz := Clipboard
Needlez := "http:/码/web/index.php?c=site&a=entry&m=ewei_shopv2&do=web&r=goods.edit&id="
z1:=1
i1:=1
zz1:=""
while(z1!=0){
    z1 := InStr(Haystackz, Needlez, false, 1, i1)
;MsgBox %z% ;InStr(Haystack, Needle, false, 1, i)
i1++
;MsgBox % strlen(Haystack)
    u:= SubStr(Haystackz,z1,106)
    if (z1!=0){
        ;zs:="<p> <img src="""
        ;ze:=""" width=""100%"" style=""""/></p>"
        uzt:=u
        ;zz=%zz%`r%zs%%zt%%ze%
        ;MsgBox %uzt%
        send,!d
        Sleep 100
        
        SendInput ,%uzt%
        Sleep 100
        send {enter}
        Sleep 5000
        Loop {
        ImageSearch, FoundX, FoundY, 0,0, 1920, 1920, C:\xiangqing.bmp
        Sleep 500
    } until ErrorLevel==0
    
mousemove FoundX, FoundY
Sleep 500
Click
Sleep 500
ImageSearch, FoundX, FoundY, 0,0, 1080, 1920, C:\html.bmp
mousemove FoundX, FoundY
Click
Sleep 500
send {pgdn}
Sleep 100
send !v 
Sleep 100
send {up}
Sleep 100
send {enter}
Sleep 500
send ^a
Sleep 100
send ^c
Sleep 200
Haystack := Clipboard
Needle := "http://码/attachment/images/4/2017/"
z:=1
i:=1
zz:=""
while(z!=0){
    z := InStr(Haystack, Needle, false, 1, i)
;MsgBox %z% ;InStr(Haystack, Needle, false, 1, i)
i++
;MsgBox % strlen(Haystack)
    jpg:= SubStr(Haystack,z,85)
    if (z!=0){
        zs:="<p> <img src="""
        ze:=""" width=""100%"" style=""""/></p>"
        zt:=jpg
        zz=%zz%`r%zs%%zt%%ze%
        ;MsgBox %zz%
    }
        
}
Clipboard = %zz%
Send ^w
Sleep 200
send ^v
Sleep 500
ImageSearch, FoundX, FoundY, 0,0, 1980, 1920, C:\baocun.bmp
mousemove FoundX, FoundY
Click
Sleep 5000
    }
        
}


MsgBox over~
return