HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
0627
Gonウィンドウの透過について1解決


Gon

リンク

2019/6/27(Thu) 20:48:58|NO.87757

過去ログなどを参考にして透過したウィンドウ上で小さく目立たない形で英和和英辞書を作ってみました。
しかし,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



この記事に返信する


Gon

リンク

2019/6/29(Sat) 22:39:23|NO.87777

ごめんなさい

自己解決しました。
以下のURLのサンプルを参考にして、再度組みなおしました。

https://blog.goo.ne.jp/hiro239415/e/6860f82ef2939e3e14268e96e0479edc



ONION software Copyright 1997-2021(c) All rights reserved.