[test] 書きこみテスト 専用スレッド 5 [テスト]
☠
if ( WScript.Arguments.count() ){
var sURL = "
http://p2.2ch.io/getf.cgi?" + WScript.Arguments(0);
var oXHR = new ActiveXObject( "Microsoft.XMLHTTP" );
oXHR.open( 'GET', sURL, false );
oXHR.send( null );
var oADS = new ActiveXObject("ADODB.Stream");
with( oADS ){
Type = 1;
Open();
Write( oXHR.responseBody );
Position = 0;
Type = 2;
Charset = 'Shift_JIS';
}
var sRsvData = oADS.Readtext;
oADS.Close;
oADS = null;
if ( sRsvData.indexOf( "<div>キーワード【 準備中 】</div>" ) != -1 ) alert( "準備中" );
else {
var sTemp = sRsvData.match( /<a href="
http:\/\/find\.2ch\.net\/.*?>.+?<\/a>/g );
var aKeywords = new Array(), sKeywords = "";
aKeywords = String( sTemp ).split( "," );
sKeywords = aKeywords[0].match( /<a href="
http:\/\/find\.2ch\.net\/.*?>(.+?)<\/a>/ )[1];
for ( i = 1; i < aKeywords.length; i++ ) {
sKeywords += "\n" + aKeywords[i].match( /<a href="
http:\/\/find\.2ch\.net\/.*?>(.+?)<\/a>/ )[1]
}
alert( sKeywords );
}
}
function alert ( s ) { return new ActiveXObject( "WScript.Shell" ).popup( s, 0, "Keywords", 4096 ); }
test
テスト
test
てすと
てst
tst
tes
testt
test.
てすと
testtest
てすと
てすてす
てすてす
てすと
てす
h
てす
てすと
てst
とすて
テスト
ttt
てすと
てst
950 :
名無しさん@お腹いっぱい。:2007/02/18(日) 03:02:32 ID:QM8WXirL0
あーあーてすてす
二行目
表示
てす^^
test
テスト
test
テスト
てすと
てすと
test
t
h
てすと
test
test
てすと
tesuto
OpenJane Doe α 0.1.12.5 です
書き込めるかな?
967 :
名無しさん@お腹いっぱい。:2007/02/23(金) 10:26:48 ID:OWOZKB3B0
次のことを試してください:
kousinetu.machi.to ホーム ページを開き、 必要な情報へのリンクを探してください。
[更新] ボタンをクリックするか、後でやり直してください。
[検索] ボタンをクリックして、インターネット上の情報を検索してください。
関連したサイトの一覧 も表示できます。
HTTP 500 - 内部サーバー エラー
Internet Explorer
なんか編だな
てすと
969
test
テスト
テスト