getElementsByNameを使用してログインする方法 (ID:121759)

名前

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

本文 始めまして。 web画面をVB上に配置して自動処理を目的としたPG作業をしております。 現在ログイン画面の操作を行っております。 奇数(1,3,5,7…)番目のユーザーはログイン出来ました。 しかし偶数(2,4,6,8…)番目がログインされません。 過去ログを参考にしておりますが、いまいち理解できません。 Q１.「getElementsByName」とは何でしょうか？ Q２．下記コードで何処が不適切なのでしょうか？ どなたかご教授お願い致します。 ここからHTML----------------------------------------------------- <FORM name="form1" method="POST" action="URL"><INPUT NAME="GXHC_GX_jst" TYPE="HIDDEN" VALUE="90c77177662d6164" ></INPUT><INPUT NAME="GXHC_JSESSIONID" TYPE="HIDDEN" VALUE="8f30c585d924103b" ></INPUT> <table border=1 bordercolor=red border="0" cellspacing="1" cellpadding="1" width="610"> <TR> <TD COLSPAN="2"> <B>ユーザーＩＤとパスワードを入力して 「ログイン」ボタンを押してください。</B><BR> ユーザー登録を未だお済ませでない方は、 <A href="URL">ユーザー登録ページ</A>で承っております。<BR><BR> 契約結果通知書に記載されている、ユーザーＩＤ、パスワードをご確認の上、<B><FONT size="+1">「半角」</FONT></B>にて入力願います。ユーザーＩＤ、パスワードがわからない場合、<A href="###" onClick="javascript:pdf_wind('URL')">XXX</A>を・・・。 </TD> </TR> </TABLE> <BR> <table border=1 bordercolor=red border="0" cellspacing="1" cellpadding="1"> <TR> <TD align="right" width="50%">ユーザーＩＤ</TD> <TD width="50%"><input type="text" name="loginid" size="15" maxlength="12">（半角）</TD> </TR> <TR> <TD align="right">パスワード</TD> <TD><input type="password" name="password" size="15" maxlength="12">（半角）</TD> </TR> <TR> <TD></TD> <TD ALIGN="left"><INPUT type="image" src="../../etczen/images/XX.gif" border="0" alt="ログイン" width="68" height="21"></TD> </TR> </TABLE> </FORM> ここからコード----------------------------------------------------- Public Sub login(ByVal no As Integer, ByVal id As String, ByVal pass As String) '変数定義 Dim obj1 As Object 'IDとパスワードをセット Me.WebBrowser1.Document.All.loginid.Value = id Me.WebBrowser1.Document.All.Password.Value = pass 'Item73 'formnameをセット Set obj1 = Me.WebBrowser1.Document.getElementsByName("form1") 'formnameの処理判断 If obj1.length > 0 Then 'サブミット obj1(0).submit End If End Sub