指定したURLから、リンク先URLおよびリンクテキストを取得するというものです。
http://q.hatena.ne.jp/1200474454
これの改造についての相談（お願い）です。
コマンドプロンプト上で動作させる仕様になっています。
それを、下記のようにhtaで動かしたいのです。
http://itpro.nikkeibp.co.jp/article/COLUMN/20060116/227312/?ST=develop
手順について分かる方、ヒントをください。
もし書いてあげるよという方がいたら最高です！100pts.差し上げます。
No.1
33
7
150pt
以下のような感じでしょうか。
276
263
<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>
2
1
2
1
コメント（1件)