找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › AU3能实现直接写屏吗？
返回列表 发新帖
查看: 2719|回复: 5

[GUI管理] AU3能实现直接写屏吗？

 火 [复制链接]
tisiem
发表于 2011-1-11 00:36:49 | 显示全部楼层 |阅读模式
这些天提了好几个问题了，感谢兄弟们帮忙。我突然想：au3能实现直接写屏吗？在屏幕指定位置输出文字或者图片？
还有一个：能检测到某个窗口存在时，就在这个窗口的某个位置比如工具栏那添加一个按钮吗？
工具栏, 兄弟

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
sxd
发表于 2011-1-11 10:57:00 | 显示全部楼层
记忆里看到过相关例子 是可以的
回复

举报

tisiem
 楼主| 发表于 2011-1-12 08:40:30 | 显示全部楼层
谢兄弟顶贴，等待中。
回复

举报

微雨湿黄昏
发表于 2011-1-12 11:04:13 | 显示全部楼层
应该是可以的
回复

举报

tisiem
 楼主| 发表于 2011-1-12 13:55:03 | 显示全部楼层
呵，支持楼上的说法， 再等。
回复

举报

yhxhappy
发表于 2011-1-12 16:09:53 | 显示全部楼层
随便写了一个，希望能给楼主一些帮助和启发
其实代码很简单，创建一个窗口，上面的文字和按钮，只是把窗口的背景弄成透明的了，不依靠窗口直接在桌面上显示一行字我没整过，等高手来了

下面的代码很长是因为加了一个创建BMP文件UDF，用来创建一个BMP文件，背景色是 0xff00f0，楼主自己用PS做也是一样的效果，我只是不想上传文件才添加进来的
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


Global $Pic = @ScriptDir & "\cnr.bmp"
Global $GUI_W = 350, $GUI_H = 80

$GUI = GUICreate("", $GUI_W, $GUI_H, -1, -1, $WS_POPUP, $WS_EX_LAYERED)

$BMP=_BMPCreate(1, 1)                                        ;创建一个位图文件，大小一个像素
_PixelWrite($BMP, 0, 0, "ff00f0")
_BMPWrite($BMP, $Pic)

GUICtrlCreatePic($Pic, 0, 0, $GUI_W, $GUI_H)
        GUICtrlSetState(-1, $GUI_DISABLE)

GUICtrlCreateLabel("Label控件，可以点它拖动窗口，ESC键退出", 0, 0, 350, 30, "", $GUI_WS_EX_PARENTDRAG)
        GUICtrlSetFont(-1, 13, 800, 0)
        GUICtrlSetColor(-1, 0xff0000)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$Button = GUICtrlCreateButton("这是一个按钮", 0, 30, 250, 50)

GUISetState()
        
While 1
        WinSetOnTop($GUI, "", 1)
        $Msg = GUIGetMsg()
        Switch $Msg
                Case $Button
                        MsgBox(262144, 0, "你点击了按钮")
                Case $GUI_EVENT_CLOSE
                        FileDelete($Pic)
                        Exit
        EndSwitch
WEnd
        
        
        

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.2.10.0
; Author:         Evilertoaster <evilertoaster at yahoo dot com>
;
; Script Function:
;       Basic BMP file managment.
;Script Version:
;   2.1
; ----------------------------------------------------------------------------
 
Func _BMPGetWidth(ByRef $BMPHandle)
        If IsArray($BMPHandle)=0 Then Return 0
        Return $BMPHandle[1]
EndFunc
 
Func _BMPGetHeight(ByRef $BMPHandle)
        If IsArray($BMPHandle)=0 Then Return 0
        Return $BMPHandle[2]
EndFunc
 
Func _BMPGetChecksum(ByRef $BMPHandle,$step=1)
        if not IsArray($BMPHandle) then Return -1
        $length=BinaryLen($BMPHandle[3])
        $a=1
        $b=0
        for $i=54 to $length
                $a=Mod($a+Dec(Hex(BinaryMid($BMPHandle[3],$i,1))),65521)
                $b=Mod($a+$b,65521)
        Next
        Return (BitShift(BitShift($b,-16),1)*2) + $a
EndFunc
 
