全79件 (79件中 1-50件目)
-
楽天銀行セキュリティコード入力自動化したよwsh,vbs,IE自動操作,VBテク連想記憶文字列操作
dim s,dSet d = WScript.CreateObject("Scripting.Dictionary")a = Array( _Array("XE","E9","AC","","","","","","",""), _Array("","","","","","","","","",""), _Array("","","","","","","","","",""), _Array("","","","","","","","","",""), _Array("","","","","","","","","",""), _Array("","","","","","","","","",""))for i=0 to ubound(a)for j=0 to ubound(a(0)) d.Add chr(65+j)&cstr(i+1),a(i)(j)nextnextSet xShell = CreateObject("Shell.Application")win_s = FalseFor Each Window In xShell.Windows '対象URLが表示されているか？ If TypeName(Window.Document) = "HTMLDocument" Then if instr(Window.Document.url,"fes.rakuten-bank.co.jp")>0 then Set objIE0 = Window '対象URLが表示→その画面を使う win_s=true exit for end if end ifnexts = objIE0.document.body.innerhtmlif instr(s,"支払わずに</div>")=0 thenobjIE0.document.all.tags("INPUT").item(0).value = "" 'ユーザidの代入分にするobjIE0.document.all.tags("INPUT").item(1).value = "" 'パスワードの代入分にするobjIE0.document.all.tags("INPUT").item(2).click Do While objIE0.busy = True Loop Do While objIE0.document.readyState <> "complete" Loopend if'---header end---'---以下操作コード、必要な部分をコピーしてください---s = objIE0.document.body.innerhtmlif instr(s,"セキュリティカード認証wwww</div>")=0 then objIE0.document.all.tags("INPUT").item(0).value="" ' 支店コードの代入文にする objIE0.document.all.tags("INPUT").item(1).value="" ' 口座番号の代入文にする objIE0.document.all.tags("INPUT").item(2).click Do While objIE0.busy = True Loop Do While objIE0.document.readyState <> "complete" Loopend ifs = objIE0.document.body.innerhtmlif instr(s,"セキュリティカード認証</div>")=0 then Set inp = objIE0.Document.all.tags("td") st="<td width=""50"" class=""c01 largebold"">" For i = 0 to inp.Length - 1 if len(inp(i).innerhtml)<5 and instr(inp(i).innerhtml,"-")>0 then key1=replace(inp(i).innerhtml,"-","") key2=replace(inp(i+2).innerhtml,"-","") exit for end if next Set inp = objIE0.Document.all.tags("INPUT") For i = 0 to inp.Length - 1 if inp(i).name="SECURITY_BOARD:_idJsp353" then inp(i).Value=d(key1) inp(i+1).Value=d(key2) end if if inp(i).name="SECURITY_BOARD:USER_PASSWORD" then inp(i).Value="" '暗証番号の代入分にする end if if inp(i).name="SECURITY_BOARD:_idJsp684" then inp(i).click exit for end if nextend ifif instr(s,"払込内容をご確認ください")=0 then if instr(s,"ペット")>0 then '以下、自身の合言葉に対応する代入文にする objIE0.document.all.tags("INPUT").item(2).value="" ' text index=2 end if if instr(s,"旧姓")>0 then objIE0.document.all.tags("INPUT").item(2).value="" ' text index=2 end if if instr(s,"出身地")>0 then objIE0.document.all.tags("INPUT").item(2).value="" ' text index=2 end ifend ifDo While objIE0.busy = TrueLoopDo While objIE0.document.readyState <> "complete"Loopwscript.sleep(900)'objIE0.document.all.tags("INPUT").item(0).click ' text index=0'objIE0.document.all.tags("INPUT").item(1).value="4998" ' text index=1'objIE0.document.all.tags("INPUT").item(12).click.click
2013.11.27
コメント(0)
-
楽天銀行オンラインログイン支店番号口座番号合言葉自動設定シェル
dim sSet xShell = CreateObject("Shell.Application")win_s = FalseFor Each Window In xShell.Windows '対象URLが表示されているか？ If TypeName(Window.Document) = "HTMLDocument" Then if Window.Document.url="https://fes.rakuten-bank.co.jp/MS/main/fcs/rb/fes/jsp/mainservice/Affiliation/Multipaymentlink/Login/MultiPaymentLinkLogin.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://fes.rakuten-bank.co.jp/MS/main/fcs/rb/fes/jsp/mainservice/Affiliation/Multipaymentlink/Login/MultiPaymentLinkLogin.jsp" Do While objIE0.busy = True Loop Do While objIE0.document.readyState "complete" Loopend if'---header end---'---以下操作コード、必要な部分をコピーしてください---objIE0.document.all.tags("INPUT").item(0).value="" ' 支店コードの代入文にしてくださいobjIE0.document.all.tags("INPUT").item(1).value="" ' 口座番号の代入文にしてくださいs = objIE0.document.body.innerhtmlif instr(s,"ペット")>0 then objIE0.document.all.tags("INPUT").item(2).value="" ' ペットに該当の合言葉の代入文にしてくださいend ifif instr(s,"旧姓")>0 then objIE0.document.all.tags("INPUT").item(2).value="" ' 母親の旧姓に該当の合言葉の代入文にしてくださいend ifif instr(s,"出身地")>0 then objIE0.document.all.tags("INPUT").item(2).value="" ' 出身地に該当の合言葉の代入文にしてくださいend if
2013.08.24
コメント(0)
-
国会議員に路上ライブ、屋台ほか違法道路利用取締り強化をお願いしてみる
議員メールアドレスなるサイトを見つけたので早速活用次の文面を送信例えば新宿駅西口・小田急百貨店前ですが日中：路上ライブ夜間：ラーメン屋台、占いの犯罪が横行しております警察は分かってることなのですが110番通報しても何もしてくれません所轄・警視庁に御願いしても何もせず、逆切れてきな対応をする職員までいます当たり前のことは当たり前にするようご指導のタグイおねがいできませんか-経緯-3/22 21:27 新宿署担当者：はらぎり、取締りを約束したが何もしてくれない。この手の犯罪はなくならないと不適切発言。3/27 14:05 警視庁担当者：公聴:こばた 取り締まり強化・はらぎりの処分を約束したが何もしていない現時点で状況全く改善せず
2012.04.01
コメント(0)
-
ボボ・ブラジル死去本名仰天コテコテ米国人どこがブラジルなんだ
黒い魔神の本名が公表されました。ヒューストン・ハリス（Houston Harris私はてっきりブラジル人と思い込んでおり大ショックしかし国名を苗字にする習慣はあまりみかけないから、こいつは米国人(*1)の典型ではと疑うべきだった自分は目の前の映像を何の疑いもなく受け入れてしまうマヌケ人間の典型なんだなと自戒試合前の花束贈呈を一気食い口の中に花・茎・葉っぱ山盛り状態でファイト開始息苦しそう、数十秒後、馬場のチョップを食らい花他吐き出し、半失神状態あれは”てめぇ、何で早くチョップしねんだよ”と馬場に抗議的な表情ではなく失神寸前”ああ助かった”の表情だったのだと思いますこれは笑い話ではありません、ボボブラジルのプロ意識を賞賛したものですわれわれも見習うべきレッスン多々です*1：XX公が音の響き的に良いのだが差別用法となりうるので一般的にした差別意識がなく音を楽しみたい方は4文字に置き換えて呼んでいただけると私はうれしい
2012.03.31
コメント(2)
-
楽天オークション画像6個記念7個以上を6個にまとめるpythonシェル
落札者からの金預かりとか努力してる楽天オークション、にもかかわらずYahooの足元にも及ばない金預かりは評価できるが肝心の落札手数料は5%のまま、とっととYahooに逆転するまでタダとか0.00001%とかにしないとくだらない手数料半額ポイントバックとかやってるバカじゃないのって感じ今回は画像数が最大6に、7以上はどうするか？私も記念に1個目はオリジナルそのもので2-5枚目を必要に応じ合成するシェルを作ったたとえば全部で18個で合成対象17個なら2個目以降ぞれぞれ3,3,3,4,4枚で合成するimport Image,ImageDraw,glob,os,math,sysargvs = sys.argvargc = len(argvs)if argc > 1: tpath=argvs[1]s=tpath.rfind("\\")rimg=tpath[s+1:]tpath=tpath[0:s]print rimgprint tpatht_num=5size = 640, 480bg = Image.new("RGB",size,"#ffffff")fnum=0flist=[]for imgf in glob.glob(os.path.join(tpath,"*.jpg")): if imgf.find(rimg)5: try: os.makedirs(tpath + "\\matome") except: print "dir exist" i=0 knum=int(fnum/t_num) amari=fnum-knum*t_num bun=[0,0,0,0,0] for i in range(t_num): bun[i]=knum if i+1>t_num-amari:bun[i]+=1 inum=0 fn=0 for i in bun: print i retu=int(math.sqrt(i)) row=int(i/retu) yw=size[1]/row xw=size[0]/retu x,y=0,0 inumtmp=0 while True: m = Image.open(flist[inum]) #m.thumbnail((xw,yw),Image.ANTIALIAS) m=m.resize((xw,yw)) box = (x,y) bg.paste(m,box) inum+=1 inumtmp+=1 if inumtmp>=i:break x+=xw if x>=size[0]: x=0 y+=yw bg.save(tpath + "\\matome" + '\\matome'+str(fn)+'.jpg')#, 'JPG') x,y=0,0 bg = Image.new("RGB",size,"#ffffff") fn+=1
2012.03.07
コメント(1)
-
Yahooオークション落札、こんなハレンチ出品者がまだいた
とにかく長い、落札者にとっては送金先の連絡だけでいいのに以下、原文と←マークで指摘のタグイrockjbi1(3273) 様 ←こんなもん要らんよ、あて先きまってるんだから←空行、何なんだpuchikura_koubou（プチ蔵工房）こと、株式会社ｘｘｘ販売担当：ｘｘと申します。この度は数多くの出品商品の中から弊社商品をご落札いただきまして、誠に有難うございます。←空行、醜くなるだけさて、早速でございますがお取引についてご案内をさせていただきます。まずはお手数ですが下記項目について、ご連絡いただきたくお願い致します。←長い最後に1行で済ませること←空行、スクロールで疲れてしまう■ご住所：（郵便番号＋都道府県より）■お名前(御社名・御担当者名)：■ご連絡先電話番号：■ご希望商品：（同一メーカーでしたら同時発送可能です）←この商品を落札したのに何を連絡しないといけないのか？問うたが回答なし■ご購入本数：（３本以上同時にご購入の場合は送料無料です）■ご希望のお支払い方法：（銀行振込み、Yahoo!簡単決済の何れか） ■お振込み合計金額：■お振込み予定日：■評価の必要有無：←評価はこの場の決まり、Yahooの規約に違反■その他ご希望など：←空行、でたバカの見本【お振込み先口座情報】八十二銀行 ｘｘｘ支店店番号：ｘｘｘ普通口座：ｘｘｘｘｘｘｘ←全角、コピペできるよう半角が常識口座名義：ｘｘｘｘｘｘ←,半濁点とか不気味な文字、半角指定の銀行があるので半角での表現も併記すべき←空行、バカバカバカご不明な点等ございましたらお気軽にご連絡下さい。尚、弊社営業時間は月曜日から金曜日（祝祭日を除く）９時～１７時となっております。土・日・祝日は休日となりますので、商品発送・連絡業務は翌営業日より行わせていただきます。ご迷惑をお掛けいたしますが、何卒宜しくお願い致します。それでは、用件のみで恐れ入りますが、ご連絡お待ちしております。==================================←何の意味もない文字列〒399-nnnn長野県ｘｘｘｘｘｘｘnnnn番地nn 株式会社ｘｘｘ 販売担当窓口TEL&FAX：nnnn-nn-nnnn================================== 様←何の意味もない文字列、最後の様は何なんだ
2012.03.06
コメント(1)
-
せどり用DVD落札相場をAndroidにダウンロード・端末内検索
Androidでpython,sqliteが動くことを知ったが、何を作ろうかアイデアがないせどり用に端末内に落札相場を置いてみる利点：電波状況によらず安定した動作、検索オプション・表示形式を自分好みにできる欠点：バッテリー消費、sdカード容量くらいかなまずはaucfanからダウンロードするスクリプトを紹介させていただく、検索は明日あたり公開# -*- coding: euc_jp -*-import urllibimport urllib2import commandsimport codecs,sys,stringimport sqlite3 as sqliteimport smtplibfrom email.MIMEText import MIMETextfrom email.Header import Headerfrom email.Utils import formatdateimport os,sysdef create_message(from_addr, to_addr, subject, body, encoding): body = body.encode(encoding) msg = MIMEText(body, 'plain', encoding) msg['Subject'] = Header(subject, encoding) msg['From'] = from_addr msg['To'] = to_addr msg['Date'] = formatdate() return msgdef send_via_gmail(from_addr, to_addr, msg): s = smtplib.SMTP('smtp.gmail.com', 587) s.ehlo() s.starttls() s.ehlo() s.login('', '') s.sendmail(from_addr, [to_addr], msg.as_string()) s.close()def mymail(subject,msg): from_addr = '' to_addr = '' msg = create_message(from_addr, to_addr, subject,msg, 'ISO-2022-JP') send_via_gmail(from_addr, to_addr, msg)def strmidt(source,key_b,key_e): key="" e=0 while True: if key_b=="": b=0 else: b=source.find(key_b) if b<0:break e=source.find(key_e,b+1+len(key_b)) key=source[b+len(key_b):e] break source=source[e+1+len(key_e):len(source)] return key,sourcedef strmid(source,key_b,key_e): key=[] while True: if key_b=="": b=0 else: b=source.find(key_b) if b<0:break e=source.find(key_e,b+1+len(key_b)) key.append(str(source[b+len(key_b):e])) if b==0:break source=source[e+1+len(key_e):len(source)] return keydef delIzon(s): r="" i=0 while True: if i>len(s):break c=s[i:i+1] if c not in string.ascii_letters: try: unicode(s[i:i+2],'euc_jp') r=r+s[i:i+2] except: print "loc="+str(i) + " IzonStr="+s[i:i+2] i+=2 else: r=r+c i+=1 return rdef pageGet(url): response = urllib2.urlopen(url)#, params) data = response.read() data=data.lower() global ins global dup global dupr cnt=0 while True: idt,data=strmidt(data,'<a class="item_title" href="/aucview/yahoo/','</a>') if idt=="":break id,dmmy=strmidt(idt,"","/") id=str(id) title,dmmy=strmidt(idt,'\t\t\t\t\t\t\t','\n') bid,data=strmidt(data,'name="bid" value="','"') edate,data=strmidt(data,'name="time" value="','"') price,data=strmidt(data,'name="price" value="','yen') edate=edate.replace("-","") #print unicode(idt, 'euc-jp').encode('shift-jis','replace') #print id+" "+bid+" "+edate+" "+price while True: try: title=unicode(title, 'euc_jisx0213')#.encode('shift-jis','replace') #print title break except: print title title=delIzon(title) print title sql='INSERT INTO dvdfan' sql=sql + ' VALUES ("' sql=sql + id + '","' sql=sql + title + '",' sql=sql + price + ',' sql=sql + bid + ',"' sql=sql + edate + '")' cnt+=1 try: con.execute(sql) ins=ins+1 dupr=0 print sql except: dup=dup+1 dupr=dupr+1 if dupr>50: print "skip dup 50" dupr=0 cnt=0 break con.commit() return cntdef search(key): global ins global dup url = 'http://aucfan.com/search1/smix-q'+key+'-tl30d-ot1-c14-vmode_0.html' page=1 while True: cnt=pageGet(url) print "page="+str(page)+" key="+key+" ins=" + str(ins) + " dup=" + str(dup) if cnt==0:break page+=1 #if page>6:break url='http://aucfan.com/search1/smix-q'+key+'-tl30d-ot1-c14-p'+str(page)+'-vmode_0.html' print "key="+key+" ins=" + str(ins) + " dup=" + str(dup) #mymail("endd","key="+key+" ins=" + str(ins) + " dup=" + str(dup))if __name__ == '__main__': con = sqlite.connect('test1.db') try: #con.execute('drop TABLE dvdfan') con.execute('CREATE TABLE dvdfan (id TEXT unique, title TEXT,kakaku INTEGER,nyuusatu INTEGER,e_date TEXT)') except: print('table exist') ins=0 dup,dupr=0,0 sk=["dvd","0","1","2","3","4","5","6","7","8","9"] search("dvd") if os.name=='posix': Fi='/sdcard/Dropbox/Auction/WordDVDEuc.txt' else: Fi='C:\Users\q\Dropbox\Auction\WordDVDEuc.txt' f = open(Fi, 'r') c=1 for line in f: if line[0:1]=="~": k=line[0:5] else: k=line[0:1] print k + " start " + str(c) c=c+1 search(k) f.close() con.close()検索キーは"dvd"の次に下記のファイルから指定する'C:\Users\q\Dropbox\Auction\WordDVDEuc.txt'には検索キーを並べたファイルである全角文字はeucコードで次のように記述~a5f3 ン~a1bc ー~a1fa ★13~a5eb ル~a1a6 ・03~c9ca 品~a5ec レ~a5c8 ト~bfb7 新~a5b9 ス
2012.02.01
コメント(0)
-
hp ePrintCenter B110a白黒印刷の濃度を落とすインク節約方法
HP ePrintCenterには色の濃度に関する指定がない、従いやたら濃い印字になる。インクもったいない、そこで濃度を落とすhtmlでファイルを作り、font color=redとかの属性にすればよいHP ePrintCenterの設定は白黒プリンタ
2012.01.30
コメント(2)
-
Androidでawkが動くがpythonからはダメ
SSHDroidでPCからAndroidのファイルをのぞいてみたなんとコマンドawkがあるではないかawk '{if(NR==1)print $0}' *.htmlみたいなことを試してみたawkの出力をpythonでも扱えればテキスト整形とかに使えるのだがp=commands.getstatusoutput() をpythonで実行するが、残念なことに32512, 'awk: permission denied' でゲームオーバーlsとか実行してくれるのだがどなたかpythonからawkを実行された方いませんか
2012.01.23
コメント(0)
-
Windows7Yahooオークション、楽天オークション画像アップロード自動化
EXCEL VBAでオークションの出品・画像アップとかを自動化しているのだがWindows7+IE何とかでは画像ファイル(HTMLのINPUT TYPE=FILE)のテキスト部にファイル名を入れることができないWindows/XPではSendkeysでいけたので、Win7に移行に難あり不本意ながらファイル選択ダイアログにsendkeysを試すところがファイル選択ダイアログを表示すると選択終了までVBAとかのプログラムに戻らないのでsendkeysできない仕方ない不本意その2となるファイル選択ダイアログ表示前にsendkeysするWSH(*.vbs)を呼び出し、その中で適当な時間Sleepしてsendkeysする処理にした以下WSHのソースSet WshShell=Wscript.CreateObject("Wscript.Shell")Set arg = WScript.Argumentst=1000 * cint(arg(0))WScript.Sleep(t)WshShell.SendKeys(arg(1)) 'image file nameの入力WScript.Sleep(200)WshShell.SendKeys("{ENTER}")if arg(2)="Yahoo" then WScript.Sleep(200) WshShell.SendKeys("{ENTER}")endifEXCEL VBA Yahooオークションからの呼び出しは以下wtime = 1If line = 2 Then wtime = 5 '１回目のファイル選択ダイアログの表示にやたら時間がかかる場合があるのでWSH.Run "C:\Users\q\Dropbox\Auction\ImgUpSendkey.vbs " & CStr(wtime) & " " & fi & " Yahoo" '変数fiにパソコン側のファイル名を完全パスでセットしておくobjIE.Document.all.ImageFile1.Click
2012.01.16
コメント(0)
-
Android SL4a Python端末中の任意のファイルを選択しメール
Android携帯/sdcardの任意のファイルを選択しメールするものです前提：gmailのアカウントがあることimport os.pathimport datetimeimport smtplib#from PIL import imagefrom email import Encodersfrom email.Utils import formatdatefrom email.MIMEBase import MIMEBasefrom email.MIMEMultipart import MIMEMultipartfrom email.MIMEText import MIMETextimport androiddef fselect(path): rootpath=path droid = android.Android() while True: items = [] file_list=os.listdir(path) fnum=0 for file in file_list: if os.path.isdir(path +"/"+file)==True: file="(dir)"+file items.append(file) droid.dialogCreateAlert("FileSelect") droid.dialogSetSingleChoiceItems(items) droid.dialogSetPositiveButtonText("Ok") if rootpath==path: droid.dialogSetNegativeButtonText("Cancel") else: droid.dialogSetNegativeButtonText("Return") droid.dialogShow() response = droid.dialogGetResponse() #ret=False if response.result["which"] == "positive": selected = droid.dialogGetSelectedItems() f=items[selected.result[0]] droid.dialogDismiss() if f[0:5]=="(dir)": prepath=path path=path+"/"+f[5:len(f)] #fselect(path+"/"+f[5:len(f)]) else: break else: print path +" cancel" droid.dialogDismiss() if rootpath==path: return "" else: print "ret"+prepath path=prepath #ret=True #break return path +"/"+fdef create_message(from_addr, to_addr, subject, body, attach_file): """ message make """ msg = MIMEMultipart() msg["Subject"] = subject msg["From"] = from_addr msg["To"] = to_addr msg["Date"] = formatdate() body = MIMEText(body) msg.attach(body) # describe attachment mime type attachment = MIMEBase("application","text/html") #"vnd.ms-excel") # attach attachment file = open(attach_file) attachment.set_payload(file.read()) file.close() Encoders.encode_base64(attachment) msg.attach(attachment) attachment.add_header("Content-Disposition","attachment", filename=attach_file) return msgdef send(from_addr, to_addrs, msg): """ send Mail """ #smtp = smtplib.SMTP("localhost") username = '' #gmailのユーザ名の代入文にする password='' #gmailのパスワードの代入文にする smtp = smtplib.SMTP('smtp.gmail.com:587') smtp.ehlo() smtp.starttls() smtp.ehlo() smtp.login(username,password) smtp.sendmail(from_addr, to_addrs, msg.as_string()) smtp.close()if __name__ == '__main__': from_addr ='' #送信者のメールアドレスの代入文にする to_addr = '' #あて先のメールアドレスの代入文にする droid = android.Android() path="/sdcard" f=fselect(path) if f"": msg = create_message(from_addr, to_addr, f, 'mes', f) send(from_addr, to_addr, msg)
2012.01.14
コメント(0)
-
Android SL4A Pythonクリップボードに定形文コピー
Androidでwebのフォームに定形文の入力とか皆さんどうしてますか私はhtmlのtextboxに定形文をセットしたファイルを用意し、ブラウザで表示し、そのtextboxからクリップボードにコピーしてましたtextboxにフォーカスし全選択→コピーとかするのだが、いまいち全選択がうまくいかなかったりしてイマイチそこでpythonで作ったよまずpythonソース# coding: shift_jisimport androidimport codecsif __name__ == '__main__': sep='sep@@' #この文字列がデリミタです、必要に応じかえると良い f = codecs.open('ClipboardTeikei.txt', 'r', 'shift_jis') text="" dispitems=[] items=[] for line in f: if line[0:len(sep)]==sep: dispitems.append(text[0:10]) items.append(text) text="" else: text=text + line if text"": dispitems.append(text[0:10]) items.append(text) droid = android.Android() droid.dialogCreateAlert("SL4A") droid.dialogSetSingleChoiceItems(dispitems) droid.dialogSetPositiveButtonText("Ok") droid.dialogSetNegativeButtonText("Cancel") droid.dialogShow() response = droid.dialogGetResponse() if response.result["which"] == "positive": selected = droid.dialogGetSelectedItems() droid.setClipboard(items[selected.result[0]]) droid.dialogDismiss()次は以下のようなテキストファイルに定形文をセットしておく、各定形文の間にデリミタとして"sep@@"なる行を置くファイル名：ClipboardTeikei.txt SL4Aをインストールしたディレクトリに置く一定期間連絡がないので投稿します。既に落札通知をお読みの場合、2度手間になりすみません下記でお願いします■送金額 落札額＋送料■送金先、下記より選んでください(名義 ススキの一郎)1)楽天銀行 支店番号:205(オペラ支店)口座#:123456782)ジャパンネット銀行 本店営業部 口座#:(普通)9876543 楽々送金JNB-J振はこちらから→https://www.japannetbank.co.jp/cgi-bin/JNBPAY?PAY_ID=qqq3)新生銀行 本店 口座#:(普通)0999994)みずほ銀行 向ヶ丘支店 口座#:(普通)3333335)郵貯 2222-9999996)Yahooかんたん決済sep@@落札日から1週間たちましたが入金も連絡もありません。一旦この評価とさせていただきます。27日17時までに入金または確約できる予定をください。入金確認後評価を良いに、入金連絡いただければどちらでものいに見直します。ダメな場合落札者都合での取り消しとさせていただきますsep@@本件まだ入金いただいていないと思います私の見落としなどでしたらすみません28日金曜15時までに入金または確約できる予定を連絡くださいダメな場合、”悪い”の評価での催促とさせていただきます落札通知メールに送金先他、連絡しておりますが、念のため再度します(名義 ススキの一郎)1)楽天銀行 支店番号:205(オペラ支店)口座#:123456782)ジャパンネット銀行 本店営業部 口座#:(普通)9876543 楽々送金JNB-J振はこちらから→https://www.japannetbank.co.jp/cgi-bin/JNBPAY?PAY_ID=qqq3)新生銀行 本店 口座#:(普通)0999994)みずほ銀行 向ヶ丘支店 口座#:(普通)3333335)郵貯 2222-9999996)Yahooかんたん決済sep@@本件、下記理由により繰り上げましたかなり時間がたち恐縮ですが繰上げに同意いただけると、うれしいです折り返し送金先など連絡します辞退される場合、その手続きをしていただけると助かりますよろしくお願いします--理由--1番手の方：id登録削除2番手、3番手の方：繰上げ拒否
2012.01.12
コメント(0)
-
Android SL4a Pythonでカメラで撮った画像を自動メール
Androidでpythonが動くことを最近知ったこんなもの見よう見まねで作ったよ前提：gmailのアカウントがあることimport os.pathimport datetimeimport smtplibfrom email import Encodersfrom email.Utils import formatdatefrom email.MIMEBase import MIMEBasefrom email.MIMEMultipart import MIMEMultipartfrom email.MIMEText import MIMETextimport androiddef create_message(from_addr, to_addr, subject, body, attach_file): """ message make """ msg = MIMEMultipart() msg["Subject"] = subject msg["From"] = from_addr msg["To"] = to_addr msg["Date"] = formatdate() body = MIMEText(body) msg.attach(body) # describe attachment mime type attachment = MIMEBase("application","text/html") #"vnd.ms-excel") # attach attachment file = open(attach_file) attachment.set_payload(file.read()) file.close() Encoders.encode_base64(attachment) msg.attach(attachment) attachment.add_header("Content-Disposition","attachment", filename=attach_file) return msgdef send(from_addr, to_addrs, msg): """ send Mail """ #smtp = smtplib.SMTP("localhost") username = '' #Gmailのユーザ名の代入文にする password = '' #Gmailのパスワードの代入文にする smtp = smtplib.SMTP('smtp.gmail.com:587') smtp.ehlo() smtp.starttls() smtp.ehlo() smtp.login(username,password) smtp.sendmail(from_addr, to_addrs, msg.as_string()) smtp.close()if __name__ == '__main__': from_addr = '' #送信者の代入文にする to_addr = '' #あて先の代入文にする droid = android.Android() path='/sdcard/DCIM/100MEDIA' file_list=os.listdir(path) fnum=0 for file in file_list: im = os.path.join(path,file) msg = create_message(from_addr, to_addr, 'CameraImg', 'mes', im) send(from_addr, to_addr, msg) print file + " send" fnum=fnum+1print "done fnum="+str(fnum)
2012.01.12
コメント(0)
-
ヤフオク出品中一括編集VBS Yahooオークション
出品中のものに情報追加します。本例は扱い銀行追加ですfunction AucUpdate(url)objIE.navigate replace(url,"/jp/auction/","/jp/show/updateauction?aID=")Call waitPage(objIE)s = objIE.Document.body.outertexttimeout = 0'If InStr(s, "このサーバーで操作できません。URLを確認してください") > 0 Then' MsgBox "お使いのIDでログインした後、再実行してください"' GoTo error_end'End If'objIE.Document.all.ypkOK.Click 'はこboon'objIE.Document.all.ypmOK.Click ' checkbox 詳細'objIE.Document.all.aspj1.Click ' checkbox Yahoo!ネットバンキング対応（'objIE.Document.all.aspj14.Click ' checkbox 詳細'objIE.Document.all.aspj8.Value = True ' checkbox 詳細'objIE.Document.all.aspj9.Click ' checkbox jnb'objIE.Document.all.aspj10.Click ' checkbox'objIE.Document.all.aspj11.Click ' checkbox 三菱東京UFJ'objIE.Document.all.aspj2.Click ' checkbox ゆうちょ銀行'objIE.Document.all.aspj3.Click ' checkbox 現金書留'objIE.Document.all.aspj4.Click ' checkbox 商品代引'objIE.Document.all.ycc.Click ' checkboxクレジットカード'objIE.Document.all.aspj7.Click ' checkboxその他'objIE.Document.all.Description_plain_work.Value = Worksheets("option").Cells(20, 1).Value'objIE.Document.all.shipname1.Value = "ヤマトメール便:160円"'objIE.Document.all.shipname2.Value = "定形外郵便:240円"'objIE.Document.all.shipname3.Value = "エクスパック:500円"'objIE.Document.all.shipname4.Value = "ヤマトメール便プチプチ包装なし:80円"'objIE.Document.all.ypmOK.Click'objIE.Document.aspj14.Click'objIE.Document.all.aspj1.Clickon error resume nextobjIE.Document.all.auc_bkname1.Value = "楽天(旧イーバンク)"objIE.Document.all.auc_bkname2.Value = "ジャパンネットバンク"objIE.Document.all.auc_bkname3.Value = "みずほ、郵貯、新生"on error goto 0For Each objTAG In objIE.Document.all If objTAG.tagName = "INPUT" Then If objTAG.Value = "確認画面へ" Then objTAG.Click Exit For End IfEnd IfNextCall waitPage(objIE)For Each objTAG In objIE.Document.all If objTAG.tagName = "INPUT" Then If InStr(objTAG.Value, "利用規約") > 0 Then objTAG.Click Exit For End If End IfNextCall waitPage(objIE)end functionSet objIE = CreateObject("InternetExplorer.application")objIE.Visible = Truedim url_id(50)kensuu = 0total = 0url = "http://openuser.auctions.yahoo.co.jp/jp/show/mystatus?select=selling"page = 1c = 0line = 2msg = "error"DoobjIE.navigate urlCall waitPage(objIE)s = objIE.Document.body.innerhtmlss = "ページ目を表示（合計："s = Right(s, Len(s) - InStr(s, ss) - Len(ss) + 1)ss = "点）"total = 20 'CInt(Left(s, InStr(s, ss) - 1))s = objIE.Document.body.innerhtmlss = "<TD align=left><A "s = Right(s, Len(s) - InStr(s, ss))' On Error GoTo 0 url_next = "" ii = CInt(objIE.Document.links.Length) - 1 For i = 0 To ii If objIE.Document.links(i).outertext = "次の50件" Then url_next = objIE.Document.links(i).href End If If objIE.Document.links(i).outertext = "残り時間" Then '"次の50件" Then ' i = i + 1 Exit For End If Nextj = 0 wscript.Sleep 100 'Do While Right(objIE.Document.links(i).outertext, 4) <> "の50件" And objIE.Document.links.Length < i Do While objIE.Document.links.Length > i If IsNumeric(objIE.Document.links(i).outertext) = False And objIE.Document.links(i).outertext <> "管理" Then If InStr(objIE.Document.links(i).href, "http://help") = 0 Then 'ヘルプ 除外 If InStr(objIE.Document.links(i).href, "bid_hist?aID=") = 0 Then '入札件数 除外 If Left(objIE.Document.links(i).href, Len("http://page")) = "http://page" Then url_id(j) = objIE.Document.links(i).href 'href_text(j) = objIE.Document.links(i).outertext j = j + 1 Else 'Exit Do '50 または 終了 End If End If End If End If i = i + 1 Loop id_cnt = j - 1 For i = 0 To id_cnt '～50件分オークションページへ kkkk=AucUpdate(url_id(i)) Next If url_next = "" Then Exit Do url = url_nextLoopmsg = "normal end"Sub waitPage (objIE) kan=false do while kan=false Do While objIE.busy Loop Do While objIE.Document.readyState <> "complete" Loop if instr(objIE.Document.body.outertext,"検索中のページは現在、利用できません。Web サイトに技術的な問題が発")=0 then kan=true else objIE.Refresh end if loopEnd Sub
2011.07.29
コメント(1)
-
河野豊（かわのゆたか）警視庁職務質問指導班
4/8田上を信じきる有名人パンツ脱がせに2時間を自慢善人と認められ良かったじゃないかすべての人のパンツ脱がせることができるか
2011.04.25
コメント(0)
-
PHP null文字を含む文字列をprintとかで出力するとエラーメッセージなしで終了するようだ
てこずりました
2011.03.19
コメント(0)
-
MySql 5.5にしたら"condition"の名前が使えなくなっていた
create tableで手こずりました。Conditionが列名で使えないようです
2011.03.10
コメント(0)
-
大相撲八百長疑惑賭博事件?プロ野球はどうなんだ王貞治逮捕はいつ
相撲より暴力団がらみのプロ野球を取り締まらないと
2011.02.10
コメント(1)
-
いいのか警察？大相撲八百長疑惑賭博事件捜査の過程で押収した現役力士の携帯電話に八百長行為
八百長は私的な行為で犯罪ではない。警察が私的事項を捜査・公開するとか違法行為ただし金をもらった側は確定申告しないといけない、国税ちゃんとやってるんだろうな
2011.02.10
コメント(0)
-
建山義紀、NHK半井小絵さんとの不倫疑惑否定「誤報です」
建山はこう言ってます”中だししてないから、いいんです。偶然両者の局部が其の手の状態になっただけです”
2011.02.10
コメント(0)
-
ヤフオクまともなDVD再生不可でインネン、評価荒らされる
12/31に落札DVDを発送、元旦18時前後に落札者より一部再生できないと電話連絡私としては”何も元旦の飯時に電話することはないだろう”的な感情で早く済ませたかったので取引ナビで連絡くれないかとお願いしたが、落札通知に住所が書かれていないとかで再度、不要な連絡6日に返金すると回答したようだ。私としては返品されたDVDが再生できないことを確認してから返金するつもりだったが早く電話をやめたいので”6日に返金する”と回答したのかも知れない。この点の指摘は落札者の言うとおりだと思いますしかし、口約束をネチネチ攻撃されました落札者より取引ナビで"住所は書いてあった”の旨のお詫び落札者5日に返品した模様。6日に着くはずとの落札者は見ていたようだが6日にとどかず”届いているか？返金したか？”の取引ナビ→私はDVDがまだ着いていないので無視7日午前、落札者よりまたも電話で”ものはもう届いているだろう、返金したか？”の催促私："届いていない、返金は30分以内にする”と答え。30分以内に送金。送金した旨の連絡はせず落札者：郵便の配送状況を問い合わせたらしい。私の住所の局より7日に配達する旨の電話連絡落札者としては親切でそんなことをしたつもりなのか？私が着いているのに、まだ着いていないと答えたことを疑っているのか？いずれにせよ私にとって不要な電話に出るとかで迷惑なこと落札者：私に対し"悪い”の評価。6日に返金しなかった、返金の連絡がなかったと理由7日午後DVD到着、再生確認したところまったく問題なく再生できたまあここで止めとけばよかったのですが、落札者に”やっぱり買ってください”の旨の連絡とか落札者に"悪い”の評価をしてしまいましたあとは落札者に評価で言われまくりです私は返品・返金で最低限のことはしたつもりです。ところが落札者は口語での約束を守らなかったと嘘つき詐欺師扱いし不良品を売りつけたとインネンをつけてきました
2011.01.08
コメント(0)
-
相棒season8第15話狙われた刑事シェークスピアもびっくり矛盾見つけ
相棒(8) 第15話「狙われた刑事」あらすじ捜査一課の伊丹刑事（川原和久）が店でラーメンを食べていると突然隣の客がもがき倒れた！毒物が仕込まれていたと分るが、右京（水谷豊）の推理によれば、どうやら狙われたのは伊丹のようだ。右京は尊（及川光博）とともに伊丹を警護することに。伊丹は10年前のある殺人事件が原因ではないかと思い出す。当時、強引な取り調べをした伊丹は容疑者たちに恨まれている可能性もある。捜査一課イチ熱い伊丹が右京らの警護も振り切り勝手に動き出すが…。10年の時を経て目の当たりにした真実とは？右京が主人公のインタビューでハエンチ発言"残念ながら伊丹という刑事はそのような不正をする人間ではありません”の旨の発言事実を調べてもいないのに、人間のなりからの発言。これまでの”人は追い込まれると何をするか分かりません”、”かくゆう私も殺人者になるかもしれません”などの過去の考え方とまったく矛盾します
2010.12.23
コメント(1)
-
海老蔵屈辱土下座映像
映像はこちら
2010.12.23
コメント(0)
-
海老蔵屈辱土下座映像
http://plaza.rakuten.co.jp/issosakura/diary/200902260001/
2010.12.23
コメント(0)
-
相棒season9第8話ボーダーライン 秘密見つけました、織田信成も仰天
相棒 season9 第8話 2010年12月15日放送 主人公がフィギュアスケート世界王者・織田信成と豆2つのそっくりサンでしたかなりのダメージを受ける話だった。秀逸というか名作というか傑作というかそんな回だったと思う。だけどすぐに見直したり思い出したりしたくない。だからレビューはあっさりで。柴田（山本浩司）という男の転落死体。刃物による傷から他殺の疑いもある。さらに胃の内容物（カズノコ牛肉リンゴワカメ乳製品など）が納得いかない杉下右京（水谷豊）は神戸尊（及川光博）と捜査を開始。死ぬまでの空白の11カ月を探る。柴田は正社員として雇ってもらえそうになった矢先、会社の業績不振で解雇される。その後様々な職を転々とする。彼は決して怠け者ではない。職がない間は勉強して医療事務の資格をとったりもしている。だが今の世知辛い世の中未経験者を雇ってくれるところも見つからない。就職活動もやり、彼なりに手は尽くしている。だがその日ぐらしな状況から抜け出せない。彼はしだいに追い込まれていく。誰に追い込まれると言うわけではない。周りの関わる人々それぞれが少しずつ彼にダメージを与える結果になる。社会に追い込まれたのだろう。そして…。ナイフのシーンは直視できなかった。ここのところしばらくは後味が悪いのがなかったのでそろそろくるなという気はしていたが、キツいのをぶっ込んできた。さすが相棒だ。◇「相棒 season 9」2010年10月20日～ 水曜21:00 テレビ朝日系公式サイト http://www.tv-asahi.co.jp/aibou/キャスト 杉下 右京(水谷 豊)、神戸 尊（及川 光博）、宮部 たまき(益戸育江)、小野田 公顕(岸部 一徳)、伊丹 憲一(川原 和久)、三浦 信輔(大谷 亮介)、芹沢 慶二(山中 崇史）、米沢 守(六角 精児)、角田 六郎(山西 惇)、内村 完爾(片桐 竜次)、中園 照生(小野 了)、大河内 春樹(神保 悟志)、大木 長十郎(志水 正義)、小松 真琴(久保田 龍吉)他
2010.12.23
コメント(1)
-
pythonで画像ファイルを一括サイズ変更
import Image;import os;try: list=os.listdir('') for file in list: ex=file try: i=ex.rindex('.') except ValueError: i=-1 if i>0: ex=ex[i+1:i+4] if ex=='jpg': img = Image.open(file) width, height = img.size if width>640: img.thumbnail((640,480)) #img = img.rotate(180) #img = img.crop( (width/4, height/4, width*3/4, height*3/4) ) img.save(file, "PNG") print file+' done'except IOError: print "Error"
2010.12.20
コメント(0)
-
せどり用にオークション落札相場検索作りました
こちらです特徴・制限などYahooオークションのみ2010年3月10日ころから集計カテゴリ:DVD,CD,VHS,本除外キー可能期間指定：日付価格、日付順での表示可能http://aucfan.com/より高速http://aucfan.com/より1日程度最新、昨日～当日午前までのデータに更新
2010.12.15
コメント(1)
-
twitter APIでツイッターあるキーワードで発言を検索その発言者一括フォローのスクリプト作りましたVBSソースもあるよ
Dim objIE0,sIedim xml,doc,BaseURLSet doc = CreateObject("Microsoft.XMLDOM")Dim s,u(4000),nn(4000),e(99)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 = falseobjIEx.Document.Write "検索キー:<input name=q size=20><br>"objIEx.Document.Write "検索:<input name=start type=checkbox>"objIEx.Document.Write "終了:<input name=end type=checkbox><br>"num=0'Set xml = CreateObject("MSXML2.XMLHTTP")Set xml = CreateObject("WinHttp.WinHttpRequest.5.1")tUsername = "" 'Range("tusername")tPassword = "" 'Range("tpasswd")endd=falsedo Do WScript.Sleep 100 if objIEx.Document.all.start.checked=true then exit do if objIEx.Document.all.end.checked=true then endd=true exit do end if Loop if endd=true then exit do objIEx.Document.all.start.checked=false qq=objIEx.Document.all.q.value objIEx.Document.Write "search key=" & qq & "<br>"q_utf8=""for i= 1 to len(qq) zz=SJIStoUTF8(mid(qq,i)) 'if i>1 then ' zz=right(zz,len(zz)-1) 'end if q_utf8=q_utf8 & zznextobjIEx.Document.Write "utf8 key=" & q_utf8 & "<br>" xml.Open "POST", "http://search.twitter.com/search.json?q=" & q_utf8, "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 windowSet oTs2 = Fs.OpenTextFile("q\" & qq & ".txt",2,true)oTs2.writeline xml.responsetextoTs2.closemoto=xml.responseTextdo id=strmid(moto,"""id"":",",") if id="" then exit do objIEx.Document.Write "id=" & id & ":" xml.Open "POST", "http://api.twitter.com/1/friendships/create/" & id & ".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 doc.loadXML (xml.responseText) If instr(doc.documentElement.selectSingleNode("error").nodeTypedValue,"not")>0 Then msg = doc.documentElement.selectSingleNode("error").nodeTypedValue objIEx.Document.write "エラー:" + "[" + msg + "]" else objIEx.Document.write "created" end if objIEx.Document.write "<br>"loop doc.loadXML (xml.responseText)' objIEx.Document.Write doc.documentElement.selectSingleNode("error").nodeTypedValue'if instr(doc.documentElement.selectSingleNode("error").nodeTypedValue,"not")>0 then' exit for'end if' objIEx.Document.Write "<br>"loopobjIEx.Document.Write "done"Set 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 FunctionFunction SJIStoUTF8(strSJIS) strUNICODE = ASCW(strSJIS) 'ASCWでユニコードにする 'コードを２進にしてワークに代入する strWORK2 = HEX16toSTR2(HEX(strUNICODE)) '切り取って、UTF8の２進数を作成する 'xxxx xxxx xxxx xxxx を下記に割り当てる '1110xxxx 10xxxxxx 10xxxxxx strUTF8CODE = "1110" & Mid(strWORK2, 1, 4) strUTF8CODE = strUTF8CODE & "10" & Mid(strWORK2, 5, 6) strUTF8CODE = strUTF8CODE & "10" & Mid(strWORK2, 11, 6) '作成した２進数を１６進数に戻す strWORK16 = STR2toHEX16(strUTF8CODE) '%を付けて格納 strRET = "" 'リターン値を初期化 strRET = strRET & "%" & Mid(strWORK16, 1, 2) '%を付けた文字列を作成 strRET = strRET & "%" & Mid(strWORK16, 3, 2) strRET = strRET & "%" & Mid(strWORK16, 5, 2) 'リターン値を代入 SJIStoUTF8 = strRETEnd Function'HEX16進文字列を受け取り2進数文字列を返すFunction HEX16toSTR2(strHEX) Dim n 'ループカウンタ Dim i 'ループのカウンタ Dim n8421 '8 4 2 1の数値計算用 Dim str2STR Dim nCHK str2STR = "" '結果のエリアを初期化する '文字数分ループする For n = 1 To Len(strHEX) On Error Resume Next 'エラー発生時次の行へ nCHK = 0 '0で初期化 nCHK = CInt("&h" & Mid(strHEX, n, 1)) 'n文字目を数値変換 On Error Goto 0 'エラー処理を通常に戻す n8421 = 8 '初期値に８を代入する(上からチェックしたいので) For i = 1 To 4 '４回まわるよ If (nCHK And n8421) = 0 Then 'Andでビットをチェックする str2STR = str2STR & "0" 'ビットは立ってないよ Else str2STR = str2STR & "1" 'ビットは立ってるよ End If '次のビットをチェックしたいので２で割る n8421 = n8421 / 2 Next Next 'リターン値をセットして終了 HEX16toSTR2 = str2STREnd Function'2進文字列を受け取り16進文字列を返すFunction STR2toHEX16(str2) Dim strHEX Dim n 'ループカウンタ Dim i 'ループのカウンタ Dim n8421 '8 4 2 1の数値計算用 Dim nBYTE '頭４文字単位かチェックする n = Len(str2) Mod 4 '足りない文字数を計算する If n <> 0 Then str2 = String(4 - n, "0") & str2 '頭に文字０を追加する End If strHEX = "" '結果のエリアを初期化する '文字数分ループする For n = 1 To Len(str2) Step 4 '４文字(1バイト)単位にループを作る n8421 = 8 '初期値に８を代入する(上から計算したいので) nBYTE = 0 '1バイト計算用変数を初期化 For i = 0 To 3 '４回まわるよ(4ビット分) 'ビットが立っているかチェックする If Mid(str2, n + i, 1) = "1" Then nBYTE = nBYTE + n8421 'ビットに対応した数値を＋する End If '次のビットを計算したいので２で割る n8421 = n8421 / 2 Next '計算して、１倍との数値が完成したので１６進文字にしてセットする strHEX = strHEX & Hex(nBYTE) Next 'リターン値をセットして関数を抜ける STR2toHEX16 = strHEXEnd Function
2010.09.01
コメント(0)
-
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 "<br>"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
2010.08.31
コメント(0)
-
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 "<br>"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
2010.08.30
コメント(0)
-
新生銀行ネットバンキング画面変更→入金取り込み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><strong>'", "") s = strmid(s, "'<td><strong>'", "") s = strmid(s, "'<td><strong>'", "") For i = 0 To 2 s_pos = strmid(s, "<TD><STRONG>", "<") 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:
2010.08.30
コメント(1)
-
死刑制度なにが存続議論だ！こんなもん抑止にならない犯罪はその場で射殺
死刑制度は凶悪犯罪の抑止になるか？ある程度の効果はあるが、当人の動機を考えないといけない1.死刑覚悟2.絶対捕まらない3.突発的にやってしまったなどなど、であるだろうから抑止力としてはイマイチ更正の余地なし：人が判断できるのか？裁判官・弁護士・検察いづれも詐欺師と紙一重の職業、他人のイザコザに法律をタテに多額の金銭を得る連中しかも殺人の経験がない者が殆どであろう、未経験者が犯人の動機とか正確にわかるとかできるわけなしまして更正できるか否かの判断などできるわけがないつまり現行の裁判とかは茶番なのである、殺人時間が毎週のように起こっている現状からして明白刑の量刑を悪度で決めるべきなのか？抑止の観点からは、犯罪の種類によらず全員死刑にすべしむしろ駐車違反とか死刑にするべき、週に1人くらい警官がその場で射殺すれば殆どこの手の犯罪は起こらないそもそも何が凶悪なのか？怨恨とかで仕方なく殺した→これが凶悪？まあいいだろうで駐車違反、これこそ自己中心で反社会的で凶悪
2010.08.27
コメント(0)
-
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 & " フォロー<br>" else objIEx.Document.Write err.description & "<br>" 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 & " フォロー<br>"' follow=true' exit for' end if' next if follow=false then'if MsgBox(ii, VbOKCancel, "WS") = vbOK Then WScript.Quit objIEx.Document.Write n & " フォロー済み？？？<br>" 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
2010.08.27
コメント(0)
-
なぜ小沢一郎なのか菅がダメだから？
そもそも政治に期待するのが間違い、景気うんぬんは市場どうのこうので政治ではなんともならん。国が金に困ったら菅をはじめ議員・公務員のサボリ組は全員解雇・過去に払った給与ほか金品全て返却すればいい
2010.08.27
コメント(0)
-
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 & "<br>"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 & "<br>" waitPage (sIE) follow=false oTs2.WriteLine "<A href=""" & twitUrl & """>" & objIE0.document.links(i).outertext &"</a><br>" For ii = 0 To objIE0.document.links.Length - 1 if instr(objIE0.document.links(ii).innerHtml,"</SPAN>をフォロー</A>")>0 then objIE0.document.links(ii).click objIEx.Document.Write "フォロー<br>" follow=true exit for end if next if follow=false then objIEx.Document.Write "フォロー済み？？？<br>" 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<br>" np=true waitPage (objIE0) exit for end if'objIEx.Document.Write objIE0.document.links(i).href & "**" & objIE0.document.links(i).outertext & "<br>" nextif np=false then objIEx.Document.Write "np nasi<br>"' 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
2010.08.26
コメント(1)
-
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
2010.08.26
コメント(0)
-
ハレンチ警官不当職務質問警視庁巣鴨署田上英一046419チョン呼ばわり
4/19大塚駅前で職務質問を受ける田上他2名：職務質問させろ、その際身分証明を提示せず私：何の用だ、あなた方のことは知らない。お前らが警察官と言い張るなら、なぜ私のところに挨拶に来なかったのか？田上：馬鹿やろう警視庁4万人がお前のところに挨拶にきたら困るだろう私：かまいませんよ田上：じゃ、明日から行くからな私：写真撮影してよいですか？田上：ダメ肖像権がある私：断り、立ち去ろうとする田上ほか、体をぶつけ：なぜ逃げるんだと不適切発言私：偽警官の疑いあり：110通報、別の警官が田上他が警官であると証言田上：チョンとか馬鹿呼ばわりされて黙っているわけにはいかない、お前は悪党に決まっている、持ち物全て見せろ私：チョンとは何だ？不適切だろう。私はお前らが馬鹿だから馬鹿呼ばわりしただけ、差別発言はしていないぞ田上：困ったようでしばらくダンマリ田上：チョンなどと言っていない、証拠があるのか。いちゃもんつけるなら録音しとけ私：お前が何で警官なんだ？秋葉原・加藤智大の無差別殺人の時何してたんだ田上：馬鹿やろう！歌舞伎町で芸者遊びに決まってるだろう私：コゾドロ1人捕まえたこともないお前が何で警部補なんだ田上：黙り込む私：身動きできないので持ち物検査に応じる郵便局で拾った封筒に他人の住所が記載田上：この郵便はなんだ？盗んだのだろう私：拾った田上：拾ったものは全て警察に届けろ、個人情報が書かれてる私：むむむ田上：盗品だろう、個人情報を悪用するつもりだろう、落とし主に確認するまで署にきてもらう 田上：へっへっへ初めてコソドロ捕まえたぞ：勝ち誇ったように大喜び 午後9時くらい巣鴨署に連行される11時過ぎまで、落とし主確認に待たされる、その間別の職員に再度持ち物検査、世間話封筒を拾った目的は→郵便に再利用するだけ、その際関係ない住所は黒塗りする田上他：電話連絡が付かないため、落とし主の住所に行ったらしいが、連絡つかず別の職員：犯意がない、郵便局長が被害届けを出すとは考えにくいとのことで、おしまい
2010.08.06
コメント(0)
-
DVD,CD,本せどり用にオークション落札相場集計しました
落札結果を全部見る キーワード指定で検索もできます06月27日 Yahooオークション DVD 落札額ベスト102010年06月27日 DVD落札相場入札数落札価格A0871 YAWARAコンプリートエディション 【中古品】21件134000円スタートレック ヴォイジャー完全限定プレミアムボックス全７巻1件98000円●ＤＶＤ●桂米朝●特撰米朝落語全集●全３０枚●状態良●1件92000円【DVD】ワンピース 9THシーズン エニエス・ロビー篇 全21巻39件80000円新品【 男はつらいよ 】 ４８巻セット1件80000円★銀河鉄道999★COMPLETE DVD-BOX ★全6巻★松本零士★10件74000円スタートレックディープスペースナインDVD限定BOX1~7setおまけ付1件70000円交響詩編エウレカセブン DVD-BOX 初回限定生産1件67000円ダウンタウンのガキの使いやあらへんで初回版1～13巻+豪華おまけ1件64000円ＤＶＤ 俺たちの旅１巻～１２巻+１０年目・２０年目・３０年目2件60000円落札結果を全部見る キーワード指定で検索もできます06月27日 Yahooオークション ビデオ 落札額ベスト102010年06月27日 ビデオ落札相場入札数落札価格日本映画傑作全集『美はしき出発』山本薩夫/原節子/高峰秀子19件101000円NHKビデオ「日本映像の20世紀」全50巻セット3件53000円θアルファルファ 単独ライブ アルファルファ‐改-/東京0314件20000円★世界最新ゴルフ上達プログラム 送料込★15件17500円世界最新ゴルフ上達プログラム☆DVD2枚組33件17400円【日本映画傑作全集 驟雨】56廃盤/原節子・佐野周二・小林桂樹11件16500円未DVD/ミセスシンデレラ/廃盤/全4巻/薬師丸ひろ子/内野聖陽/臨場46件16000円冷たい月/美品 中森明菜.永作博美.的場浩司.伊原剛志/希少未DVD20件15000円「天使が消えた街」美品/堂本光一.藤井フミヤ.酒井法子/未DVD66件15000円人気ゴルフ上達法★New7日間シングルプログラム■豪華特典即決1件14280円落札結果を全部見る キーワード指定で検索もできます06月27日 Yahooオークション CD 落札額ベスト102010年06月27日 CD落札相場入札数落札価格【いきものがかり】直筆サイン入り『人生すごろくだべ。』DVD付35件85000円★超レア美品★aikoその他/ドーテイオムニバスＣＤ Vol.11件80000円♪●CD+DVD 小泉文夫の遺産 民族音楽の礎1件80000円CD25枚組 未開封新品/太田裕美 オール・ソングス・コレクション10件58000円ぱふゅーむ（彼氏募集中）☆レア☆美品☆送料込☆17件55000円廃盤ビデオ 小沢健二 ★ VILLAGE ★未開封品31件52000円☆ 宇宙戦艦ヤマト ETERNAL EDITION 全巻セット ☆14件42501円【映像】クレンペラー/NPOベートーヴェン交響曲全集1970年ライヴ37件41000円BEATLES/SPECIAL LIMITED BOX EDITION/MASTERDISC/11SET/GOLD CD5件40000円★テイルズオブヴェスペリア★ドラマCD７枚セット★35件38500円落札結果を全部見る キーワード指定で検索もできます06月27日 Yahooオークション 本 落札額ベスト102010年06月27日 本落札相場入札数落札価格ys和本 天明八年 絵本三国志１０冊揃 桂宗信画中国古書古文書68件237000円TAC会計士 10年目標 秋上級本科生 テキスト＋ＤＶＤ＋アクセス48件188000円ＬＥＣ司法書士樋口講師２０１０年合格目標１５カ月コース3件182000円大原/公認会計士2010★入門1.5年本コース☆4科目☆DVD通信★美品116件161050円２００９年司法書士合格目標●1年合格コース竹下クラス●DVD通信6件159000円口腔外バキューム 移動型 動作ＯＫ40件153000円2010年大原司法書士パーフェクト合格コース答練＋テキスト問題集1件150000円ジェームススキナー『経営者育成塾プレミアムパッケージ』+特典1件148000円暗黒マーケティング■Mr.X平秀信■おまけ多数■送料無料1件135000円サージテル 2.5倍 ルーペ オークリーエディション 1件130000円
2010.06.27
コメント(0)
-
渋谷駅前スクランブル前とか馬鹿がいますな
せいぜいテレビに向かって”田中見てるか”くらいで十分なのにタバコふかしてるハレンチ野郎までいる警察もマヌケ、威嚇発砲くらいすれば、すぐ収まるのにあれだけ人数がいるのに秋葉原の加藤の事件さえ止められなかった、マヌケの連鎖だね
2010.06.25
コメント(0)
-
パラグアイ対策デンマークに学べ
アンデルセン童話にあったと思います。デンマークは雪だるま準備に背骨みたいに木の棒を使うそうです長持ちするそうです
2010.06.25
コメント(0)
-
イタリアがんばってます
スロバキアのエラーにも助けられ前半1失点に抑えましたこの調子で何とか0-1負けで”よくがんばった”の評価は得たいとこですね
2010.06.24
コメント(0)
-
なんで琴光喜は逮捕されないの？
武蔵川もやってんじゃないの
2010.06.23
コメント(0)
-
だまれ杉山邦博なんなんだお前は
なぁなぁ相撲ファンの見本の人です土俵に神様がいるんですとか、やたら相撲を上げたる変な人楽屋とかサンザン出入りしてるんだから杉山も知ってたんだろう、もしかして１口くらいやってたりして
2010.06.22
コメント(0)
-
大嶽親方、長州力と区別が付かないシコ名貴闘力は長州から貰ったんだっけ？
容姿はぞのもの、しゃべりも酷似
2010.06.21
コメント(0)
-
イタリア大健闘3戦無得点の予想が
過去、組み合わせ・判定に助けられてきたイタリア、格上ニュージーランド大敗予想に大健闘!得点もでも悪運もここらまでかな？
2010.06.21
コメント(0)
-
サッカーは人類明暗の反映植民地時代そのものアフリカ不振ヨーロッパ順調
ペレがカメルーンベスト8とときあたりにアフリカから優勝国がでるだろうと言っていたがそんな気配ないですね、相変わらずコーチはヨーロッパ人でファッションは完全に外国人に支配されたままサッカーではいまだ植民地状態なのですとはいえヨーロッパもオランダのまねが何十年も続いてるけどサッカーの難点は以下だ1.レフリーがいる、勝敗に第3者が関わると毎度のごとく負け惜しみ等醜いゴタゴタが起こる 日本人よ巌流島の決戦を思い出せ、第3者が介在しない1対1！これこそ戦いなのだ。 サッカー的勝敗にこだわるな。馳浩vsシン,猪木vsマサ斉藤の戦いをすればサッカー的敗戦となろうが世界は絶賛する2.人類の光と陰部を色濃く反映 #1のレフリー問題と同じなのだが たとえばファウルが見逃されれば徳をしてしまう、運のいい奴はとことん得し、悪い人はその逆 大相撲野球賭博でバレなかった親方連中と同じなのだ こんなことが続くから、極悪犯罪があとを絶たない ちょっとしたファウルが見逃しがちだからである 実社会において警察は駐車違反・自転車無灯火傘さしなど軽とあつかわれるものも殺人とと同じ扱いをし 犯罪ゼロを目指し健全社会のためには射殺もやむなし。
2010.06.21
コメント(2)
-
カメルーン戦：阿部のイエローの理由
どなたか背景をご存知の方いませんでしょうか？
2010.06.20
コメント(0)
-
松井のフェイントは侍ブルーにふさわしくない
カメルーン戦のセンタリング・右でフェイントこれは侍としては恥ずべき行為それに騙されるカメルーンもマヌケいつまでもクライフ時代のトータルフットボールの真似では日本は進化できない侍流たとえば、フェイントの代わりに正面の敵の顔面にボールをぶつけて正面突破とか巌流島の決戦に学ぼう
2010.06.20
コメント(0)
-
アンデルセンファンはデンマーク応援しましょう
つい同じ民族を応援してまうものだがアンデルセンのファンはデンマークしないのだろうか日本は北京で北島とか金メダルいっぱい取ったしサッカーとか本場デンマークとかに遠慮しないといけませんね
2010.06.20
コメント(0)
-
野球賭博プロ野球をやめればいいこと
根源のプロ野球のようなハレンチものを禁止しなければ、問題は解決しないTVとか見てて不思議なのは、この手の問題がでてもプロ野球廃止を言う人がいないことだ金属バット殺人事件のときも議論どころか八百長の手先王貞治に国民栄誉賞してしまう始末相撲取りが賭博で負けて、胴元の儲けが多いと言うことは野球の勝敗に胴元が関わっているのではくらいの疑いをかけるコメンテーターみたいのがいないとおかしいいまからでも遅くない、松坂とか米国から呼び戻し事情聴取くらいしないとファンは単に野球が見たい、相撲を楽しみにしてたのにとかの理由で避けてはいけないこの手の見世物がはたして、人類の幸福になりうるのかの観点で考えましょう
2010.06.20
コメント(0)
全79件 (79件中 1-50件目)
-
-
- 気になるニュース＆話題(Infoseekニ…
- じゃがいもが緑やピンクに変色！これ…
- (2024-11-30 21:15:42)
-
-
-
- 政治について
- 舌が茶色くなったことないですか？
- (2024-11-30 02:14:15)
-
