誰かサイトの画像をDLするやつ作ってくれ

**デフォルトの名無しさん** · 2022/11/03(木) 12:56:34.51

ある工口サイトの画像をDLしたい。
サイトのURL見たらリンクのhtt～24667-1みたいになってた。
そこの-1の1を変えると画像が変わる。
難しかったらいいぞ

**デフォルトの名無しさん** · 2022/11/03(木) 15:04:53.38

Irvine(日: アーバイン)はWindows用のダウンロードマネージャーである。 Irvine ... Irvineは、同じくダウンロードマネージャーであるIriaの後継として開発されており、 ...

**デフォルトの名無しさん** · 2022/11/03(木) 17:42:09.09

いきなり訴訟を起こされる可能性があるから気をつけてな
やっていることは攻撃と同じだから

**デフォルトの名無しさん** · 2022/11/03(木) 22:32:54.16

>>1
僕80万くらいでつくれます！

**デフォルトの名無しさん** · 2022/11/03(木) 23:59:21.36

10分もあればよゆー

**デフォルトの名無しさん** · 2022/11/04(金) 00:18:44.48

＞難しかったらいいぞ
に釣られてんじゃね～よｗ

そんな簡単なツールも探せない情弱がそんな言い回しだけは知ってるのがイヤらしいな

**デフォルトの名無しさん** · 2022/11/07(月) 20:42:10.51

'これなんかどうです？ vbscriptです。コピペでWindowsのメモ帳に貼り付け、拡張子を .vbs にします。
urlmae = "https://sample-img.lb-product.com/wp-content/themes/hitchcock/images/"; 'URLの最初に必ず付く文字列（「http～」）
urlato = ".png" 'URLの最後に必ず付く文字列（「～.png」）
fexit = ".png" '保存ファイルの拡張子（「.jpg」、「.png」など）
Function GetFolderPath()
Set objShell = WScript.CreateObject("Shell.Application")
Set objShellFolder = objShell.BrowseForFolder( 0 , "フォルダを選択して下さい" , &h10 )
If (objShellFolder Is Nothing) Then
WScript.Quit
End If
GetFolderPath = objShellFolder.Items.Item.Path
End Function
folname = GetFolderPath() & "\Photo"
Msgbox folname & "に保存します。"
If CreateObject("Scripting.FileSystemObject").FolderExists(folname) = True Then
Else
CreateObject("Scripting.FileSystemObject").CreateFolder(folname)
End if
numb = 0
Set xHttp = createobject("Microsoft.XMLHTTP")
Set bStrm = createobject("Adodb.Stream")
Set objIE = CreateObject("InternetExplorer.Application")
do
numb = numb + 1
xHttp.Open "GET", urlmae & numb & urlato ,False
xHttp.Send
bStrm.type = 1 '//binary
bStrm.open
bStrm.write xHttp.responseBody
bStrm.savetofile folname & "\" & Right("00000"&numb,5) & fexit, 2
bStrm.close
loop

**デフォルトの名無しさん** · 2022/11/07(月) 20:57:34.32

7番です。
補足
　１．窓マークキーと「R」キーを同時押し。
　２．「ファイル名を指定して実行」ウインドウの□に「notepad」と打ち、OKをクリック　
　３．先ほどのコードをコピペする。
　４．「ファイル（F)」→「名前を付けて保存」　
　５．出てきた画面で、「ファイルの種類(T):」横の「テキスト文書」を「すべてのファイル」に変更
　６．一番下の「文字コード」を「ANSI」にする
　７．「ファイル名(N):」横の□に「（任意の文字列）.vbs」と入力する
　８．「保存(S)」をクリック
重要補足
　このプログラムは無限に実行されます。
　止めるには・・・
　　１．Ctrlキー＋Shiftキー＋Escキーの同時押し
　　２．タスクマネージャーが開くので、詳細表示でない場合は、下のほうにある「詳細(d)」をクリック
　　３．タブを「プロセス」にする
　　４．「Microsoft windows based script host」というやつを右クリック
　　５．「タスクの終了(E)」

**デフォルトの名無しさん** · 2022/11/08(火) 16:25:25.47

5ch の url ( https://mevius.5ch.net/test/read.cgi/tech/1667447794/ )
を drug drop したらスレ内の ttp:// リンク先の画像全部拾ってくるやつは昔造った

**デフォルトの名無しさん** · 2022/11/08(火) 19:40:10.94

1「うーん難しくてよくわかんねー

**デフォルトの名無しさん** · 2022/11/09(水) 22:08:44.66

あはははは!
何みんな難しいこと考えてんのwwwww
Ctrl+Sでデスクトップにでも張り付ければhtmlと画像格納フォルダが生成されるからそれすればいいじゃん

**デフォルトの名無しさん** · 2022/11/11(金) 06:36:03.39

>>10
7-8番の人ですが、簡単な操作でできるように作り変えてみましたので、使ってみてほしいです。
プログラムが長すぎるためGoogleドライブでダウンロードしてください。
https://drive.google.com/file/d/1Toib_P0NS9mj3PfOIfGkOyGG_zyHAzO5/view?usp=sharing

**デフォルトの名無しさん** · 2022/11/11(金) 17:18:44.52

>>12
追記
　先ほどのGoogleドライブからダウンロードすると一部環境で起動できなくなるので
Googleドライブがダメなら、下記サイトのソースをコピペしてみてください。

リンク
↓↓↓↓↓
https://sites.google.com/view/toki-s-system/auto-download

**デフォルトの名無しさん** · 2023/07/30(日) 11:08:44.35

(　´Д｀)y━─┛～～ぷはー