Func _PixelFill(ByRef $BMPHandle,$x,$y,$color,$variation=0)
        Local $CheckChart[UBound($BMPHandle,1)][UBound($BMPHandle,2)]
        Local $count=0
        $Tset=1
        Local $tracer[$Tset]
        $tracer[$tset-1]=$x&","&$y
        Local $CheckColor=Dec(_PixelRead($BMPHandle,$x,$y))
        $CheckChart[$y][$x]=1
        While 1
                if Abs(Dec(_PixelRead($BMPHandle,$x-1,$y))-$CheckColor)<=$variation Then
                        $CheckChart[$x-1][$y]=1
                        $count+=1
                        _PixelWrite($BMPHandle,$x-1,$y,$color)
                        $Tset+=1
                        ReDim $tracer[$Tset]
                        $tracer[$Tset-1]=$x&","&$y
                        $x=$x-1
                        ContinueLoop
                EndIf
                if Abs(Dec(_PixelRead($BMPHandle,$x,$y-1))-$CheckColor)<=$variation Then
                        $CheckChart[$x][$y-1]=1
                        $count+=1
                        _PixelWrite($BMPHandle,$x,$y-1,$color)
                        $Tset+=1
                        ReDim $tracer[$Tset]
                        $tracer[$Tset-1]=$x&","&$y
                        $y=$y-1
                        ContinueLoop
                EndIf
                if Abs(Dec(_PixelRead($BMPHandle,$x+1,$y))-$CheckColor)<=$variation Then
                        $CheckChart[$x+1][$y]=1
                        $count+=1
                        _PixelWrite($BMPHandle,$x+1,$y,$color)
                        $Tset+=1
                        ReDim $tracer[$Tset]
                        $tracer[$Tset-1]=$x&","&$y
                        $x=$x+1
                        ContinueLoop
                EndIf
                if Abs(Dec(_PixelRead($BMPHandle,$x,$y+1))-$CheckColor)<=$variation Then
                        $CheckChart[$x][$y+1]=1
                        $count+=1
                        _PixelWrite($BMPHandle,$x,$y+1,$color)
                        $Tset+=1
                        ReDim $tracer[$Tset]
                        $tracer[$Tset-1]=$x&","&$y
                        $y=$y+1
                        ContinueLoop
                EndIf
                $Point=StringSplit($tracer[$Tset-1],",")
                $x=$Point[1]
                $y=$Point[2]
                $Tset-=1
                ReDim $tracer[$Tset]
                if $tset=1 then ExitLoop
        Wend
        Return $count
EndFunc
 
func _RectangleWrite(ByRef $BMPHandle,$x,$y,$Width,$Height,$color,$Thickness=1)
        if $Thickness<1 then Return 0
        if $Thickness>1 then 
                Return SubRectangleWrite($BMPHandle,$x,$y,$Width,$Height,$color,$Thickness)
        EndIf
        Local $TempW=Round($Width/2)
        Local $TempH=Round($Height/2)
        _LineWrite($BMPHandle,$x-$TempW,$y-$TempH,$x+$TempW,$y-$TempH,$color)
        _LineWrite($BMPHandle,$x+$TempW,$y-$TempH,$x+$TempW,$y+$TempH,$color)
        _LineWrite($BMPHandle,$x+$TempW,$y+$TempH,$x-$TempW,$y+$TempH,$color)
        _LineWrite($BMPHandle,$x-$tempw,$y+$TempH,$x-$TempW,$y-$TempH,$color)
        Return $Width*$Height
EndFunc
 
func SubRectangleWrite(ByRef $BMPHandle,$x,$y,$Width,$Height,$color,$Thickness)
        For $a=1 to $Thickness
                _RectangleWrite($BMPHandle,$x,$y,$Width-Round($a/2),$Height-Round($a/2),$color)
                _RectangleWrite($BMPHandle,$x,$y,$Width+Round($a/2),$Height+Round($a/2),$color)
        Next
        Return $Width*$Height
EndFunc
 
func _EllipseWrite(ByRef $BMPHandle,$X,$Y,$Width,$Height,$color,$Thickness=1)
        if $Thickness<1 then Return 0
        if $Thickness>1 then 
                Return SubEllipseWrite($BMPHandle,$x,$y,$Width,$Height,$color,$Thickness)
        EndIf
        Local $SumA=$Width/2
        Local $SumB=$Height/2
        Local $LastY=0
        Local $temp,$test,$h
        _PixelWrite($BMPHandle,Floor($x-$Width/2),$y,$color)
        _PixelWrite($BMPHandle,$x+$Width/2,$y,$color)
        For $a=-$Width/2 to $Width/2
                $temp=Sqrt(($SumB^2)*(1-(($a^2)/($SumA^2))))
                if $temp>$LastY then
                        $test=$temp-$LastY
                Else
                        $test=$LastY-$temp
                EndIf
                If $test<=1 then
                        _PixelWrite($BMPHandle,$x+$a,$y+$temp,$color)
                        _PixelWrite($BMPHandle,$x+$a,$y-$temp,$color)
                Else
                        _LineWrite($BMPHandle,$x+$a-1,$y+$LastY,$x+$a,$y+$temp,$color)
                        _LineWrite($BMPHandle,$x+$a-1,$y-$LastY,$x+$a,$y-$temp,$color)
                EndIf
                $LastY=$temp
        Next
        $h=(($sumA-$SumB)^2)/(($sumA+$SumB)^2)
        Return 3.14159*($SumA+$SumB)*(1+((3*$h)/(10+Sqrt(4-(3*$h)))))
