テレワークならECナビ Yahoo 楽天 
LINEがデータ消費ゼロで月額500円〜！
無料ホームページ 無料のクレジットカード 海外格安航空券 海外旅行保険が無料！ 海外ホテル
■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 最新50
メモ２
- 1 ：名無しさん＠勉強中 ★：06/09/16 19:36:34 ID:???
- これまた思いついた事など
- 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は凄いですね。
分岐とかうまくやっておられるなあと（何とまあ偉そうに）
- 460 ：名無しさん＠勉強中 ★：07/01/18 20:57:42 ID:???
- Jane板より
2chdatget/2chdatsearchgetのログをJaneで動かすことについて
http://jane.s28.xrea.com/test/read.cgi/bbs/1169052446/l50
少し驚いたです
いちおう作者なんですが
私 何をすればいいのでしょうか
- 461 ：名無しさん＠勉強中：07/01/18 21:11:01 ID:42USqSQU
- >>460
なにもしなくて良いんじゃない？
datそのものには問題ないんだから。
- 462 ：名無しさん＠勉強中：07/01/19 05:52:12 ID:Iv+zn6AH
- #PerlとLWP::UserAgentモジュールと●あれば多分いけるんじゃないかなぁと思っている
#
#####過去ログいっぱい取得するなんか
#####ソースきたねｗｗｗメッセージいてぇｗｗｗ
#####WindowsXP SP2で動作チェックしてない
#####途中でのセッションタイムアウトを気にしてない
#####●持ってないから勘で実装
490 名前： 459 [sage] 投稿日： 2007/01/19(金) 01:15:22 ID:OlRy4Zvb0
Perl(ActivePerlでも多分いい）とLWP::UserAgentモジュールと●があれば多分試せる。
上げ直し
http://sub.jetabbs.org/upload2/upload/upz043.zip
転載
- 463 ：名無しさん＠勉強中：07/01/19 05:54:03 ID:Iv+zn6AH
- datファイルを共有するP2Pソフト o2on 8dat
http://tmp6.2ch.net/test/read.cgi/download/1167375249/l50
- 464 ：名無しさん＠勉強中 ★：07/01/19 19:36:34 ID:???
- >>461さん
お言葉に甘えます
どうやったんだか忘れかけてるし(^^;
ただ、datsearchgetとdatsearchgetallは
datの最終行を見てゴニョゴニョやってるんで
そういうのも（実際のレス数と違う表示が出る）
出ないと思うんだけどなあ。
自分では試せないのでアレですが。
- 465 ：名無しさん＠勉強中 ★：07/01/19 19:48:23 ID:???
- # 最終行をチェックするコードは私ではないです
# 教えてくれた方ありがとうです
>>462-463さん
教えて頂きありがとうございます。
自分のクラシック環境ではo2onは起動すら出来ませんし
そもそも自分のＯＳ自体 o2on作者さんの考慮の対象外のようなので
見なくなっていたスレッドだったもので。
ネットランナーにo2onの特集が載ってましたが
時期尚早のような。
- 466 ：名無しさん＠勉強中 ★：07/01/19 20:05:32 ID:???
- で、ＤＬして見てみたです。
すごいなあ
ActivePerlがインストールされているＰＣで
kako2chSpiderをダブルクリックすればいいみたいですね。
Dosプロンプトのような黒背景の画面が出て
●のＩＤとパスを入力
ダウンロードしたい板のURLを入力すれば
過去ログ倉庫のsubject.txtを自分で引っ張り出して
順番にdatをＤＬするようにされてるみたいです。
ただ、このスクリプト
敷居が高い感じです。
自分のマシンに
AcrivePerlと
LWP::UserAgentモジュールと
HTTP::Requestモジュールと
HTTP::Headersモジュール
・・を入れないと
使えないみたいなので。
使いこなす人も限られているんじゃないかな
だから運営の方もあれこれ言わないんじゃないかなと。
って
自分をモノサシにして書いてるんですが
これってもしかして常識なのかな
だったら恥ずかしいな
でも私 ド素人なんだもーん
何にもわかんないんだもーん
アーアー聞こえなーい
と開き直っておこうっと
- 467 ：名無しさん＠勉強中 ★：07/01/19 20:43:17 ID:???
- で、自分のwshも
>>433-439で試して頂いて
●ログインが出来たので
あとはdat取得だけです
dat取得だけなのです
それにしても、2chSpider.pl作られた方
自分で試せないのにお作りになられて
すっげーなと。
- 468 ：名無しさん＠勉強中 ★：07/01/20 19:44:46 ID:???
- さて
落ちてましたが
http://219.166.251.40/~maido3/
ここも同じmaido3を使っておられるそうなので
同様に繋がらなくなるです
どうしたものか。
対策として三つ考えられるかなと
(1)このまま続行
(2)引っ越す
(3)予備を設置
- 469 ：名無しさん＠勉強中 ★：07/01/20 19:58:15 ID:???
- それぞれ考えると
(1)このまま続行
本家がダウンしたらここもダウンする訳で
それはそれでいいじゃないかにんげんだもの
別にどうでもいい事しかここにはないですし
(2)引っ越す
追い出された訳でも無いのに出てゆくなんて
そんな薄情な殺生な事は出来ません
そもそも引っ越し先も考えてないですし
以前、掃除屋さんのレンタル掲示板を試しに借りてみようかと思ってたら
いつの間にかお休み中になってましたし
同様の事があったら寂しいなと
(3)予備を設置
これかな
四つ考えられます
a.レンタル掲示板を借りる
b.レンタルブログを借りる
c.掲示板スクリプトを自前設置
d.ブログスクリプトを自前設置
このうちcだと更に二つ考えられるかなと
イ 配布されているスクリプトを使わせてもらう
ロ よーしパパ自分で掲示板スクリプト作っちゃうぞー
さあどうするよ自分（ライフカードを拡げながら）
- 470 ：名無しさん＠勉強中 ★：07/01/20 20:22:22 ID:???
- さて
攻める(?)としたら
よーし掲示板スクリプト作っちゃうぞーが一番なんですが
暇にあかせて
スレッドフロート掲示板スクリプトを収集してましたが
だいたい40-50個くらいあるみたいです。
それらを参考にとかいうと
んもう丸々使わせてもらうコードばっかりになっちゃいそうだなーと。
あとこういうページもありますし
http://d16web.ath.cx/~coolshit/
集めたスクリプトの使用言語を見てみると
perl/php/pythonがあり
rubyで作られた2chタイプの掲示板はまだ未見なので
rubyでやれば面白いかもとか思ったりして。
まあMoonWolfさんとか作っておられそうだなー。
と考えただけです
大風呂敷でも何でもありません
- 471 ：名無しさん＠勉強中 ★：07/01/20 20:36:44 ID:???
- さて
偽モナメントを見てみると
なりきりキャラネタスレのログが最近すっげーなと。
行った事のない板だったんですが。
http://etc5.2ch.net/charaneta2/
で、とりあえず設置してはみたんですが
さあ看板画像とか差し替えるのも億劫だ
http://user.ftth100.net/mirrorhenkan/charaneta/
板やスレを覗いてみたんですが
固定ハンドルの方々が和気藹々とやっておられるんですね。
でも半ば本名とか出している所もあって、こういうのっていいのかなー
本人がいいのならいいんだろうなー。
本名っていうのは
例えばこれとか↓で話題になってます
http://etc5.2ch.net/test/read.cgi/charaneta2/1168429099/447n-
よくわかんないんですが
偽モナメントに上がってる分は・・まあいいや
考えてもしょうがない感じです
- 472 ：名無しさん＠勉強中 ★：07/01/20 20:50:52 ID:???
- 上の502-503とか見てみると
御本人が上げたみたいなので
問題なさそうですね。
- 473 ：名無しさん＠勉強中 ★：07/01/21 11:17:24 ID:???
- メモ
記憶喪失の名無しさん@漫画サロン：一覧表
http://web1.nazca.co.jp/hp/macde/amnesianony/atable.html
記憶喪失の名無しさん@漫画サロン まとめページ
http://web1.nazca.co.jp/hp/macde/amnesianony/
よくわかんないけどすっげー！
- 474 ：名無しさん＠勉強中 ★：07/01/23 20:19:09 ID:???
- >>462-463の2chSpider.plを出された方
御自分も●持ちになられて
新たに色々やられておられますね。
●で試されてから出しておられるでしょうから
使えているのだろうなと。すごいなーと。
ただ、やはりActivePerlを入れないといけないみたいです
自分も
いちおう戻り値での●ログイン可否の分岐まではやったですが
どうもo2onスレを見ると改行コードが問題みたいなので
ログイン後の戻り値を半手動でコピペしてもらうようにしようかなと。
それを別のスクリプトにペーストして実行してもらって
offlaw.cgi経由でdatが取得出来ていれば成功ですが
さてどうなる事か。
- 475 ：名無しさん＠勉強中 ★：07/01/24 20:57:09 ID:???
- Jane板より
http://jane.s28.xrea.com/test/read.cgi/bbs/1169052446/4
いやーすっげー。
- 476 ：名無しさん＠勉強中 ★：07/01/24 21:05:12 ID:???
- 0ch質問スレより
http://0ch.mine.nu/test/read.cgi/jikken/1157568447/178-
私がやった絵文字表示版が出てるですが
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
182 ：１７８：2007/01/24(水) 16:02:27 ID:W6sxaEJ20 URL
>>181
その絵文字表示するスクリプトは組み込んであります。
が、しかしどうやら完全なものではないようです
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
これだけでは何とも。
どんなものが表示されないのかとか具体的に書いて頂かないと
手をつけられないですよー。
このスレに素敵な作者様御降臨（カッケー！）とかしても
不具合を解消出来るかどうかわかんないですし
そもそもグダグダになりそうだし。
って そういえば自分
そもそも携帯でネットした事ないんだよなー。
- 477 ：名無しさん＠勉強中 ★：07/01/25 19:09:10 ID:???
- http://ex17.2ch.net/test/read.cgi/news4vip/1169677249/6n-
携帯用のもまだ使われてるんだなあと。
ではもう少し考えてみますか（書いただけです）
makimo.toさんの所とかも
UAかクッキー送信でアクセスすれば良さそうなので
何とかなりそうですね。
http://php.s3.to/tt/tt6.php
http://www.spencernetwork.org/memo/tips-3.php
- 478 ：名無しさん＠勉強中 ★：07/01/26 08:32:31 ID:???
- http://0ch.mine.nu/test/read.cgi/jikken/1157568447/189
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
189 ：１８５：2007/01/25(木) 19:29:32 ID:WUOKFioc0 URL
>>179
ありがとうございます。質問の仕方がまずかったですね。
実はその部分をみつけていたのですが、
http://mirror.s151.xrea.com/keitai/emoji/
みたいにしたくていまいち自信がなかったので聞いてみました。
ちなみに上記の掲示板の管理人に聞いて？みたのですが
掲示自体放置みたいで返事がなかったので
情報集めながらチャレンジしてみることにしました。
がんばります。またなにかあったら質問してみます。
いろいろありがとうございました┏○ﾍﾟｺｯ
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
> ちなみに上記の掲示板の管理人に聞いて？みたのですが
これですか。気付かなかったですが。
http://mirror.s151.xrea.com/keitai/test/read.cgi/emoji/1161487847/l50
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
1 ：名無しさん＠勉強中：2007/01/21(日) 14:00:46 ID:5zsFgA/Y0
この掲示板はどうやって絵文字を表示したのでしょうか？
絵文字入力のところの表示の仕方を特に知りたいです。
当方絵文字は表示できるようにはできたのですが
いまいち自分で納得できないもので、ぜひ教えていただきたくスレッドたててみました。
よろしくお願いします。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
・・返答に困るです
> この掲示板はどうやって絵文字を表示したのでしょうか？
「文字コードで分岐処理をして絵文字を表示しています」としか書けないのですが
この方の0chスレでの質問内容や返答を見てみると
自分で試せばわかる事を質問してたり
あるいは
丁寧に該当個所を交えた返答に対して
「実はその部分をみつけていたのですが」と返していたりで
そういうやりとりを見ていると
何とも返答に困るです
見なかったことにしとこ
- 479 ：名無しさん＠勉強中 ★：07/01/26 22:21:35 ID:???
- もう煮詰める余裕もないので出しとくです
過去ログ倉庫subjectファイル収集スクリプト by WSH
http://www.geocities.jp/mirrorhenkan/others/subjectget/
過去ログ倉庫のsubject.txtを取得するスクリプトです。
・・あー説明が大変だ。
やってみれば判ると思うです
- 480 ：名無しさん＠勉強中 ★：07/01/26 22:34:53 ID:???
- これですが、上のURLの説明で書いた以外にも
例えば
行方不明スレッド捜索します。 その6
http://ex20.2ch.net/test/read.cgi/gline/1127580541/l50
等で使えると思うです。
一番最近のレスだと
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
485 ：水先案名無い人：2007/01/24(水) 22:40:34 ID:+BSMZbnZ0
1)司法試験
2)東洋大学法科大学院
3)東洋大学法科大学院の２００６年度の前期入試の情報
4))２００６年１０〜１１月辺り
5)現行スレを見てました
6)http://school5.2ch.net/test/read.cgi/shihou/1165997412/ ←このスレのちょうど１つ前のスレだったと思います
よろしくお願いします
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
この場合、subjectgetを起動して
出てきたダイアログに
http://school5.2ch.net/shihou
を入力してＯＫしてみて下さい。
しばらくすると
http://school5.2ch.net/shihou/kako/
にある95個のsubject.txtが連結されたものがローカルにあると思うです。
- 481 ：名無しさん＠勉強中 ★：07/01/26 22:39:41 ID:???
- そのsubject.txtをエディタ等で開いて
「東洋大学」で検索すると
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
1167366454.dat<>【Small】東洋大学法科大学院2【Team】 (17)
1165997412.dat<>【Small】東洋大学法科大学院！！！！【Team】 (489)
1133305399.dat<>【Small】東洋大学法科大学院【Team】 (984)
1106749088.dat<>東洋大学ってどうよ (673)
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
この４つがヒットします。
これらのうちのどれかが捜しているスレッドではないかと。
これを進めていけば
全板全ログのスレタイ検索とかも可能かもですが
１ギガや２ギガのスペースが必要な感じです。
- 482 ：名無しさん＠勉強中 ★：07/01/27 16:13:51 ID:???
- さて
現実がとても大変なので
停滞します
とかいって
息抜きに何かやる事があるかもですが
まあどうなる事か
停滞しても
別に手痛い事もないでしょう
501KB
続きを読む
掲示板に戻る 全部 前100 次100 最新50