( 新人)   学习了几天   后 又参考了   批量下载图片的视频  测试了 几次 没有 成功 ;

  无奈 。。。又 琢磨了 几天   。。。。。

  写下 几句代码 。。。。

   大佬 们 来些 意见  

   谢谢 指点 。

百度自动下载指定关键字图片   视频

https://www.bilibili.com/video/BV1Mf4y1d7pv/

----------------------------------------------------------------------------------------------------------------------

//  复制 代码后 可按 上图 对照 每行首 对齐 （因发现复制到软件里 每行的代码会乱掉） 

//  Google Chrome 浏览器，打开百度  输入框写入图片搜索关键字 ，确定  自动下载 图片 

dim xinxi = "",iRet = "",bRet = "",sRet = "",hWeb = "",arrayn = "",dTime = "",sRetime = 

"",arrayData = ""

Function yi

  hWeb = WebBrowser.Create("chrome","https://wwww.baidu.com/",30000,

{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":"

"})

  #icon("@res:default.png")

  Window.Show({"wnd":[{"app":"chrome","cls":"Chrome_WidgetWin_1","title":"*"}]},"max")

  bRet = File.PathExists(@res"tu")

    If bRet

     Else

        File.CreateFolder(@res"tu")

    End If

  xinxi  = Dialog.InputBox("","  图片关键词  ","",false)

    If xinxi = "" or xinxi = null

        exit()

     Else

    End If

End Function

Function er

    #icon("@res:default.png")

    UiElement.SetValue({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},

{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":

[{"tag":"INPUT","id":"kw"}]},xinxi,

{"bContinueOnError":false,"iDelayAfter":100,"iDelayBefore":100})

    #icon("@res:default.png")

    Mouse.Action({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},

{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":

[{"tag":"INPUT","id":"su"}]},"left","click",10000,

{"bContinueOnError":false,"iDelayAfter":100,"iDelayBefore":100,"bSetForeground":true,"sCursorPo

sition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":

[],"sSimulate":"simulate"})

    #icon("@res:default.png")

    iRet = WebBrowser.WaitPage(hWeb,{"wnd":

[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},

{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":

[{"tag":"A","parentid":"1","aaname":"*"}]},60000,

{"bContinueOnError":false,"iDelayAfter":100,"iDelayBefore":100})

    #icon("@res:default.png")

    sRet = UiElement.GetAttribute({"wnd":

[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},

{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":

[{"tag":"A","parentid":"s_tab","aaname":"图片"}]},"href",

{"bContinueOnError":false,"iDelayAfter":100,"iDelayBefore":100})

    #icon("@res:default.png")

    iRet = WebBrowser.GoURL(hWeb,sRet,true,"",30000,

{"bContinueOnError":false,"iDelayAfter":100,"iDelayBefore":100})

End Function

Function san

  arrayData = UiElement.DataScrap({"html":[{"id":"imgid","tag":"DIV"}],"wnd":

[{"app":"chrome","cls":"Chrome_WidgetWin_1","title":"*"},

{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}]},{"Columns":[{"props":

["url"],"selecors":[{"index":0,"prefix":"","tag":"div","value":"div"},

{"index":0,"prefix":">","tag":"ul","value":"ul"},

{"index":0,"prefix":">","tag":"li","value":"li"},

{"className":"imgbox","index":0,"prefix":">","tag":"div","value":"div.imgbox"},

{"index":0,"prefix":">","tag":"a","value":"a"}]}],"ExtractTable":0},

{"objNextLinkElement":"","iMaxNumberOfPage":30,"iMaxNumberOfResult":-

1,"iDelayBetweenMS":1000,"bContinueOnError":false})

    For Each value In arrayData

        iRet = WebBrowser.GoURL(hWeb,value[0],true,"",30000,

{"bContinueOnError":false,"iDelayAfter":100,"iDelayBefore":100})

        //TracePrint("正在下载:"&value[0]&"集")

        // bRet = File.PathExists(@res"tu"&"\\"&value[0])

        // If bRet

        //  Else

        //File.CreateFolder(@res"tu"&"\\"&value[0])

        // End If

        #icon("@res:lhbmf4c7-jnfb-kmp5-882m-5i3e1g5fgm37.png")

        sRet = UiElement.GetAttribute({"wnd":

[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},

{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":

[{"tag":"IMG","id":"currentImg"}]},"src",

{"bContinueOnError":false,"iDelayAfter":100,"iDelayBefore":100})

        dTime = Time.Now()

        sRetime = Time.Format(dTime,"yymmddhhmmss")

       WebBrowser.Download(hWeb,sRet,@res"tu"&"\\"&sRetime&".jpg"                               

  ,false,100000,{"bContinueOnError":false,"iDelayAfter":100,"iDelayBefore":100})

    Next

End Function

// 图片保存在 E:(新建流程盘符) \(你新建的文件夹)\ser\res\tu\ *.jpg  例  E:\Uibot\baidu\res\tu\

yi

er

san