03/05/17 22:55 p6ZS+684
'>>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$,"ｽﾚﾘﾝｸ(software板)l50"
T$(2) = "Vector - Microsoft Internet Explorer"
Exec IE$,"URLﾘﾝｸ(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