'>>231>>229 は ActiveBasic を馬鹿にする目的なんだろうけど、 '本当に良いものだから、マヌケだね。まだまだ開発途上だけど。 'ActiveBasic2.62 を拾ってきて、これを AMARI.BAS なんて名前でコンパイルしる。 'IE でこのスレと Vector を開いて縦に並べるソフト。 #noprompt #include <windows.sbp> Dim Dp As RECT : Dim ret,x,y,cnt As Long Dim IE$,IEClass$ As String : Dim T$(2) As String : Dim hWin(2) As Long '↓ここに IE のフルパスを記入。 IE$ = "C:\Program Files\Internet Explorer\IEXPLORE.EXE" ret = GetWindowRect(GetDesktopWindow(), Dp) x = Dp.right : y = Dp.bottom T$(1) = "あまり知られてないけどこのソフトは良いｿﾞ - Microsoft Internet Explorer" Exec IE$,"pc2.2ch.net/test/read.cgi/software/1051456780/l50" T$(2) = "Vector - Microsoft Internet Explorer" Exec IE$,"www.vector.co.jp/" IEClass$ = "IEFrame" : cnt = 0 Do hWin(1) = FindWindow(IEClass$, T$(1)) : hWin(2) = FindWindow(IEClass$, T$(2)) Sleep 100 cnt = cnt + 1 If cnt > 100 Then MsgBox OwnerWnd(),"失敗しますた。","エラー" : End End If Loop Until hWin(1) And hWin(2) SetWindowPos(hWin(1), NULL, 0, 0, x / 2, y, SWP_SHOWWINDOW) SetWindowPos(hWin(2), NULL, x / 2, 0, x / 2, y, SWP_SHOWWINDOW) MsgBox OwnerWnd(),"ど〜よ？","実行終了" : End End
