【IT】2ch自動書き込みスクリプトの開発

<?XML version="1.0" standalone="yes"?>
<package>
<job id="ierun">
<?job debug="true"?>

<runtime>
<description>このスクリプトは、サーバーを再起動します。</description>
<named
name = "URL"
helpstring = "実行対象URL"
type = "string"
required = "true"
/>
<named
name = "Message"
helpstring = "入力メッセージ"
type = "string"
required = "true"
/>
<example>
Example: a.wsf /URL:http://www.google.co.jp /Message:"TEXT"
</example>
</runtime>

<object id="mObjIE" progid="InternetExplorer.Application"/>

<script language="VBScript">
Option Explicit

Main

Public Sub Main()
On Error Resume Next

Dim strUrl
Dim strMes
Dim objArgs

Set objArgs = WScript.Arguments

strUrl = objArgs(0)
strMes = objArgs(1)

OpenIE(strUrl)
DoIE(strMes)
CloseIE

Set mObjIE = Nothing

End Sub

Private Function OpenIE(u)
On Error Resume Next

mObjIE.Visible = True
mObjIE.Navigate u

Do Until mObjIE.Busy = False
WScript.Sleep 1000
Loop

End Function

Private Function DoIE(m)
On Error Resume Next

Dim objDoc
Dim objFrm

Set objDoc = mObjIE.Document
Set objFrm = objDoc.Forms(0)

objFrm.Message.Value = m
objFrm.submit.Click

Set ObjFrm = Nothing
Set ObjDoc = Nothing

End Function

Private Function CloseIE
On Error Resume Next

mObjIE.Quit

End Function
</script>
</job>
</package>

a.wsf //job:ierun "http://news3.2ch.net/test/read.cgi/news2/1055006749/" "age"

>>1-4までのソースをテキストファイルにコピペしてa.wsfつ名前をつけて
ファイルにする。次に>>5のソースをテキストファイルにコピペしてa.bat
と適当に名前をつける。

a.batをメモ帳で開いて最初の""の中にカキコしたいURLを書く。つぎの
""にはカキコしたい内容を書く。上書き保存する。あとは実行するだけ。

こいつをWindowsのタスクに登録しておけば一定時間おきに自動火器小する
わけだ。

てすと

もう一回

なるほどな。短時間に同じ文章をコピペすることはできないのか。

極悪ですね。。
見解の相違で御座いますのhttp://hkwr.com/

age

sage

>>4のバッチファイルをスレッドごとに100毛くらい用意してタスクで
一斉に走らせたら壮観だろうな。

>>1
凄い
で実際やったことあるの？

>>14
スクリプト実行する板で最初に書きこみ＆クッキー確認の画面クリック
しないとだめ。

>>1-4のa.wsfファイルはメモ帳で文字コードをUTF-8で保存しないとだめよん。
一つのスレッドに複数のｂatファイルを用意して、第2引数を違うメッセージ
にすれば自作自演もできるね。

さらに、Windowsのタスクをフルに使えば、それを複数のスレッドに対して
実行できると。。。

新手のfusianasanでつ。

改良型スクリプト自動発射試験

ページ更新日時:06/14/2003 12:07:38
システム日付:2003/06/15 0:40:03
（期間：平成15年6月15日 0:40 - 平成15年6月15日 6:40）

改良型スクリプト自動発射試験

ページ更新日時:06/15/2003 00:40:08
システム日付:2003/06/15 1:40:04
（期間：平成15年6月15日 0:40 - 平成15年6月15日 6:40）

改良型スクリプト自動発射試験

ページ更新日時:06/15/2003 01:40:09
システム日付:2003/06/15 2:40:03
（期間：平成15年6月15日 0:40 - 平成15年6月15日 6:40）

>>1
悪質な
こんなことやって楽しいのか？
他人に迷惑をかけて楽しむのはどうよ？

改良型スクリプト自動発射試験

ページ更新日時:06/15/2003 03:29:55
システム日付:2003/06/15 3:40:03
（期間：平成15年6月15日 0:40 - 平成15年6月15日 6:40）

改良型スクリプト自動発射試験

ページ更新日時:06/15/2003 03:40:09
システム日付:2003/06/15 4:40:03
（期間：平成15年6月15日 0:40 - 平成15年6月15日 6:40）

改良型スクリプト自動発射試験

ページ更新日時:06/15/2003 04:40:09
システム日付:2003/06/15 5:40:03
（期間：平成15年6月15日 0:40 - 平成15年6月15日 6:40）

改良型スクリプト自動発射試験

ページ更新日時:06/15/2003 05:40:10
システム日付:2003/06/15 6:40:03
（期間：平成15年6月15日 0:40 - 平成15年6月15日 6:40）

<?xml version="1.0" standalone="yes"?>
<package>
<job id="ierun">
<?job debug="true"?>

