EXCEL VBA TIPS

全54件 (54件中 51-54件目)

< 1 2

• 三井住友銀行インターネットバンク自動ログインのシェル作ったよ

  下記のソース中の3箇所を修正してください・契約者番号1の代入文・契約者番号2の代入文・第一暗証の代入文以下ソースですDim s '対象画面を検索、なければ開く（必要に応じ使用してください）Set xShell = CreateObject("Shell.Application")win_s = FalseFor Each Window In xShell.Windows '対象URLが表示されているか？ If TypeName(Window.Document) = "HTMLDocument" Then if Window.Document.url="https://direct.smbc.co.jp/aib/aibgsjsw5001.jsp" then Set objIE0 = Window '対象URLが表示→その画面を使う win_s=true exit for end if end ifnextif win_s=false then '対象URLが非表示→新しく画面を開く Set objIE0 = CreateObject("InternetExplorer.Application") objIE0.Visible = True objIE0.Navigate "https://direct.smbc.co.jp/aib/aibgsjsw5001.jsp" Do While objIE0.busy = True DoEvents Loop Do While objIE0.document.readyState "complete" DoEvents Loopend if'---header end---'---以下操作コード、必要な部分をコピーしてください---objIE0.document.all.USRID1.value="" ' 契約者番号その1objIE0.document.all.USRID2.value="" ' 契約者番号その2objIE0.document.all. tags("INPUT").item(12).value="" '第一暗証objIE0.document.all.tags("INPUT").item(19).Click

  2008.06.21

  コメント(1)

• ローソンパス便ポイント特典申し込みサービス自動ログインシェル作ったよLAWSON vbs wsh

  下記のソース中の2箇所を修正してください・ユーザidの代入文・パスワードの代入文以下ソースですDim objIE0Dim s'対象画面を検索、なければ開く（必要に応じ使用してください）Set xShell = CreateObject("Shell.Application")win_s = FalseFor Each Window In xShell.Windows '対象URLが表示されているか？ If TypeName(Window.Document) = "HTMLDocument" Then if Window.Document.url="https://ssl.lawson.jp/lawson_pass/tokuten/login.jsp" then Set objIE0 = Window '対象URLが表示→その画面を使う win_s=true exit for end if end ifnextif win_s=false then '対象URLが非表示→新しく画面を開く Set objIE0 = CreateObject("InternetExplorer.Application") objIE0.Visible = True objIE0.Navigate "https://ssl.lawson.jp/lawson_pass/tokuten/login.jsp" Do While objIE0.busy = True Loop Do While objIE0.document.readyState "complete" Loopend if'---header end---'---以下操作コード、必要な部分をコピーしてください---objIE0.document.all.memberNo.value="" ' パスワードobjIE0.document.all.passwd.value="" ' 暗証番号'objIE0.Document.links(0).click 'http://lawson.jp/lawson_pass/tokuten/ClearSessionAction.do;jsessionid=9013CD9F180222A9CE45D2AE9AF572DBobjIE0.Document.links(1).click 'javascript:doSubmitForm()

  2008.06.18

  コメント(1)

• ローソンパス便ポイント照会自動ログインシェル作ったよLAWSON vbs wsh

  下記のソース中の2箇所を修正してください・ユーザidの代入文・パスワードの代入文以下ソースですDim objIE0Dim s'対象画面を検索、なければ開く（必要に応じ使用してください）Set xShell = CreateObject("Shell.Application")win_s = FalseFor Each Window In xShell.Windows '対象URLが表示されているか？ If TypeName(Window.Document) = "HTMLDocument" Then if Window.Document.url="https://ssl.lawson.jp/lawson_pass/point/inquiry/p/input.jsp" then Set objIE0 = Window '対象URLが表示→その画面を使う win_s=true exit for end if end ifnextif win_s=false then '対象URLが非表示→新しく画面を開く Set objIE0 = CreateObject("InternetExplorer.Application") objIE0.Visible = True objIE0.Navigate "https://ssl.lawson.jp/lawson_pass/point/inquiry/p/input.jsp" Do While objIE0.busy = True Loop Do While objIE0.document.readyState "complete" Loopend if'---header end---'---以下操作コード、必要な部分をコピーしてください---objIE0.document.all.cn.value="" ' ユーザidobjIE0.document.all.cp.value="" ' パスワードobjIE0.document.all.tags("INPUT").item(2).Click 'image

  2008.06.18

  コメント(0)

• ファミリーマートTカード自動ログインシェル作ったよ wsh vbs

  下記のソース中の2箇所を修正してください・Tカード番号の代入文・暗証番号の代入文以下ソースですDim objIE0'対象画面を検索、なければ開く（必要に応じ使用してください）Set xShell = CreateObject("Shell.Application")win_s = FalseFor Each Window In xShell.Windows '対象URLが表示されているか？ If TypeName(Window.Document) = "HTMLDocument" Then if Window.Document.url="https://portal.expay.net/servlet/FTPoLogin" then Set objIE0 = Window '対象URLが表示→その画面を使う win_s=true exit for end if end ifnextif win_s=false then '対象URLが非表示→新しく画面を開く Set objIE0 = CreateObject("InternetExplorer.Application") objIE0.Visible = True objIE0.Navigate "https://portal.expay.net/servlet/FTPoLogin" Do While objIE0.busy = True Loop Do While objIE0.document.readyState "complete" Loopend ifobjIE0.document.all.loginID.value="" ' Tカード番号objIE0.document.all.pswd.value="" ' 暗証番号objIE0.Document.links(0).click 'javascript:loginServ('FTPoLogin',%20'login')

  2008.06.17

  コメント(2)

全54件 (54件中 51-54件目)

< 1 2