以前、下記のVBスクリプトを書いて頂きました。

指定したURLから、リンク先URLおよびリンクテキストを取得するというものです。
http://q.hatena.ne.jp/1200474454

これの改造についての相談(お願い)です。
コマンドプロンプト上で動作させる仕様になっています。

それを、下記のようにhtaで動かしたいのです。
http://itpro.nikkeibp.co.jp/article/COLUMN/20060116/227312/?ST=develop

手順について分かる方、ヒントをください。
もし書いてあげるよという方がいたら最高です!100pts.差し上げます。

回答の条件
  • 1人2回まで
  • 登録:2008/01/26 03:03:10
  • 終了:2008/01/26 16:11:31

回答(1件)

id:tawazou No.1

tawazou回答回数33ベストアンサー獲得回数72008/01/26 05:12:52

ポイント150pt

以下のような感じでしょうか。

<html><head>
<title>サンプル・プログラム</title></head>
<body>
<form name="form1">
    URL <input type="text" name="url" size="50" value="http://q.hatena.ne.jp/1201284187" /><br><br>
    <input type="button" value="実行" onClick="go()" /><br><br>
    <textarea name="kekka" cols="100" rows="25"></textarea>
</form>
<script language="VBScript">
Sub go()
dim ie, i
if document.form1.url.value = ""  then
	msgbox "URLを指定して下さい。"
	exit sub
end if
set ie = CreateObject("InternetExplorer.Application")
ie.navigate(document.form1.url.value)
while ie.busy
wend
document.form1.kekka.value = ""
for i = 0 To ie.document.links.length - 1
    document.form1.kekka.value = document.form1.kekka.value & ie.document.links(i).innerText & "(" & ie.document.links(i).href & ")" & vbcrlf
next
ie.quit()
set ie = nothing
End Sub
</script>

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません