家にいるとダラダラしてしまいます。
本当は資格とかプログラムのお勉強をしたいんですが
家にいるとどうしてもネットでダラダラしてしまうんですね。(_ _。)
そんなことではいけないと一念発起し
インターネットの誘惑を断ち切るべく作られたのがこのソフト「今日から本気出す」
何のソフトかと言いますとですね
こいつをウィンドウズのタスクマネージャーで
勉強する時間に起動するようにセットしておくとね
はい
現在ネットでダラダラ中。
高段者の将棋の観戦をしながらピグ釣りのアタリを待つのが私のダラダラスタイル
でも勉強の時間になると
ボガーン！ ブラウザは破壊されデスクトップは設定した画像で塗りつぶされる！
アイコンもクリックできないしメニューからブラウザを立ち上げても
プログラムが監視しててすぐに破壊ｗ ｡ﾟ(ﾟ^∀^ﾟ)ﾟ｡ｱｰｯﾊｯﾊ
あらゆる誘惑をシャットアウト。
wordやexcel、フォトショップなど必要なアプリケーションしか使えない。
もう勉強するしかないなこれは。俺の本気を見せてやる！ (｀・ω・´)
・・・とまあこんな感じでね
数日は本気でお勉強ができたような気がするんですよ。
先日プリインストールされてたウイルスバスターの期限が切れるので
ノートンを入れたんですよね。
で、勉強の時間になったのでブラウザが閉じると思ってたら
ノートン先生大激怒 (・∀・＃)ﾅﾝﾀﾞｺﾉｿﾌﾄﾊ！
ちょｗｗ やめろｗｗ
俺の本気を削除するなｗｗｗ
あああ もうだめだ 本気出せない ／(^o^)＼
こんなソフト誰もいらないと思うけど
せっかく作ったので記念にソースだけ載せときます。
HSPにコピペして実行ファイル自動作成すれば出来上がり。
注意点としては強制終了できるブラウザはchromeのみで
インターネットエクスプローラーは閉じられません。
あとノートン入れてる人は起動すると速攻削除されますｗ
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
#include "hspext.as"
randomize
buffer 1
picload "haikei.jpg"
dispX=ginfo(20)
dispY=ginfo(21)
dispY=dispY-40
;screen 0,1920,1080,0,0,-25
;screen 0,1920,1040,0,0,-25
screen 0,dispX,dispY,0,0,-25
gsel 0,1
gcopy 1,0,0,dispX,dispY
;mes dispX
;mes dispY
;stop
;;;;;;;;;;;;;;ブラウザ破壊
sdim name, 1024
sdim list_find, 1024, 64
count_find=0
repeat
wait 0
aplsel "", cnt
if stat=1 : break
name=refstr
;if instr(name, 0, "testwindow") != -1 {
if instr(name, 0, "Google") != -1 {
list_find(count_find)=name
count_find++
}
loop
gsel 0, 1
mes "== found window =="
repeat count_find
mes list_find(cnt)
loop
mes "== end =="
if count_find=0 : goto *openning
aplsel list_find(cnt)
mes stat
if stat=0 : gosub *deleter
;;;;;;;;;;;;;;ブラウザ破壊
*openning
pos 0,0
gcopy 1,0,0,dispX,dispY
font "ＭＳ ゴシック",20,1
randx=rnd(3)
;randx=1
if randx=0 : gosub *bun1
if randx=1 : gosub *bun2
if randx=2 : gosub *bun3
aplsel "Jane Style"
if stat=0 : gosub *deleter
aplsel "Google"
if stat=0 : gosub *deleter
aplsel "Yahoo"
if stat=0 : gosub *deleter
aplsel "将棋"
if stat=0 : gosub *deleter
aplsel "Ameba"
if stat=0 : gosub *deleter
t1=gettime(4)
t2=gettime(5)
t3=gettime(6)
time=" "+t1+"時"+t2+"分"+t3+"秒"
mes "現在時刻 "+time
clock=0
minits=0
mes ""
mes "何時までがんばるか時刻を入力してください"
input clock,75,25
mes "時"
input minits,75,25
mes "分まで"
button "OK",*start
stop
*start
clrobj
pos 0,0
gcopy 1,0,0,dispX,dispY
pos 0,0
objsize 200,25
button "メモ帳",*memo
button "EXCEL 97-2003",*xls
button "EXCEL 2007-2010",*xlsx
button "WORD 97-2003",*doc
button "WORD 2007-2010",*docx
button "Photoshop",*photo
button "SAI",*sai
button "Music",*mediap
button "もう限界。やめたい・・・(;_;)",*kujike
font "ＭＳ ゴシック",25,1
color 255,255,255
pos 501,31
mes ""+clock+"時"+minits+"分まで俺はがんばる！"
mes "くじけるな！ 負けるな！"
mes "最大の敵は自分自身だ！"
color 0,0,0
pos 500,30
mes ""+clock+"時"+minits+"分まで俺はがんばる！"
mes "くじけるな！ 負けるな！"
mes "最大の敵は自分自身だ！"
*loopy
t1=gettime(4)
t2=gettime(5)
t3=gettime(6)
if (t1=clock)&(t2=minits) : end
aplsel "Jane Style"
if stat=0 : gosub *deleter
aplsel "Google"
if stat=0 : gosub *deleter
aplsel "Yahoo"
if stat=0 : gosub *deleter
aplsel "将棋"
if stat=0 : gosub *deleter
aplsel "Ameba"
if stat=0 : gosub *deleter
;wait 3000 ;30秒ウエイト
wait 300 ;3秒ウエイト
goto *loopy
stop
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;ウインドウ閉じるサブ
*deleter
aplact
aplkey 115,4
await 1
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;ウインドウ閉じるサブ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;ソフトを起動するサブ
*memo
exec "notepad"
goto *loopy
*xls
exec "Book1.xls", 16
goto *loopy
*xlsx
exec "Book1.xlsx", 16
goto *loopy
*doc
exec "文書1.doc", 16
goto *loopy
*docx
exec "文書1.docx", 16
goto *loopy
*photo
exec "index.psd", 16
goto *loopy
*sai
exec "index.sai", 16
goto *loopy
*mediap
;exec "index.mp3", 16
exec "C:\\Program Files\\Windows Media Player\\wmplayer.exe \""+refstr+"\"
goto *loopy
;;;;;;;;;;;;;;;;;;;;;;;;;;;;ソフトを起動するサブ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;プログラムを閉じるサブ
*kujike
clrobj
pos 0,0
gcopy 1,0,0,dispX,dispY
font "ＭＳ ゴシック",25,1
color 255,255,255
pos 501,31
mes "どうしたっ！？"
mes "お前の決意はその程度のものだったのか！？"
color 0,0,0
pos 500,30
mes "どうしたっ！？"
mes "お前の決意はその程度のものだったのか！？"
mes " "
mes " "
objsize 300,25
button "もう一度気力を奮い立たせてがんばる",*start
button " ごめん 無理。 (ﾉ∀`)",*enderz
stop
*enderz
end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;プログラムを閉じるサブ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;決意文を読み込むサブ
*bun1
sdim w,256
sdim prm,256
sdim txbf,32000
bload "ketui1.txt",txbf
notesel txbf
lin=0
x=280 : y=30
font "ＭＳ ゴシック",20,1
repeat 20
noteget w,lin
getstr cmd,w,0,''
getstr prm,w,0
color 255,255,255
pos x+1,y+1
mes prm
color 0,0,0
pos x,y
mes prm
y+=24
lin+
loop
return
;;;;;;;;;;;;;;
*bun2
sdim w,256
sdim prm,256
sdim txbf,32000
bload "ketui2.txt",txbf
notesel txbf
lin=0
x=280 : y=30
font "ＭＳ ゴシック",20,1
repeat 20
noteget w,lin
getstr cmd,w,0,''
getstr prm,w,0
color 255,255,255
pos x+1,y+1
mes prm
color 0,0,0
pos x,y
mes prm
y+=24
lin+
loop
return
;;;;;;;;;;;;;;
*bun3
sdim w,256
sdim prm,256
sdim txbf,32000
bload "ketui3.txt",txbf
notesel txbf
lin=0
x=280 : y=30
font "ＭＳ ゴシック",20,1
repeat 20
noteget w,lin
getstr cmd,w,0,''
getstr prm,w,0
color 255,255,255
pos x+1,y+1
mes prm
color 0,0,0
pos x,y
mes prm
y+=24
lin+
loop
return
;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;決意文を読み込むサブ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;sub
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ブラウザ破壊部分の記述は
HSP３掲示板2006/6/8(Thu) 02:27:42 NO.1022
naznyarkさまの書き込みを引用させていただいております。
本当は資格とかプログラムのお勉強をしたいんですが
家にいるとどうしてもネットでダラダラしてしまうんですね。(_ _。)
そんなことではいけないと一念発起し
インターネットの誘惑を断ち切るべく作られたのがこのソフト「今日から本気出す」
何のソフトかと言いますとですね
こいつをウィンドウズのタスクマネージャーで
勉強する時間に起動するようにセットしておくとね
はい
現在ネットでダラダラ中。
高段者の将棋の観戦をしながらピグ釣りのアタリを待つのが私のダラダラスタイル
でも勉強の時間になると
ボガーン！ ブラウザは破壊されデスクトップは設定した画像で塗りつぶされる！
アイコンもクリックできないしメニューからブラウザを立ち上げても
プログラムが監視しててすぐに破壊ｗ ｡ﾟ(ﾟ^∀^ﾟ)ﾟ｡ｱｰｯﾊｯﾊ
あらゆる誘惑をシャットアウト。
wordやexcel、フォトショップなど必要なアプリケーションしか使えない。
もう勉強するしかないなこれは。俺の本気を見せてやる！ (｀・ω・´)
・・・とまあこんな感じでね
数日は本気でお勉強ができたような気がするんですよ。
先日プリインストールされてたウイルスバスターの期限が切れるので
ノートンを入れたんですよね。
で、勉強の時間になったのでブラウザが閉じると思ってたら
ノートン先生大激怒 (・∀・＃)ﾅﾝﾀﾞｺﾉｿﾌﾄﾊ！
ちょｗｗ やめろｗｗ
俺の本気を削除するなｗｗｗ
あああ もうだめだ 本気出せない ／(^o^)＼
こんなソフト誰もいらないと思うけど
せっかく作ったので記念にソースだけ載せときます。
HSPにコピペして実行ファイル自動作成すれば出来上がり。
注意点としては強制終了できるブラウザはchromeのみで
インターネットエクスプローラーは閉じられません。
あとノートン入れてる人は起動すると速攻削除されますｗ
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
#include "hspext.as"
randomize
buffer 1
picload "haikei.jpg"
dispX=ginfo(20)
dispY=ginfo(21)
dispY=dispY-40
;screen 0,1920,1080,0,0,-25
;screen 0,1920,1040,0,0,-25
screen 0,dispX,dispY,0,0,-25
gsel 0,1
gcopy 1,0,0,dispX,dispY
;mes dispX
;mes dispY
;stop
;;;;;;;;;;;;;;ブラウザ破壊
sdim name, 1024
sdim list_find, 1024, 64
count_find=0
repeat
wait 0
aplsel "", cnt
if stat=1 : break
name=refstr
;if instr(name, 0, "testwindow") != -1 {
if instr(name, 0, "Google") != -1 {
list_find(count_find)=name
count_find++
}
loop
gsel 0, 1
mes "== found window =="
repeat count_find
mes list_find(cnt)
loop
mes "== end =="
if count_find=0 : goto *openning
aplsel list_find(cnt)
mes stat
if stat=0 : gosub *deleter
;;;;;;;;;;;;;;ブラウザ破壊
*openning
pos 0,0
gcopy 1,0,0,dispX,dispY
font "ＭＳ ゴシック",20,1
randx=rnd(3)
;randx=1
if randx=0 : gosub *bun1
if randx=1 : gosub *bun2
if randx=2 : gosub *bun3
aplsel "Jane Style"
if stat=0 : gosub *deleter
aplsel "Google"
if stat=0 : gosub *deleter
aplsel "Yahoo"
if stat=0 : gosub *deleter
aplsel "将棋"
if stat=0 : gosub *deleter
aplsel "Ameba"
if stat=0 : gosub *deleter
t1=gettime(4)
t2=gettime(5)
t3=gettime(6)
time=" "+t1+"時"+t2+"分"+t3+"秒"
mes "現在時刻 "+time
clock=0
minits=0
mes ""
mes "何時までがんばるか時刻を入力してください"
input clock,75,25
mes "時"
input minits,75,25
mes "分まで"
button "OK",*start
stop
*start
clrobj
pos 0,0
gcopy 1,0,0,dispX,dispY
pos 0,0
objsize 200,25
button "メモ帳",*memo
button "EXCEL 97-2003",*xls
button "EXCEL 2007-2010",*xlsx
button "WORD 97-2003",*doc
button "WORD 2007-2010",*docx
button "Photoshop",*photo
button "SAI",*sai
button "Music",*mediap
button "もう限界。やめたい・・・(;_;)",*kujike
font "ＭＳ ゴシック",25,1
color 255,255,255
pos 501,31
mes ""+clock+"時"+minits+"分まで俺はがんばる！"
mes "くじけるな！ 負けるな！"
mes "最大の敵は自分自身だ！"
color 0,0,0
pos 500,30
mes ""+clock+"時"+minits+"分まで俺はがんばる！"
mes "くじけるな！ 負けるな！"
mes "最大の敵は自分自身だ！"
*loopy
t1=gettime(4)
t2=gettime(5)
t3=gettime(6)
if (t1=clock)&(t2=minits) : end
aplsel "Jane Style"
if stat=0 : gosub *deleter
aplsel "Google"
if stat=0 : gosub *deleter
aplsel "Yahoo"
if stat=0 : gosub *deleter
aplsel "将棋"
if stat=0 : gosub *deleter
aplsel "Ameba"
if stat=0 : gosub *deleter
;wait 3000 ;30秒ウエイト
wait 300 ;3秒ウエイト
goto *loopy
stop
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;ウインドウ閉じるサブ
*deleter
aplact
aplkey 115,4
await 1
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;ウインドウ閉じるサブ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;ソフトを起動するサブ
*memo
exec "notepad"
goto *loopy
*xls
exec "Book1.xls", 16
goto *loopy
*xlsx
exec "Book1.xlsx", 16
goto *loopy
*doc
exec "文書1.doc", 16
goto *loopy
*docx
exec "文書1.docx", 16
goto *loopy
*photo
exec "index.psd", 16
goto *loopy
*sai
exec "index.sai", 16
goto *loopy
*mediap
;exec "index.mp3", 16
exec "C:\\Program Files\\Windows Media Player\\wmplayer.exe \""+refstr+"\"
goto *loopy
;;;;;;;;;;;;;;;;;;;;;;;;;;;;ソフトを起動するサブ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;プログラムを閉じるサブ
*kujike
clrobj
pos 0,0
gcopy 1,0,0,dispX,dispY
font "ＭＳ ゴシック",25,1
color 255,255,255
pos 501,31
mes "どうしたっ！？"
mes "お前の決意はその程度のものだったのか！？"
color 0,0,0
pos 500,30
mes "どうしたっ！？"
mes "お前の決意はその程度のものだったのか！？"
mes " "
mes " "
objsize 300,25
button "もう一度気力を奮い立たせてがんばる",*start
button " ごめん 無理。 (ﾉ∀`)",*enderz
stop
*enderz
end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;プログラムを閉じるサブ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;決意文を読み込むサブ
*bun1
sdim w,256
sdim prm,256
sdim txbf,32000
bload "ketui1.txt",txbf
notesel txbf
lin=0
x=280 : y=30
font "ＭＳ ゴシック",20,1
repeat 20
noteget w,lin
getstr cmd,w,0,''
getstr prm,w,0
color 255,255,255
pos x+1,y+1
mes prm
color 0,0,0
pos x,y
mes prm
y+=24
lin+
loop
return
;;;;;;;;;;;;;;
*bun2
sdim w,256
sdim prm,256
sdim txbf,32000
bload "ketui2.txt",txbf
notesel txbf
lin=0
x=280 : y=30
font "ＭＳ ゴシック",20,1
repeat 20
noteget w,lin
getstr cmd,w,0,''
getstr prm,w,0
color 255,255,255
pos x+1,y+1
mes prm
color 0,0,0
pos x,y
mes prm
y+=24
lin+
loop
return
;;;;;;;;;;;;;;
*bun3
sdim w,256
sdim prm,256
sdim txbf,32000
bload "ketui3.txt",txbf
notesel txbf
lin=0
x=280 : y=30
font "ＭＳ ゴシック",20,1
repeat 20
noteget w,lin
getstr cmd,w,0,''
getstr prm,w,0
color 255,255,255
pos x+1,y+1
mes prm
color 0,0,0
pos x,y
mes prm
y+=24
lin+
loop
return
;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;決意文を読み込むサブ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;sub
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ブラウザ破壊部分の記述は
HSP３掲示板2006/6/8(Thu) 02:27:42 NO.1022
naznyarkさまの書き込みを引用させていただいております。