リンクをVBで自動クリックさせるには

解決

---

VB6.0で
IEのオブジェクトを取得した後


例えばテキストにaaaaaという文字を自動入力するとき
IE.document.all.テキスト.value = "aaaaa"

次に送信ボタンを自動でクリック
IE.document.all.送信ボタン.click

これらは理解して出来たのですが下線付きリンクを自動で
クリックさせる方法が分かりません。教えて下さいお願いします。

下線付きリンクはname=のところに何も入っていないようなのです。

編集 削除

---

ちなみに

IE.navigate {URL} を使えばと言われそうですが

当方の都合でセキリュティがかかっておりそれを使うと何故か
エラーが発生してしまいます。  navigateを使わない方法で
単にクリックさせる動作があれば教えて頂きたいです。

編集 削除

---

同様の手法で、aオブジェクトのclickメソッドを呼び出してみるとか。
http://msdn.microsoft.com/workshop/author/dhtml/reference/objects/a.asp

> 下線付きリンクはname=のところに何も入っていないようなのです。
anchorsコレクションを列挙するのが手っ取り早いかも。
http://msdn.microsoft.com/workshop/author/dhtml/reference/collections/anchors.asp
あるいは、getElementsByTagName等のメソッドでも良いでしょう。
http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/getelementsbytagname.asp

HTMLの構造が事前に分かっているなら、parentElement, firstChild, childNodes 等を使って辿ることもできますね。

編集 削除

---

すみません魔界の仮面便士様  いつも勉強させて頂いてます。

anchorsコレクションを列挙というのは

IE.document.anchorsを参照するということですよね。

その下にはlengthしかなく  これをどうやって扱えば

下線付きリンクを自動クリック出来るか具体的にお願いします。

編集 削除

---

> その下にはlengthしかなく  
「プロパティ」だけではなく、「メソッド」にも目を向けてみてください。
(先のURLを参照)

> これをどうやって扱えば
「コレクション」ですから、For Eachで列挙できますよ。

編集 削除

---

魔界の仮面弁士様  いつもありがとうございます

似たようなソースをどこかから持ってきました。

これを実行するとＵＲＬの一覧表示は出来ますが
これを自動クリックさせる方法がどうしても分かりません。



ターゲットページの URL 一覧を表示する
all コレクションを使用して href 属性を全て表示します

<SCRIPT language=VBScript>
 
Dim Ie
 
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Visible = True
Ie.Navigate("http://hp.vector.co.jp/authors/VA003334/")
 
function TargetLinkLoad()
 
  Dim AllList
 
  Set AllList = Ie.Document.all
  For Each AllObject in  AllList
    on error resume next
    document.write AllObject.href & "<br>"
    on error goto 0
  Next
 
  Ie.Quit
 
end function
 
</SCRIPT>

編集 削除

---

IE.document.frames(0).document.links.item(2).clickで
解決しました。ありがとうございます。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。