けさないでよーせっかく作ったのに〜
#include "user32.as"
#uselib"Gdi32.dll"
#func BitBlt "BitBlt" int,int,int,int,int,int,int,int,int
;オーバーラップスタイルに
screen 0,ginfo(20),ginfo(21),0
SetWindowLong hwnd,GWL_STYLE,$14CF0000
gsel 0,-1 :gsel 0,1
width 640,480
wait 20
;黒色のみ透過させる(タイトルバーを透過させたくないため)
GetWindowLongA hwnd , -20
SetWindowLongA hwnd , -20 , stat | 0x0080000
color 0,0,0:boxf
SetLayeredWindowAttributes hwnd , 0, 0 , 1
wait 100
dim mxy,2
mxy=0,0
ClientToScreen hWnd,varptr(mxy)
wpx=mxy.0
wpy=mxy.1
wsx=ginfo(12)
wsy=ginfo(13)
HMWND=hWnd
screen 1,wsx,wsy,2:HBDC=HDC
GetDC 0:HDDC=stat
BitBlt HBDC,0,0,640,480,HDDC,wpx,wpy,0x00CC0020
wait 100
gsel 1,1
redraw 1