au3制作透明窗体可移动调节大小并记忆位置

染卷 2016年6月15日 6 分钟

利用au3制作的一个小工具，都是借鉴其他人的劳动成果改编的，再次感谢他们的无私奉献！

功能：利用au3的gui绘图功能？实现的透明红色边框显示，最初做这个是给led拼接屏框定播放范围的，可以调节框的大小，以及移动位置，可以生成配置文件set_windows.ini。其中设置state=1，会影藏调节按钮，只显示红色边框，并带抖动。

au3透明框体

源码附上(代码冗余请勿见笑哈)：

  1#include <GUIConstantsEx.au3>
  2#include <StaticConstants.au3>
  3#include <WindowsConstants.au3>
  4#include <ButtonConstants.au3>
  5#include <EditConstants.au3>
  6#include <WinAPI.au3>
  7#include <WinAPIFiles.au3>
  8#NoTrayIcon
  9#Region ### START Koda GUI section ### Form=
 10;宽度，高度，x，y
 11;$Form1 = GUICreate("Form1", 800, 600, 20, 200,$WS_POPUP, $WS_EX_LAYERED,WinGetHandle("Program Manager"))
 12;$x=50
 13;$y=50
 14 
 15;$width=400
 16;$hight=400
 17 
 18$width = IniRead("set_windows.ini", "windows", "w", -123719)
 19$hight = IniRead("set_windows.ini", "windows", "h", -123719)
 20$x = IniRead("set_windows.ini", "windows", "l", -123719)
 21$y = IniRead("set_windows.ini", "windows", "t", -123719)
 22$state = IniRead("set_windows.ini", "state", "state", -123719)
 23If $width = -123719 Or $hight = -123719 Or $x = -123719 Or $y = -123719 Or $state = -123719 Then
 24	_write_ini(400, 400, 50, 50, 1)
 25	;_write_ini(400,400,50,50,-123719)
 26	$width = IniRead("set_windows.ini", "windows", "w", -123719)
 27	$hight = IniRead("set_windows.ini", "windows", "h", -123719)
 28	$x = IniRead("set_windows.ini", "windows", "l", -123719)
 29	$y = IniRead("set_windows.ini", "windows", "t", -123719)
 30	$state = IniRead("set_windows.ini", "state", "state", -123719)
 31EndIf
 32 
 33;$Form1 = GUICreate("Form1", $width, $hight, $x, $y,$WS_POPUP, $WS_EX_LAYERED,WinGetHandle("Program Manager"))
 34 
 35$Form1 = GUICreate("红色范围框", $width + 200, $hight + 200, $x, $y, $WS_POPUP, $WS_EX_LAYERED)
 36;$Form1 = GUICreate("Form1", $width+200, $hight+200,$x, $y)
 37GUISetBkColor(0x010101)
 38 
 39If $state <> 0 Then
 40	$left = GUICtrlCreateButton("左", $width / 2 - 200, $y + 100, 50, 50)
 41	GUICtrlSetBkColor(-1,0xFF69B4)
 42	$right = GUICtrlCreateButton("右", $width / 2 + 100 - 200, $y + 100, 50, 50)
 43	GUICtrlSetBkColor(-1,0xFF69B4)
 44	$up = GUICtrlCreateButton("上", $width / 2 + 50 - 200, $y + 50, 50, 50)
 45	GUICtrlSetBkColor(-1,0xFF69B4)
 46	$down = GUICtrlCreateButton("下", $width / 2 + 50 - 200, $y + 150, 50, 50)
 47    GUICtrlSetBkColor(-1,0xFF69B4)
 48	$width_m = GUICtrlCreateButton("宽", $width / 2, $y + 100, 50, 50)
 49	GUICtrlSetBkColor(-1,0xFF69B4)
 50	$width_l = GUICtrlCreateButton("窄", $width / 2 + 100, $y + 100, 50, 50)
 51	GUICtrlSetBkColor(-1,0xFF69B4)
 52	$hight_m = GUICtrlCreateButton("高", $width / 2 + 50, $y + 50, 50, 50)
 53	GUICtrlSetBkColor(-1,0xFF69B4)
 54	$hight_l = GUICtrlCreateButton("低", $width / 2 + 50, $y + 150, 50, 50)
 55	GUICtrlSetBkColor(-1,0xFF69B4)
 56 
 57Else
 58	;$left=$right=$up=$down=$width_m=$width_l=$hight_m=$hight_l=0
 59	$left = GUICtrlCreateButton("左", $width / 2 - 200, $y + 100, 1, 1)
 60	$right = GUICtrlCreateButton("右", $width / 2 + 100 - 200, $y + 100, 1, 1)
 61	$up = GUICtrlCreateButton("上", $width / 2 + 50 - 200, $y + 50, 1, 1)
 62	$down = GUICtrlCreateButton("下", $width / 2 + 50 - 200, $y + 150, 1, 1)
 63 
 64	$width_m = GUICtrlCreateButton("宽", $width / 2, $y + 100, 1, 1)
 65	$width_l = GUICtrlCreateButton("窄", $width / 2 + 100, $y + 100, 1, 1)
 66	$hight_m = GUICtrlCreateButton("高", $width / 2 + 50, $y + 50, 1, 1)
 67	$hight_l = GUICtrlCreateButton("低", $width / 2 + 50, $y + 150, 1, 1)
 68EndIf
 69 
 70;$group1=GUICtrlCreateGroup("",50,50,$width-222,$hight-222)
 71;GUICtrlSetDefBkColor(0xFF0000)
 72;GUICtrlSetBkColor(-1, 0x0000ff)
 73 
 74#cs   图片做边框
 75	;   left,top,width,higt
 76	$Pic1 = GUICtrlCreatePic("C:\1.jpg", 1, 1, $width-1, 2,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;上方横线
 77	$Pic2 = GUICtrlCreatePic("C:\1.jpg", 1, $hight-2, $width-1, 2,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;下方横线
 78 
 79	$Pic3 = GUICtrlCreatePic("C:\1.jpg", 1, 1, 2,$hight-1,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;左方竖线
 80	$Pic4 = GUICtrlCreatePic("C:\1.jpg", $width-2, 1, 2, $hight-1,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;右方竖线
 81#ce
 82 
 83;$Label1 = GUICtrlCreateLabel("██████████", 8, 120, 164, 17)
 84;GUICtrlSetFont(-1, 9, 400, 4)
 85;GUICtrlSetColor(-1, 0x0000ff)
 86 
 87 
 88#cs
 89	;                       x,   y,  w  ,h
 90	GUICtrlCreateLabel("", 1, 1, 100, $hight, $SS_ETCHEDVERT);竖线
 91	GUICtrlSetColor(-1, 0x0000ff)
 92	GUICtrlCreateLabel("", $width-1, 1, 10,$hight, $SS_ETCHEDVERT);竖线2
 93	GUICtrlSetColor(-1, 0x0000ff)
 94	GUICtrlCreateLabel("", 1, 1, $width, 10, $SS_ETCHEDHORZ);横线
 95	GUICtrlSetColor(-1, 0x0000ff)
 96	GUICtrlCreateLabel("", 1, $hight-1, 10, 1, $SS_ETCHEDHORZ);横线
 97	GUICtrlSetColor(-1, 0x0000ff)
 98#ce
 99 
100 
101#cs
102	$hDC = _WinAPI_GetWindowDC($form1) ;
103	$hPen = _WinAPI_CreatePen($PS_SOLID, 1, 0xFF)
104	$obj_orig = _WinAPI_SelectObject($hDC, $hPen)
105	$111=_WinAPI_DrawLine ( $hDC, 10, 10, $width, $hight )
106 
107	;MsgBox(0,0,$111)
108#ce
109 
110 
111GUICtrlSetCursor(-1, 0)
112 
113 
114_API_SetLayeredWindowAttributes($Form1, 0x010101)
115WinSetOnTop($Form1, "Form1", 1)
116 
117;_WinToTop($form1)
118GUISetState(@SW_SHOW)
119ShowCross($width, $HIGHT, $hight, 2, 0xFF) ;, 3000)
120 
121#EndRegion ### END Koda GUI section ###
122 
123 
124;WinMove
125 
126;$y1=$y
127;$x1=$x
128$t = 1
129While 1
130	$nMsg = GUIGetMsg()
131	
132	If $state <> 0 Then
133		Switch $nMsg
134			Case $GUI_EVENT_CLOSE
135				Exit
136				
137			Case $left
138				$x = $x - 1
139				WinMove($Form1, "", $x, $y)
140				_write_ini($width, $hight, $x, $y, -123719)
141			Case $right
142				$x = $x + 10
143				WinMove($Form1, "", $x, $y)
144				_write_ini($width, $hight, $x, $y, -123719)
145			Case $up
146				$y = $y - 1
147				WinMove($Form1, "", $x, $y)
148				_write_ini($width, $hight, $x, $y, -123719)
149			Case $down
150				$y = $y + 10
151				WinMove($Form1, "", $x, $y)
152				_write_ini($width, $hight, $x, $y, -123719)
153			Case $width_m
154				$width = $width + 10
155				WinMove($Form1, "", $x, $y, $width + 200, $hight + 200)
156				_write_ini($width, $hight, $x, $y, -123719)
157				ShowCross($width, $HIGHT, $hight, 2, 0xFF) ;, 3000)
158			Case $width_l
159				$width = $width - 1
160				WinMove($Form1, "", $x, $y, $width + 200, $hight + 200)
161				_write_ini($width, $hight, $x, $y, -123719)
162				ShowCross($width, $HIGHT, $hight, 2, 0xFF) ;, 3000)
163			Case $hight_m
164				$hight = $hight + 10
165				WinMove($Form1, "", $x, $y, $width + 200, $hight + 200)
166				_write_ini($width, $hight, $x, $y, -123719)
167				ShowCross($width, $HIGHT, $hight, 2, 0xFF) ;, 3000)
168			Case $hight_l
169				$hight = $hight - 1
170				WinMove($Form1, "", $x, $y, $width + 200, $hight + 200)
171				_write_ini($width, $hight, $x, $y, -123719)
172				ShowCross($width, $HIGHT, $hight, 2, 0xFF) ;, 3000)
173				
174				#cs
175					Case Else
176					Sleep(100)
177					If $t=1 Then
178 
179					WinMove($form1,"",$x,$y)
180					$t=0
181					Else
182 
183					WinMove($form1,"",$x+1,$y+1)
184					$t=1
185					EndIf
186				#ce
187		EndSwitch
188		
189	Else
190		
191		Switch $nMsg
192			Case $GUI_EVENT_CLOSE
193				Exit
194 
195			Case Else
196				Sleep(100)
197				If $t = 1 Then
198					
199					WinMove($Form1, "", $x, $y)
200					$t = 0
201				Else
202					
203					WinMove($Form1, "", $x + 1, $y + 1)
204					$t = 1
205				EndIf
206		EndSwitch
207	EndIf
208WEnd
209 
210Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)
211 
212	Local Const $AC_SRC_ALPHA = 1
213	Local Const $ULW_ALPHA = 2
214	Local Const $LWA_ALPHA = 0x2
215	Local Const $LWA_COLORKEY = 0x1
216	If Not $isColorRef Then
217		$i_transcolor = Hex(String($i_transcolor), 6)
218		$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
219	EndIf
220	Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
221	Select
222		Case @error
223			Return SetError(@error, 0, 0)
224		Case $Ret[0] = 0
225			Return SetError(4, 0, 0)
226		Case Else
227			Return 1
228	EndSelect
229EndFunc   ;==>_API_SetLayeredWindowAttributes
230 
231 
232Func _WinToTop($Whd)
233	
234	Local $XYPos
235	If Not WinExists($Whd) Then Return
236	$XYPos = WinGetPos($Whd)
237	DllCall("user32.dll", "long", "SetWindowPos", "hwnd", $Whd, "long", -1, "long", $XYPos[0], "long", $XYPos[1], "long", $XYPos[2], "long", $XYPos[3], "long", 0x40)
238EndFunc   ;==>_WinToTop
239 
240Func ShowCross($start_x, $start_y, $length, $width, $color)
241	Local $hDC, $hPen, $obj_orig
242 
243	$hDC = _WinAPI_GetWindowDC($Form1) ; 全部屏幕的场景(桌面)
244	$hPen = _WinAPI_CreatePen($PS_SOLID, $width, $color)
245	$obj_orig = _WinAPI_SelectObject($hDC, $hPen)
246 
247	;  _WinAPI_DrawLine($hDC, $start_x - $length, $start_y, $start_x - 5, $start_y) ; 水平左
248	_WinAPI_DrawLine($hDC, 0, 0, $start_x, 1) ;上横线
249	_WinAPI_DrawLine($hDC, 1, $hight, $start_x, $hight) ;下横线
250	_WinAPI_DrawLine($hDC, 0, 0, 1, $start_y) ;左竖线
251	_WinAPI_DrawLine($hDC, $start_x, 1, $start_x, $start_y) ;右竖线
252	; _WinAPI_LineTo ( $hDC, $WIDTH, $HIGHT )
253 
254	;   _WinAPI_DrawLine($hDC, $start_x + $length, $start_y, $start_x + 5, $start_y) ; 水平右
255	;  _WinAPI_DrawLine($hDC, $start_x, $start_y - $length, $start_x, $start_y - 5) ; 垂直上
256	;  _WinAPI_DrawLine($hDC, $start_x, $start_y + $length, $start_x, $start_y + 5) ; 垂直下
257	;  _WinAPI_MoveTo($hDC, $start_x, $start_y + $length)
258	;  _WinAPI_LineTo($hDC, $start_x, $start_y + 5)
259 
260	;   Sleep($time) ; 穿过屏幕几秒
261 
262	; 刷新桌面(清扫穿过)
263	_WinAPI_RedrawWindow(_WinAPI_GetDesktopWindow(), 0, 0, $RDW_INVALIDATE + $RDW_ALLCHILDREN)
264 
265	; 清除资源
266	_WinAPI_SelectObject($hDC, $obj_orig)
267	_WinAPI_DeleteObject($hPen)
268	_WinAPI_ReleaseDC(0, $hDC)
269EndFunc   ;==>ShowCross
270 
271Func _write_ini($w, $h, $x, $y, $state)
272 
273 
274 
275	IniWrite("set_windows.ini", "windows", "w", $w)
276	IniWrite("set_windows.ini", "windows", "h", $h)
277 
278	IniWrite("set_windows.ini", "windows", "l", $x)
279	IniWrite("set_windows.ini", "windows", "t", $y)
280 
281	If $state <> -123719 Then IniWrite("set_windows.ini", "state", "state", $state)
282IniWrite("set_windows.ini","Readme","说明"," state值设置为0可以隐藏调节按钮")
283EndFunc   ;==>_write_ini

au3 源码透明窗口

染卷

本站文章也会定期同步到微信公众号，可以关注下避免错过~

建站 12年 13天

微信公众号

发表评论取消回复