webbrowserにappendChildでyahooへのリンクを追加させるには？

質問

お世話になります。
以下のvb6のコードを見ていただきたいですが
bodyタグの中にh1タグしかない簡単なページに
<a href="http://www.yahoo.co.jp">ヤフーへ</a>
というaタグをウェブブラウザに表示させた際に追加させたいと
思っています。

その際、href属性とhttp://www.yahoo.co.jpという値を
つけくわえるコードがわかりません。
｛vb.netだと　elem.SetAttribute("HREF", http://www.yahoo.co.jp)
で記述できるみたいですが、vb6だとコンパイルエラーがでてしまいます｝

どのようにコーディングすればよろしいでしょうか？
教えてください。お願い致します。

Private Sub Command1_Click()
WebBrowser1.Navigate ("http://hoho.hiho.jp/")

Do While WebBrowser1.Busy = True
'何もしないループ（笑）
DoEvents
Loop

Start = Timer
Do While Timer - Start < 2
DoEvents
Loop

Dim elm As IHTMLElement
Set elem = WebBrowser1.Document.createElement("A")
elem.innerText = "ヤフーへ"
WebBrowser1.Document.body.appendChild (elem)

End Sub

回答No.2

KenKen_SP · ベストアンサー

> ですがappendChildでソースに組み込む方法が知りたいのです。

全体的に説明不足なのに、なぜ appendChild にこだわるのかの理由もなく、
回答を全否定されるのもなんだかなぁ...と思いますけど。

Dim elem As Variant　'<--- Variant ならいけた

Set elem = WebBrowser1.Document.createElement("A")
elem.innerText = "ヤフーへ"
elem.href = "http://www.yahoo.co.jp"　'<-- 追加
WebBrowser1.Document.body.appendChild (elem)

お礼

そういいつつもちゃんと教えてくれるそんなKenKenさんが好きです。

回答No.1

KenKen_SP

この処理の目的が良く分かりませんが....直接 Html を書き込んでしまえば？

With WebBrowser1
　　.Navigate ("http://hoho.hiho.jp/")
　　While .Busy And .ReadyState <> READYSTATE_COMPLETE
　　　　DoEvents
　　Wend
　　.Document.body.insertAdjacentHTML _
　　　　Where:="beforeEnd", _
　　　　Html:="<a href=http://www.yahoo.co.jp>ヤフーへ</a>"
End With

ちなみに、一回 Yahoo へ行って、元のページに戻るとリンクが消えてます。
サーバーの Html を書き換えるわけではないので、当然の結果ですが、
これを阻止する必要があるなら、その方法はご自分で考えてみて下さい。

お礼

ありがとうございます。
ですがappendChildでソースに組み込む方法が知りたいのです。