メモ帳乗っ取りプログラム作ってみた.
title "メモ帳を乗っ取れ〜" #include "user32.as" #include "hspext.as" exec "notepad";被害者のメモ帳起動 aplsel "無題 - メモ帳" if stat : dialog "乗っ取り失敗...":end FindWindow 0,"無題 - メモ帳" notehwnd=stat;メモ帳のウィンドウハンドル SetWindowText notehwnd,"私のメモちょ〜";メモ帳のタイトルバーを乗っ取る exist dir_desktop+"\\RANRANROO.txt" if strsize!-1 : delete dir_desktop+"\\RANRANROO.txt";もしすでにテキストがあったらそれを消す(そうしないと上書き確認ダイアログが出てしまうため、うまく乗っ取れない) MessageBox notehwnd,"乗っ取り大成功^o^\nいろいろいじってやるぜ","乗っ取る",64 aplobj "EDIT" wait 50 aplstr "ドナルドはうれしくなると、ついやっちゃうんだ!!\nみんなも一緒にやってみようよ。\n逝くよ?\n" wait 200 aplstr "ランランルー!!";自動入力 wait 200 aplkey 'F',4;メニュー表示 wait 50 aplkey 'A';A:名前を付けて保存 wait 150;保存ダイアログが出る前に終わっちゃったらここの数値を大きくして aplsel "名前を付けて保存";名前を付けて保存のウィンドウを検索 aplobj "EDIT" aplstr dir_desktop+"\\RANRANROO.txt";保存ファイル名(絶対パス) wait 150 aplkey 13;Enter wait 150 aplsel " - メモ帳" wait 200 aplkey 'F',4;メニュー wait 50 aplkey 'X';X:メモ帳の終了 wait 100 dialog "乗っ取り終了" end