<runtime>
<description>HTML Form 自動書込システム</description>
<named
name = "URL"
helpstring = "実行対象URL"
type = "string"
required = "true"
/>
<named
name = "Message"
helpstring = "入力メッセージ"
type = "string"
required = "true"
/>
<named
name = "ReturnPage"
helpstring = "承諾"
type = "string"
required = "false"
/>
<example>
Example: a.wsf /URL:http://www.google.co.jp /Message:"TEXT" /ReturnPage:"No Cookie"
</example>
</runtime>

<object id="mObjIE" progid="InternetExplorer.Application"/>

<script language="VBScript">
<![CDATA[
Option Explicit

Main

Public Sub Main()
On Error Resume Next

Dim strUrl
Dim strMes
Dim strRep
Dim objArgs

Set objArgs = WScript.Arguments

strUrl = objArgs(0)
strMes = objArgs(1)
strRep = objArgs(2)

OpenIE(strUrl)
DoIE(strMes)
EatCookie(strRep)
CloseIE

Set mObjIE = Nothing

End Sub

Private Function OpenIE(u)
On Error Resume Next

mObjIE.Visible = True
mObjIE.Navigate u

Do Until mObjIE.Busy = False
WScript.Sleep 1000
Loop

End Function

Private Function DoIE(m)
On Error Resume Next

Dim objDoc
Dim objFrm

Set objDoc = mObjIE.Document
Set objFrm = objDoc.Forms(0)

objFrm.Message.Value = m
objFrm.submit.Click

Set ObjFrm = Nothing
Set ObjDoc = Nothing

Do Until mObjIE.Busy = False
WScript.Sleep 1000
Loop

End Function

Private Function EatCookie(SearchChar)
On Error Resume Next

Dim objDoc
Dim objFrm
Dim strFrm
Dim c

Set objDoc = mObjIE.Document
Set objFrm = objDoc.Forms(0)
strFrm = objFrm.innerHTML

c = InStr(1, strFrm, SearchChar, 1)

If c > 0 Then
objFrm.submit.Click
End If

Set objFrm = Nothing
Set objDoc = Nothing

End Function

Private Function CloseIE
On Error Resume Next

mObjIE.Quit

End Function

]]>
</script>
</job>
</package>

a.wsf //job:ierun "http://news3.2ch.net/test/read.cgi/news2/1055006749/" "age" "承諾"

>>17-24
うむ、すべてのタスクは正確に目標のターゲットにレスをつけている。実験は
成功だ。スクリプトによるレスの自動化は可能であることが立証された。既に、
このスクリプトは実戦での運用が可能なレベルに達している。

んーなんていうか
中途ハンパなスキルだな
>>2>>3とか見てるとな

使い方ガイド

１．>>25->>29までのコード部分だけをテキストファイルにコピペする。
２．a.wsfと名前を付けて保存する。文字コードはUTF-8にしておく。
３．>>30をa.wsfとは別のテキストファイルで保存する。名前はa.bat。

４．a.batをメモ帳で開いてURLを児童カキコするスレのアドレスにする。
５．ageのとこを書きたいメッセージにする。
６．上書き保存する。

７．スタート→すべてのプログラム→アクセサリ→システムツールでタスクを開く。
８．タスクの追加を起動して参照をクリック。実行するプログラムにa.batを指定する。
９．タスクのスケジュールをセットしておわり。

でいいかな？

>>32
Do Until mObjIE.Busy = False
WScript.Sleep 1000
Loop

イベントをうまく取れないところとか

Main
　　Proc1
　　Proc2
　　Proc3

みたいなところがですか？

ニュース議論の連中はこの程度のテクノロジーも語れないのか？

furo入ってからまた来るからな。

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

age

age

>>35
ニュース議論にはkoueiという高度な会話能力を持つ人口無能が常駐しております

これをわざわざバッチファイルなどにするのが面倒ですね。
もうそうなっているのはないんでしょうか？

　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

うんこーおおおぉぉぉおおお

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

ぽ

////////////////////////
教育機会の不平等を訴えるために、自身の社会声明をなげうって
事件をおこした宅間守氏。
宅間氏は、ネットを見ることすら出来ない状況にいま、おかれている。

激励の手紙を送るもよし、反省を促すもよし、今何を考えているのかを質問するもよし。
http://yuusuke.info/27/K27102.htm

念のため："公"的機関の所在地などは、削除対象"外"です。

534-8585 大阪府大阪市都島区 友渕町 １丁目２−５
大阪拘置所　宅間守さま

地図
http://www.do-map.net/esactl.htm?ENC=%2BFzSIhlKZHyDLWACj3IT7FOz6qjRrOJFeNuuQuDwCNIfdNeQ

4ZXuDZVPN2crJ4hmE2T6CMNAH5P4qcT3hhNtF6Jr3azLxAo1UF5Q0upGblLp%2BJuMLsF3G%2BnSiSrOgd8%2B9

fLriIz4VgQ%3D

死刑により「生命」を捨てる覚悟をした宅間氏へ・・
///////////////////////////

あぼーん

age

うむ、確認でけた(･з･)

↓これ踏むとスレが立つんですか？
http://mbspro10.uic.to/user/remon44.html