EndFunc
 
Func SubEllipseWrite(ByRef $BMPHandle,$x,$y,$Width,$Height,$color,$Thickness)
        for $a=1 to $Thickness
                _EllipseWrite($BMPHandle,$x,$y,$Width+$a,$Height+$a,$color)
                Local $Return=_EllipseWrite($BMPHandle,$x,$y,$Width-$a,$Height-$a,$color)
        Next
        Return $Return
EndFunc
 
Func SubLineWrite(ByRef $BMPHandle,$x1,$y1,$x2,$y2,$color,$loops)
        if $loops<1 then Return 0
        for $a=1 to $loops-1
                Local $Return=_LineWrite($BMPHandle,$x1+$a,$y1,$x2+$a,$y2,$color)
                _LineWrite($BMPHandle,$x1-$a,$y1,$x2-$a,$y2,$color)
        Next
        Return $Return
EndFunc
 
Func _LineWrite(ByRef $BMPHandle,$x1,$y1,$x2,$y2,$color,$Thickness=1)
        If $Thickness<>1 then 
                Local $Return=SubLineWrite($BMPHandle,$x1,$y1,$x2,$y2,$color,$Thickness)
                Return $Return
        EndIf
        If $x1=$x2 or $y1=$y2 Then
                if $x1=$x2 and $y1=$y2 then
                        _PixelWrite($BMPHandle,$x1,$y1,$color)
                        Return 1
                EndIf
                if $x1=$x2 then
                        if $y1>$y2 Then
                                Local $hold=$y1
                                $y1=$y2
                                $y2=$hold
                        EndIf
                        For $a=$y1 to $y2
                                _PixelWrite($BMPHandle,$x1,$a,$color)
                        Next
                        Return $y2-$y1
                EndIf
                if $y1=$y2 Then
                        If $x1>$x2 Then
                                Local $hold=$x2
                                $x2=$x1
                                $x1=$hold
                        EndIf
                        for $a=$x1 to $x2
                                _PixelWrite($BMPHandle,$a,$y1,$color)
                        Next
                        Return $x2-$x1
                EndIf
        EndIf
        If $x1>$x2 Then
                Local $hold=$x2
                $x2=$x1
                $x1=$hold
                $hold=$y1
                $y1=$y2
                $y2=$hold
        EndIf
        Local $slope=($y2-$y1)/($x2-$x1)
        if $y2>$y1 Then
                Local $highy=$y2
                Local $lowy=$y1
        Else
                Local $highy=$y1
                Local $lowy=$y2
        EndIf
        If $x2-$x1>$highy-$lowy Then
                Local $stepx=1
                Local $stepy=$slope
        Else
                Local $stepx=1/abs($slope)
                if $y1>$y2 then
                        Local $stepy=-1
                Else
                        Local $stepy=1
                EndIf
        EndIf
        Local $count=0
        for $a=$x1 to $x2 step $stepx
                _PixelWrite($BMPHandle,$a,$y1+($stepy*$count),$color)
                $count+=1
        Next
        Return Sqrt(($highy-$lowy)*($highy-$lowy)+($x2-$x1)*($x2-$x1))
EndFunc
 
