<input type=hidden

haru 2007-02-04 21:11:23 No: 135140

VB6 sp6 を使用しています。

http://list.425dxn.org/
上記のＷｅｂページからたどって各ページを保存するソフトを
作成したいのですが今までに経験のないページなので出来ずにいます。
保存するＵＲＬが分かれば保存するコードは書け、保存もした事が
あります。
どなたかご指導頂けたら幸いです。

<h1> Search System in 425dxn.org
<a href=http://list.425dxn.org>HOME</a> </h1>
<form action=http://list.425dxn.org/ method=post>
<input type=submit value=425ita name=f1>
<input type=submit value=425eng name=f1>
<input type=hidden value='' name=f2>
<input type=hidden value='' name=f3>
</form>

このページの[ 425eng ] をクリックすると次のページが表示されて
<h1> Search System in 425dxn.org
<a href=http://list.425dxn.org>HOME</a> </h1>
<form action=http://list.425dxn.org/ method=post>
<input type=hidden value=425eng name=f1>
<input type=submit value=200702 name=f2>
<input type=submit value=200701 name=f2>
．．．．．以下省略。

例として、このページの[ 200702 ] をクリックすると次のページが
表示されて

<h1> Search System in 425dxn.org
<a href=http://list.425dxn.org>HOME</a> </h1>
<form action=http://list.425dxn.org/ method=post>
<input type=hidden value=425eng name=f1>
<input type=hidden value=200702 name=f2>
<input type=submit value=20070203121533 name=f3>
Subject: [425ENG] 425 DX News #822 [Calendar]
<p>
<input type=submit value=20070202215746 name=f3>
Subject: [425ENG] 425 DX News #822
<p>
<input type=submit value=20070201060238 name=f3>
Subject: [425ENG] The Toplist of February
<p>
</form>
（２００７０２から２０００１２までも同様に）

このページの[ 20070203121533 ] をクリックすると表示される
ページを保存したいのです。

各々のコードはＩＥの「表示」「ソース」を転記しました。

haru 2007-02-06 20:09:45 No: 135141

http://madia.world.coocan.jp/vb/vb_bbs/200309_03090009.html
上記のページを参考にして自分なりに書き換えて見ました。

Option Explicit

'フォームの送信ボタンを押すためのコード
Private Sub Command1_Click()
    Dim objDocument    As Object    'As MSHTML.HTMLDocument
    Dim objForm        As Object    'As MSHTML.HTMLFormElement
    Dim objElement     As Object    'As MSHTML.IHTMLElement
    Dim objElements    As Object    'As MSHTML.IHTMLElementCollection
    Dim index As Integer

Set objDocument = Me.WebBrowser1.document
Set objForm = objDocument.Forms(0)

index = 0
    Select Case index
     Case 0
        objForm.elements(1).Click
    End Select

Set objForm = Nothing
Set objDocument = Nothing
End Sub

Private Sub Command2_Click()
    Dim objDocument    As Object    'As MSHTML.HTMLDocument
    Dim objForm        As Object    'As MSHTML.HTMLFormElement
    Dim objElement     As Object    'As MSHTML.IHTMLElement
    Dim objElements    As Object    'As MSHTML.IHTMLElementCollection
    Dim index As Integer

Set objDocument = Me.WebBrowser1.document
Set objForm = objDocument.Forms(0)

index = 0
    Select Case index
     Case 0
        objForm.elements(1).Click '1なら200702 ,  2なら200701
    End Select

Set objForm = Nothing
Set objDocument = Nothing
End Sub

Command1 、Command2 を順次クリックすると順番に表示されて行きます。
Command2 をクリックして表示されているボタンは同様のコードを書いても
表示されないのですが、どう言うコードを書けば表示出来るでしょうか？