面白そうだから踏みまくっていいっすか？
どうなるの？？
で、何？　

>>42
これは自動化スクリプトでは一番低レベルのものだね。


※複数行メッセージの出し方：WSFファイルを下みたいに書き換える。たぶん。

strMes = objArgs(1)

　　　↓

strMes = "1行目" & vbCrLf _
& "2行目" & vbCrLf _
& "3行目" & vbCrLf _
& "4行目"

はい終了。

このスクリプトファイルをコピペしてそれぞれ違うメッセージ書いて、
タスクスケジューラをセットすれば、複数スレに対する同時多発自作
自演が可能だな。

このスクリプト使ってる椰子いるの？

hage

hage

hage

age

わおおすげーよこれ！

age

仙台筋弛緩剤混入事件。。

最近、忘れかけられている事件です。
一部のマスコミが冤罪などと馬鹿げたこと言っていますが、
この事件は守大助の犯行です。
以前、守大助と同僚だった看護師と話したことがあるのですが、
守大助は非常に女ぐせも悪く、勤務態度も悪いと言っていました。
事件当時、クリニックに勤めていた人の全てが
「守の犯行に違いない。」と言っているそうです。
絶対に冤罪事件ではありません。
言い訳ばかりで、反省の色の無い被告の守大助。
極悪非道、平成の鬼畜外道、守大助に極刑を・・・。
http://news3.2ch.net/test/read.cgi/news2/1057332127/l50

>>62
ﾏﾙﾁ氏ね！

test

age

あ

age

試した香具師いる？

>>68 山崎

age

縺抵ｼ趣ｼ弱£縺ｨ縺壹＆・・ 謇ｿ隲ｾ

↑
だめだい　化けちゃってる。
しかもUTF-8以外で保存したら実行できないし
タスクでやって2分たってるのに「もうちょっと落着いて」がでるみたい

,

irane

？

?

？

？

？

？

？

　　

?

test

test

？

w

?

1

２

('A`)

(;´Д｀)

3

a

・ｗ・

･　　ω　　･

>>1
は池沼

C

・　ｄ　　・

まあ何でもいいからイノセンス観とけ .
分からんと思って観ればちったー分かるから .

おしっこ(*´д｀*)

ほらよ
http://www.i-love-epson.co.jp/ec/campaign/innocence/coupon.htm

http://www.ff.iij4u.or.jp/~soku2/mv/f0312-13_001.png

age

京都府警の中の人の暴走の件だけどさ ,
ハカーやクラッカーを敵にまわす度胸わ見上げたモンだが ,
日本からの頭脳流出を招く事になり兼ねん様な .

【京都】Winnyの解読の実態【初心者】
http://tmp2.2ch.net/test/read.cgi/download/1084390232/

が打ち止めみたいだしここに書くと
どうも警察の中の人わ超初心者レベルな模様 .
漏れわ愛知県警ハイテク関連の S氏 に話を伺った事があるのだが
その経験とも矛盾しない .




21 名前：[名無し]さん(bin+cue).rar[sage] 投稿日：04/05/13 04:44 ID:towsVVWX
証人：意味が分かりません。

証人：そういう細かい、詳しいところまでは分かりません。

証人：クリックしても開きませんでしたので、（中略）細かい話は僕には分かりません。

証人：・・・。

弁護人：その程度ということですか。

証人：はい。

証人：中継するということは確かに聞いております。僕の見分の中では中継動作について確認はいたしておりません。


ダメだ…こりゃ。

9 名前：[名無し]さん(bin+cue).rar[] 投稿日：04/05/15 19:37 ID:+0p/G+hW

俺のハイテク課の妄想

（でっかい液晶スクリーンが3面から4面ほどある地下の会議室）
「トラヒック掴んでた、ってのはどうなった？」
「まだつながってます。ですが、やはり鍵の解析でつまずいてるようです」
「ここと科研ぐらいじゃさすがに無理だろ。・・・直接筑波を動かせないか」
「筑波は直接の要請じゃない限り、協力は難しいところがあると」
「現に今起こってる犯罪に対応してこその知識じゃないか。・・・ちょっと行ってくる」
「どちらへ？」
「長官のところだ。君達はいつも通り解析を進めて。場合によっては地取り張り込みも必要になるな」
「・・・ハイテク課が聞いて呆れますね」
「ハイテクだのなんだのの前に、俺達は警察官なんだよ！」

『そっちが分散ファイル共有で来るなら、こっちは分散スパコン解析でやってやる。待ってろ47！』



実際
「だぶるくりっくしていんすとろーるしますた」
「よしたいーほ」

25 名前：[名無し]さん(bin+cue).rar[sage] 投稿日：04/05/15 19:51 ID:nFlTT+09
知り合いが京都府警の署員なんだが…

Winny対策本部の人間はかなり焦ってるらしい
ここまで大事になるとは思ってなかった。とか…。

この程度でオオゴトって ...

驚天動地の天変地異が起こっても不思議じゃなかっただろ.
満州事変 ( 笑 ) 勃発とかさ .