[OSのVer]：Windows xp　　　[VBのVer]：VB.NET2003

AxWebBrowserで開いたページのradioボタンを選択させる方法を
アドバイスしていただけますか

topというフレームにあるabcdという名前のradioボタンを選択して値　"１"
を選びたいのですが
私が考えついたコードは
AxWebBrowser1.Document.frame("top").elements("abcd").Value = 1
です
実行するとエラーがでます。内容は
　　追加情報 : マーシャラの制約 : 文字列が長すぎます。
です

お邪魔するときは質問ばかりで申し訳ございませんが
よろしくご教授ください

　　

下記あたりが参考になりませんか？
hhttp://homepage1.nifty.com/MADIA/vb/vb_bbs/200309_03090093.html

> topというフレームにあるabcdという名前のradioボタンを選択して値　"１"
> を選びたいのですが
具体的な URL と場所を教えて頂ければテストもできるのですが。

対象ページのURLがあるとわかりやすいのですが…。

> topというフレームにあるabcdという名前のradioボタンを選択して値　"１"

これが VBScript ベースだとすれば、
  For Each Radio In document.frames("top").document.getElementsByName("abcd")
    If Radio.value = "1" Then
       Radio.checked = True
       Exit For
    End If
  Next
という感じでしょうかね。(未確認)


VB.NET でも同様の手順でいけるとは思いますが、個々のオブジェクトについて、
ReleaseComObject メソッドでの解放処理が必要になる可能性があります。
hhttp://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200511/05110095.txt

レスを頂きありがとうございました
当初は目的ページを保存してオフラインでテストしていたのですが
オンラインで実際のページを開くとその時点で違う動きが始まりまして
試すことすら出来ていません
目的のページは
hhttps://tools.dti.ne.jp/gate/index.html
です。AxWebBrowser1.Navigateでこのページを開くと
新たにブラウザが２つ開いて同じページを表示します（WinXP)
（Win９８では実行エラーになり終了です）

対象フレームの名前は　top
Radioボタンの名前は　dti_point　です
dti_pointに　value = "1"を指定したいのですが
オフラインでも上手く選択できませんでした

引き続きよろしくお願いします

> 引き続きよろしくお願いします

ところで、No.2665 の魔界の仮面弁士さんのコードは試されましたか。
それでチェックが入りますよ。

> ところで、No.2665 の魔界の仮面弁士さんのコードは試されましたか。

頂いたコードをそのまま使いますと
For Each Radio
のRadioが　”名前Radioが宣言されていません”
となりますので
Dim Radio As RadioButton　を宣言してみました
すると
If Radio.value = "1" Thenが
'value' は 'System.Windows.Forms.RadioButton' のメンバではありません。
というエラーになってしまいました
申し訳ありません
理解が足りないようです

> Dim Radio As RadioButton　を宣言してみました
型が異なります。HTMLのコントロールと、Windowsフォームのコントロールは別物です。

とりあえずは、「For Each Radio As Object In 〜」などのように、
Object として宣言しておきましょう。もしも厳密な型指定が必要なら、
MSHTML.TLBなどを参照設定する事になります。

魔界の仮面弁士さんありがとうございます
お世話になります

AxWebBrowser1.Navigate("hhttps://tools.dti.ne.jp/gate/index.html")

Do While AxWebBrowser1.Document.ReadyState <> "complete"
System.Windows.Forms.Application.DoEvents()
Loop

For Each Radio As Object In AxWebBrowser1.Document.frames("top").getElementsByName
("dti_point")
If Radio.value = "1" Then
Radio.Checked = True
Exit For
End If
Next

としてみましたが
'System.Runtime.InteropServices.COMException' のハンドルされていない例外が
microsoft.visualbasic.dll で発生しました。

となってしまいました。申し訳ありませんがあと少し面倒を見ていただけるとありがたいです
よろしくお願いします

> .Document.frames("top").getElementsByName("dti_point")
　 document.frames("top").document.getElementsByName("abcd")

よくコードを見比べて見て下さい。　どこか［抜けて］いませんか？

hhttp://www.bcap.co.jp/hanafusa/logbbs/wforum.cgi?mode=allread&no=6255#6264

AxWebBrowser1.Navigate("hhttps://tools.dti.ne.jp/gate/index.html")
Do While AxWebBrowser1.Busy
    System.Windows.Forms.Application.DoEvents()
Loop

Do While AxWebBrowser1.Document.ReadyState <> "complete"
    System.Windows.Forms.Application.DoEvents()
Loop

For Each Radio As Object In AxWebBrowser1.Document.frames("top").Document.getElementsByName("dti_point")
    If Radio.value = "1" Then
        Radio.Checked = True
        Exit For
    End If
