できません。(正しくできません。)
だれか、全画面モードで枠なしで正しく表示される解像度640×480用に直してください。
おねがいします。
chgdisp 1,1366,768 bgscr 0,1366,768,,0,0 #packopt name "InterNet for Windows" #packopt type 1 title "InterNet for Windows" #define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}" #define DISPID_NAVIGATECOMPLETE2 252 #define OLECMDID_CUT 11 #define OLECMDID_COPY 12 #define OLECMDID_PASTE 13 #define OLECMDID_UNDO 15 #define OLECMDID_DELETE 33 cls 1 sdim url,512 url="http://www.yahoo.co.jp/" objsize 300,24 pos 0,2:mes " URL:" pos 40,0:input url objsize 50,25 pos 340,0:button "移動",*wow objsize 65,40 pos 65,24:button "進む→",*go_f pos 0,24:button "←戻る",*go_b objsize 70,40 pos 320,24:button "更新",*kousin pos 250,24:button "中止",*tyuusi pos 155,24:button "ホーム",*home objsize 50,20 objsize 40,65 pos 745, 0:button "ヘルプ" ,*help objsize 80,30 pos 665, 35:button "バージョン情報" ,*var pos 400,10:mes "画面解像度 1366×768 対応" pos 450,40:mes "Windows XP,Vista,7,8 対応" objsize 80,65 pos 1285,0:button "終わる" ,*ende value1 = "メモ欄" value2 = "" value3 = "" pos 785,0 input value1, 500, 60 pos pos 0,65 axobj ie, "Shell.Explorer.2",1366,768-48 num=stat comevent ie_event, ie, "{34A715A0-6587-11D0-924A-0020AFC7AC4D}",*event ie->"Navigate" url onkey gosub *pushkey *pushkey stop *main stop *event dispid = comevdisp(ie_event) if dispid = DISPID_NAVIGATECOMPLETE2 : gosub *OnNavigateComplete2 return *OnNavigateComplete2 name = ie("LocationURL") objprm 0,name pDoc = ie("Document") name = pDoc("Title") title name delcom pDoc return *wow ie->"Navigate" url goto *main *go_f ie->"GoForward" goto *main *go_b ie->"GoBack" goto *main *kousin ie->"Refresh" goto *main *tyuusi ie->"stop" goto *main *home ie->"GoHome" goto *main *var dialog "簡単WEB version 0.02 \n (C)瀬川卓弥" stop *help stop *ende end