Shulou(Shulou.com)06/03 Report--

This article mainly introduces how to use easy language to download Qiantu pictures for free and unlimited times, which is very detailed and has a certain reference value. Interested friends must finish reading it!

This function is used with Jingyi module 5.6 and needs to be loaded.

. Version 2. Support library internet. Assembly window assembly _ startup window. Subroutine _ button 1 _ is clicked. Local variable file serial number, text type. Local variable web page source code, text type. Local variable picture address, text type. Local variable URL in the middle, text type. Local variable picture data, byte set. Local variable format, text-type web page source code = web page _ access S (edit box 1. Content) URL middle = take the middle text (page source code, "src=" + # quotation marks + "http://","! / fw/1024/ "). If the true (URL middle = ") information box (" search failed! please enter the correct matting-free Thousand Picture net material URL ", 0,) to return (). If it really ends with the picture address = "http://" + URL intermediate file serial number = take the intermediate text (edit box 1. Content, "/ newpic/", ".html") picture data = HTTP read file (picture address). If (looking for text (URL middle, ".png", false) ≠-1) format = ".png". Otherwise, the format = ".jpg". If it ends. If (write to file (take run directory () + "\ data\" + file serial number + format, picture data)) message box ("download successfully", 0,). Otherwise, the message box ("download failed", 0,). If it ends. The subroutine takes the intermediate text, text type. The text in which the parameter is found, text type. The text in front of the parameter, text type. The text after the parameter, text type. Local variable a, integer type. Local variable b, integer type. Local variable c, text type a = find text (found text, previous text, false) + take text length (previous text) b = find text (found text, subsequent text, a, false)-ac = take the middle of the text (found text, a, b) return (c). Subroutine _ _ startup window _ create directory after creation (take run directory () + "\ data")

Running result:

The above is all the contents of this article "how to use easy language to download Qiantu pictures for free and unlimited times". Thank you for your reading! Hope to share the content to help you, more related knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.