グーグル画像検索で著作権フリーの画像の一覧を表示するVBScript

投稿者: | 2016-01-26

グーグルの画像検索で、著作権フリーの画像の一覧を表示してみます。

最初に検索したい単語を入力し、メインのブラウザで一覧を表示します。
.vbsの拡張子で保存して実行してみてください。
複数のサイトから著作権フリーの画像を検索して一覧にします。

ただし、取り上げられているサイトは英語圏のサイトなので、検索ワードはlandscapeなど英単語でお願いします。

SearchWord = InputBox("検索語を入れてください(英語のみ)", "フリー画像検索")
If Len(SearchWord)=0 Then WScript.Quit
Replace(SearchWord, " ", "+")
URL = "https://www.google.co.jp/search?newwindow=1&client=opera&hs=rHa&biw=1422&bih=985&tbm=isch&sa=1&q=" & SearchWord & "+site%3Awww.splashbase.co+OR+site%3Amagdeleine.co%2Flicense%2Fcc0+OR+site%3Ammt.li+OR+site%3Ajeshoots.com+OR+site%3Apicography.co+OR+site%3Awww.pexels.com+OR+site%3Aisorepublic.com+OR+site%3Awww.designerspics.com+OR+site%3Awww.gratisography.com+OR+site%3Asplitshire.com+OR+site%3Awww.lifeofpix.com+OR+site%3Awww.stock-image-point.com+OR+site%3Awww.stockphotosforfree.com+OR+site%3Amorguefile.com+OR+site%3Acrowthestone.com+OR+site%3Askitterphoto.com+OR+site%3Alittlevisuals.co+OR+site%3Aunsplash.com+OR+site%3Agoodstock.photos+OR+site%3Ajaymantri.com+OR+site%3Anos.twnsnd.co+OR+site%3Asnapwiresnaps.tumblr.com+OR+site%3Atravelcoffeebook.com+OR+site%3Amoveast.me+OR+site%3Apicjumbo.com+OR+site%3Asnapographic.com+OR+site%3Awww.camarama.de+OR+site%3Afoodiesfeed.com%2Fdownload+OR+site%3Awww.authenticsnaps.com&oq=landscape+site%3Awww.splashbase.co+OR+site%3Amagdeleine.co%2Flicense%2Fcc0+OR+site%3Ammt.li+OR+site%3Ajeshoots.com+OR+site%3Apicography.co+OR+site%3Awww.pexels.com+OR+site%3Aisorepublic.com+OR+site%3Awww.designerspics.com+OR+site%3Awww.gratisography.com+OR+site%3Asplitshire.com+OR+site%3Awww.lifeofpix.com+OR+site%3Awww.stock-image-point.com+OR+site%3Awww.stockphotosforfree.com+OR+site%3Amorguefile.com+OR+site%3Acrowthestone.com+OR+site%3Askitterphoto.com+OR+site%3Alittlevisuals.co+OR+site%3Aunsplash.com+OR+site%3Agoodstock.photos+OR+site%3Ajaymantri.com+OR+site%3Anos.twnsnd.co+OR+site%3Asnapwiresnaps.tumblr.com+OR+site%3Atravelcoffeebook.com+OR+site%3Amoveast.me+OR+site%3Apicjumbo.com+OR+site%3Asnapographic.com+OR+site%3Awww.camarama.de+OR+site%3Afoodiesfeed.com%2Fdownload+OR+site%3Awww.authenticsnaps.com&gs_l=img.3...7981.8406.0.8694.2.2.0.0.0.0.0.0..0.0....0...1c.1.64.img..2.0.0.rgTw1SMDw6M"
CreateObject("WScript.Shell").Run URL