Next

尚、ReleaseComObject メソッドでの解放処理はしておりませんので、必要により追加して
下さい。

花ちゃん さん ご丁寧にありがとうございました
書いていただいたコードをコピペして実行してみましたら
同様にエラーになり終了確認のメッセージがでました
そこで、「継続」を選び様子をみてみました

実行するたびに
するとRadio.value = "1"にいったんチェックが付くのですが
すぐにRadio.value = "0"の方（既定値）にチェックが戻ってしまいます
なぜでしょうか？

その前に書いていただいた
AxWebBrowser1.Document.frames("top").Document.getElementsByName ．．．が
AxWebBrowser1.Document.frames("top").getElementsByName．．．になっていたのは
エラーが続く中、もしや．．．と思いあえて変えてみた所でした
全く意味が無かったようですね 失礼しました

> 同様にエラーになり終了確認のメッセージがでました

実際に使用したコード(イベント含む)をコピペして投稿して下さい。
どこの部分でどのようなエラーメッセージ（正確に）が表示されたかをすぐ返事
下さい(忘れた頃レスされても....)

確認が遅くなり大変失礼しました
今日からは１日２回は確認をしに来れると思いますので
よろしくお願いします
以下に状況をまとめさせていただきます


Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click

AxWebBrowser1.Navigate("hhttps://tools.dti.ne.jp/gate/index.html")
Do While AxWebBrowser1.Busy
    System.Windows.Forms.Application.DoEvents()
Loop

Do While AxWebBrowser1.Document.ReadyState <> "complete"
    System.Windows.Forms.Application.DoEvents()
Loop

For Each Radio As Object In AxWebBrowser1.Document.frames("top").Document.getElemen
tsByName
("dti_point")
    If Radio.value = "1" Then
        Radio.Checked = True
        Exit For
    End If
Next
End Sub

コンパイルは成功し実行すると

'System.Runtime.InteropServices.COMException' のハンドルされていない例外が
microsoft.visualbasic.dll で発生しました。
そこで、「継続」を選び様子をみてみました

するとその後は実行するたびに
Radio.value = "1"にいったんチェックが付くのですが
すぐにRadio.value = "0"の方（既定値）にチェックが戻ってしまいます

以上ですよろしくお願いします

> AxWebBrowser1.Navigate("hhttps://tools.dti.ne.jp/gate/index.html")
このページは、チェックボックスの値を変更するたびに、HTML内のスクリプトによって、
下半分のフレームの文書が挿し換わるようですね。

挿し換わった直後は、文書の再読み込みと解析処理が必要になるため、
Document オブジェクトを取得しなおす必要があるかも知れません。

このあたりはタイミングの問題になってきますので、ループで待機させるのではなく、
VBらしく「イベント」で処理するようにした方が良いと思います。


> For Each Radio As Object In AxWebBrowser1.Document.frames("top").Document.getElementsByName("dti_point")
一行で書くのではなく、オブジェクトを変数に受けとって処理した方が良いでしょう。

その上でエラーが出るようなら、ページ遷移のタイミングで、COMのオブジェクトが一時的に
切断されてしまったのかも知れません。どのCOMオブジェクトまでは取得できていて、
どのオブジェクトにアクセスした時にエラーになるのかを確認してみては如何でしょう。

前回のコードでも最初の１回ならエラーはでなかったはずです。
2度目以降のクリック時にDo While AxWebBrowser1.Document.ReadyState <> "complete"
の部分が素通りされる為にエラーが起きているようです。
System.Windows.Forms.Application.DoEvents() の１行を入れるか待ち時間等を
作ってやればOKです。
一応、下記コードでも問題は起きないようです。

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
    AxWebBrowser1.Navigate("hhttps://tools.dti.ne.jp/gate/index.html")
    Do While AxWebBrowser1.Busy
        System.Windows.Forms.Application.DoEvents()
    Loop
    System.Windows.Forms.Application.DoEvents()
    '上記がないと2度目以降のクリックで下記が素素通りしてしまう
    Do While AxWebBrowser1.Document.ReadyState <> "complete"
        System.Windows.Forms.Application.DoEvents()
        Debug.WriteLine(AxWebBrowser1.Document.ReadyState)
    Loop
    For Each Radio As Object In AxWebBrowser1.Document.frames("top").Document.getElementsByName("dti_point")
        If Radio.value = "1" Then
            Radio.Checked = True
            Exit For
        End If
    Next
End Sub

花ちゃん さん 何度も面倒を見ていただきありがとうございました
おかげさまで無事解決しました
魔界の仮面弁士さんもアドバイスありがとうございました
下方のドキュメントに対してもループで待機させようと思っていたので
考え直す事にします
大変お手数をおかけしました