var e = document.f4.t4.value; //入力したアドレス取得→(http://サーバ名.2ch.net/test/read.cgi/カテゴリ/キーaj var youso = e.split('/'); //各要素に分ける var f = youso[2].split('.'); //サーバ名抽出(f[0]) var g = youso[5]; //板名(g) var h = youso[6]; //スレッドキー(h) var i = h.substring(0,4); //スレッドキー先頭4文字(i var j = h.substring(0,5); //スレッドキー先頭5文字(j
var motosure = e; var sono2 = 'http:\/\/makimo.to/cgi-bin/dat2html/dat2html.cgi?http:\/\/'+f[0]+'.bbspink.com/test/read.cgi/'+g+'/'+h+'/'; var sono3 = 'http:\/\/fun.kz/test/read.cgi/'+g+'/'+h+'/'; var sono4 = 'http:\/\/mimizun.com:81/log/2ch/'+g+'/'+f[0]+'.bbspink.com/'+g+'/test/read.cgi/'+g+'/'+h+'/'; var sono4a= 'http:\/\/mimizun.com:81/log/2ch/'+g+'/'+f[0]+'.bbspink.com/test/read.cgi/'+g+'/'+h+''; var sono5 = 'http:\/\/mimizun.com:81/2chlog/'+g+'/'+f[0]+'.bbspink.com/'+g+'/kako/'+i+'/'+j+'/'+h+'.html'; var sono6 = 'http:\/\/mimizun.com/cgi/dattohtml.pl\?http:\/\/mimizun.com:81/log/2ch/'+g+'/'+f[0]+'.bbspink.com/'+g+'/kako/'+i+'/'+j+'/'+h+'.dat'; var sono7 = 'http:\/\/mimizun.com/cgi/dattohtml.pl\?http:\/\/mimizun.com:81/log/2ch/'+g+'/'+f[0]+'.bbspink.com/'+g+'/dat/'+h+'.dat'; var sono8 = 'http:\/\/mimizun.com:81/2chlog/'+g+'/'+f[0]+'.bbspink.com/'+g+'/oyster/'+i+'/'+h+'.html';
url = document.rep.url.value; if (url.match(/http:\/\/(.+?)\/test\/read\.(cgi|php|pl)\/(.+?)\/(\d+)/)) { //(*゚ー゚) PATH_INFO形式 var server = RegExp.$1;//サーバ名(サブディレクトリ有りのものも含む) var board = RegExp.$3;//ボードキー var key = RegExp.$4;//スレッドキー } else if (url.match(/http:\/\/(.+?)\/test\/read\.(cgi|php|pl)\?bbs=(.+?)&key=(\d+)/)) { //(*゚ー゚) QUERY_LINK形式 var server = RegExp.$1; var board = RegExp.$3; var key = RegExp.$4; } else if (url.match(/http:\/\/(.+?)\/(.+?)\/dat\/(\d+)\.dat/)) { //(*゚ー゚) datディレクトリ var server = RegExp.$1; var board = RegExp.$2; var key = RegExp.$3; } else if (url.match(/http:\/\/(.+?)\/(.+?)\/dat(\d*?)\/(\d+)\.dat/)) { //(*゚ー゚) dat2〜ディレクトリ //(*゚ー゚) cf. http://www.geocities.jp/mewlist/hiddendir.html var server = RegExp.$1; var board = RegExp.$2; var datdir = RegExp.$3; var key = RegExp.$4; server = server + "\/dat" + datdir } else if (url.match(/http:\/\/(.+?)\/(.+?)\/log(.*?)\/(\d+)\.dat/)) { //(*゚ー゚) logディレクトリ //(*゚ー゚) cf. http://www.geocities.jp/mewlist/hiddendir.html var server = RegExp.$1; var board = RegExp.$2; var logdir = RegExp.$3; var key = RegExp.$4; server = server + "\/log" + logdir } else { alert ("(; ・∀・) URLの解析に失敗したからな!"); return(false); }
−−−−− Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fs Dim f Dim file_name
Set Ie = WScript.CreateObject("InternetExplorer.Application") Ie.Navigate "about:blank" Set oClip=Ie.Document.parentWindow.clipboardData sData=oClip.getData("text") If IsNull(sData) Then sData="" file_name = InputBox("datファイルのキーNo.を入力してください") Set fs = CreateObject("Scripting.FileSystemObject") set f = fs.CreateTextFile(file_name+".dat", True)