三井住友銀行SMBCダイレクトに自動ログイン
'三井住友銀行SMBCダイレクトに自動ログイン
'契約者番号、第一暗証は、各自設定してください。
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'契約者番号
Dim UserID1 As String = "12345"
Dim UserID2 As String = "67890"
'第一暗証
Dim Passwd As String = "123456"
'ブラウザを起動し三井住友銀行SMBCダイレクトを表示します。
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://direct.smbc.co.jp/aib/aibgsjsw5001.jsp")
'契約者番号を自動入力
ie.TextBox.SetValue("USRID1",UserID1,"")
ie.TextBox.SetValue("USRID2",UserID2,"")
'第一暗証を自動入力
ie.TextBox.SetValue("PASSWORD",Passwd,"")
'ログインボタンを自動クリック
ie.Button.Click("ログイン")
ie.Close.Dispose
End Function
End Class
End Namespace
BizMart ビズマート 牛肉トレーサビリティに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'BizMart ビズマート 牛肉トレーサビリティに自動ログイン
'会社コード、ユーザー名、パスワードは、各自設定してください。
'会社コード
Dim KaishaID As String = "123456"
'ユーザー名
Dim UserID As String = "123456"
'パスワード
Dim Passwd As String = "000000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://www.bizmart.ne.jp/Top/Aa/fap0000.htm")
ie.TextBox.SetValue("kaisha",KaishaID,"")
ie.TextBox.SetValue("user",UserID,"")
ie.TextBox.SetPassword("pass",Passwd,"")
ie.Button.Click("ログオン")
ie.Close.Dispose
End Function
End Class
End Namespace
Googleに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
Dim UserID As String = "user"
Dim Passwd As String = "pass"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://www.google.com/accounts/Login?continue=http://www.google.co.jp/&hl=ja")
ie.TextBox.SetValue("Email",UserID,"")
ie.TextBox.SetPassword("Passwd",Passwd,"パスワードを入力してください")
ie.Button.Click("ログイン")
ie.Close.Dispose
End Function
End Class
End Namespace
Googleの検索結果をファイルに保存
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'Googleの検索結果をファイルに保存
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Open.Navigate("http://www.google.co.jp/")
ie.TextBox.SetValue("q", "funchi", "")
ie.Button.Click("Google 検索")
Dim cnt As Integer = 0
Dim sr As New System.IO.StreamWriter("C:¥Users¥funchi¥Documents¥funchi.txt", False)
Do
sr.WriteLine("-------------" & cnt.ToString & "--------------")
For Each ppp As EasilyWebEdi.HtmlItemProperties In ie.TextLink.GetAllItems()
If ppp.ItemName = "キャッシュ" Then
Continue For
End If
If ppp.ItemName = "関連ページ" Then
Continue For
End If
sr.WriteLine(ppp.ItemName & "," & ppp.ItemExHref)
Next
cnt = cnt + 1
Loop Until ie.TextLink.Click("次へ") = False _
Or cnt = 2
sr.Close()
ie.Window.Activate()
ie.Close.Dispose()
End Function
End Class
End Namespace
mixiに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'mixi(ミクシィ)に自動ログイン
'メールアドレス、パスワードは、各自設定してください。
'メールアドレス
Dim MailID As String = "123456@123.123"
'パスワード
Dim Passwd As String = "000000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("http://mixi.jp/home.pl")
ie.TextBox.SetValue("email",MailID,"")
ie.TextBox.SetPassword("password",Passwd,"")
ie.ImageLink.Click("http://img.mixi.jp/img/basic/logout/btn_login001.gif")
ie.Close.Dispose
End Function
End Class
End Namespace
Yahooに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'Yahooに自動ログイン
Dim UserID As String = "user"
Dim Passwd As String = "pass"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://login.yahoo.co.jp/config/login?.src=my&.intl=jp&.done=http://my.yahoo.co.jp/index.html")
If ie.TextBox.Exist ("login") = False
ie.Open.Navigate("https://login.yahoo.co.jp/config/login?logout=1&.intl=jp&.src=my&.pd=&.protoctl=&.partner=&.done=http%3A//my.yahoo.co.jp/index.html")
ie.Open.Navigate("https://login.yahoo.co.jp/config/login?.src=my&.intl=jp&.done=http://my.yahoo.co.jp/index.html")
End If
ie.TextBox.SetValue("login",UserID,"")
ie.TextBox.SetPassword("passwd",Passwd,"")
ie.Button.Click("ログイン")
ie.Close.Dispose
End Function
End Class
End Namespace
しまむらに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'しまむらに自動ログイン
'ログインID、パスワードは、各自設定してください。
'ログインID
Dim LoginID As String = "123456"
'パスワード
Dim Passwd As String = "000000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://edi.shimamura.gr.jp/SWEA00020.asp")
ie.TextBox.SetValue("txt_logincd",LoginID,"")
ie.TextBox.SetPassword("TXT_PassWord",Passwd,"")
ie.ImageLink.Click("https://edi.shimamura.gr.jp/gif/btn_enter.gif")
ie.Close.Dispose
End Function
End Class
End Namespace
マネックス証券に自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'マネックス証券に自動ログイン
'ログインID、パスワードは、各自設定してください。
'ログインID
Dim LoginID As String = "123456"
'パスワード
Dim Passwd As String = "000000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://www.monex.co.jp/Login/00000000/login/ipan_web/hyoji")
ie.TextBox.SetValue("loginid",LoginID,"")
ie.TextBox.SetPassword("passwd",Passwd,"")
ie.ImageLink.Click("https://www.monex.co.jp/image/nav/button_login.gif")
ie.Close.Dispose
End Function
End Class
End Namespace
みずほWEB ANSERサ−ビスに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'みずほWEB ANSERサ−ビスに自動ログイン
'ログインID、パスワードは、各自設定してください。
'ログインID
Dim LoginID As String = "123456"
'パスワード
Dim Passwd As String = "000000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://www.caweb.anser.or.jp/cgi/caweb.aic?CCT0080=0016")
ie.TextBox.SetValue("WGLI010",LoginID,"")
ie.TextBox.SetPassword("WGLI020",Passwd,"")
ie.Button.Click("ログイン")
ie.Close.Dispose
End Function
End Class
End Namespace
みなとビジネスWebに自動ログイン
IImports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'みなとビジネスWebに自動ログイン
'ログインID、パスワードは、各自設定してください。
'ログインID
Dim LoginID As String = "123456"
'パスワード
Dim Passwd As String = "000000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://www.caweb.anser.or.jp/cgi/caweb.aic?CCT0080=0562")
ie.TextBox.SetValue("WGLI010",LoginID,"")
ie.TextBox.SetPassword("WGLI020",Passwd,"")
ie.Button.Click("ログイン")
ie.Close.Dispose
End Function
End Class
End Namespace
ゆうちょダイレクトに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'ゆうちょダイレクトに自動ログイン
Dim UserID1 As String = "uuuu"
Dim UserID2 As String = "uuuu"
Dim UserID3 As String = "uuuuu"
Dim Passwd As String = "ppppppppppppp"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://direct.jp-bank.japanpost.jp/tp1web/U010101SCK.do")
ie.TextBox.SetValue("okyakusamaBangou1",UserID1,"")
ie.TextBox.SetValue("okyakusamaBangou2",UserID2,"")
ie.TextBox.SetValue("okyakusamaBangou3",UserID3,"")
ie.TextBox.SetPassword("loginPassword",Passwd,"")
ie.Button.Click("次へ")
ie.Close.Dispose
End Function
End Class
End Namespace
りそなビジネスダイレクトに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'りそなビジネスダイレクトに自動ログイン
'ログインID、パスワードは、各自設定してください。
'ログインID
Dim LoginID As String = "123456"
'パスワード
Dim Passwd As String = "000000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://www.caweb.anser.or.jp/cgi/caweb.aic?CCT0080=0010")
ie.TextBox.SetValue("WGLI010",LoginID,"")
ie.TextBox.SetPassword("WGLI020",Passwd,"")
ie.Button.Click("ログイン")
ie.Close.Dispose
End Function
End Class
End Namespace
りそなダイレクトに自動ログインし、取引内容をCSV形式で保存
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'りそなダイレクトに自動ログインし、取引内容をCSV形式で保存する。
'ログインID、パスワードは、各自設定してください。
'ログインID
Dim LoginID As String = "iiiiiiii"
'パスワード
Dim Passwd As String = "pppppppp"
'ブラウザを起動
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
'りそなダイレクトのサイトを表示
ie.Open.Navigate("https://ib.resonabank.co.jp/IB/0102/SC_N_0102_010.aspx")
'ログインIDを入力し次へ
ie.TextBox.SetValue("ctl00$cphBizConf$txtLoginId",LoginID,"")
ie.ImageLink.Click("ctl00$cphBizConf$btnNext")
'パスワードを入力
ie.TextBox.SetValue("ctl00$cphBizConf$txtLoginPw",Passwd,"")
'ログインボタンをクリック
ie.ImageLink.Click("ctl00$cphBizConf$btnLogin")
If ie.Label.Exist("お知らせ") = True Then
'ie.ImageLink.Click("ctl00$cphBizConf$btnNextMsg")
ie.ImageLink.Click("ctl00$cphBizConf$btnTop")
End If
'取引内容確認・取消をクリック
ie.ImageLink.Click("ctl00$ctl79")
'取引区分・取引内容で絞り込むを選択
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","振込・振替")
ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","公共料金等自動支払")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","ペイジー料金払込")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","投資信託")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","外貨預金")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","定期預金")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","国債")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","住宅ローン・その他のローン")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","カードローン")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","各種変更・手続き")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","ログイン")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","ID通知・パスワード初期化")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","クイックログイン登録・解除")
'''ie.PullDownMenu.Select("ctl00$cphBizConf$lstTrdType","カードロックサービス")
'絞込み検索をクリック
ie.ImageLink.Click("ctl00$cphBizConf$btnFind")
'表示した内容をCSV形式でファイルに保存
ie.Table.GetTableText("1","りそな取引内容.csv")
ie.Close.Dispose
End Function
End Class
End Namespace
ルーターに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'ルーターに自動ログイン
Dim IP As String = "192.168.0.1"
Dim UserID As String = "user"
Dim Passwd As String = "pass"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("http://" & IP & "/")
ie.DialogBox.Login(IP,UserID,Passwd)
ie.Close.Dispose
End Function
End Class
End Namespace
楽天に自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'楽天に自動ログイン
Dim UserID As String = "uuuuuuuuuuuuu"
Dim Passwd As String = "ppppppppppppp"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://www.rakuten.co.jp/myrakuten/login.html")
ie.TextBox.SetValue("u",UserID,"")
ie.TextBox.SetPassword("p",Passwd,"")
ie.Button.Click(" 次へ ")
ie.Close.Dispose
End Function
End Class
End Namespace
楽天銀行に自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'楽天銀行(イーバンク)に自動ログイン
Dim UserID As String = "user"
Dim Passwd As String = "pass"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://fes.rakuten-bank.co.jp/MS/main/RbS?COMMAND=LOGIN&&CurrentPageID=START")
ie.TextBox.SetValue("LOGIN:USER_ID",UserID,"")
ie.TextBox.SetPassword("LOGIN:LOGIN_PASSWORD",Passwd,"")
ie.Button.Click("ログイン")
ie.Close.Dispose
End Function
End Class
End Namespace
楽天銀行に自動ログインして入出金明細をダウンロード
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'楽天銀行(イーバンク)に自動ログインして入出金明細をダウンロードする。
'但し、
'・以下の個人情報は自分のを設定してください。
'・パスワードは自分で入力するようにしています。
'・合言葉登録はしていません。
'・入出金明細の取得範囲は、既に表示されている内容です。
'・ログオフは手動でします。
'・入出金明細の保存ファイル名は、「C:¥Users¥funchi¥Documents¥¥イーバンク入出金明細_年4桁月2桁日2桁.csv」
'ユーザーID、パスワードの設定
Dim UserID As String = "iiiiiiii"
Dim Passwd As String = "pppppppp"
'誕生日の設定
Dim Nen as String = "1900"
Dim Tuki as String = "01"
Dim Hi as String = "01"
'既に他のブラウザでイーバンクを使用していたら、閉じる。
Dim ie As New EasilyWebEdi.Browser
'ブラウザを起動しイーバンクのページを表示する。
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://fes.rakuten-bank.co.jp/MS/main/RbS?COMMAND=LOGIN&&CurrentPageID=START")
'ログイン
ie.TextBox.SetValue("LOGIN:USER_ID",UserID,"")
ie.TextBox.SetPassword ("LOGIN:LOGIN_PASSWORD",Passwd,"dd")
ie.Button.Click("ログイン")
'誕生日を入力
ie.PullDownMenu.Select("SECURITY_BOARD:BIRTHDAY_YEAR",Nen)
ie.PullDownMenu.Select("SECURITY_BOARD:BIRTHDAY_MONTH",Tuki)
ie.PullDownMenu.Select("SECURITY_BOARD:BIRTHDAY_DAY",Hi)
ie.Button.Click("次へ")
'合言葉は後で設定
ie.Button.Click("後で設定する")
'入出金明細ボタンをクリック
ie.TextLink.Click("入出金明細")
'入出金明細の取得範囲の取得
Dim To_Nen as String = ie.TextBox.GetValue("FORM_DOWNLOAD:EXPECTED_DATE_TO_YEAR")
Dim To_Tuki as String = ie.TextBox.GetValue("FORM_DOWNLOAD:EXPECTED_DATE_TO_MONTH")
Dim To_Hi as String = ie.TextBox.GetValue("FORM_DOWNLOAD:EXPECTED_DATE_TO_DAY")
'ダウンロードボタンをクリック
ie.Button.Click("ダウンロード")
'入出金明細の保存先とファイル名を指定
ie.DialogBox.FileDownLoad("C:¥Users¥funchi¥Documents¥イーバンク入出金明細_" & To_Nen & To_Tuki & To_Hi & ".csv")
ie.Close.Dispose
End Function
End Class
End Namespace
関西スーパーwebログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'URL、ユーザーID、パスワードは、各自設定してください。
'ユーザーID
Dim UserID As String = "0000000"
'パスワード
Dim Passwd As String = "xxxxxxxxxxxx"
'パスワード
Dim Passwd2 As String = "000000"
'処理対象の取引先コード(全ての取引先が対象の場合は指定不要)
Dim TorihikisakiCD As String = "0000000"
'URL
Dim Url As String = "http"
'関西スーパーのWEB画面に自動ログイン
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate(Url)
ie.TextBox.SetValue("pt_userid",UserID,"")
ie.TextBox.SetPassword("pt_pw",Passwd,"")
ie.TextBox.SetPassword("pt_applkey",Passwd2,"")
ie.Button.Click("業務")
'全ての取引先を選択する場合(コメント中です)
'For Each i as EasilyWebEdi.HtmlItemProperties In ie.CheckBox.GetAllItems
' i.CheckeOn
'Next
'指定した取引先コード分のみを選択する場合
'取引先選択のテーブルの内容をチェックし、
'対象取引先コードのチェックボックスをチェックします。
Dim ti As Integer = 1
For ri As Integer = 0 To ie.Table.TableRowsCount(ti) - 1
If ie.Table.TableCell(ti, ri, 1).Label.Count > 0 Then
If ie.Table.TableCell(ti, ri, 1).Label(0).ItemName.IndexOf(TorihikisakiCD) > -1 Then
ie.Table.TableCell(ti, ri, 2).CheckBox(0).CheckOn()
ie.Documents.Wait()
Exit For
End If
End If
Next
ie.TextLink.Click("業務メニュー")
ie.Close.Dispose
End Function
End Class
End Namespace
佐川急便EDIサービスに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'佐川急便EDIサービスに自動ログイン
'ログインID、パスワードは、各自設定してください。
'ログインID
Dim LoginID As String = "123456"
'パスワード
Dim Passwd As String = "000000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://webedi.sagawa-exp.co.jp/")
ie.TextBox.SetValue("UserId",LoginID,"")
ie.TextBox.SetPassword("Passwd",Passwd,"")
ie.Button.Click("ログイン")
ie.Close.Dispose
End Function
End Class
End Namespace
三菱東京UFJダイレクトに自動ログイン(アイテム番号を指定した記述方法)
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'三菱東京UFJダイレクトに自動ログイン(アイテム番号を指定した記述方法)
'契約番号、パスワードは、各自設定してください。
'契約番号
Dim KeiyakuNo As String = "123456789"
'パスワード
Dim Passwd As String = "0000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://entry11.bk.mufg.jp/ibg/dfw/APLIN/loginib/login?_TRANID=AA000_001")
ie.TextBox.SetValue(0,KeiyakuNo,"")
ie.TextBox.SetPassword(1,Passwd,"")
ie.ImageLink.Click("https://directg.s.bk.mufg.jp/refresh/imgs/DIRECT_IMAGE/LOGINOUT/btn_login.gif")
ie.Close.Dispose
End Function
End Class
End Namespace
三菱東京UFJダイレクトに自動ログイン(アイテム名とフレームを指定した記述方法)
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'三菱東京UFJダイレクトに自動ログイン(アイテム名とフレームを指定した記述方法)
'契約番号、パスワードは、各自設定してください。
'契約番号
Dim KeiyakuNo As String = "123456789"
'パスワード
Dim Passwd As String = "0000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://entry11.bk.mufg.jp/ibg/dfw/APLIN/loginib/login?_TRANID=AA000_001")
ie.TextBox.SetValue("KEIYAKU_NO",0,0,KeiyakuNo,"")
ie.TextBox.SetPassword("PASSWORD",0,0,Passwd,"")
ie.ImageLink.Click("https://directg.s.bk.mufg.jp/refresh/imgs/DIRECT_IMAGE/LOGINOUT/btn_login.gif",0,0)
ie.Close.Dispose
End Function
End Class
End Namespace
三菱東京UFJダイレクトに自動ログイン(アイテム名を指定した記述方法)
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'三菱東京UFJダイレクトに自動ログイン(アイテム名を指定した記述方法)
'契約番号、パスワードは、各自設定してください。
'契約番号
Dim KeiyakuNo As String = "123456789"
'パスワード
Dim Passwd As String = "0000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://entry11.bk.mufg.jp/ibg/dfw/APLIN/loginib/login?_TRANID=AA000_001")
ie.TextBox.SetValue("KEIYAKU_NO",KeiyakuNo,"")
ie.TextBox.SetPassword("PASSWORD",Passwd,"")
ie.ImageLink.Click("https://directg.s.bk.mufg.jp/refresh/imgs/DIRECT_IMAGE/LOGINOUT/btn_login.gif")
ie.Close.Dispose
End Function
End Class
End Namespace
三菱東京UFJダイレクトに自動ログイン(パスワードは自分で入力したい記述方法)
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'三菱東京UFJダイレクトに自動ログイン(パスワードは自分で入力したい記述方法)
'契約番号、パスワードは、各自設定してください。
'契約番号
Dim KeiyakuNo As String = "123456789"
'パスワード
Dim Passwd As String = ""
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://entry11.bk.mufg.jp/ibg/dfw/APLIN/loginib/login?_TRANID=AA000_001")
ie.TextBox.SetValue("KEIYAKU_NO",KeiyakuNo,"")
ie.TextBox.SetPassword("PASSWORD",Passwd,"パスワードを入力してください")
ie.ImageLink.Click("https://directg.s.bk.mufg.jp/refresh/imgs/DIRECT_IMAGE/LOGINOUT/btn_login.gif")
ie.Close.Dispose
End Function
End Class
End Namespace
三菱東京UFJダイレクトにログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'三菱東京UFJダイレクトにログイン
'契約番号、パスワードは、各自設定してください。
'契約番号
Dim KeiyakuNo As String = "123456789"
'パスワード
Dim Passwd As String = "0000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://entry11.bk.mufg.jp/ibg/dfw/APLIN/loginib/login?_TRANID=AA000_001")
ie.TextBox.SetValue("KEIYAKU_NO",KeiyakuNo,"")
ie.TextBox.SetPassword("PASSWORD",Passwd,"")
ie.ImageLink.Click("https://directg.s.bk.mufg.jp/refresh/imgs/DIRECT_IMAGE/LOGINOUT/btn_login.gif")
ie.Close.Dispose
End Function
End Class
End Namespace
新生銀行のパワーダイレクトに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'新生銀行のパワーダイレクトに自動ログイン
'店番号、口座番号、パスワードは、各自設定してください。
'店番号
Dim TenNo As String = "123"
'口座番号
Dim KozaNo As String = "4567890"
'暗証番号
Dim Passwd As String = "0000"
'パワーダイレクトパスワード
Dim PowerPasswd As String = "111111"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://directa04.shinseibank.co.jp/FLEXCUBEAt/LiveConnect.dll?EntryFunc&fldAppID=RT&fldTxnID=LGN&fldScrSeqNo=00&fldLangID=JPN&fldDeviceID=01&fldRequestorID=40")
ie.TextBox.SetValue("fldUserID",TenNo & KozaNo,"")
ie.TextBox.SetPassword("fldUserNumId",Passwd,"")
ie.TextBox.SetPassword("fldUserPass",PowerPasswd,"")
ie.Button.Click("ログイン")
ie.Close.Dispose
End Function
End Class
End Namespace
日清製粉WEB-EDIに自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'日清製粉WEB-EDIに自動ログイン
'会員企業様NO、担当者様ID、パスワードは、各自設定してください。
'ログインID
Dim KaishaID As String = "123456"
'担当者様ID
Dim LoginID As String = "123456"
'パスワード
Dim Passwd As String = "000000"
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate("https://www.nisshin-web-edi.com/cgi-bin/webpcgi?DIR=nisshinC&TEMPLATE=login.html")
ie.TextBox.SetValue("COMP_ID",KaishaID,"")
ie.TextBox.SetValue("USER_ID",LoginID,"")
ie.TextBox.SetPassword("PASSWORD",Passwd,"")
ie.Button.Click("ログイン")
ie.Close.Dispose
End Function
End Class
End Namespace
平和堂の生鮮WEB画面に自動ログイン
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'URL、ユーザーID、パスワードは、各自設定してください。
'ユーザーID
Dim UserID As String = ""
'パスワード
Dim Passwd As String = ""
'課コード
Dim KaCD As String = ""
'URL
Dim Url As String = "https://"
'平和堂の生鮮WEB画面に自動ログイン
'(トップメニューのブラウザは閉じています)
Dim ie As New EasilyWebEdi.Browser
ie.Open.CreateBrowser()
ie.Window.Activate
ie.Open.Navigate(Url)
ie.Button.Click("生鮮WebEDI")
ie.Close.Close
ie.Close.Dispose
ie.Open.GetBrowser("ログイン ブラウザの「前に戻る」「次に進む」「最新の情報に更新」及び「×」ボタンは使用しないで下さい。",True)
ie.TextBox.SetValue("login",UserID,"")
ie.TextBox.SetPassword("password",Passwd,"")
ie.Button.Click("ログイン")
'課コードを入力
ie.TextBox.SetValue("kaCd",KaCD,"")
'受領メニューに遷移
ie.TextLink.Click("44.受領メニュー")
'CSVダウンロードのラジオボタンを選択
ie.RadioButton.Select("actionType","SHJR0110")
'一番左の一番上の処理分をダウンロード
'一番左の一番上の処理分の名前を付けて保存します。
ie.TextLink.Click(0)
ie.DialogBox.FileDownLoad("D:¥平和堂_受領データ_" & ie.TextLink.GetAllItems(0).ItemName & ".csv")
'ブラウザを閉じる
ie.Close.Close
ie.Close.Dispose
End Function
End Class
End Namespace
HTML内容をファイルに保存
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'現在表示のブラウザのHTML内容をファイルに保存
Dim ie As New EasilyWebEdi.Browser
ie.Open.GetAnyBrowser(False)
ie.Window.Activate
For i as integer = 0 to ie.Documents.FrameCount - 1
ie.Documents.ToFile(i,"./Html_Dump_Frame_" & i.ToString & ".txt")
Next
ie.Close.Dispose
System.Windows.Forms.MessageBox.Show("終了しました", "確認")
End Function
End Class
End Namespace
テーブル内容をCSVで保存
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'現在表示のブラウザのテーブル内容をCSVで保存
'保存ファイル名はタイトル名
Dim FileName as String
Dim ie As New EasilyWebEdi.Browser
ie.Open.GetAnyBrowser(False)
ie.Window.Activate
For Each p As EasilyWebEdi.HtmlItemProperties In ie.Table.GetAllItems
FileName = ie.Open.Title & p.ItemName & ".txt"
'FileName = "test" & p.ItemName & ".txt"
ie.Table.GetTableText(p.ItemName,FileName)
Next
ie.Close.Dispose
System.Windows.Forms.MessageBox.Show("終了しました", "確認")
End Function
End Class
End Namespace
テキストリンクの一覧を保存
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'現在表示のブラウザのテキストリンクの一覧を保存
'保存ファイル名はタイトル名
Dim FileName as String
Dim ie As New EasilyWebEdi.Browser
ie.Open.GetAnyBrowser(False)
ie.Window.Activate
FileName = ie.Open.Title & ".txt"
'FileName = "test" & ".txt"
Dim sw As New System.IO.StreamWriter(FileName, False)
For Each p As EasilyWebEdi.HtmlItemProperties In ie.TextLink.GetAllItems
sw.WriteLine(p.ItemName & "," & p.ItemExHref)
Next
sw.Close()
ie.Close.Dispose
System.Windows.Forms.MessageBox.Show("終了しました", "確認")
End Function
End Class
End Namespace
アイテム内容をスクリプト形式で保存
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'現在表示のブラウザの全てのアイテム内容をスクリプト形式で保存
'アイテムメソッドは代表的なもののみ作成
'保存ファイル名はタイトル名
'ラベルは作成しないようにコメント中
'ファイルのアップ/ダウンロードは作成していません。
'ダイアログボックスは作成していません。
Dim FileName as String
Dim ie As New EasilyWebEdi.Browser
ie.Open.GetAnyBrowser(False)
ie.Window.Activate
'FileName = ie.Open.TargetBrowser.Document.Title & ".txt"
FileName = "test" & ".txt"
Dim sw As New System.IO.StreamWriter(FileName, False)
For Each p As EasilyWebEdi.HtmlItemProperties In ie.Documents.All
Select Case p.ItemType
Case "Label"
'sw.WriteLine("ie.Label.Exist(""" & p.ItemName & """)")
Case "TextBox"
sw.WriteLine("ie.TextBox.SetValue(""" & p.ItemName & """,""" & p.ItemValue & """,""" & "" & """)")
Case "TextBoxHidden"
sw.WriteLine("ie.TextBox.IsIncludeHidden = True")
sw.WriteLine("ie.TextBox.SetValue(""" & p.ItemName & """,""" & p.ItemValue & """,""" & """)")
Case "Button"
sw.WriteLine("ie.Button.Click(""" & p.ItemName & """)")
Case "RadioButton"
sw.WriteLine("ie.RadioButton.Select(""" & p.ItemName & """,""" & p.ItemValue & """)")
Case "CheckBox"
sw.WriteLine("ie.CheckBox.CheckOn(""" & p.ItemName & """,""" & p.ItemValue & """)")
Case "ImageLink"
sw.WriteLine("ie.ImageLink.Click(""" & p.ItemName & """)")
Case "TextLink"
sw.WriteLine("ie.TextLink.Click(""" & p.ItemName & """)")
Case "PullDownMenu"
sw.WriteLine("ie.PullDownMenu.Select(""" & p.ItemName & """,""" & p.ItemValue & """)")
Case "Table"
sw.WriteLine("ie.Table.TableCell(""" & p.ItemName & """,""" & 0 & """,""" & 0 & """)")
Case Else
sw.WriteLine("EasilyWebEdi.dll 未サポート")
End Select
Next
sw.Close()
ie.Close.Dispose
System.Windows.Forms.MessageBox.Show("終了しました", "確認")
End Function
End Class
End Namespace
全てのアイテム内容を保存
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'現在表示のブラウザの全てのアイテム内容を保存
'保存ファイル名はタイトル名
Dim FileName as String
Dim ie As New EasilyWebEdi.Browser
ie.Open.GetAnyBrowser(False)
ie.Window.Activate
FileName = ie.Open.Title & ".txt"
'FileName = "test" & ".txt"
Dim sw As New System.IO.StreamWriter(FileName, False)
sw.WriteLine( _
"タイプ" & "," & _
"Name" & "," & _
"Value" & "," & _
"Remarks" & "," & _
"Frame" & "," & _
"Number" & "," & _
"Id" & "," & _
"ExName" & "," & _
"ExValue" & "," & _
"ExId" & "," & _
"ExInnerText" & "," & _
"ExOuterText" & "," & _
"ExHref" _
)
For Each p As EasilyWebEdi.HtmlItemProperties In ie.Documents.All
sw.WriteLine( _
p.ItemType & "," & _
p.ItemName & "," & _
p.ItemValue & "," & _
p.ItemRemarks & "," & _
p.ItemFrame & "," & _
p.ItemNumber & "," & _
p.ItemId & "," & _
p.ItemExName & "," & _
p.ItemExValue & "," & _
p.ItemExId & "," & _
p.ItemExInnerText & "," & _
p.ItemExOuterText & "," & _
p.ItemExHref _
)
Next
sw.Close()
ie.Close.Dispose
System.Windows.Forms.MessageBox.Show("終了しました", "確認")
End Function
End Class
End Namespace
テキスボックスの入力内容を保存
Imports EasilyWebEdi
Namespace eVB
Class eVBCode
Public Function eVBCode_Start() As Object
'表示中の全てのブラウザのテキスボックスの入力内容を保存
Dim FileName as String
Dim ies As New EasilyWebEdi.Browsers
Dim ie As New EasilyWebEdi.Browser
FileName = "test" & ".txt"
Dim sw As New System.IO.StreamWriter(FileName, False)
For Each br As EasilyWebEdi.BrowserProperties In ies.GetBrowsers
ie.Open.GetBrowser(br.URL,False)
ie.Window.Activate
sw.WriteLine("-----" & ie.Open.Title & "-----" & "," & "")
For Each p As EasilyWebEdi.HtmlItemProperties In ie.TextBox.GetAllItems
sw.WriteLine(p.ItemName & "," & p.ItemValue)
Next
Next
sw.Close()
ie.Close.Dispose
System.Windows.Forms.MessageBox.Show("終了しました", "確認")
End Function
End Class
End Namespace