Gポイントポイ活 Amazon Yahoo 楽天
無料ホームページ 楽天モバイル[UNLIMITが今なら1円]
海外格安航空券 海外旅行保険が無料！
■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 最新50
メモ２
- 1 ：名無しさん＠勉強中 ★：06/09/16 19:36:34 ID:???
- これまた思いついた事など
- 359 ：名無しさん＠勉強中 ★：06/12/26 07:15:10 ID:???
- >>358さん
>>264を試してみて下さい。
その前後に色々書いたので、書いてある事を試してみて下さい。
それでわからないなら 私にはもうお手上げです。
現在>>358さんの環境ではmakimo.toさんの所がバーボン行きになっているのではないかと思いますので
試しにIE等で該当ファイルにアクセスしてみて下さい。
もしアクセス出来るようなら>>264前後の事をやってみて
それでもまだ駄目なら本当にわかんないです。
- 360 ：名無しさん＠勉強中 ★：06/12/26 20:24:55 ID:???
- http://jbbs.livedoor.jp/bbs/read.cgi/computer/21256/1164941934/90
補足すると
あちこちから流用したソースなので
わざわざ隠すほどのものでもないかなくらいの感じかなと。
かといって
万が一コンパイルするようなものを出すような事態になったとしても
わざわざソースを同梱するほど綺麗なソースでもないでしょうし
そこまで露出する自信もないなーと
そんな感じなのかな
ってまあ何て偉そうに
やめてもっと鞭でいじめて
ってどっちなんかい
年末は疲労コンパイルしますね
- 361 ：名無しさん＠勉強中 ★：06/12/26 20:38:33 ID:???
- 同様に
ソースを隠して単独で実行出来るものというと
perlをexe化する「exeperl」
http://www.st.rim.or.jp/~hyuki/simtool.htm#id3
rubyをexe化する「exerb」
http://exerb.sourceforge.jp/
とかあるみたいです。
ちなみにexerbは
winnyのリモホ晒し書き込みとかで賑わった
「山田オルタネティブ」なんてのにも使われているそうで。
http://www.itmedia.co.jp/enterprise/articles/0604/04/news003_2.html
いやー夢が拡がりますなー。いい意味で。
疲れましたなー。ここらが山田。（←って疲れてますなー）
- 362 ：名無しさん＠勉強中 ★：06/12/26 20:46:44 ID:???
- さて
不心得者の方々の行動によって
公式p2はどうなるのか不安です
フリーメール登録不可とかなったら泣きます
http://qb5.2ch.net/test/read.cgi/operate/1165768502/l50
あわてないあわてない
冬休み冬休み
- 363 ：名無しさん＠勉強中：06/12/27 05:21:15 ID:QKB4FOk2
- 2chdatsearchget使わせて貰ってます。
時々、dat落ちしたログを拾って（拾おうとして？）エラーを吐くみたいです。
拾いにいくサブルーチンはエラー無視となっているため、ファイルが取得出来てないときに、
ファイルを開きに行ってエラーを吐くようです。
エラーの内容は「ファイルが見つかりません」で行は158行目で出るようです。
で、この付近を見ると、コメントアウトしてある部分を除くと、
If retVal Then
work=GetHTMLDocument(out,tuika) ←このサブルーチンはOn Error resume nextがあるためファイル無しでもスルー
'////////
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set su = fs.OpenTextFile(tuika) ←158行目
suStr = su.ReadAll
su.Close
'/////////
End If
何故か、一回オープンして最後まで読んでクローズしているだけなので、
何もしてないようなので本来このブロックは無くても良いのでは？
- 364 ：名無しさん＠勉強中 ★：06/12/27 20:20:41 ID:???
- 心身共にグロッキー状態なのです
戦士とて休息が必要だ（by幻魔大戦）
だもんでソース見る余裕もなく
>>363さん
原因特定ありがとうございます。
とりあえず
158行目前後のルーチンをコメントアウトして実行すれば
エラーは出なくなるのでしょうか？
- 365 ：名無しさん＠勉強中：06/12/27 20:25:06 ID:QKB4FOk2
- >>364
'////////
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set su = fs.OpenTextFile(tuika) ←158行目
suStr = su.ReadAll
su.Close
'/////////
この4行をコメントアウトしたらエラーは止まるよ。
- 366 ：名無しさん＠勉強中 ★：06/12/27 20:27:02 ID:???
- とりあえずdatgetとdatsearchgetに
今の自分が追加できそうな件といえば
・UA送信によるlife7サーバのdatの挙動の沈静化(>>354)
・datの保存先フォルダを指定出来るようにする
この２点くらいかなと。
modifyDateによるdat更新可否の検知はまだよくわかんない
- 367 ：名無しさん＠勉強中 ★：06/12/27 20:32:54 ID:???
- >>365
了解です
誰がこんなのつけたんだろ
あ、私か
しかしソースを見ると何ともひどいもんですね。
全体の半分くらい使ってないかコメントアウトしてら
まあ偉い方のコードを使わせて頂いただけなので仕方ないですが。
- 368 ：名無しさん＠勉強中：06/12/27 20:36:57 ID:QKB4FOk2
- >>366
あぁ、もしできるのなら、
>>239-240あたりも実装できないかな？
今はfind.txtに板のURL、SearchWord.extに検索文字列がはいってるけど、
例えば read.txtとかのファイルに
板のアドレス 板の保存先 検索文字列
を複数書いておいて、順繰りに実行させるとか。
ちなみに950レス以上の検索文字列は
\(9[5-9][0-9]\)|\(100[01]\)
でした。
- 369 ：名無しさん＠勉強中 ★：06/12/27 20:49:37 ID:???
- >>368
はいな
余裕が出来たら見てみますわ
> 例えば read.txtとかのファイルに
> 板のアドレス 板の保存先 検索文字列
> を複数書いておいて、順繰りに実行させるとか。
こういう風にやるとすると
read.txtを作成する為のスクリプトも必要になりますね。
いやー面白いなーフフフフフハハハハハ（←壊れかけ）
- 370 ：名無しさん＠勉強中：06/12/27 20:56:31 ID:QKB4FOk2
- >>369
その read.txt のファイルについてはこんな風に作ってね。
で良いと思うよ。
ここらへんのスクリプト見て、ちょいと勉強やりかけだから、
なかなか難しいね。
- 371 ：名無しさん＠勉強中 ★：06/12/28 20:24:07 ID:???
- Jane外部コマンドスレで色々指摘されてて
勉強になりますなあ
http://jane.s28.xrea.com/test/read.cgi/bbs/1153606495/504n-
取得したdatの最終行が不安定で取りこぼしと誤認してしまう事は
ここの>>347とかでも出ている件なのですが
今の自分には正直どうしようもないです。
理由は下記
http://user.ftth100.net/mirrorhenkan/wsh/read.php/1009175619/287-288n
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
ここは一つ、IEを直接には介さずに、httpで直にGETした結果を参照
してやることにしましょう。
"microsoft.xmlhttp"を使うとそれができるんですが、この.responseBodyが
Unicodeだったりするので話はややこしい。一度Unicodeとして保存し、
次にShift-JISとして開いてやる必要がある。その状態でもまだごみが残るので、
そこを読み捨てて再度上書き保存すると完成です。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
この方のコードをそのまま使わせてもらっているのですが
「一度Unicodeとして保存し、次にShift-JISとして開いて」から
２バイトのゴミを除いてからShift-JISで保存し直しているので
その間に色々あるのだろうなと。
だから最終行あたりが少し違うかもです。
それにしても
内部的にはすんげー事やってるのだなーと感動しているですよ。
ちなみに上の書き込みをされた方
Microsoft MVP for Visual Developer - Scriptingに任命された程で
まーったくすごいお方ですよ。
なのに2ch某板の膨大なまとめサイトを作られたり
（もう消されたみたいですが）
外部某板群のRSSリーダーを出されていたり。
もうほんとにすごいなあと。
- 372 ：名無しさん＠勉強中：06/12/29 03:04:08 ID:Ssgg0ePR
- >>371
>>365みたいな行、つまり開いてはいるけど何もしてなかったところで、
'最終行まで全部読み込む
Dim arrFileLines()
i=0
Set fs=CreateObject("Scripting.FileSystemObject")
Set su = fs.OpenTextFile(tuika, ForReading)
Do Until su.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = su.ReadLine
i = i + 1
Loop
su.Close
'最終行が長さ0以上の時(EOFでないとき)空行追加
If Len(arrFileLines(Ubound(arrFileLines))) > 0 Then
Set su = fs.OpenTextFile(tuika, ForAppending)
su.WriteLine
su.Close
End If
に処理を変えればいけるんじゃないかな？
このままだと、>>363のようにファイルがないときにはエラーがでるから、
ターゲットファイルが存在してるときに限って、
この処理をすれば問題ないと思います。
- 373 ：名無しさん＠勉強中 ★：06/12/29 19:50:08 ID:???
- >>372さん
おお、凄いです。
うん、そういうのをやるつもりでつけてそれっきりだったのかなあ
記憶があやふやですが。
で、少しだけ余裕が出来たので
2chdatsearchget（長いなあ）を実行してみたら
確かに158行目でエラーが出ますね。
zipにしてアップした時は何ともなかったのになあ
不思議だなあ
という訳で
>>366の件を追加したです。
あと
>>372さんのコードをそのまま使わせてもらったです
ありがとうございますです
後でzipにして上げてみます
で、考えてみれば
検索ワードに正規表現を使える訳だから
「.*」とか入れれば全datが対象になるでしょうから
2chdatgetと統合しても無問題かもですね。
そうしようそうしよう
うんそうしよう。
- 374 ：名無しさん＠勉強中 ★：06/12/29 19:55:56 ID:???
- メモ
ImagePatrol
http://akiba.geocities.jp/ys_hobby2006/
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
ImagePatrolとは
2chのBBSPINK内スレッド特化の予定で作り始めたMac用自動画像取得＆保存ソフトです。
現在はテスト中のため、2007年1月15日までの期限付きです。
期限後は自動更新機能が動作しなくなります。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Mac限定だそうですが、こんなのもwshで出来そうですね。
ファイル存在可否の検知もステータスの戻り値（404とか200とか302とか）で
何とかなりそうですし。
- 375 ：名無しさん＠勉強中 ★：06/12/29 20:32:56 ID:???
- 何か今日ヘロヘロだもんで
>>373で「後でzipにして上げてみます」と書いたですけど
明日にするですー。
それにしても
ここ見てる人結構居るのだなあと
何とも不思議な感じですな
- 376 ：名無しさん＠勉強中：06/12/29 21:20:29 ID:Ssgg0ePR
- >>375
楽しみにしてるぜｗ
- 377 ：名無しさん＠勉強中 ★：06/12/29 22:47:54 ID:???
- という訳で
バージョンアップ（カッケー！）したです。
http://www.geocities.jp/mirrorhenkan/others/datsearchget/
まあ373で書いたような事を追加しただけで
驚くような変化とか別にないです。
図とか差し替えるのも面倒だなや
で、検索語句を記入しなかった場合
全datを順々にＤＬするので
datgetのほうもこれに統合するだなや
んだがhtmlとか差し替えるのも面倒だべさ
すまねやな 許してけろ
あとは複数板対応ですか・・
スクリプトの構成から考えないとだなこりゃ
- 378 ：名無しさん＠勉強中 ★：06/12/29 23:17:39 ID:???
- で ひょいと見てみたら
４人からブックマークされとるようで
http://b.hatena.ne.jp/entry/http://www.geocities.jp/mirrorhenkan/others/datsearchget/
ついでに調べてみたら
116人からブックマークされてるなんて
http://b.hatena.ne.jp/entry/http://www.geocities.jp/mirrorhenkan/
- 379 ：名無しさん＠勉強中：06/12/29 23:18:30 ID:Ssgg0ePR
- >>373
ちなみに158行目でエラーが出るのは、
indexにはまだ載っているけど、すでにdat落ちしていて、
ファイルが無い場合に出る。
だから、板によって出たり、出なかったりだし、時間帯によっても
変わるかも知れない。
あと、過剰アクセス対策として、start.vbsから呼び出すときに、
今は
WScript.CreateObject("WScript.Shell").Run("2chdatsearchget.vbs")
で呼び出してるけど、
intErrCode=WSHShell.Run("2chdatsearchget.vbs",1,True)
で呼び出してやって、
2chdatsearchget.vbs側の今回のファイルで217行目にある
wscript.quit
を
wscript.quit 1
にしてやれば
2chdatsearchget.vbsの処理が終わってからタイマーカウントするから、
時間稼ぎできるよ。
まぁ、なんにしてもお疲れ様です。
- 380 ：名無しさん＠勉強中：06/12/30 00:17:13 ID:8EHxWq0L
- >>377
>あとは複数板対応ですか・・
>スクリプトの構成から考えないとだなこりゃ
一応サンプル
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\scripts\servers and services.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
Wscript.Echo "Server name: " & arrServiceList(0)
For i = 1 to Ubound(arrServiceList)
Wscript.Echo "Service: " & arrServiceList(i)
Next
Loop
これで、ファイルの中に、板URL、検索ワード、保存先をCSVで書いとけば、
配列要素に組み込める。
このループの中でstrFindText、strSearchMoji、strSaveDirを定義してやって、
50行目から214行目までをくくればいけるのでは？
- 381 ：名無しさん＠勉強中：06/12/30 01:46:26 ID:8EHxWq0L
- なんか、いろいろと注文になって申し訳ないですが、
一応新しい2chdatsearchget.vbsに次の修正を加えたら巡回バージョンが出来るよ。
板用巡回リストには板URL、保存先ディレクトリ、検索文字列がCSV形式で格納
126行目のDim urlList()をコメントアウト
43行目当たりにDim urlList() を追加
51行〜65行をコメントアウト
50行目から以下の行追加
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(板用巡回リスト, ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
strFindText=arrServiceList(0)
strSearchMoji=arrServiceList(2)
strSaveDir=arrServiceList(1)
215行に以下追加
Loop
以上です。
- 382 ：名無しさん＠勉強中 ★：06/12/30 18:49:07 ID:???
- 余裕が無いので一言レス御免
>>379-381
やってみたです。
すっげー。
お主、只者ではないな！？
もしや mukiyuさん以来の大物の方ですか？
私は素人に毛が生えた程度の者ですが。。
で、381の通りにやってみたらそのまま出来たのですが
この巡回バージョンのスクリプトをアップしても良いですか？
私 何もやってないに等しいのですが。
ではおやすみなさい（あー眠いー）
- 383 ：名無しさん＠勉強中：06/12/30 19:05:32 ID:8EHxWq0L
- >>382
おｋですよ。
ちなみに俺も最近始めたばかりのド素人ｗ
- 384 ：名無しさん＠勉強中 ★：06/12/31 16:09:50 ID:???
- >>383
ありがとうございます。
という事で
複数板巡回バージョンをリリース（カッケー！）してみました。
いやー面白かったです
http://www.geocities.jp/mirrorhenkan/others/datsearchgetall/
後でトップからもリンクしますか。
makimo.toさんの件の告知も消さなければですし
- 385 ：名無しさん＠勉強中 ★：06/12/31 19:16:32 ID:???
- トップも直したです。
それにしても今年も色々あって
自分がやった事とかあれこれ思いを馳せると
何とも熟女たる思いがしますね。
（まあ私は14歳の美少女プログラマーなんですが）
- 386 ：名無しさん＠勉強中 ★：06/12/31 19:20:12 ID:???
- という訳で
今年も何かとお世話になりました
来年はもっとお世話して下さい
というか
色々教えて下さいです
さあ年賀状書くぞ（今頃かよ）
- 387 ：名無しさん＠勉強中 ★：07/01/01 00:20:29 ID:???
- おめでとうございます
メモ
http://menu.2ch.net/bbsmenu.html
からLoopList.csvに生成出力するwshとか出来そうですね。
それが出来れば全掲示板を巡回ループ取得するような事も
可能です。
現在の課題ですが
サーバ上のdatファイルのタイムスタンプを取得して
ModifyDateでローカルに保存したdatファイルのタイムスタンプを
サーバ上のdatと同期させる方法でしょうか。
それができれば、未更新のdatをスルーできるみたいですし。
リモートとローカルのサイズ比較はちょっと無理そうです。
改行や何かが不安定で、完全に同サイズのまま保存とかできないですし。
- 388 ：名無しさん＠勉強中 ★：07/01/01 00:42:45 ID:???
- お疲れ様です
公開終了されたですか
検索結果から飛ぶと下みたいになります
http://makimo.to:8000/cgi-bin/ffind/ffind2.cgi?/2ch/live14_liveplus/1166/1166518895.html
リンクを追加して欲しい所があと２点あるです
・公式p2の該当スレリンク
・googleの該当スレキー検索結果へのリンク
こんな所かな
- 389 ：名無しさん＠勉強中 ★：07/01/01 16:42:26 ID:???
- メモ
http://russiantea.dip.jp/vbswsh/
- 390 ：名無しさん＠勉強中 ★：07/01/02 11:16:34 ID:???
- これだ！
http://user.ftth100.com/mirrorhenkan/wsh/read.php/1009175619/82-86n
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
実行すると、サーバー上にあるksock32.dllの更新日時を調べ、
更新されていたらダウンロードしてインストールします。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
該当箇所はこの辺りかな
ローカルとサーバのDLLのタイムスタンプを比較しているみたい
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
HTTP.Open "HEAD", URL, False
HTTP.Send
regEx.Pattern = "\nLast-Modified\: .{3}, (\d{1,}) (.{3}) (\d{4}) (\d{1,})\:(\d{1,})\:(\d{1,}) .{3}\r\n"
Set Matches = regEx.Execute(HTTP.getAllResponseHeaders)
For Each Match in Matches
Set Subs = Match.SubMatches
dServerDateLastModified=CDate(Subs(2) & "/" & GetMonthNumber(Subs(1)) & "/" & Subs(0) & " " & Subs(3) & ":" & Subs(4) & ":" & Subs(5))
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
ってー事は
出来そうじゃないですか。
- 391 ：名無しさん＠勉強中 ★：07/01/02 11:40:58 ID:???
- 「getAllResponseHeaders」でgoogle検索したページが下記
http://www.7korobi8oki.com/mt/archives/000049.html
面白いなー。
- 392 ：名無しさん＠勉強中 ★：07/01/02 12:59:37 ID:???
- よし出来た
−−−−−−−−−−−−−−−−−−−−−−−−−−−
Dim objShell
Dim objFolder
Dim Fs
Dim statusResult
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\WINDOWS")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set xh = WScript.CreateObject("microsoft.xmlhttp")
sURL = InputBox("調査したいURLを入力して下さい。" & vbCrLf & vbCrLf & _
"(例 http://flash.2ch.net/gateway.swf)" & vbCrLf & vbCrLf & _
"入力が無い場合は検索をしないで終了します。","statusとlastmodifiedの出力テスト" ,"http://flash.2ch.net/gateway.swf")',MsgBoxTitle,strFindText)
If sURL = "" Then
WScript.Quit
End If
xh.Open "HEAD", sURL, False
xh.SetRequestHeader "User-Agent", "Monazilla/1.00 (2chdatget/20061229)"
xh.Send
statusResult = MsgBox(xh.status, vbYes, "ステータス戻り値")
statusResult = MsgBox(xh.getAllResponseHeaders(), vbYes, "レスポンスヘッダ一覧表示")
wscript.quit
−−−−−−−−−−−−−−−−−−−−−−−−−−−
- 393 ：名無しさん＠勉強中 ★：07/01/02 13:07:54 ID:???
- 元スクリプトの残りがあるけどまあいいや
これを拡張子vbsで保存して実行すると
それぞれのステータスコードとレスポンスヘッダが表示されると思うです
レスポンスヘッダのLast-modifiedというのがファイルのタイムスタンプみたい
2chトップのフラッシュだと去年の12/25が最終更新みたいですね
あと
xh.Open "HEAD", sURL, False
の箇所
xh.Open "GET", sURL, False
でもいいのですが
ファイル全体をGETしてしまうです
- 394 ：名無しさん＠勉強中 ★：07/01/02 17:36:54 ID:???
- Lastmodifiedの抽出も何とかなったです
xh.Send
の次に下記を追加
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "\nLast-Modified\: .{3}, (\d{1,}) (.{3}) (\d{4}) (\d{1,})\:(\d{1,})\:(\d{1,}) .{3}\r\n"
' lastmod = regEx.Replace(xh.getAllResponseHeaders(),"$1/$2/$3/$4/$5/$6")
Set Matches = regEx.Execute(xh.getAllResponseHeaders())
For Each Match in Matches
out = regEx.Replace(Match,"$1/$2/$3/$4/$5/$6\r\n")
If out = Match Then
Else
lastmod = Match
End If
Next
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
そして
statusResult = MsgBox(xh.getAllResponseHeaders(), vbYes, "レスポンスヘッダ一覧表示")
を
statusResult = MsgBox(lastmod, vbYes, "lastmodfy表示")
に変更
- 395 ：名無しさん＠勉強中 ★：07/01/02 17:47:39 ID:???
- という事で次は
ローカルdatのタイムスタンプを
Last-modifiedの書式に正規表現変換して
ヘッダ送信ですか。
それっぽいのをメモ
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2074556
http://soudan.bizocean.jp/jump.php3?q=2074556&t=q
http://pc8.2ch.net/test/read.cgi/tech/1055075469/562n-
- 396 ：名無しさん＠勉強中 ★：07/01/02 17:55:20 ID:???
- いや面白い面白い
http://pc8.2ch.net/test/read.cgi/tech/1055075469/605-609n
http://www.su-jine.com/sujine_seo_if-modified-since_checker.php
- 397 ：名無しさん＠勉強中 ★：07/01/02 18:56:01 ID:???
- >>394は下の１行と交換出来ますな
statusResult = MsgBox(xh.getResponseHeader("Last-Modified"), vbYes, "getResponseHeaderで取得表示")
ループで正規表現マッチさせるようにしてたのが
この１行でＯＫなのか
- 398 ：名無しさん＠勉強中 ★：07/01/02 19:06:15 ID:???
- で、試しに
xh.SetRequestHeader "User-Agent", "Monazilla/1.00 (2chdatget/20061229)"
の下に
xh.setRequestHeader "If-Modified-Since","Mon, 25 Dec 2006 19:55:10 GMT"
を入れて実行してみたです。
レスポンスコードは304が返ってきたです。
やったぜベイビー
http://age.s22.xrea.com/talk2ch/#get
http://www.su-jine.com/sujine_seo_if-modified-since_checker.php
- 399 ：名無しさん＠勉強中 ★：07/01/03 14:06:00 ID:???
- うーむ
ModifyDateによるタイムスタンプ変更がうまくいかない・・
http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list90.shtml
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
管理人むたぐち さん 2003年 09月 04日 22時 32分 42秒
> 最終更新日付がひきつがれていないようです，すみませんでした。
Shell.ApplicationのFolderItemオブジェクトのModifyDateプロパティが、
読み書き両方可能であることを利用すれば、あらかじめ記録しておいた最終更新日時を、
コピー後に書き換えることも可能だと思います。
以下、参考例。D&Dしたファイルの最終更新日時を、本日の0:00にします。
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("Shell.Application")
For Each sArg In WScript.Arguments
If Fs.FileExists(sArg) Or Fs.FolderExists(sArg) Then
Call ModifyDate(sArg,Date)
End If
Next
MsgBox "終了"
Sub ModifyDate(path,dateval)
Shell.NameSpace(Fs.GetParentFolderName(path)).ParseName(Fs.GetFileName(path)).ModifyDate=dateval
End Sub
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
これを実行しても
「このオブジェクトではサポートされていない操作です」
と出るです。
エラー行は下記
Shell.NameSpace(Fs.GetParentFolderName(path)).ParseName(Fs.GetFileName(path)).ModifyDate=dateval
うーむ
皆さんはどうですか？＞見てる方々＞たぶん返事無し＞でもあったら嬉しいな（私が）
- 400 ：名無しさん＠勉強中 ★：07/01/03 14:10:25 ID:???
- 上のはタイムスタンプ書き込みによる変更でしたが
ModifyDateによるタイムスタンプ読み込みは出来たです
http://homepage2.nifty.com/pasocon/shell/folderitem/modifydate.html
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Dim objShell
Dim objFolder
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\WINDOWS")
If (Not objFolder Is Nothing) Then
Dim objFolderItem
Set objFolderItem = objFolder.ParseName("Notepad.exe")
If (Not objFolderItem Is Nothing) Then
MsgBox objFolderItem.ModifyDate
End If
Set objFolderItem = Nothing
End If
Set objFolder = Nothing
Set objShell = Nothing
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
私のＰＣだと、
読み込みはＯＫだけど
書き込み出来ないのかな？
- 401 ：名無しさん＠勉強中 ★：07/01/03 14:19:09 ID:???
- メモ
http://www.whitire.com/vbs/index.html
- 402 ：名無しさん＠勉強中 ★：07/01/03 14:47:05 ID:???
- どうもしょうがないみたいですね。
vectorで「touchme.vbs」をＤＬしてreadmeを見てみたら
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
(1) Windows "Shell.Application"
FolderItem.ModifyDateが変更できるのは、Windows 2000/XPだけのようです。
Windows 98/MEでは、変更できないようです。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
同じ方の「touch.vbs」では
excelで読み出してタイムスタンプ変更しておられるようで
それならＯＫみたい（試してないけど）
- 403 ：名無しさん＠勉強中 ★：07/01/03 20:58:50 ID:???
- 自分の環境では出来ないので
ここを見ている方に試して頂きたく。
http://www.geocities.jp/mirrorhenkan/wsh/changedate.vbs.txt
上のファイルをＤＬして拡張子vbsにして
適当なファイルをドラッグ＆ドロップしてみて下さい。
そのファイルのタイムスタンプが98/01/01 00:00:00になるでしょうか。
もしエラーが出るようなら
aDate = "98/01/01 00:00:00"
を
aDate = cDate("98/01/01 00:00:00")
に変えればいいのかもしれません。
これが出来れば
サーバと同じタイムスタンプで保存する事とか出来そうなので
未更新のファイルをスルーできるかもです
- 404 ：名無しさん＠勉強中：07/01/03 21:09:29 ID:J5qpKGX5
- >>403
うちのはなったよ。
- 405 ：名無しさん＠勉強中 ★：07/01/03 23:04:45 ID:???
- おお即レスどうもです。
もう一ついいでしょうか。
aDate = "98/01/01 00:00:00"
を
aDate = "01 Jan 1998 00:00:00"
に差し替えてやってみて頂けますでしょうか。
これでＯＫだと正規表現置換がえらく楽になるです。
ちなみにどちらの場合もisDateで確認すると
日付バリアント型と認識してくれるみたいなので。
下の日付の箇所を「98/01/01 00:00:00」でも日付認識してくれるです。
ただ例えば「Hello」とかにすると（当たり前ですが）認識しないです
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
testDate = "01 Jan 1998 00:00:00"
'testDate1 = cDate(testDate)
If isDate(testDate) Then
wscript.echo "日付認識"
Else
wscript.echo "日付ではない"
End If
wscript.quit
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
- 406 ：名無しさん＠勉強中 ★：07/01/03 23:23:25 ID:???
- メモ
proxomitronのログを見ていたんですけど
プロキシを使っている時は
−−−−−−−−−−−−−−−−−−−−
Using Proxy - xxxxxxxxxx:8080
−−−−−−−−−−−−−−−−−−−−
というのがGETの直前についてるんですね。
という事は
xh.SetRequestHeader "Using Proxy", "xxxxxxxxxx:8080"
とか付ければプロキシ経由になるのかも。
もしこれでＯＫなら
一定時間or一定回数ごとにプロキシ変換とか
ランダムプロキシ変換とか出来るかもです。
- 407 ：名無しさん＠勉強中：07/01/04 00:06:53 ID:PKHZGod1
- >>405
それに変えてもおｋだった。
ちなみにwin2k。
- 408 ：名無しさん＠勉強中：07/01/04 00:19:42 ID:M5Lrs8Hr
- >403
Win XP Pro SP2
aDate = "98/01/01 00:00:00"
桶
ｴﾗｰ出ないのに書き換え
aDate = cDate("98/01/01 00:00:00")
桶
aDate = "01 Jan 1998 00:00:00"
桶
- 409 ：名無しさん＠勉強中 ★：07/01/04 18:38:31 ID:???
- >>407-408
レスどもです
私はwin9x機
ぐあああああ
何とかなりそうです
余裕ないので明日
ではでは
- 410 ：名無しさん＠勉強中 ★：07/01/05 19:05:54 ID:???
- という事で
見ている方 試して頂きたく。
http://www.geocities.jp/mirrorhenkan/wsh/2chdatsearchget20070105.vbs.txt
http://www.geocities.jp/mirrorhenkan/wsh/LoopList20070105.csv.txt
上二つをＤＬして
それぞれ拡張子をvbs/csvにして下さい。
csvのほうはLoopList.csvにリネームし（vbsのほうは適当で可）
で、vbsファイルを実行してみて下さい。
ダイアログが出ると思うので適当にやると
同じフォルダにsubject.txtが出来ると思います。
subject.txtのタイムスタンプが
「21 May 2006 09:28:31」つまり
「2006.5/21 09:28:31」になっていればＯＫです。
ちなみに自分のマシンだと
509行目でエラーになり
「このオブジェクトではサポートされていない操作です」
と出るです。
ＯＳのせいなのでしょうがないです
- 411 ：名無しさん＠勉強中 ★：07/01/05 19:16:52 ID:???
- 上げ忘れたです
ふと思ったんですが
SSL（https://〜みたいな奴）へのアクセスもwshで可能だったら
dat落ちしたログを取得するwshもできそうですね（勿論●を使って）。
まあ作ったところで●を持ってないので試せませんが。
- 412 ：名無しさん＠勉強中：07/01/05 20:27:56 ID:mR0La6ZB
- タイムスタンプなりましたよ xp
93行でエラーでてたけど消したら動いた
僕にはよくわかりませんです
- 413 ：名無しさん＠勉強中：07/01/05 21:18:12 ID:7kFCFAJs
- こちらも出来た。
93行目でエラーになるのはディレクトリ指定が
if Fs.FolderExists(strSaveDir) Then
'msg = sRoot & "/dat は、存在します。"
Else
Fs.CreateFolder(strSaveDir) ・・・93行目
End If
SaveDirの指定がまずいんだろうと思う。
c:\aaa\bbb とかの指定の時は C:\aaaは存在してないといけないんだろうね。
- 414 ：名無しさん＠勉強中 ★：07/01/05 22:53:37 ID:???
- ありがとうです
93行目の件ですが
LoopList.csvの１行目
http://www.geocities.jp/mirrorhenkan/dat2html-3/,C:\My Documents\entrance2,.
を
http://www.geocities.jp/mirrorhenkan/dat2html-3/,テスト用です後で消してね,.
とでもやれば、実行ファイルと同じ場所に
「テスト用です後で消してね」という名前のフォルダが出来ますが
あんまり根本的な解決方法でもないですな。。
まあ、ここはdatを格納したいフォルダを各自指定する所だからいいや
それはそれとして
もし「c:\aaa\bbb\ccc\ddd」というディレクトリ指定があって
そこを保存先に指定していて
dddの親ディレクトリのどれかが存在していないかもしれなくて
でもエラーを出したくなかったら
・文字列「c:\aaa\bbb\ccc\ddd」を「\」を目印に分割して配列格納
↓
・１番目と２番目を「\」を挟んで連結して
そのディレクトリがなかったら作成
↓
・上のと３番目を「\」で挟んで連結して
そのディレクトリがなかったら作成
↓
・以下なくなるまでループ
とかすればいいのかな
こういう作業って誰かが作ってくれてそうな。
- 415 ：名無しさん＠勉強中 ★：07/01/05 23:12:51 ID:???
- さて
サーバ上のファイルとタイムスタンプ同期は可能みたいなので
（98/Me以外ですが）
次に
未更新ファイルをスルーする方法ですか。
疲れたので後日という事で
- 416 ：名無しさん＠勉強中 ★：07/01/06 17:56:00 ID:???
- やりかけですが、気が抜けちゃいました。
全datのタイムスタンプをサーバと同期させるのは出来たんですが
（って自分では試せないんですが）
それをローカルと比較するのがちょいと億劫
やりかけですがメモ
サーバ上のタイムスタンプ取得はＯＫですが
ローカルファイルのタイムスタンプがまだ駄目です
'//サーバ上のファイル日時取得20070106//
xh.Open "HEAD", out, False
xh.SetRequestHeader "User-Agent", "Monazilla/1.00 (2chdatget/20061229)"
xh.Send
testDate = xh.getResponseHeader("Last-Modified")
Set regDate1 = New RegExp
regDate1.IgnoreCase = True
regDate1.Global = True
regDate1.Pattern = ".{3}, (.+?) GMT"
outDate = regDate1.Replace(testDate,"$1")
'// //
'//ローカルファイル日時取得20070106//
If Fs.FileExists(tuika) Then
tuikaDate = tuika.ModifyDate
Else
tuikaDate = "90/01/01 00:00:00"
End If
'// //
- 417 ：名無しさん＠勉強中 ★：07/01/06 18:38:49 ID:???
- で、ファイル更新可否をみる方法は
二つあると思うです
(1) サーバにヘッダリクエストして取得したタイムスタンプを
ローカルと比較して変更ある場合ＤＬする
(2) ローカルファイルのタイムスタンプを正規表現加工変換して
if-modified-sinceヘッダをつけてサーバ送信する方法
どちらも一長一短あるです
(2)のほうが一般的だと思いますが、ローカル存在可否や
タイムスタンプ取得や正規表現置換やGET送信戻り値のステータスコードや
そういうのが何だかよくわかんない。
(1)だと正規表現も単純なもので可なので
上はそれやろうとしていたです。
- 418 ：名無しさん＠勉強中 ★：07/01/06 19:10:44 ID:???
- メモ
hisa-net
http://hisa-net.ddo.jp/php/sql/etc.php
- 419 ：名無しさん＠勉強中 ★：07/01/06 22:13:42 ID:???
- それにしても
jane外部コマンドスレは勉強になりますです
http://jane.s28.xrea.com/test/read.cgi/bbs/1153606495/571
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
そもそも>>559って自分で書いたんじゃなくて､
http://jane.s89.xrea.com/test/read.cgi/kakolog/1076248429/81
のコピペでしょ。メッセージが違うだけであとは大文字小文字まで一致してる。
メッセージ変えただけで｢ここまで進めました｣とか｢>>559くらいしか作れないんです…｣とか
まるで自分で書き上げたように言うのは､かなり恥ずかしくないか？
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
559さんではありませんが 自分に言われてるみたいに思ったですよ。
さあどのあたりまでコピペなんかなと。
- 420 ：名無しさん＠勉強中：07/01/07 03:35:12 ID:MgVPKa7e
- >>372のコード、あんまりよろしくないみたい。
ファイルの終端
パターンA
aaaaaaa{EOF}
のときと、
パターンB
aaaaaaa{LF}
{EOF}
のときがあって、パターンAでもBでもLENの中身は>0になる。
だからいずれの場合も改行コードが入ってしまう。
結果としては
パターンA+
aaaaaaa{CR+LF}
{EOF}
と
パターンB+
aaaaaaa{LF}
{CR+LF}
{EOF}
で、パターンBのときは空行が1個追加される。
まぁ、パターンAをjaneなんかで読むと、ファイルが終わってないような処理のループになるから、
ましといえばましなんだけど。
これを回避しようとすると、textファイルを作ることになるが、普通に書き込むと改行は{CR+LF}になる。
datファイルでは改行は{LF}しか入ってないから、ファイルのサイズが大きくなるんだよね。
一回janeで読むと変換されるみたいだけど。
バイナリイレベルで扱えるなら、[EOF]の前の{LF}を判断して追加すれば良いんだけれど。
- 421 ：名無しさん＠勉強中 ★：07/01/07 13:37:50 ID:???
- >>420さん
いやー難しいですねー。
とりあえず>>372の
'最終行が長さ0以上の時(EOFでないとき)空行追加
の直前行あたりに
wscript.echo arrFileLines(Ubound(arrFileLines))
を入れて最終行を実体表示するようにして実行してみても
空行は出てこないです。
でもファイルを見てみると、最終行で２回改行しているdatがあるので
もしかしたらUbound(arrFileLines)だと
空行を認識していないのかも（間違ってるかもですが）。
メモリ消費がたぶんすごいので単なる実験ですが
ReadAllでデータ丸ごと読み込んで改行で分けた最終行だとどうだろうと
Set su = fs.OpenTextFile(tuika, ForReading)
の直後あたりに
su_all = su.ReadAll()
wscript.echo su_all
wscript.echo arrFileLines(Ubound(Split(su,vbCr)))
とやってみたらwshが強制終了してしまうようになったのは
さてメモリ不足なのかスクリプトエラーなのか。
あとは[EOF]直前のLFの文字コードを見てみるくらいなのかな。
ここらで私の頭がオーバーフロー
自分用メモ
掲示板過去の記事154
http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list154.shtml
DeNUL.VBS(Windows95/98/Me / ユーティリティ)
http://www.vector.co.jp/soft/win95/util/se355946.html
Windows Script ノスゝメ
http://russiantea.dip.jp/vbswsh/19
ASP/VBS サンプル関数：『画面出力関数』
http://www.b-s-c.co.jp/~moritake/oboegaki/h_vbs_fnc02.html
Ｗｉｎｄｏｗｓ
http://www.h2.dion.ne.jp/~junsei/Windows.htm
- 422 ：名無しさん＠勉強中 ★：07/01/07 13:42:26 ID:???
- 上のスクリプト間違ってる予感。
wscript.echo arrFileLines(Ubound(Split(su,vbCr)))
↓
wscript.echo su_all(Ubound(Split(su_all,vbCr)))
でもエラーメッセージも出ずに強制終了するなー。
- 423 ：名無しさん＠勉強中 ★：07/01/07 14:03:26 ID:???
- とかいたけど
もしかしたらまるまるまちごうておるのかも
アハハハーおはなばたけがみえるよーハハハハー
- 424 ：名無しさん＠勉強中：07/01/08 02:39:12 ID:cL/xX2GZ
- >>372 の部分の処理 改訂版
datの最後をバイナリでLF、もしくはCRでないときに空行追加。
dim sOut
dim sIn
set sOut = CreateObject("ADODB.Stream")
set sIn = CreateObject("ADODB.Stream")
With sOut
.type = 2
.charset = "iso-8859-1"
.open
End With
With sIn
.type = 1
.open
End With
sIn.LoadFromFile(tuika)
line = sIn.Read
sIn.Close
ch = AscB(MidB(line, LenB(line) ,1))
if (ch <> 10 and ch <> 13) then
Set su = fs.OpenTextFile(tuika, ForAppending)
su.WriteLine
su.Close
End If
- 425 ：424：07/01/08 02:43:03 ID:cL/xX2GZ
- datの最後をバイナリでLF、もしくはCRでないときに空行追加。
ｓOutのブロックはいらなかった。
dim sIn
set sIn = CreateObject("ADODB.Stream")
With sIn
.type = 1
.open
End With
sIn.LoadFromFile(tuika)
line = sIn.Read
sIn.Close
ch = AscB(MidB(line, LenB(line) ,1))
if (ch <> 10 and ch <> 13) then
Set su = fs.OpenTextFile(tuika, ForAppending)
su.WriteLine
su.Close
End If
- 426 ：名無しさん＠勉強中 ★：07/01/08 19:50:46 ID:???
- >>424-425
うーむ
ADODB.streamを使うしかないのかな・・
win98/Meではデフォルトで使えない機能だもので
躊躇しておったです。
だもんで検証も出来ない・・。
文字コード変換とかで以前やったものがあったので見てみると
http://www.geocities.jp/mirrorhenkan/others/allescape16change.html
JavaScriptでの16進数変換だと改行は「%0A」になるですけど
VBScriptだとそういう訳にはいかないのだろうか。
- 427 ：名無しさん＠勉強中 ★：07/01/08 20:00:29 ID:???
- 何はともあれ
ありがとうございます。
という訳でバージョンアップ（カッケー！）
http://www.geocities.jp/mirrorhenkan/others/datsearchget/
http://www.geocities.jp/mirrorhenkan/others/datsearchgetall/
98/Meでもエラーが出ないようにOnError resume Nextを使ったですが
さてどんなものか。
自分の環境では何とかなってる感じですが。
で、98/Me以外の環境だと
datのタイムスタンプがサーバと同期出来ていたら成功です。
過疎板等で試してみて下さい。
あとはローカルdatとサーバdatのタイムスタンプ比較かなと。
>>416-417を考え直せば何とかなるかもですが
何だか疲れちゃった。
- 428 ：名無しさん＠勉強中 ★：07/01/08 22:10:56 ID:???
- ちょっと遊んでみたりして
http://qb5.2ch.net/test/read.cgi/operate/1167627688/757
ところで、専用ブラウザを作った場合
今でも●ログイン試験用のアカウントって付与されてるんでしょうか。
別にそれ目当てという訳でもないですけど。
>>411とか 何だか出来そうな感じがするです
- 429 ：名無しさん＠勉強中 ★：07/01/10 22:40:42 ID:???
- とりあえずhttps://〜のURLにwshでやりとり出来るのかと
適当に試してみました。
Set xh = WScript.CreateObject("microsoft.xmlhttp")
xh.Open "HEAD", "https://2chv.tora3.net/futen.cgi", False
xh.Send
Msgbox xh.Status
ステータスコードは200が戻ってきたので
ファイルのやりとりは出来るみたい。
UAもSetRequestHeaderで送信可能です。
ただ、セッションＩＤというのが何だかわからない・・。
ちなみにここ↓見てやってるです
Authentication System DOLIB 1.00 (2002/02/26) - Online Access Control TORA3
http://kage.monazilla.org/system_DOLIB100.html
この中の６に書いてあるセッションＩＤってーのがわからない。
検索してみたけど↓もう疲れちゃった。
http://www.komonet.ne.jp/~php/chap18.htm
- 430 ：名無しさん＠勉強中 ★：07/01/10 22:54:17 ID:???
- あ、何となくわかったような気もしないでもなくもないかも
ただ
ここから先は●が無いと手も足も出ないなー。
ログイン成功してるかどうかとかわかんないですし。
まあ
かちゅ〜しゃを入れずにかちゅdatのコンバータをやろうとしてみたり
携帯でネットした事ないのに携帯用の変換機をやろうとしてみたり
とかいうような事をやってたんで
本質的にはそういうのとあんまり変わんないかも。
- 431 ：名無しさん＠勉強中 ★：07/01/11 22:37:05 ID:???
- 検索してこの件に関連するものとしては
このあたりでしょうか
Ichinose Memo(2005-03-10)
http://www.genome.ist.i.kyoto-u.ac.jp/~ichinose/memo/?date=20050310
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
CGIでセッション管理してる時などに、session idをxmlhttpで
送ろうとかするとPOSTでopenしておいて、
xmlhttp.send("_session_id="+sessionId);
みたいな感じになると思うのだけど、Safariで送ろうとすると
何故かsessionIdの文字の最後に"\x00"（ヌル文字？)を付けて
送ってしまう。
こうなるとCGI側で存在しないsession idとして認識されてしまって、
新しいセッションを発行してしまうなどイヤなことになる。
とりあえず回避策として、セパレータ文字"&"を使って
xmlhttp.send("_session_id="+sessionId+"&");
などどするといいようだ。なんか微妙な感じだけど。。id管理に
クッキー使えばもちろん問題ないのだけど、事情があって
パラメータ送りにしたかったので。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
セッションＩＤを送る形式は
xmlhttp.send("_session_id="+sessionId)
なのかなと。
自分で思っていたのは
xh.SetRequestHeader("session_id",sessionId)
でしたが。
- 432 ：名無しさん＠勉強中 ★：07/01/12 20:27:27 ID:???
- 自分では試す事が出来ないので
●持ちの方に試して頂きたく。
http://www.geocities.jp/mirrorhenkan/others/maru/maru1.vbs.txt
上のファイルをＤＬして
●のＩＤとパスを入力して拡張子vbsで保存して下さい。
然る後 そのスクリプトを実行してみて下さい。
戻り値がダイアログで出てくると思います。
「SESSION-ID=***************」だったら失敗。
「SESSION-ID=Monazilla/1.00:DA|M@Lp,VEYDPettDv8nOt81vPr7lO^2HO0k/M...」
みたいなのだったらログイン成功です。
１５行くらいのソースですし
別に怪しい事とかはしてないです。
wsh（というかxmlhttp)でもSSL通信出来るようなので
こういう事も可能なのではないかと。
まあ自分に出来るかどうかはわからんですが。
下記JScriptでやっておられるようです
Ajax Ajaxで基本認証+SSL - ［JavaScript］All About
http://allabout.co.jp/internet/javascript/closeup/CU20050730A/index3.htm#4
ところで、proxomitronだとSSLには完全対応されてないみたいで
何だか通信ログとかうまくいかないです。
いちおう「設定」→「HTTP」で「〜SSLを使用する」にチェックして
それ用のDLLを入れてみましたが。
SSLの通信ログも監視出来るようなフリーソフトって何かありますか？
- 433 ：名無しさん＠勉強中 ★：07/01/13 18:51:30 ID:???
- まあ●持ちでここ見ておられる方って少ないだろうなと。
動作確認が取れればそのまま正式バージョンにしようかと思っていたのですが
当面ペンディングですかね。
それにしても上の文章
どこかで見た事あるなあ（ごめんなさい怒らないで下さいです）
- 434 ：名無しさん＠勉強中 ★：07/01/13 19:02:52 ID:???
- それはともかく
↓検索でヒットしたんですが
Faceちゃんねる
http://justcallmeai.com/board/fch/
・・・！
私が改造した0chスクリプトを使っておられるようです
http://mirror.s151.xrea.com/0ch_utf8/
ルートディレクトリを見てみると
http://justcallmeai.com/
そこからブログに行ってみると
http://justcallmeai.com/blog/
・・いやー、私もインターナショナルになったもんだなあ
驚いちゃった。
どういう方がやっておられるのでしょうか。
ブログを読めば判るんでしょうけど一字一句読めませぬ。
後で翻訳サイトにかけてみるです
それにしても
曜日が漢字なのはなんでなんでしょ
確かデフォルト表記は英語にしといたような記憶があるですけど
- 435 ：名無しさん＠勉強中 ★：07/01/13 19:27:05 ID:???
- なので
JaneNidaスレに要望を出させて頂きました
http://pc9.2ch.net/test/read.cgi/software/1168136526/88
まあ またスルーかもしれないなと。
でも、ソフトの名前が名前なのに
現地の方が運営されている掲示板を表示出来ないのは何だかなと
心底思うのですが。
これを機にハングルも勉強してみますか。
- 436 ： ◆/vmukiyuzw ：07/01/13 22:29:59 ID:R6haMGtb
- >>433
なんか名指しで確認してくれって言われてるような気が・・・ｗ
試してみました。
SESSION-ID=Monazilla/1.00:FOQyVonl*+n+{1r*vOl{1r/1tH^qF8fYljDSE（長いので以下略
うまくいってるように思えます。
- 437 ： ◆/vmukiyuzw ：07/01/13 22:41:10 ID:R6haMGtb
- ところでSSLの通信ログの監視？
自分はVigilってソフトを使ってます。
（シェアウェアだけどフリーで使える範囲でも個人で使う分には
充分使い物になる）
# でも、SSLの通信を確立するまではモニターできるのですが
# 実際の通信内容は暗号化されたものしか読めないみたいです
- 438 ：名無しさん＠勉強中 ★：07/01/14 15:39:03 ID:???
- あいや
> mukiyuさん
ありがとうございます！
出来ましたか！！
セッションＩＤも返って来たみたいなので
もう八割方出来たかもです。
胸突き八丁が一番大変ですが。
SSL監視ソフトの件もありがとうございますです
- 439 ：名無しさん＠勉強中 ★：07/01/14 15:45:38 ID:???
- さて
あとはdat落ちしたdatの読み込みですが
http://kage.monazilla.org/system_DOLIB100.html
を見ると
SSL通信は使ってないみたい。
read.cgiと同じ階層にあるofflaw.cgiにGETすればいいだけみたいですね。
セッションＩＤを末尾に付けてやればよいだけで。
何とかなりそうです。
- 440 ：名無しさん＠勉強中 ★：07/01/14 15:58:53 ID:???
- ところで
http://qb5.2ch.net/test/read.cgi/operate/1163825500/738-743n
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
738 ：動け動けウゴウゴ２ちゃんねる ：2006/12/28(木) 23:09:49 ID:XpIwLayJ0
ちなみに、●に対応するとシェアに応じた配当がもらえるので、
それは是非スンオスさんの御餅代に。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
> ●に対応するとシェアに応じた配当がもらえるので
ほんまっすか
うはうは
どこに連絡すればいいんですかね？
kageさんが●の収益の分配報告とか以前やっておられましたけど。
あと
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
740 ： 株価【1550】 ▲▲▲▲ ◆cZfSunOs.U ：2006/12/28(木) 23:36:54 ID:BOiC7YOA0
>>736 そんなことも前ちょっと考えていたことがあって，pastdat.so / anydat.so に
●対応機能を組み込めば read.js で過去ログもシームレスに表示できるようになるなぁ
とか思ってたんですが，XMLHttpRequest ではクロスドメインのリクエストはえないんですね．
なので，2ch.net ドメインで●認証鯖への橋渡しをする SSL 鯖を別途用意してもらわないと実現できない，と......
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
> XMLHttpRequest ではクロスドメインのリクエストはえないんですね
JavaScriptでは確かにそうですが
wshで使っているVBScriptやJScriptではそんな事も無いみたいで。
というか ローカルで使う分には考えなくてもいいと。
- 441 ：名無しさん＠勉強中 ★：07/01/14 16:16:28 ID:???
- で
「2chが閉鎖するかもしれないのに何を脳天気な」とか言われそうですが
こればかりはなるようにしかならないんで
あれこれ言ってもしょうがないなと。
それはともかく
UNIX板の下記スレッドが面白いなと。
http://pc10.2ch.net/test/read.cgi/unix/1168662832/l50
それと
読んでて出てきたんですけど
ちょろ★さん って 夜勤★さん で FOX★さん だったんですか？
- 442 ：名無しさん＠勉強中：07/01/14 17:25:45 ID:IzxLWPum
- 夜勤＝ちょろ
FOXは共有キャップだけど使ってるのは大体ちょろ
- 443 ：名無しさん＠勉強中 ★：07/01/14 18:31:11 ID:???
- >>442さん
どもです。
何だかきれるお方のようで。
>>440
> kageさんが●の収益の分配報告とか以前やっておられましたけど
まだやっておられました
http://kage.monazilla.org/test/read.cgi/kage/037366460/l50
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
174 名前：kageさく〜しゃ ★ 投稿日：2006/09/04(月) 21:38:57 ID:???
===================
$1,997.99
===================
2004/7/1〜7/31のツール利用分です。
175 名前：名無しさん 投稿日：2006/09/05(火) 03:56:36 ID:???
2000ドル割ったか・・・
176 名前：kageさく〜しゃ ★ 投稿日：2006/10/05(木) 00:16:27 ID:???
===================
$2,055.25
===================
2004/8/1〜8/31のツール利用分です。
177 名前：kageさく〜しゃ ★ 投稿日：2006/11/02(木) 23:17:49 ID:???
===================
$2,032.39
===================
2004/9/1〜9/30のツール利用分です。
178 名前：kageさく〜しゃ ★ 投稿日：2006/12/04(月) 20:18:18 ID:???
===================
$1,860.85
===================
2004/10/1〜10/31のツール利用分です。
179 名前：kageさく〜しゃ ★ 投稿日：2007/01/09(火) 07:09:30 ID:???
===================
$1,854.92
===================
2004/11/1〜11/30のツール利用分です。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
単位がわかんないんですが
177さんの書き込みを信じれば
毎月180〜200ドル弱くらいはあるという事ですかね。
って
毎月２万円弱の収入ってぇ事ですか・・。
うわー。
- 444 ：名無しさん＠勉強中 ★：07/01/14 18:34:35 ID:???
- 単位まちごうた
2000ドルやな
ってー事は
おいおい
毎月２０万円の収入があるっつー事かいな！
どっひゃー
- 445 ：名無しさん＠勉強中 ★：07/01/15 12:44:41 ID:???
- 何だかdumper.jpさんのところ
403Forbiddenです
何かあったのでしょうか
メモ
■2ch Log BBS
http://kako2ch.wtry.net/
- 446 ：名無しさん＠勉強中 ★：07/01/15 22:03:05 ID:???
- rep2とgetlogとJaneの●に関係するあたりを見てみたですが
確かに>>439の通りの事をやられていて感動したです。
こうこうこうやってそうやってああやればいいのかなとか思うんですが
何か緻密に考える頭になっとらんです
困ったなー
コードをパクろうとしても
パクリ元が存在しない感じだなー（オイ）
- 447 ：名無しさん＠勉強中 ★：07/01/15 23:22:38 ID:???
- 旧マック板より
http://pc10.2ch.net/test/read.cgi/jobs/1031756350/505
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
505 ：●~*：2007/01/15(月) 15:18:05
ネット接続状態の時に30分ごとにスクリーンショットを撮って
web上にアップロードするスクリプトを作って下さい
機能
・ファイルアップロード時はIEか何かのアプリを常にアクティブ状態にして
他のアプリに切り替えができない
・アップロード後はファイルを削除
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
上の場合はMacのAppleScriptでの話なんですが
こんなのもwshで作れそうですね。
以前読んだのですが
AppleScriptはマックの全機種で標準装備されているそうで。
windowsのwshだと搭載されてたりされてなかったりで
バラツキがあるとか。
まあ日進月歩の世界なのでもう変わってるかもですが。
- 448 ：名無しさん＠勉強中 ★：07/01/16 12:50:31 ID:???
- まああれだ
上の方 要するに
「キンタマウイルス」を所望しておられるのだろうなと
http://ex13.2ch.net/test/read.cgi/gline/1165651379/199
これかな
551までしかないみたいだけど
http://airpanda.sakura.ne.jp/vip/summary.php?dat=1144341705
これをdat化出来たらいいですね
- 449 ：名無しさん＠勉強中 ★：07/01/16 18:15:32 ID:???
- 上の文章
上と下は別物です
- 450 ：名無しさん＠勉強中 ★：07/01/16 18:28:10 ID:???
- ところで
恐れていた事が起きました。
いや、makimo.toさん休止とか
dumper.jpさんダウンとか
dat落ちスレ保管所さんの御疲労ぶりとかに比べると
それほどでもないですが。
まずは下のスレ
NHK総合を常に実況し続けるスレ 27605
http://live23.2ch.net/test/read.cgi/livenhk/1168906513/
701のリンクから気付いて行ってみたら落ちてました。
変換スクリプトにかけてみると
下の二つが存在するようです
29ch - NHK総合を常に実況し続けるスレ 27605
http://220.254.5.211:8000/2ch/live23_livenhk/1168/1168906513.html
NHK総合を常に実況し続けるスレ 27605 - remix2ch
http://contents-factory.net/remix2ch/read.php?url=http://live23.2ch.net/test/read.cgi/livenhk/1168906513/
このうち
makimo.toさんの所は一週間ほどで見えなくなります。
となるとremix2chさんの所だけとなりますが
見てのとおり 階層表示となっております。
画面上部にある「その他の設定」→「ツリー表示をしない」
にチェックを入れればクッキーが保存されて通常表示になりますが
現在のところ htmltodatはクッキーに対応されておられないので
このhtmlを呼び出す事は出来ません。
- 451 ：名無しさん＠勉強中 ★：07/01/16 18:47:23 ID:???
- 窮余の策として
Proxomitron経由にして
下記のフィルタをインポートして
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
[HTTP headers]
In = FALSE
Out = TRUE
Key = "Cookie: remix2ch (out)"
URL = ".+contents-factory.net.+"
Replace = "preview_limit=zero; design=2ch; normal_view=on"
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
「送信するヘッダ・フィルタ」にチェックをして呼び出せば
とりあえずツリー表示のhtmlではなくなります（あとは正規表現ですが）。
ただ、出来ればhtmltodat単独でクッキー送信できれば嬉しいなと。
という訳で＞mukiyuさん
htmltodatにクッキー送信（というかヘッダ送信）機能の付加を
考慮しては頂けないでしょうか。
あと出来ればUser-AgentとAuthorization（ベーシック認証）等も。
それが出来れば
remix2chにしか残っていないスレッドも
容易にdat化出来ると思うのです。
- 452 ：名無しさん＠勉強中 ★：07/01/16 20:25:37 ID:???
- 上のをdat化する正規表現を考えたんですけど
ＰＣが固まってしまったとです
ションナリです
ちなみにションナリとは
ションボリ＋ゲンナリのダブルな事で
毎日楽しみだったブログで目にした言葉です
閉鎖して 今はもうありませんが。
- 453 ：名無しさん＠勉強中 ★：07/01/16 20:56:10 ID:???
- 気持ち悪いのでremix2chのdat変換用正規表現
m#<dt>([0-9]+) ：<span class="name">(?:.+?"mailto:(.+?)"><b>)?(.+?) ?(?:</b></a>)?</span>：(.*?)\(スコア.+?<dd> ?(.*?)<br></dd><hr>(<dt>|</dl>)#mik
あと前処理
s#(<title.*?) - remix2ch(</title>)#$1$2#ik
- 454 ：名無しさん＠勉強中 ★：07/01/16 22:23:41 ID:???
- JaneNidaスレのほうで作者さんから御返事がありました
http://pc9.2ch.net/test/read.cgi/software/1168136526/110
なので
再び投稿したです
http://pc9.2ch.net/test/read.cgi/software/1168136526/119-120
ところで
このスレの103
> そして、ハングルNidaを世に出したら
> きゃつらが2chに流れ込んで大荒れ確実です。
何というか
気持ちは判るんですが
そこまで突っぱねるのは何だかなと
mixi等で日記を書いてる韓国の人 けっこう居ますし
内容も普通ですし
そういうのを見てると以下略
それだけです
この件 反応があっても困ります
- 455 ：名無しさん＠勉強中 ★：07/01/16 22:29:49 ID:???
- 作者さんの御返事はこちらでした
http://pc9.2ch.net/test/read.cgi/software/1168136526/110
- 456 ： ◆/vmukiyuzw ：07/01/16 22:31:32 ID:qjF1qzID
- >>450-451
要望等はできればうちの板に直接書いていただけませんか。
こちらからリンク貼ってもいいですが経緯がわかりにくくもなりますし
情報分散して検索の際とかに面倒になったりするのもありますし。
お手数かと思いますがよろしくお願いします。
- 457 ：名無しさん＠勉強中 ★：07/01/16 22:35:40 ID:???
- 了解しました
ではそうさせて頂きます。
- 458 ：名無しさん＠勉強中 ★：07/01/17 20:19:34 ID:???
- メモ
[[[CHINPOGEDU]]]
http://www.abcoroti.com:8010/~nusoku
これまた結構なログ保管庫で
- 459 ：名無しさん＠勉強中 ★：07/01/18 20:42:59 ID:???
- http://jbbs.livedoor.jp/bbs/read.cgi/computer/1929/1038588508/401-405n
とりあえず自分は
新旧どちらのdat形式でも問題なく表示させるように
read.phpをいじらんといかんのかな
phpは忘却の彼方なんですが
とりあえず
http://user.ftth100.net/mirrorhenkan/test-k/
と分岐処理させれば良いのかなとは思うんですが
これがなかなか。
それにしても、p2は凄いですね。
分岐とかうまくやっておられるなあと（何とまあ偉そうに）
501KB
続きを読む
掲示板に戻る 全部 前100 次100 最新50