人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

以前、下記のVBスクリプトを書いて頂きました。
指定したURLから、リンク先URLおよびリンクテキストを取得するというものです。
http://q.hatena.ne.jp/1200474454

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

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

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

●質問者: にらたま
●カテゴリ:コンピュータ インターネット
✍キーワード:HTA URL VB コマンドプロンプト スクリプト
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● tawazou
●150ポイント

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

<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>
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