Func _BMPCreate ($Width,$Height)
        Local $c=Mod($Width,4)
        Local $d=Binary("")
        if $c=3 then $d=Binary("0x000000")
        if $c=2 then $d=Binary("0x0000")
        if $c=1 then $d=Binary("0x00")  
                                                                                                                ;***BMP header (54bytes total)***
        Local $Header=Binary("0x424D"& _                                ;2bytes, BM signature
                                                "00000000"& _                                   ;4bytes, filesize (optional, omitted)
                                                "0000"& _                                               ;2bytes, reserved
                                                "0000"& _                                               ;2bytes, reserved
                                                "36000000"& _                                   ;4bytes, offset to image data 
                                                "28000000"& _                                   ;4bytes, BITMAPINFOHEADER
                                                _Reverse8(Hex($Width,8))& _             ;4bytes, bitmap width
                                                _Reverse8(Hex($Height,8))& _    ;4bytes, bitmap hieght
                                                "0100"& _                                               ;2bytes, bitmap planes
                                                "1800"& _                                               ;2bytes, bitmap bitdepth
                                                "00000000"& _                                   ;4bytes, bitmap compression type (none)
                                                _Reverse8(Hex(($Height)* _
                                                ($Width)*3+($Height*$c),8))& _  ;4bytes, bitmap data size 
                                                "00000000"& _                                   ;4bytes, bitmap horizontal resolution (optional,omitted)
                                                "00000000"& _                                   ;4bytes, bitmap vertical resolution (optional,omitted)
                                                "00000000"& _                                   ;4bytes, bitmap colors (optional?, omitted)
                                                "00000000")                                             ;4bytes, important colors (optional?, omitted)
                                                                                                                ;***End Header***
        Local $rowData=Binary("")
        Local $imageData=Binary("")
        for $n=1 to $Width
                $rowData&=Binary("0xFFFFFF")
        Next
        $rowData&=$d
        for $m=1 to $Height
                $imageData&=$rowData
        Next    
        Local $BMPHandle[4]
        $BMPHandle[0]=$c
        $BMPHandle[1]=$Width
        $BMPHandle[2]=$Height
        $BMPHandle[3]=$Header&$imageData
        Return $BMPHandle
EndFunc
 
Func _BMPOpen($Path,$Progress=1)
        Local $Bpath=FileOpen($Path,16)
        If $Bpath=-1 then Return -1
        $AllOf=FileRead($Bpath)
        If BinaryMid($AllOf,1,2)<>"0x424D" then Return -2
        $x=Dec(_Reverse8(Hex(BinaryMid($AllOf,19,4))))
        $y=Dec(_Reverse8(Hex(BinaryMid($AllOf,23,4))))
        if $x=0 or $y=0 then Return -3
        for $c=$x to 0 step -4
                if $c<4 then ExitLoop 
        Next
        Local $BMPHandle[4]
        $BMPHandle[0]=$c
        $BMPHandle[1]=$x
        $BMPHandle[2]=$y
        $BMPHandle[3]=$AllOf
        return $BMPHandle
EndFunc
 
Func _PixelRead(ByRef $BMPHandle,$x,$y)
        If IsArray($BMPHandle)=False or $x>$BMPHandle[1]-1 Or $x<0 Or $y>$BMPHandle[2]-1 Or $y<0 Then Return 0
        $color = Hex(BinaryMid($BMPHandle[3],_ChordToOffset($x,$y,$BMPHandle),3))
        $color = _Reverse6($Color)
        Return $Color
EndFunc 
 
Func _PixelWrite(ByRef $BMPHandle,$x,$y,$color)
        If $x>$BMPHandle[1]-1 Or $x<0 Or $y>$BMPHandle[2]-1 Or $y<0 or StringLen($color)<>6 or Dec($Color)=0 Then Return 0
        $color = _Reverse6($Color)
        $BMPHandle[3]=BinaryMid($BMPHandle[3],1,_ChordToOffset($x,$y,$BMPHandle))&Binary("0x"&$color)&BinaryMid($BMPHandle[3],_ChordToOffset($x,$y,$BMPHandle)+4)
        Return 1
EndFunc
 
Func _ChordToOffset($x,$y,ByRef $BMPHandle)
                Local $row=($BMPHandle[1]*3+$BMPHandle[0])
                return 54+(($BMPHandle[2]*$row)-(($y+1)*$row)+($x*3))
        EndFunc
        
Func _BMPWrite(ByRef $BMPHandle,$Fpath,$Progress=1)
        if IsArray($BMPHandle)=False then Return 0
        $out=FileOpen($Fpath,18)
        if $out=-1 then return -1
        FileWrite($out,$BMPHandle[3])
        FileClose($out)
        Return 1
EndFunc
 
Func _Reverse8($inHex)
        Return StringMid($inHex,7,2)&StringMid($inHex,5,2)&StringMid($inHex,3,2)&StringMid($inHex,1,2)
EndFunc
 
Func _Reverse6($inHex)
        Return StringMid($inHex,5,2)&StringMid($inHex,3,2)&StringMid($inHex,1,2)
EndFunc
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-15 18:22 , Processed in 0.077593 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表