2009年02月の記事
全9件 (9件中 1-9件目)
1
-
怠慢警官・村上 川崎市多摩警察署 駐車違反取り締まらず
2/13金11:30-11:50神奈川県川崎市多摩区登戸２７０５ATMコーナー向ケ丘遊園駅前 警官sg504村上が振り込め詐欺防止と称しサボり目の前の駐車違反を取り締まるよう指示したが、その場をはなれることができないとの理由で取締りせず。と言ってるのに道案内だけは熱心にやっていた。あげく”交番へ行け”ほか暴言。2/16月17時ころ多摩警察署に苦情・当直”にしがた”が対応2/18水 村上が上司とともに謝罪すると電話連絡2/20金10時 村上と同僚・山田浩章が私のところへ。謝罪どころか”そのときは振り込め詐欺防止で離れることができなかった、駐車違反は見えなかったと”言い訳2/20金11時 多摩警察署にしがたに苦情・担当上司と相談し対応するとのこと。その際にしがたは、”もう連絡しなくていいですね”とわけのわからん応対2/24火16時の時点で対応なし
2009.02.26
コメント(16)
-
怠慢警官・村上 川崎市多摩警察署 駐車違反取り締まらず
2/13金11:30-11:50神奈川県川崎市多摩区登戸２７０５ATMコーナー向ケ丘遊園駅前 警官sg504村上が振り込め詐欺防止と称しサボり目の前の駐車違反を取り締まるよう指示したが、その場をはなれることができないとの理由で取締りせず。と言ってるのに道案内だけは熱心にやっていた。あげく”交番へ行け”ほか暴言。2/16月17時ころ多摩警察署に苦情・当直”にしがた”が対応2/18水 村上が上司とともに謝罪すると電話連絡2/20金10時 村上と同僚・山田浩章が私のところへ。謝罪どころか”そのときは振り込め詐欺防止で離れることができなかった、駐車違反は見えなかったと”言い訳2/20金11時 多摩警察署にしがたに苦情・担当上司と相談し対応するとのこと。その際にしがたは、”もう連絡しなくていいですね”とわけのわからん応対2/24火16時の時点で対応なし
2009.02.26
コメント(6)
-
クレジットカードの買い物一覧をEXCELに取り込むVBA famima Tカード
ファミマTカードの会員ページ> ご利用明細照会 > ご請求内容の明細より各月の買い物一覧をexcelに取り込みます前提：ワークシート：accountにTcard番号,パスワードがあること。Tcard番号：1行1列、パスワート：2行1列動作：月ごとにご請求内容の明細をブラウズ ワークシート名として、"年_月"の規則でワークシートを追加 追加したワークシートに一覧を取り込み "年_月"ワークシートがある場合その時点で止める以下ソースですSub Fichiran()Dim objIE0 As Object'対象画面を検索、なければ開く（必要に応じ使用してください）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" Call ie_wait(objIE0)End IfobjIE0.Document.all.loginID.Value = Worksheets("account").Cells(1, 1).Value '"" ' Tカード番号objIE0.Document.all.pswd.Value = Worksheets("account").Cells(2, 1).Value ' 暗証番号objIE0.Document.links(0).Click 'javascript:loginServ('FTPoLogin',%20'login')Call ie_wait(objIE0)Call link_click(objIE0, "text_inc", "明細照会")c = toridasi(objIE0)objIE0.Document.all.menu1.selectedIndex = 1 ' （前月）:objIE0.Document.all.menu1.fireEvent ("onchange")Call ie_wait(objIE0)Call link_click(objIE0, "text_inc", "明細照会")c = toridasi(objIE0)objIE0.Document.all.menu1.selectedIndex = 2 ' （前々月objIE0.Document.all.menu1.fireEvent ("onchange")Call ie_wait(objIE0)Call link_click(objIE0, "text_inc", "明細照会")c = toridasi(objIE0)End SubFunction toridasi(objIE As Object) As IntegerDim s As Stringtoridasi = 0s = objIE.Document.body.innerhtmlnen = strmid(s, "<OPTION selected>", "年")tuki = strmid(s, "年", "月")'tuki = strmid(s, ">", "<")sheet_n = nen & "_" & tukiOn Error GoTo kekeSheets(sheet_n).ActivateGoTo enddkeke:On Error GoTo 0toridasi = toridasi + 1Set NewWS = Worksheets.Add '(After:=Worksheets("Sheet3"))With NewWS .Name = sheet_n' .Columns.ColumnWidth = 20End WithSheets(sheet_n).Activates = strmid(s, "<TD class=text vAlign=top>ご利用明", "")s_pos = 2Do Until InStr(s, "<TD borderColor=#666666 align=middle>") = 0 mono = strmid(s, "<TD borderColor=#666666 align=middle>", "<") yymmdd = strmid(s, "<TD borderColor=#666666 align=middle>", "<") shop = strmid(s, "<TD borderColor=#666666>", "<") gaku = strmid(s, "<TD borderColor=#666666 align=right>", "<") Cells(s_pos, 1).Value = yymmdd Cells(s_pos, 2).Value = shop Cells(s_pos, 3).Value = gaku s_pos = s_pos + 1Loopendd:End FunctionFunction strmid(ByRef org As String, ByVal mae As String, ByVal usiro As String) As String Pos = InStr(org, mae) If Pos > 0 Then strmid = Right(org, Len(org) - Pos - Len(mae) + 1) org = strmid Pos = InStr(strmid, usiro) If usiro = "" Then' strmid = "" Else If Pos > 0 Then strmid = Left(strmid, Pos - 1) End If End If Else strmid = "" End IfEnd FunctionFunction link_click(objIE As Object, typ As String, v As String) As Integerlink_click = -1c = 0 For i = 0 To objIE.Document.links.Length - 1 If typ = "text" Then If objIE.Document.links(i).outertext = v Then objIE.Document.links(i).Click Call ie_wait(objIE) link_click = 0 Exit For End If End If If typ = "text_inc" Then If InStr(objIE.Document.links(i).outerHtml, v) > 0 Then objIE.Document.links(i).Click Call ie_wait(objIE) link_click = 0 Exit For End If End If If typ = "href" Then If objIE.Document.links(i).href = v Then objIE.Document.links(i).Click Call ie_wait(objIE) link_click = 0 Exit For End If End If If typ = "href_inc" Then If InStr(objIE.Document.links(i).href, v) > 0 Then objIE.Document.links(i).Click Call ie_wait(objIE) link_click = 0 Exit For End If End If If typ = "num" Then c = c + 1 If c = CStr(v) Then objIE.Document.links(i).Click Call ie_wait(objIE) link_click = 0 Exit For End If End If NextEnd FunctionFunction ie_wait(objIE As Object) Do While objIE.Busy = True DoEvents Loop ' Do While objIE.Document.readyState <> "complete" DoEvents LoopEnd Function
2009.02.14
コメント(1)
-
クリック証券API終了とりあえず取引暗証番号を自動入力するシェルで対応wsh,vbs
API使えなくなるので、こいつが必要になってしまったobjIE0.document.body.innerhtmlのオブジェクトなしのエラーを無視するようにしました先頭1行取引暗証番号の代入文にしてください以下ソースですpinCode="" '取引暗証番号の代入文にしてくださいDim objIE0 'ルートのオブジェクト、操作コードではこの名称を使用しますSet xShell = CreateObject("Shell.Application")win_s = FalseFor Each Window In xShell.Windows '対象URLが表示されているか？ If TypeName(Window.Document) = "HTMLDocument" Then if instr(Window.Document.url,"https://kabu.click-sec.com")>0 then Set objIE0 = Window '対象URLが表示→その画面を使う win_s=true exit for end if end ifnextqq=falsedo on error resume next do if instr(objIE0.document.body.innerhtml,"<INPUT class=password id=pinCode")>0 then if err.description<>"" then' if MsgBox(err.description, VbOKCancel, "WS")=vbCancel Then' qq=true exit do' end if end if objIE0.document.all.pinCode.value=pinCode ' password index=7 end if wscript.sleep(500) loop err.clear if qq=true then exit doloop
2009.02.14
コメント(0)
-
みんなのFXログインシェル作ったよVBS,WSHでのIE操作例
先頭2行をユーザid,パスワードの代入文に変更してくださいid=""pw=""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://min-fx.tv/" 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://min-fx.tv/" Do While objIE0.busy = True Loop Do While objIE0.document.readyState "complete" Loopend if'---header end---'---以下操作コード、必要な部分をコピーしてください---objIE0.document.all.loginId.value=id ' text index=0objIE0.document.all.password.value=pw ' password index=1objIE0.Document.links(0).click 'https://min-fx.tv/#
2009.02.07
コメント(0)
-
クレジットカード未請求買い物一覧をEXCELに取り込むVBA OMCカード
OMCカードの会員ページOMC Plus Top > ご利用明細 > 最近のご利用(未請求分) > 詳細を見るより買い物一覧をexcelに取り込みます前提：OMC@Plus会員専用インターネットサービスのidがあること ワークシート：accountにid,パスワードがあること。Id：1行1列、パスワート：2行1列動作：”次の5件”のリンクがなくなるまでショッピングの明細をブラウズ カレントのワークシートに一覧を取り込み以下ソースですDim objIE0 As Object 'ルートのオブジェクト、操作コードではこの名称を使用しますDim objIE1 As Object, objIE2 As Object 'FRAMEのオブジェクト、ネストが3重以上になる場合は、objIE3,objIE4・・・を追加してくださいDim s As String, nn As Integer'対象画面を検索、なければ開く（必要に応じ使用してください）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://ca.omc-card.co.jp/member/omcplus_login.html" 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://ca.omc-card.co.jp/member/omcplus_login.html" Do While objIE0.Busy = True DoEvents Loop Do While objIE0.Document.readyState <> "complete" DoEvents LoopEnd If'---header end---'---以下操作コード、必要な部分をコピーしてください---objIE0.Document.all.sid_input.Value = Worksheets("account").Cells(1, 1).Value ' text index=2objIE0.Document.all.pw_input.Value = Worksheets("account").Cells(2, 1).Value ' password index=3objIE0.Document.links(0).Click 'javascript:checkInput(document.form1);Call ie_wait(objIE0)Dim meisai(6) As Stringj = 0Call link_click(objIE0, "text_inc", "ご利用代金明細照会")Call link_click(objIE0, "text_inc", "詳細を見る")s_pos = 2x = 99s = objIE0.Document.body.innerhtmlDo Until x = -1 s = strmid(s, "<TH>ご利用日</TH>", "") Do Until InStr(s, "<TD class=left>") = 0 dd = strmid(s, "<TD class=left>", "<") shop = strmid(s, "<TD class=left>", "<") gaku = strmid(s, "<TD class=right>", "<") Cells(s_pos, 1).Value = dd Cells(s_pos, 2).Value = shop Cells(s_pos, 3).Value = gaku s_pos = s_pos + 1 Loop x = link_click(objIE0, "text_inc", "次の5") s = objIE0.Document.body.innerhtmlLoop
2009.02.06
コメント(5)
-
新生銀行セキュリティ番号猶予期間終わってしまった→だいたい自動化できた
セキュリティ・カード受領後2週間はチェックをスルーできたのだが、今日から必須となっていた自動化は面倒かなとおもってた、だって表がでてそこの色が変わった座標を認識しないといけないじゃないでも何のことはない。表みなくても、入力boxの上に座標が表示されてるじゃんあの表って何の意味あるの?見やすいと勘違いするだけだよ。結局”A列の3行"とかカード上で確認するんだから画面の表とカードを照らし合わせるなんて絶対ないのに、つまんないとこに労力つかってんのただPopupなどまた面倒なことしやがって、こいつはsendkeyっしかダメなのかな？これ以外は解決Worksheets("account").Cells(11, 4)から5列にセキュリティの表の1行をそれぞれ設定してください画面の座標からセルの値を取り出し入力boxに代入するのを追加したよコードは下記'ここまでにログインできてて、セキュリティの画面が出てる状態 s = objIE.Document.body.innerhtml s = strmid(s, "セキュリティ・カード", "") s_key(0) = Worksheets("account").Cells(11, 4) s_key(1) = Worksheets("account").Cells(12, 4) s_key(2) = Worksheets("account").Cells(13, 4) s_key(3) = Worksheets("account").Cells(14, 4) s_key(4) = Worksheets("account").Cells(15, 4) For i = 0 To 2 s_pos = strmid(s, "<TH width=""15%"">", "<") p(i) = Mid(s_key(CInt(Right(s_pos, 1))), Asc(Left(s_pos, 1)) - 64, 1) Next For Each objTAG In objIE.Document.all Debug.Print objTAG.tagName & ":" & TypeName(objTAG) Tag = objTAG.tagName If Tag = "INPUT" Then objName = objTAG.name 'If objName = "securitykeyboard" Then objTAG.Click If objName = "fldGridChg1" Then objTAG.Value = p(0) If objName = "fldGridChg2" Then objTAG.Value = p(1) If objName = "fldGridChg3" Then objTAG.Value = p(2) If objName = "Login" Then objTAG.Click Call ie_wait(objIE) Exit For End If End If Next
2009.02.05
コメント(0)
-
イーバンク・ログイン生年月日自動入力
1月末くらいから、id、パスワード入力後に生年月日を入力しなければならない場合がある面倒なことに、こんなところにselectになっている・前提 Worksheets("account").Cells(2, 14).Valueに西暦で生年 Worksheets("account").Cells(2, 14).Valueに生月 Worksheets("account").Cells(2, 14).Valueに生日以下id、パスワード入力後のソースです。前後は過去のブログにありますのでそちらを訂正してください s = objIE.Document.body.innerhtml If InStr(s, "生年月日") > 0 Then objIE.Document.all.tags("SELECT").Item(0).selectedIndex = Worksheets("account").Cells(2, 14).Value - 1890 objIE.Document.all.tags("SELECT").Item(1).selectedIndex = Worksheets("account").Cells(3, 14).Value - 1 objIE.Document.all.tags("SELECT").Item(2).selectedIndex = Worksheets("account").Cells(4, 14).Value - 1 objIE.Document.all.tags("INPUT").Item(0).Click Call ie_wait(objIE) End If
2009.02.04
コメント(0)
-
FXマネーパートナーズのログインシェル作ったよVBS,WSHでのIE操作例
先頭2行をユーザid,パスワードの代入文に変更してくださいid=""pw=""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://www.moneypartners.co.jp/login/login.html" 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://www.moneypartners.co.jp/login/login.html" Do While objIE0.busy = True Loop Do While objIE0.document.readyState "complete" Loopend if'---header end---'---以下操作コード、必要な部分をコピーしてください---objIE0.document.all.loginId.value=id ' text index=0objIE0.document.all.password.value=pw ' password index=1objIE0.document.all.LOGIN.click ' image LOGIN or tags("INPUT").item(2).Click
2009.02.03
コメント(0)
全9件 (9件中 1-9件目)
1
-
-
- 【楽天市場】☆☆楽天おかいどくお買い…
- SALE！[55%オフクーポン] 高反発ラグ…
- (2026-11-05 17:21:12)
-
-
-
- 家電よもやま
- ごちゃつくコードと決別！3in1ワイヤ…
- (2026-11-10 14:07:32)
-
-
-
- ブロックチェーン
- 日本のWeb3スタック：1カ国が世界で…
- (2026-11-06 10:37:09)
-
