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


HSPTV!掲示板


未解決 解決 停止 削除要請

2011
0530
whoさんおもしろい(?)ものを作ってみた。5解決


whoさん

リンク

2011/5/30(Mon) 23:59:21|NO.39477

実行してみればわかると思います。


#include "user32.as" #define GW_HWNDNEXT 2 #define GWL_STYLE -16 #define GWL_EXSTYLE -20 #define WS_MAXIMIZEBOX 0x00010000 #define WS_MINIMIZEBOX 0x00020000 #define WS_SIZEBOX 0x00040000 #define WS_VSCROLL 0x00200000 #define WS_HSCROLL 0x00100000 #define WS_BORDER 0x00800000 #define WS_CAPTION 0x00C00000 #define WS_TABSTOP 0x00010000 #define WS_EX_DLGMODALFRAME 0x00000001 #define WS_EX_TRANSPARENT 0x00000020 #define WS_EX_TOOLWINDOW 0x00000080 #define WS_EX_WINDOWEDGE 0x00000100 #define WS_EX_CLIENTEDGE 0x00000200 #define WS_EX_STATICEDGE 0x00020000 #define WS_EX_APPWINDOW 0x00040000 screen 0,300,1000:title "ALL CHANGER (DANGER?)" dim p,100 objsize 300,20 chkbox "最小化変更ボタン",p.0 chkbox "最大化変更ボタン",p.1 chkbox "サイズ変更境界",p.2 chkbox "垂直スクロールバー",p.3 chkbox "水平スクロールバー",p.4 chkbox "境界線",p.5 chkbox "タイトルバー",p.6 chkbox "WS_TABSTOP(意味がない)",p.7 chkbox "EX:WS_EX_DLGMODALFRAME(?)",p.50 chkbox "EX:WS_EX_TRANSPARENT(?)",p.51 chkbox "EX:WS_EX_TOOLWINDOW(Tool Edge)",p.52 chkbox "EX:WS_EX_WINDOWEDGE(?)",p.53 chkbox "EX:WS_EX_CLIENTEDGE(Deep Edge)",p.54 chkbox "EX:WS_EX_STATICEDGE(Weak Edge)",p.55 chkbox "EX:WS_EX_APPWINDOW(?)",p.56 button "実行",*ntt stop *ntt F=0 F+=(p.0 )*WS_MINIMIZEBOX F+=(p.1 )*WS_MAXIMIZEBOX F+=(p.2 )*WS_SIZEBOX F+=(p.3 )*WS_VSCROLL F+=(p.4 )*WS_HSCROLL F+=(p.5 )*WS_BORDER F+=(p.6 )*WS_CAPTION F+=(p.7 )*WS_TABSTOP G=0 G+=(p.50)*WS_EX_DLGMODALFRAME G+=(p.51)*WS_EX_TRANSPARENT G+=(p.52)*WS_EX_TOOLWINDOW G+=(p.53)*WS_EX_WINDOWEDGE G+=(p.54)*WS_EX_CLIENTEDGE G+=(p.55)*WS_EX_STATICEDGE G+=(p.56)*WS_EX_APPWINDOW color 255,255,255 boxf color 0,0,0 pos 0,0 GetDesktopWindow:DTH=stat GetTopWindow DTH:TH=stat font "",10 sdim dt,256 repeat GetWindowlong TH,GWL_STYLE:S=stat SetWindowLong TH,GWL_STYLE,S^F:mes ""+S+"-"+(S^F) GetWindowlong TH,GWL_EXSTYLE:S=stat SetWindowLong TH,GWL_EXSTYLE,S^G:mes ""+S+"-"+(S^G) GetWindow TH,GW_HWNDNEXT : TH=stat if TH=0:break; if TH=hwnd:continue; loop



この記事に返信する


f3d

リンク

2011/5/31(Tue) 00:01:52|NO.39478

windows7
デスクトップやメニューバーが崩れて再起動しなければならなかった。



whoさん

リンク

2011/5/31(Tue) 00:07:59|NO.39479

>>f3dさん
本当に申し訳ございませんでした。



f3d

リンク

2011/5/31(Tue) 00:18:52|NO.39481

>>whoさん
DANGERって書いてあったのを後になって気づいた自分のせいなんで気にしないでください。
これは自分だけ変更するようにすれば、
スタイルチェックに使えそう



KA

リンク

2011/5/31(Tue) 22:12:07|NO.39488

人柱2号として実行してみた結果、見事2号となりました。

どうなる予定だったのか分からないけど、WIN7じゃ動作しないのかな。



Cookies

リンク

2011/5/31(Tue) 22:30:58|NO.39489

(Win Vista)
とっても怖かったけど、実行してみた。
デザインが少し崩れたけど、もっかい同じのを実行すると大体元に戻った。
今のところ支障はないよう。

頑張れば有用に使えそうですね。



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