2009年05月の記事
全3件 (3件中 1-3件目)
1
-
北沢署警部補･掛本六男駐車違反住民にインネン
5月20日18時ころ東京都世田谷区小田急線梅が丘駅前品川41 き63-20が障害者用スペースに違法駐車私：犯人3名にやめるよう指示犯人：公報活動”ひったくり防止”なのでいいでしょう私：110通報犯人が警察官らしい私：3人のうち1番悪そうなのに身分証明をみせろ1番悪そうな犯人：瞬間警察手帳らしきものを見せる犯人は警部補･掛本六男私：番号を控えないといけないので何度かちゃんと見せろと命令犯人：さっきちゃんと見せた上記の繰り返し、以下口論になる私：コソドロ一人捕まえたこともないお前がなんで警部補なんだ掛本：そんなことお前には関係ないだろう私：祖師谷の一家4人殺害事件のとき何してた掛本：そんなこと知るわけないだろ私：昨年、秋葉原の無差別殺害事件は掛本：馬鹿野郎、芸者遊びにきまってるだろなどなど掛本が暴言連発通報を受けた警官到着：犯人3人は同僚であると説明犯人3人：逃走
2009.05.21
コメント(40)
-
FXキングmyページ・ログインシェル作ったよ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.fxking.jp/mypage/Login.action" 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.fxking.jp/mypage/Login.action" Do While objIE0.busy = True Loop Do While objIE0.document.readyState "complete" Loopend if'---header end---'---以下操作コード、必要な部分をコピーしてください---objIE0.document.all.fxkingId.value=id ' text index=0objIE0.document.all.password.value=pw ' password index=1objIE0.document.all.btn_login.click ' image btn_login submit or tags("INPUT").item(2).Click
2009.05.21
コメント(0)
-
郵貯オンライン画面変わったexcel入金取り込み訂正
Dim nyuukin(100) As nyuukin_rowDim fno_w As Integer, a(999, 5) As String, a_no As Integer, hinichi As String, kingaku As String Dim objIE As Object 'ＩＥオブジェクト参照用 Sheets("入金").Select 'On Error GoTo keke 'インターネットエクスプローラーのオブジェクトを作る Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True '見えるようにする(お約束) objIE.navigate "https://direct.jp-bank.japanpost.jp/direct_login.html" Call ie_wait(objIE) id = Worksheets("account").Cells(2, 2) ' text index=2objIE.Document.all.okyakusamaBangou1.Value = Left(id, 4) ' text index=2objIE.Document.all.okyakusamaBangou2.Value = Mid(id, 5, 4) ' text index=3objIE.Document.all.okyakusamaBangou3.Value = Mid(id, 9, 5) ' text index=4objIE.Document.all.loginPassword.Value = "" ' password index=5 objIE.Document.all.loginPassword.Value = Worksheets("account").Cells(3, 2) ' password index=3 objIE.Document.all.U010103.Click ' or tags("INPUT").item(7).Click' objIE.Document.all.tags("INPUT").Item(5).Click Call ie_wait(objIE) objIE.Document.all.tags("INPUT").Item(4).Click '取扱内容照会 Call ie_wait(objIE) objIE.Document.all.shoukaiHaniSentaku(0).Checked = True ' radio 日付指定 objIE.Document.all.U070102.Click ' button U070102 次へ or tags("INPUT").item(23).Click Call ie_wait(objIE) kensuu = 0 Do ii = t_Array(objIE, 0, fno_w, 1, a, a_no) For ii = 1 To a_no If Left(a(ii, 3), 2) = "送金" Then kingaku = a(ii, 1) kingaku = strmid(kingaku, ";", "
2009.05.12
コメント(3)
全3件 (3件中 1-3件目)
1
-
-
- 新生活にむけてほしい家電は？
- 引っ越し準備〜お掃除編
- (2024-11-25 09:44:01)
-
-
-
- パソコンの調子が悪い
- iPod classic修理/大容量化 下関市…
- (2024-11-22 05:30:10)
-
-
-
- いいもの見つけたよ
- 【宝福一】健康酢でアレンジレシピ
- (2024-11-27 00:00:27)
-
