HSPソース公開所

そらとす流HSP公開所

☆ここにあるソースの著作権は一応そらとすです。改造はかまいませんが、そのままネットに掲載(恥ずかしいから)したりしないでください。
あくまでこじんで、ひっそりと………(別に派手でもいいけど)
(余談)説明をかこうと思ったんですけど、余計意味不明になってしまったのでやめました。

超簡単URL＆オートラン BIG SIZE

#include "hspext.as"
        screen 0,406,300,0
        cls 4
        title "超簡単ＵＲＬ＆ＡＵＴＯＲＵＮ BY SORATOSU"
        objsize 100,30
        font "",30
        repeat
        redraw 0
        color 0,0,0
        boxf 0,0,406,300
        color 0,255,0
        pos 50,50
        mes "超簡単URL＆AUTORUN"
        if (mousex>=0)&(mousex<=202)&(mousey>=200) : gosub *hidari
        if (mousex>=203)&(mousey>=200) : gosub *migi
        wait 1
        redraw 1
        loop
        button "URL",*url
        button "オートラン",*aut
        stop

*hidari
        color 255,255,0
        boxf 0,200,202,300
        pos 50,230:color 0,0,255:mes "URL"
        stick kehi
        if kehi=256 : goto *urlo
        return
*migi
        color 255,255,0
        boxf 203,200,406,300
        pos 250,230:color 0,0,255:mes "オートラン"
        stick kehi
        if kehi=256 : goto *auto
        return
*urlo
        redraw 0
        color 200,200,0
        boxf 0,200,202,205:boxf 0,200,5,300
        boxf 0,295,202,300:boxf 197,200,202,300
        redraw 1
        wait 20
*url
        cls 4
        a="":b=""
        font "",20
        color 100,100,255
        objmode 2
        objsize 200,50
        pos 60,20:mes "ページの名前  (例)KEI'S HP"
        pos 90,48
        input a,200,25
        pos 5,100:mes "アドレス(例)http://www.h3.dion.ne.jp/~fyoshio/)
        pos 3,130
        input b,400,25
        font "",50
        pos 103,200
        button "作成",*go
        stop
*go
        fxlink a,b
        end

;オートラン
*auto
        redraw 0
        color 200,200,0
        boxf 203,200,406,205:boxf 203,295,406,300
        boxf 203,200,208,300:boxf 401,200,406,300
        redraw 1
        wait 20
        con="まだ決めてない"
        hiraku="まだ決めてない"
        
*aut
        redraw 0
        font "",30
        cls 4
        objmode 1
        objsize 100,25
        title "オートラン"
        color 100,100,255
        pos 10,10
        mes "アイコン="+con
        button "アイコン",*aikon
        pos 10,100
        mes "ファイル="+hiraku
        button "開くファイル",*hirakuf
        pos 103,230
        objmode 2
        objsize 200,50
        button "製造",*tsukuru
        redraw 1
*mainloop
        getkey i,17
        getkey o,18
        getkey s,83
        if i=1 : goto *aikon
        if o=1 : goto *hirakuf
        if s=1 : goto *tsukuru
        wait 1
        goto *mainloop
*aikon
        font "",20
        objmode 2
        title "I-CON"
        cls 4
        pos 50,50
        color 50,255,50
        mes "アイコン(例)sample.ico
        pos 103,100
        input con,200,30
        objsize 200,30
        pos 103,150
        button "戻る",*aut
        objmode 1
        objsize 75,18
        pos 326,280
        chkbox "Enter無効",ck
        repeat
        if ck!1 : {
        stick mo
        if mo=32 : goto *aut
        }
        wait 10
        loop
*hirakuf
        cls 4
        font "",20
        objmode 2
        title "ファイル"
        pos 50,50
        color 50,255,50
        mes "自動で(オートランで)\n開くファイル(例)pasokon.exe"
        pos 50,100
        input hiraku,300,30
        objsize 300,30
        pos 50,150
        button "MODORU",*aut
        objsize 75,18
        objmode 1
        pos 326,280
        chkbox "Enter無効",kc
        repeat
        stick key
        if kc!1 : if key=32:goto *aut
        wait 1 
        loop
        stop
*tsukuru
        if con="まだ決めてない" : {
        dialog "デフォルトのままではだめです。",0,"アイコンの方":goto *aut
        }
        if hiraku="まだ決めてない" : {
        dialog "デフォルトのままではだめです。",0,"ファイルの方":goto *aut
        }
        alloc saveyou,32000
        saveyou=""
        saveyou="[AUTORUN]\nOPEN="+hiraku+"\nICON="+con+"
        cls 4
        color 255,255,0
        mes "完成!"
        
        bsave ""+exedir+"\\AUTORUN.INF",saveyou
        end

単純描画 BIG SIZE

電話代がかかるひとはきおつけてね。（オフラインにするとか）