22/02/09 14:27:15.27 RWuYGaqJ0.net
>>981
さすがにワークシート関数だけじゃ感染は無理なのでは
使用者を混乱させて誤操作を誘発するとかやらないと
990:デフォルトの名無しさん
22/02/09 15:29:31.91 h7C3sgPu0.net
>>982
なんたる有能
991:デフォルトの名無しさん
22/02/09 15:41:42.37 F+qQsHczr.net
大昔、2chの草創期に大流行した
ブラクラみたいな感じ
992:デフォルトの名無しさん
22/02/09 18:27:17.30 2Z/3/DW40.net
古いExcelは拡張子.xls でもマクロ書けたのと、test.csv.xls みたいなファイル名でOS設定で拡張子を表示しないとか
されていると気づかないで実行されることがあった
993:デフォルトの名無しさん
22/02/09 19:24:18.78 KYojXGCr0.net
どうすれば先頭の画像をクリックできるのでしょうか？
Sub func()
Dim url As String: url = "URLﾘﾝｸ(e-hentai.org)
994:be77a0a2/" Dim buffer As String: buffer = "" Dim objLink As Object Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = False objIE.navigate (url) Do While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE DoEvents Loop Call WaitFor(3) ' wait for 3 seconds buffer = objIE.document.getElementsByClassName("gdtm").outerHTML Cells(1, 1).Value = buffer objIE.Quit Set objIE = Nothing End Sub Function WaitFor(ByVal second As Integer) Dim futureTime As Date: futureTime = DateAdd("s", second, Now) While Now < futureTime DoEvents Wend End Function
995:デフォルトの名無しさん
22/02/09 19:45:46.68 Fae4IrPy0.net
>>987
ここから進まない
Do While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
最終的に何がしたいの？スクレイピング（画像のダウンロード）？
996:デフォルトの名無しさん
22/02/09 19:48:05.28 Fae4IrPy0.net
ダウンロードなら、右の「Archive Download」からダウンロードできるぽいのでそこで試してみては
997:デフォルトの名無しさん
22/02/09 21:24:05.75 Z/7LO9MU0.net
buffer = objIE.document.getElementsByClassName("gdtm").outerHTML
↓
buffer = objIE.document.getElementsByClassName("gdtm")(0).outerHTML
みたいに添え字が必要。先頭だけでいいなら０
ちなみに、objIE.document.getElementsByClassName("gdtm").Length で何個あるかわかる
全部ほしければループする
リンク先が欲しいなら、outerHTMLじゃなくて、aタグのhrefだけ取得すればいいと思うよ
hoge = objIE.document.getElementsByClassName("gdtm")(0).getElementsByTagName("a")(0).href
あとは、objIE.navigate (hoge) でリンク先に飛ぶ
998:デフォルトの名無しさん
22/02/09 21:40:08.30 RWuYGaqJ0.net
>>987
そもそもe-hentai.orgはスクレイピング対策がけっこうキツめだからそんな単純な方法ではだめだったはず
999:デフォルトの名無しさん
22/02/09 21:44:33.64 oSWjz80sa.net
.click
1000:デフォルトの名無しさん
22/02/09 22:14:49.52 MpMYHHoEd.net
どんな画像かわからんけど漫画なら作者なりが訴えたらまとめて賠償請求されるかもしれんのに
よく回答するねｗ
1001:デフォルトの名無しさん
22/02/09 22:20:10.16 dWa1kwqW0.net
だって、教えたがりおじさんおばさんの巣窟だもん
1002:デフォルトの名無しさん
22/02/09 22:31:13.14 WQvIAEnaM.net
回答者に賠償請求ですって？法律を知らない子はおかしなことをおっしゃるのね
1003:デフォルトの名無しさん
22/02/09 22:43:06.13 qWGRAcWA0.net
質問者はどうしたらクリックできるか訊いてるんだけどね
なぜかダウンロードだのどうしたいだの
1004:デフォルトの名無しさん
22/02/10 01:00:09.82 hZgX7eKD0.net
マウスつなげる
1005:デフォルトの名無しさん
22/02/10 07:30:31.61 j0eZpZqg0.net
If cnt=1000 Then MsgBox "ぬるぽ", vbOkOnly+vbCritical
1006:94
22/02/10 09:01:43.57 YAVEwoPsM.net
vbaでWordの２ページ目にある表の中の文字列をエクセル転記したいです。
Wordの操作はできそうなのですが文字をどこまで細かく引っ張れるのでしょうか
1007:デフォルトの名無しさん
22/02/10 09:33:43.50 cXcP1CjO0.net
>>999
条件次第
1008:1001
Over 1000 Thread.net
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 52日 7時間 52分 44秒
1009:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています