2010年08月の記事一覧 | マイケルジャクソン急死真相暴露怠慢警官・公務員のハレンチ行為紹介

twitter APIでツイッター有名人一括フォローのスクリプト作りましたVBSソースもあるよ

有名人の一覧htmlに従い順に自動フォローします一覧htmlはhttp://www9.atpages.jp/issosakura/twittCeleb.htmですまたは同じ形式のものに作成とかしてください下記vbsと同じフォルダに上記htmlをtwittCeleb.htmの名前で置いてくださいDim objIE0,sIeDim s,u(4000),nn(4000)Set Fs = WScript.CreateObject("Scripting.FileSystemObject")Set rankHtm = Fs.OpenTextFile("twittCeleb.htm",1)Set objIEx = CreateObject("InternetExplorer.application")objIEx.Navigate "about:blank"Do While objIEx.Busy WScript.Sleep 100LoopobjIEx.Width=600 objIEx.Height=500objIEx.Visible = trueobjIEx.StatusBar = TrueobjIEx.StatusText = t_date & " htm作成中"objIEx.ToolBar = falseobjIEx.MenuBar = falsenum=0Do Until rankHtm.AtEndOfStream sLine = rankHtm.ReadLine '1行読み込む if instr(sLine,"http://twitter.com/")>0 then nn(num)=sLine u(num)=strmid(sLine,"href=""http://twitter.com/","""") num=num+1 end ifloopSet xml = CreateObject("MSXML2.XMLHTTP")tUsername = "" 'Range("tusername")tPassword = "" 'Range("tpasswd")for i=0 to num-1 skip=false objIEx.Document.Write i & ":" & u(i) if skip=false then xml.Open "POST", "http://api.twitter.com/1/friendships/create/" & u(i) & ".xml", "false", tUsername, tPassword xml.setRequestHeader "Content-Type", "content=text/html; charset=unicode" 'shift-jis" xml.send tResult = xml.responsetext 'you can view Twitter’s response in debug window objIEx.Document.Write " create" else objIEx.Document.Write " skip" end if objIEx.Document.Write " "nextSet xml = NothingrankHtm.CloseFunction strmid(org,mae,usiro) 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 FunctionSub waitPage (objIE) Do While objIE.busy Loop Do While objIE.Document.readyState <> "complete" LoopEnd Sub

twitterツイッター有名人一括フォロー削除のスクリプト作りましたVBSソースもあるよ

Dim objIE0,sIeDim s,u(4000),nn(4000),e(99)e(0)="議員"e(1)="女"e(2)="アイドル"e(3)="鬼六"Set Fs = WScript.CreateObject("Scripting.FileSystemObject")Set rankHtm = Fs.OpenTextFile("twittCeleb.htm",1)Set objIEx = CreateObject("InternetExplorer.application")objIEx.Navigate "about:blank"Do While objIEx.Busy WScript.Sleep 100LoopobjIEx.Width=600 objIEx.Height=500objIEx.Visible = trueobjIEx.StatusBar = TrueobjIEx.StatusText = t_date & " htm作成中"objIEx.ToolBar = falseobjIEx.MenuBar = falsenum=0Do Until rankHtm.AtEndOfStream sLine = rankHtm.ReadLine '1行読み込む if instr(sLine,"http://twitter.com/")>0 then nn(num)=sLine u(num)=strmid(sLine,"href=""http://twitter.com/","""") num=num+1 end ifloopSet xml = CreateObject("MSXML2.XMLHTTP")tUsername = "" 'Range("tusername")tPassword = "" 'Range("tpasswd")for i=0 to num-1 skip=false for j=0 to 3 'uboud(e) if instr(nn(i),e(j))>0 then skip=true exit for end if next objIEx.Document.Write i & ":" & u(i) if skip=false then xml.Open "POST", "http://api.twitter.com/1/friendships/destroy/" & u(i) & ".xml", "false", tUsername, tPassword xml.setRequestHeader "Content-Type", "content=text/html; charset=unicode" 'shift-jis" xml.send tResult = xml.responsetext 'you can view Twitter’s response in debug window objIEx.Document.Write " destroy" else objIEx.Document.Write " skip" end if objIEx.Document.Write " "nextSet xml = NothingFunction strmid(org,mae,usiro) 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 Function

新生銀行ネットバンキング画面変更→入金取り込みvba直しました

Dim nyuukin(100) As nyuukin_rowDim objIE As ObjectSheets("入金").SelectSet objIE = CreateObject("InternetExplorer.application")objIE.Visible = Trueurl = "http://direct.shinseibank.com/index_jpn.htm"url = "https://directa01.shinseibank.co.jp/FLEXCUBEAt/LiveConnect.dll?EntryFunc&fldAppID=RT&fldTxnID=LGN&fldScrSeqNo=00&fldLangID=JPN&fldDeviceID=01&fldRequestorID=40"objIE.navigate urlCall ie_wait(objIE)Dim objTAG As ObjectDim fuid(3) As ObjectDim uidi As Integer, s As String, p(3) As String, s_key(5) As Stringuidi = 0uid = Worksheets("account").Cells(2, 4)If uid = "" Then uid = "" 'uid = Application.InputBox("お客さま番号を入力してください", "お客さま番号", "", Type:=2)End Ifpasswd = Worksheets("account").Cells(3, 4)If passwd = "" Thenpasswd = "" 'passwd = Application.InputBox("ログインパスワードを入力してください", "ログインパスワード", "", Type:=2)End Ifpasswd2 = Worksheets("account").Cells(4, 4)If passwd2 = "" Then passwd2 = "" 'passwd2 = Application.InputBox("ログインパスワードを入力してください", "ログインパスワード", "", Type:=2)End IfFor Each objTAG In objIE.Document.all Debug.Print objTAG.tagName & ":" & TypeName(objTAG) Tag = objTAG.tagName If Tag = "INPUT" Then objName = objTAG.name If objName = "fldUserID" Then objTAG.Value = uid If objName = "fldUserNumId" Then objTAG.Value = passwd If objName = "fldUserPass" Then objTAG.Value = passwd2 Exit For End If 'If uidi = CInt(Worksheets("account").Cells(5, 4).Value) Then objTAG.Value = uid 'If uidi = CInt(Worksheets("account").Cells(6, 4).Value) Then objTAG.Value = passwd 'If uidi = CInt(Worksheets("account").Cells(7, 4).Value) Then objTAG.Value = passwd2 uidi = uidi + 1 End If xtype = TypeName(objTAG) inner = objTAG.innerhtmlNextobjIE.Document.all.Login.ClickCall ie_wait(objIE)objIE.Visible = True s = objIE.Document.body.innerhtml i = 0GoTo old_skip20070726 For Each objElement In objIE.Document.all.tags(tagName:="a") If i = 3 Then objElement.Click Exit For End If 'strTempText = objElement.getAttribute _ ' (strAttributeName:="href") 'Debug.Print strTempText 'If InStr(strTempText, "top10") Then ' objElement.Click ' Exit For 'End If i = i + 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 = "fldSerialNo" Then objTAG.Value = Worksheets("account").Cells(8, 4) If objName = "fldSerialNo1" Then objTAG.Value = Worksheets("account").Cells(9, 4) If objName = "fldSerialNo2" Then objTAG.Value = Worksheets("account").Cells(10, 4) If objName = "Login" Then objTAG.Click Call ie_wait(objIE) Exit For End If End If Nextold_skip20070726: 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) s = strmid(s, "'<td>'", "") s = strmid(s, "'<td>'", "") s = strmid(s, "'<td>'", "") For i = 0 To 2 s_pos = strmid(s, "<TD>", "<") 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 'Do Until objIE.LocationURL = "https://direct04.shinseibank.co.jp/FLEXCUBEAt/LiveConnect.dll" ' Sleep 500 'Loop' objIE.Document.all.skip.Click ' Call ie_wait(objIE) Set objFRAME = objIE.Document.frames Set objIE1 = objFRAME("menubar") objIE1.Document.links(4).Click '口座情報 Call ie_wait(objIE) Set objFRAME = objIE.Document.frames Set objIE1 = objFRAME("menubar") Set objDOC = objFRAME("txnarea").Document s = objDOC.body.outertext 'objIE1.Document.links(6).Click '入出金明細 For i = 0 To objDOC.links.Length - 1 If objDOC.links(i).outertext = "円普通預金" Then objDOC.links(i + 1).Click Exit For End If Next Do Until InStr(s, "最近のお取引のご照会") > 0 Sleep (500) On Error Resume Next Set objDOC = objFRAME("txnarea").Document s = objDOC.body.outertext If Err <> 0 Then Err.Clear Exit Do End If Loop Call ie_wait(objIE) Set objDOC = objFRAME("txnarea").Document objDOC.all.submit.Click Sleep 500 Call ie_wait(objIE) timeout = 0 Set objDOC = objFRAME("txnarea").Document s = objDOC.body.outertext Do While InStr(s, "最近のお取引のご照会 (直近10明細の照会)") = 0 ' Sleep 100 timeout = timeout + 1 If timeout = 500 Then If MsgBox("ログインが成功しませんでした。もう50秒待ちますか？", vbOKCancel) = vbCancel Then Application.StatusBar = "ログイン画面が表示されませんでした" GoTo error_end Else timeout = 0 End If End If Set objDOC = objFRAME("txnarea").Document s = objDOC.body.outertext Loop s = objDOC.body.innerhtml 'fName = ActiveWorkbook.Path & "\" & "d:\auction2003\sinsei_login_go.txt" 'Open fName For Output As #1 'Print #1, s 'Close #1 s = Right(s, Len(s) - InStr(s, "<TD class=ColHeadingRightAlignedACI width=""20%"">残高</TD>") - Len("<TD class=ColHeadingRightAlignedACI width=""20%"">残高</TD>")) s = Right(s, Len(s) - InStr(s, "<TR>") - Len("<TR>")) s = Right(s, Len(s) - InStr(s, "<TD class=DataLeftAligned width=""15%"">") - Len("<TD class=DataLeftAligned width=""15%"">") + 1) 'ss = Left(s, InStr(s, vbCrLf)) kensuu = 0 's = objIE.Document.body.innerhtml 'If InStr(s, "<TD align=middle width=100 bgColor=") = 0 Then ' GoTo endd 'Else 'End If 'loop_f = 1 'While loop_f = 1 's = Replace(s, "*01*", "振込・振替") 'fName = "d:\auction2003\sinsei_syoukai.txt" 'Open fName For Output As #1 ' Print #1, s 'Close #1 While InStr(s, "振込・振替") > 0 hinichi = strmid(s, "<TD class=left width=""15%"">", "<") hinichi = Replace(hinichi, "/", "年", , 1) hinichi = Replace(hinichi, "/", "月", , 1) & "日" name = strmid(s, "<TD class=left width=""20%"">", "<") If Left(name, 5) = "振込・振替" Then name = strmid(s, "振込・振替:", "<") kingaku = strmid(s, "<TD class=right width=""13%"">", "<") kingaku = strmid(s, "<TD class=right width=""13%"">", "<") 's = Right(s, Len(s) - InStr(s, vbCrLf) - Len(vbCrLf) + 1) 'MsgBox Name & kingaku & hinichi If InStr(name, Worksheets("account").Cells(16, 4).Value) = 0 Then nyuukin(kensuu).kingaku = kingaku nyuukin(kensuu).hinichi = DateValue(hinichi) nyuukin(kensuu).namae = name kensuu = kensuu + 1 End If End If Wendendd:If kensuu < 0 Then Application.StatusBar = "ログインでエラーが発生しました"ElseIf kensuu = 0 Then Application.StatusBar = "新規受入はありません"Else Dim nyuukin_old As nyuukin_row '最後の取り込みを探す i = 2 nyuukin_old.hinichi = "" nyuukin_old.kingaku = 0 nyuukin_old.namae = "" Do Until Cells(i, 5).Value = "" '入金一覧サーチ If Cells(i, 5).Value = "新生" Then nyuukin_old.hinichi = Worksheets("入金").Cells(i, 2).Value nyuukin_old.kingaku = Worksheets("入金").Cells(i, 3).Value nyuukin_old.namae = Worksheets("入金").Cells(i, 4).Value Exit Do End If i = i + 1 Loop kaisi = kensuu - 1 If nyuukin_old.kingaku > 0 Then For i = 0 To kensuu - 1 If nyuukin_old.hinichi = nyuukin(i).hinichi And nyuukin_old.kingaku = nyuukin(i).kingaku And nyuukin_old.namae = nyuukin(i).namae Then kaisi = i - 1 Exit For End If Next Else '　初取り込み End If For i = kaisi To 0 Step -1 Rows("2:2").Select Selection.Insert Shift:=xlDown Selection.RowHeight = 13.5 Cells(2, 2).Value = nyuukin(i).hinichi Cells(2, 4).Value = nyuukin(i).namae Cells(2, 3).Value = nyuukin(i).kingaku Cells(2, 5).Value = "新生" Next 'Rows("2:2").Select Application.StatusBar = "新生銀行より" & kaisi + 1 & "件の入金を取り込みました"End IfEnd If Exit Suberror_end:

死刑制度なにが存続議論だ！こんなもん抑止にならない犯罪はその場で射殺

死刑制度は凶悪犯罪の抑止になるか？ある程度の効果はあるが、当人の動機を考えないといけない1.死刑覚悟2.絶対捕まらない3.突発的にやってしまったなどなど、であるだろうから抑止力としてはイマイチ更正の余地なし：人が判断できるのか？裁判官・弁護士・検察いづれも詐欺師と紙一重の職業、他人のイザコザに法律をタテに多額の金銭を得る連中しかも殺人の経験がない者が殆どであろう、未経験者が犯人の動機とか正確にわかるとかできるわけなしまして更正できるか否かの判断などできるわけがないつまり現行の裁判とかは茶番なのである、殺人時間が毎週のように起こっている現状からして明白刑の量刑を悪度で決めるべきなのか？抑止の観点からは、犯罪の種類によらず全員死刑にすべしむしろ駐車違反とか死刑にするべき、週に1人くらい警官がその場で射殺すれば殆どこの手の犯罪は起こらないそもそも何が凶悪なのか？怨恨とかで仕方なく殺した→これが凶悪？まあいいだろうで駐車違反、これこそ自己中心で反社会的で凶悪

twitterツイッター有名人一括フォローのスクリプト作りましたVBSソースもあるよ

有名人の一覧htmlに従い順に児童フォローします一覧htmlはhttp://www9.atpages.jp/issosakura/twittCeleb.htmですまたは同じ形式のものに作成とかしてください下記vbsと同じフォルダに上記htmlをtwittCeleb.htmの名前で置いてくださいDim objIE0,sIeDim s,u(4000),nn(4000)Set Fs = WScript.CreateObject("Scripting.FileSystemObject")Set rankHtm = Fs.OpenTextFile("twittCeleb.htm",1)Set objIEx = CreateObject("InternetExplorer.application")objIEx.Navigate "about:blank"Do While objIEx.Busy WScript.Sleep 100LoopobjIEx.Width=600 objIEx.Height=500objIEx.Visible = trueobjIEx.StatusBar = TrueobjIEx.StatusText = t_date & " htm作成中"objIEx.ToolBar = falseobjIEx.MenuBar = falseSet sIE = CreateObject("InternetExplorer.Application")sIE.Visible = Truenum=0Do Until rankHtm.AtEndOfStream sLine = rankHtm.ReadLine '1行読み込む if instr(sLine,"http://twitter.com/")>0 then u(num)=strmid(sLine,"href=""","""") nn(num)=strmid(sLine,">","<") num=num+1 end ifloopfor i= 0 to num-1 'to 0 step -1 sIE.Navigate u(i) n=nn(i) waitPage (sIE) objIEx.Document.Write num & " " follow=false on error resume next sIE.document.all.tags("BUTTON").item(0).Click if err.description="" then follow=true objIEx.Document.Write n & " フォロー " else objIEx.Document.Write err.description & " " end if err.clear on error goto 0 waitPage (sIE)' For ii = 0 To sIE.document.links.Length - 1'objIEx.Document.Write sIE.document.links(ii).innerHtml' if instr(sIE.document.links(ii).href,"/friendships/create/")>0 then' sIE.document.links(ii).click' objIEx.Document.Write n & " フォロー "' follow=true' exit for' end if' next if follow=false then'if MsgBox(ii, VbOKCancel, "WS") = vbOK Then WScript.Quit objIEx.Document.Write n & " フォロー済み？？？ " end ifnextrankHtm.CloseFunction strmid(org,mae,usiro) 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 FunctionSub waitPage (objIE) Do While objIE.busy Loop Do While objIE.Document.readyState <> "complete" LoopEnd Sub

twitterツイッター有名人一覧ランキング作りましたVBSソースもあるよ

<a href="http://www9.atpages.jp/issosakura/twittCeleb.htm">一覧はこちら。抜けとかあります。随時追加訂正します</a>Dim objIE0,sIeDim sSet Fs = WScript.CreateObject("Scripting.FileSystemObject")Set oTs1 = Fs.OpenTextFile("ad1.txt",1) 'ファイルを読み取りモードで開くSet oTs2 = Fs.OpenTextFile("twittCeleb.htm",2,true)oTs2.WriteLine "<html>"oTs2.WriteLine "<title>Twitterツィッター有名人ランキング</title>"oTs2.WriteLine "<meta name=""keywords"" content=""twitter,ヤフオク,オークション,ツィッター,DVD,ランキング""><head>"oTs2.WriteLine "</head><body>"Line=0total=0adTxt=""Do Until oTs1.AtEndOfStream 'oTs1を末端まで読み込むまでループを繰り返す sLine = oTs1.ReadLine '1行読み込む oTs2.WriteLine sLine adTxt=adTxt & sLine & " "LoopoTs1.CloseSet objIEx = CreateObject("InternetExplorer.application")objIEx.Navigate "about:blank"Do While objIEx.Busy WScript.Sleep 100LoopobjIEx.Width=600 objIEx.Height=500objIEx.Visible = trueobjIEx.StatusBar = TrueobjIEx.StatusText = t_date & " htm作成中"objIEx.ToolBar = falseobjIEx.MenuBar = false'対象画面を検索、なければ開く（必要に応じ使用してください）Set xShell = CreateObject("Shell.Application")win_s = FalseFor Each Window In xShell.Windows '対象URLが表示されているか？ If TypeName(Window.Document) = "HTMLDocument" Then if Window.Document.url="http://www.talenttwitter.com/tllink/tllink.php?mode=rank" 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 "http://www.talenttwitter.com/tllink/tllink.php?mode=rank" waitPage (objIE0)end ifSet sIE = CreateObject("InternetExplorer.Application")sIE.Visible = Trues = objIE0.document.body.innerhtml'do until instr(s,">次ページ")=0np=truedo until np=false np=false x=0 do until x=-1 For i = 0 To objIE0.document.links.Length - 1 hr=objIE0.document.links(i).href if instr(hr,"http://www.talenttwitter.com/tllink/tllink.php?mode=jump&id=")>0 then sIE.Navigate hr waitPage (sIE) twitUrl="http://twitter.com/" & strmid(sIE.locationurl,"view/",".html") sIE.Navigate twitUrlobjIEx.Document.Write objIE0.document.links(i).href & "**" & objIE0.document.links(i).outertext & " " waitPage (sIE) follow=false oTs2.WriteLine "<A href=""" & twitUrl & """>" & objIE0.document.links(i).outertext &"</a> " For ii = 0 To objIE0.document.links.Length - 1 if instr(objIE0.document.links(ii).innerHtml,"をフォロー</A>")>0 then objIE0.document.links(ii).click objIEx.Document.Write "フォロー " follow=true exit for end if next if follow=false then objIEx.Document.Write "フォロー済み？？？ " end if end if if instr(objIE0.document.links(i).outertext,"次ページ >>")>0 then objIE0.document.links(i).click objIEx.Document.Write objIE0.document.links(i).href & " np " np=true waitPage (objIE0) exit for end if'objIEx.Document.Write objIE0.document.links(i).href & "**" & objIE0.document.links(i).outertext & " " nextif np=false then objIEx.Document.Write "np nasi "' x=link_click(objIE0, "href_inc","http://www.talenttwitter.com/view/",false)' sIE.Navigate xwaitPage (sIE) loop 'xx=link_click(objIE0, "text_inc", "次ページ",true) s = objIE0.document.body.innerhtmlloopoTs2.WriteLine "</body></html>"oTs2.CloseFunction link_click(objIE, typ, v,click)link_click = -1if typ="num" then objIE.document.links(v).Click Call ie_wait(objIE) link_click = 0else For i = 0 To objIE.document.links.Length - 1 If typ = "text_inc" Then If instr(objIE.document.links(i).outertext,v) Then objIE.document.links(i).Click Call waitPage(objIE) link_click = 0 Exit For End If End If If typ = "text" Then If objIE.document.links(i).outertext = v Then objIE.document.links(i).Click Call waitPage(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 waitPage(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 if click=true then objIE.document.links(i).Click Call waitPage(objIE) end if link_click = objIE.document.links(i).href Exit For End If End If Nextend ifEnd FunctionFunction strmid(org,mae,usiro) 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 FunctionSub waitPage (objIE) Do While objIE.busy Loop Do While objIE.Document.readyState <> "complete" LoopEnd Sub

twitter自動投稿excelのセルを順に投稿するマクロ

たとえば出品中のオークションの宣伝に、セルの内容が告ぎの場合のマクロソースです・セル1列：オークションid,セル3列：タイトル,セル14列：価格,セル2列：urlSub twitIe()Dim objIE As ObjectSet objIE = CreateObject("InternetExplorer.application")objIE.Visible = TrueobjIE.navigate ("http://twitter.com/")Sleep (3000)num = 0For i = 2 To 999 If Cells(i, 1).Value = "" Then Exit For If Cells(i, 4).Value = "" Then s = Cells(i, 3).Value & " ヤフオク出品中現在" & Cells(i, 14).Value & "円" & vbCrLf & Cells(i, 2).Value objIE.Document.all.tags("textarea").Item.Value = s objIE.Document.all.tags("textarea").Item.Click SendKeys "{TAB}", True Do objIE.Document.getElementById("update-submit").Click Sleep (200) If objIE.Document.all.tags("textarea").Item.Value = "" Then Exit Do Sleep (300) Loop num = num + 1 End IfNextApplication.StatusBar = "done twitNum=" & numEnd Sub

ハレンチ警官不当職務質問警視庁巣鴨署田上英一046419チョン呼ばわり

4/19大塚駅前で職務質問を受ける田上他2名：職務質問させろ、その際身分証明を提示せず私：何の用だ、あなた方のことは知らない。お前らが警察官と言い張るなら、なぜ私のところに挨拶に来なかったのか？田上：馬鹿やろう警視庁4万人がお前のところに挨拶にきたら困るだろう私：かまいませんよ田上：じゃ、明日から行くからな私：写真撮影してよいですか？田上：ダメ肖像権がある私：断り、立ち去ろうとする田上ほか、体をぶつけ：なぜ逃げるんだと不適切発言私：偽警官の疑いあり：110通報、別の警官が田上他が警官であると証言田上：チョンとか馬鹿呼ばわりされて黙っているわけにはいかない、お前は悪党に決まっている、持ち物全て見せろ私：チョンとは何だ？不適切だろう。私はお前らが馬鹿だから馬鹿呼ばわりしただけ、差別発言はしていないぞ田上：困ったようでしばらくダンマリ田上：チョンなどと言っていない、証拠があるのか。いちゃもんつけるなら録音しとけ私：お前が何で警官なんだ？秋葉原・加藤智大の無差別殺人の時何してたんだ田上：馬鹿やろう！歌舞伎町で芸者遊びに決まってるだろう私：コゾドロ1人捕まえたこともないお前が何で警部補なんだ田上：黙り込む私：身動きできないので持ち物検査に応じる郵便局で拾った封筒に他人の住所が記載田上：この郵便はなんだ？盗んだのだろう私：拾った田上：拾ったものは全て警察に届けろ、個人情報が書かれてる私：むむむ田上：盗品だろう、個人情報を悪用するつもりだろう、落とし主に確認するまで署にきてもらう　田上：へっへっへ初めてコソドロ捕まえたぞ：勝ち誇ったように大喜び　　午後9時くらい巣鴨署に連行される11時過ぎまで、落とし主確認に待たされる、その間別の職員に再度持ち物検査、世間話封筒を拾った目的は→郵便に再利用するだけ、その際関係ない住所は黒塗りする田上他：電話連絡が付かないため、落とし主の住所に行ったらしいが、連絡つかず別の職員：犯意がない、郵便局長が被害届けを出すとは考えにくいとのことで、おしまい