垢ハックURL貼り付け対策
2007年 05月 26日
私が347件もの危険ドメインを「ID・URLの拒否設定」に追加したやり方を紹介します。
5分ほどで組んだスクリプトなので作りは雑ですけど、ちゃんと動きました。
ただし、このスクリプトは下手に暴走させるとちょっと厄介なことになるので、あとで解説するスクリプトの中身を理解できない人は真似しないでください。
①まず最初にファイルを2つ用意します。
1つ目は、「リネージュ資料室」というサイトの「セキュリティ対策」にある「危険ドメイン」の一覧をコピーしてメモ帳に貼り付け、txt(テキストファイル)に保存します。
現時点で347件あります。
2つ目は、以下の内容を記述したメモ帳を、VBスクリプトファイル「KickDomain.vbs」として、「デスクトップ」に保存します。
-----------------ここから-----------------
Option Explicit
Dim i
Dim WShell
i=0
set WShell = WScript.CreateObject("WScript.Shell")
for i=0 to 346 step 1
WShell.Sendkeys "%{TAB}"
WScript.Sleep(100)
WShell.Sendkeys "+{DOWN}"
WScript.Sleep(100)
WShell.Sendkeys "^x"
WScript.Sleep(100)
WShell.Sendkeys "%{TAB}"
WScript.Sleep(500)
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WScript.Sleep(100)
WShell.Sendkeys "{DOWN}"
WShell.Sendkeys "{DOWN}"
WScript.Sleep(100)
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "^v"
WScript.Sleep(200)
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{ENTER}"
WScript.Sleep(9000)
next
msgbox "終了しました"
-----------------ここまで-----------------
②開いている全てのウィンドウを閉じてから、Firefoxを起動します。
ここから先は指示した手順で作業し、指示した以外の場所をマウスでクリックするようなことは絶対にしないでください。
③Firefoxが起動したら、設定する自分のブログにログインし、設定画面から「ID・URLの拒否設定」」を一度だけ左クリックしてください。
④1つ目に作ったtxtファイルを開いて、カーソルが一番左上にあることを確認してください。
この時点で、開いているウィンドウはFirefoxと作成したtxtファイルの2つだけであり、txtファイルの方がFirefoxよりも上に表示されていることと、デスクトップに作成したvbsファイルが見えることを確認してください。
⑤上図の状態から、デスクトップのvbsファイルをダブルクリックして実行します。
あとは一切マウスにもキーボードにも触れず、全ての処理が終わるまでお待ちください。
処理が終了すると「終了しました」というメッセージが表示されます。
この設定だと1分間に約6件のペースで自動的に設定を行いますので、約1時間完全にマウスやキーボードに触れずに待つことになります。
スクリプトが予定外の動作をし始めた時に止められるよう、PCの前で画面を時々確認しながら本でも読んで時間を潰すと良いでしょう。
以下の解説を読めば解ると思いますが、一連のキーボード入力を一定回数繰り返すマクロです。特にAlt+Tabは起動しているウィンドウを切り替えるコマンドですので、開いているウィンドウやアクティブになっている状態など全て理解した上で実行しないと思いがけない動作をする場合があります。
思いがけない動作をし始めたら長めにとっている待機時間中にWindowsからログオフして強制的に終了させてしまうことをお勧めします。
Windows操作に慣れた人は、長めの待機時間でwscript.exeのプロセスを終了させる手もあります。
' 変数の宣言を強制するオプション
Option Explicit
' 変数宣言
Dim i
Dim WShell
' カウンターリセット
i=0
' シェルオブジェクト作成
set WShell = WScript.CreateObject("WScript.Shell")
' 繰り返し処理(0~346まで計347回繰り返す)
'処理が良く理解できない場合は、ここの346を2くらいに変更して繰り返し回数を3回程度にして動作を確認するのも良いかもしれません
for i=0 to 346 step 1
' キーボードで Alt+Tab を入力させる
WShell.Sendkeys "%{TAB}"
' 100ミリ秒待機
WScript.Sleep(100)
' キーボードで Shift+↓ を入力させる
WShell.Sendkeys "+{DOWN}"
' 100ミリ秒待機
WScript.Sleep(100)
' キーボードで Ctrl+x を入力させる
WShell.Sendkeys "^x"
' 100ミリ秒待機
WScript.Sleep(100)
' キーボードで Alt+Tab を入力させる
WShell.Sendkeys "%{TAB}"
' 500ミリ秒待機
WScript.Sleep(500)
' キーボードで Tab を入力させる×26回
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
' 100ミリ秒待機
WScript.Sleep(100)
' キーボードで ↓ を入力させる×2回
WShell.Sendkeys "{DOWN}"
WShell.Sendkeys "{DOWN}"
' 100ミリ秒待機
WScript.Sleep(100)
' キーボードで Tab を入力させる
WShell.Sendkeys "{TAB}"
' キーボードで Ctrl+v を入力させる
WShell.Sendkeys "^v"
' 200ミリ秒待機
WScript.Sleep(200)
' キーボードで Tab を入力させる
WShell.Sendkeys "{TAB}"
' キーボードで Enter を入力させる
WShell.Sendkeys "{ENTER}"
' 9000ミリ秒(9秒)待機
' エキサイトのオンライン処理が稀に遅延するので多めに待機時間を見積もって9秒にした
' 動作させる環境や時刻によってここの時間を変更しないとスクリプトが暴走する危険性がある
WScript.Sleep(9000)
' ここまでの処理を繰り返す
next
' 「終了しました」というメッセージを表示させる
msgbox "終了しました"
5分ほどで組んだスクリプトなので作りは雑ですけど、ちゃんと動きました。
ただし、このスクリプトは下手に暴走させるとちょっと厄介なことになるので、あとで解説するスクリプトの中身を理解できない人は真似しないでください。
①まず最初にファイルを2つ用意します。
1つ目は、「リネージュ資料室」というサイトの「セキュリティ対策」にある「危険ドメイン」の一覧をコピーしてメモ帳に貼り付け、txt(テキストファイル)に保存します。
現時点で347件あります。
2つ目は、以下の内容を記述したメモ帳を、VBスクリプトファイル「KickDomain.vbs」として、「デスクトップ」に保存します。
-----------------ここから-----------------
Option Explicit
Dim i
Dim WShell
i=0
set WShell = WScript.CreateObject("WScript.Shell")
for i=0 to 346 step 1
WShell.Sendkeys "%{TAB}"
WScript.Sleep(100)
WShell.Sendkeys "+{DOWN}"
WScript.Sleep(100)
WShell.Sendkeys "^x"
WScript.Sleep(100)
WShell.Sendkeys "%{TAB}"
WScript.Sleep(500)
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WScript.Sleep(100)
WShell.Sendkeys "{DOWN}"
WShell.Sendkeys "{DOWN}"
WScript.Sleep(100)
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "^v"
WScript.Sleep(200)
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{ENTER}"
WScript.Sleep(9000)
next
msgbox "終了しました"
-----------------ここまで-----------------
②開いている全てのウィンドウを閉じてから、Firefoxを起動します。
ここから先は指示した手順で作業し、指示した以外の場所をマウスでクリックするようなことは絶対にしないでください。
③Firefoxが起動したら、設定する自分のブログにログインし、設定画面から「ID・URLの拒否設定」」を一度だけ左クリックしてください。
④1つ目に作ったtxtファイルを開いて、カーソルが一番左上にあることを確認してください。
この時点で、開いているウィンドウはFirefoxと作成したtxtファイルの2つだけであり、txtファイルの方がFirefoxよりも上に表示されていることと、デスクトップに作成したvbsファイルが見えることを確認してください。
⑤上図の状態から、デスクトップのvbsファイルをダブルクリックして実行します。
あとは一切マウスにもキーボードにも触れず、全ての処理が終わるまでお待ちください。
処理が終了すると「終了しました」というメッセージが表示されます。
この設定だと1分間に約6件のペースで自動的に設定を行いますので、約1時間完全にマウスやキーボードに触れずに待つことになります。
スクリプトが予定外の動作をし始めた時に止められるよう、PCの前で画面を時々確認しながら本でも読んで時間を潰すと良いでしょう。
以下の解説を読めば解ると思いますが、一連のキーボード入力を一定回数繰り返すマクロです。特にAlt+Tabは起動しているウィンドウを切り替えるコマンドですので、開いているウィンドウやアクティブになっている状態など全て理解した上で実行しないと思いがけない動作をする場合があります。
思いがけない動作をし始めたら長めにとっている待機時間中にWindowsからログオフして強制的に終了させてしまうことをお勧めします。
Windows操作に慣れた人は、長めの待機時間でwscript.exeのプロセスを終了させる手もあります。
' 変数の宣言を強制するオプション
Option Explicit
' 変数宣言
Dim i
Dim WShell
' カウンターリセット
i=0
' シェルオブジェクト作成
set WShell = WScript.CreateObject("WScript.Shell")
' 繰り返し処理(0~346まで計347回繰り返す)
'処理が良く理解できない場合は、ここの346を2くらいに変更して繰り返し回数を3回程度にして動作を確認するのも良いかもしれません
for i=0 to 346 step 1
' キーボードで Alt+Tab を入力させる
WShell.Sendkeys "%{TAB}"
' 100ミリ秒待機
WScript.Sleep(100)
' キーボードで Shift+↓ を入力させる
WShell.Sendkeys "+{DOWN}"
' 100ミリ秒待機
WScript.Sleep(100)
' キーボードで Ctrl+x を入力させる
WShell.Sendkeys "^x"
' 100ミリ秒待機
WScript.Sleep(100)
' キーボードで Alt+Tab を入力させる
WShell.Sendkeys "%{TAB}"
' 500ミリ秒待機
WScript.Sleep(500)
' キーボードで Tab を入力させる×26回
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
WShell.Sendkeys "{TAB}"
' 100ミリ秒待機
WScript.Sleep(100)
' キーボードで ↓ を入力させる×2回
WShell.Sendkeys "{DOWN}"
WShell.Sendkeys "{DOWN}"
' 100ミリ秒待機
WScript.Sleep(100)
' キーボードで Tab を入力させる
WShell.Sendkeys "{TAB}"
' キーボードで Ctrl+v を入力させる
WShell.Sendkeys "^v"
' 200ミリ秒待機
WScript.Sleep(200)
' キーボードで Tab を入力させる
WShell.Sendkeys "{TAB}"
' キーボードで Enter を入力させる
WShell.Sendkeys "{ENTER}"
' 9000ミリ秒(9秒)待機
' エキサイトのオンライン処理が稀に遅延するので多めに待機時間を見積もって9秒にした
' 動作させる環境や時刻によってここの時間を変更しないとスクリプトが暴走する危険性がある
WScript.Sleep(9000)
' ここまでの処理を繰り返す
next
' 「終了しました」というメッセージを表示させる
msgbox "終了しました"
by hakkakudo
| 2007-05-26 02:29
| 垢ハックとは?