ウィンドウの透過について

過去ログなどを参考にして透過したウィンドウ上で小さく目立たない形で英和和英辞書を作ってみました。
しかし,inputの中身やmesの中身の色の変更がうまくできません。
どなたかわかる方、以下のソースのmesの色の変更の仕方、inputの中身の色の変更の仕方を教えてください！
よろしくお願いします。



#uselib "user32.dll" 
#func GetWindowLongA "GetWindowLongA" int , int 
#func SetWindowLongA "SetWindowLongA" int , int , int 
#func SetLayered "SetLayeredWindowAttributes" int , int , int , int 
#func PostMessageA "PostMessageA" int , int , int , int


sdim search

 
bgscr 0,800,120,1,,ginfo(21)-120,
GetWindowLongA hwnd , -20 
SetWindowLongA hwnd , -20 , stat | 0x00080000
SetLayered hwnd , 0 , 0 , 1
color 0,0,0
boxf





gosub *searching
oncmd gosub *WM_KEYDOWN,0x0100


stop
*WM_KEYDOWN
if wparam == 0x1b{
PostMessageA hwnd , 0x0010 , 0 , 0
}
return


*searching

sdim search
color 128,128,128
input search
button gosub"",*SEARCHSTART


stop
*SEARCHSTART
	if search=""{color
boxf
return}
	objenable 1,0
n=0:isEN=1
repeat strlen(search)
 ascnum=peek(search,n):n++
 if (ascnum>127){isEN=0}
loop
//1...半角文字(英数字記号)のみ、0...全角文字あり


axobj ie, "InternetExplorer.Application",0,0//←見えないように作成
	ie->"Navigate" "https://ejje.weblio.jp/content/"+search+""
	repeat
		wait 10
		if ie("Busy")=0:break
	loop
	doc=ie("Document")
	repeat
		wait 10
		if doc("readyState")="complete":break
	loop
	doc=ie("Document")
	body=doc("body")
	html=body("innerText")
	delcom doc
	delcom body
	delcom ie

if isEN=0{
　a=instr(html, 0, "主な英訳")

　a2=strmid(html, a, 100)
notesel a2
noteget data,1

}else{
	a=instr(html, 0, "主な意味")

　a2=strmid(html, a, 100)
notesel a2
noteget data,1
}
color
boxf
color 128,128,128
pos 100,0
mes data
	objenable 1,1

	exec"taskkill /F /IM iexplore.exe /T",2
exec"taskkill /F /IM ilowutil.exe /T",2
return

HSPTV!掲示板