/ 11ページ

ひまつぶしHSP

(1/11ページ)

ひまつぶしHSP

※llmod3を使用しているので、commonの中に入れておいてください。

※数ページに分けて書かれているものもあるので、ページの上部で確認してください。

//スタートアップ確認 1/2

;スタートアップを確認できます。
;右のほうにあるボタンで削除ができ、ドラッグアンドドロップでスタートアップに追加することも可能。

#include "hspext.as"
#include "llmod3.hsp"
#include "dragdrop.hsp"

sdim list,5000,3 : sdim tounyuu,2000 : sdim yobi,1000 : sdim yomi,5000 : sdim chd,5000
dd_accept chd,kazu

;スタートアップ情報回収
regkey 1,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",0
reglist list.0,0
regkey 0,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",0
reglist list.1,0

font "",13 : pos 0,7 : mes "HKEY_CURRENT_USER-Run |HKEY_LOCAL_MACHINE-Run"
objsize 640 / 4 ,300 - 25
pos 0,25 : listbox li0,,list.0
pos 640 / 4 , 25 : listbox li1,,list.1
pos 640 / 4 * 3 , 25 : mesbox yomi,640 / 4, 300 - 35
objsize 640 / 4 , 25
button "削除",*del
li0 = 0 : li1 = 0

*lp
repeat
yomi = ""
await 1
if li0 ! li0y {
regkey 1,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",0
notesel list.0
noteget yobi,li0
getreg yomi,""+yobi+"",1 : yomi = yobi + "\n\n" + yomi
objprm 2,yomi
gen=1
}
if li1 ! li1y {
regkey 0,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",0
notesel list.1
noteget yobi,li1
getreg yomi,""+yobi+"",1
yomi = yobi+ "\n\n" +yomi
objprm 2,yomi
gen = 2
}
li0y = li0
li1y = li1
if kazu ! 0 : break
loop

;→Next Page

/ 11ページ

ひまつぶしHSP

(2/11ページ)

みんなが送ったスター数

0

この作品にスターを送ろう!

明日のスターも待ってます!
(1作品につき1日1回 押せます)

新着ピックアップ

急上昇ランキング|その他