スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
スポンサーリンク

ログイン画面

ログイン画面のHTMLソース(一部を抜粋)は以下のようになっています。
スポンサーリンク
<html>
<head></head>
<body id="top" class="lyt-column-ms-01">
<form method="get" name="search"></form>
<form method="get" name="searchform"></form>
<form name="loginform" action="xxx" method="post" target="_top">
ログインID<input type="text" id="form-login-id" name="loginid" />
パスワード<input type="password" id="form-login-pass" name="passwd" />
<input type="image" value="ログイン" src="xxx" id="login-btn" name="submit%template" />
</form>
</body>
</html>
このようなHTMLのとき、ログイン画面クラスは以下のようになります。
Public Class RakutenLogin
Inherits AbstructRakutenWebScreen
Implements IWebScreenOpen, IWebScreenLogin

Const RAKUTEN_SEC_URL As String = "https://www.rakuten-sec.co.jp/"

Private Shared ReadOnly USER_ID As String = "xxxxxxxx"
Private Shared ReadOnly PASS_WD As String = "xxxxxxxx"

Protected Sub New()
MyBase.New()
_ie = New IEWrapper()
_ie.NewIE(RAKUTEN_SEC_URL)
End Sub

Protected Sub New(ByVal screen As AbstructRakutenWebScreen)
_ie = screen.IE
_ie.GotoUrl(RAKUTEN_SEC_URL)
End Sub

Shared Function Open() As RakutenLogin
Return New RakutenLogin()
End Function

Shared Function Open(ByVal screen As AbstructRakutenWebScreen) As RakutenLogin
Return New RakutenLogin(screen)
End Function

Function Login() As IWebScreen Implements IWebScreenLogin.Login
LoginInner()
Return New RakutenTop(Me)
End Function

Private Sub LoginInner()
_ie.RootFrame().RootDocument()
_ie.TypeValue("loginid", USER_ID) 'name
_ie.TypeValue("passwd", PASS_WD)
' ログインボタンをクリック
_ie.ClickSubmit("login-btn") 'id
End Sub

End Class
RakutenLoginクラスは、AbstructRakutenWebScreenクラスを継承し、IWebScreenOpenインタフェース、IWebScreenLoginインタフェースを実装しています。LoginInnerメソッドで、ログインIDとパスワードを入力し、ログインボタンをクリックいています。
スポンサーリンク
<<資産タブの基本クラス | ホーム | トップ画面>>
コメント(-)
コメントの投稿
トラックバック(-)
コメント(0)
コメントの投稿
トラックバック(0)
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。