郑和是穆斯林:窗口置顶与透明

来源：百度文库 编辑：偶看新闻 时间：2024/05/03 09:41:48
窗口置顶与透明2009-12-12 22:30 #Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile_type=a3x
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include

Opt("TrayMenuMode", 1)
Opt("WinTitleMatchMode", 2)
Opt("GUICloseOnESC", 0)

$xianshi = TrayCreateItem("显示窗口")
TrayCreateItem("")
$zhiding = TrayCreateItem("置顶   F8")
$qxzhiding = TrayCreateItem("取消置顶 F9")
TrayCreateItem("")
$guanyu = TrayCreateItem("关于")
TrayCreateItem("")
$_exit = TrayCreateItem("退出")
TraySetState()

Dim $i = 1, $bck, $dqck = "1", $ck, $dqtmd, $cftmd

HotKeySet("", "zhiding");;置顶
HotKeySet("", "qxzhiding");;取消置顶
HotKeySet("!1", "tmd");;完全透明
HotKeySet("!2", "tmd");;半透明
HotKeySet("!3", "tmd");;不透明
HotKeySet("!4", "zjtm");;减少不透明
HotKeySet("!5", "jstm");;增加不透明

GUICreate("置顶与透明", 420, 200, 100, 200)
$slider1 = GUICtrlCreateSlider(10, 70, 400, 40)
GUICtrlSetLimit(-1, 255, 0)
$Label1 = GUICtrlCreateLabel("请点击一个要操作的窗口", 40, 35, 360, 35)
GUICtrlSetColor(-1, 0x0000FF)
$Label2 = GUICtrlCreateLabel("操作窗口：", 15, 15, 100, 17)
$Label3 = GUICtrlCreateLabel("Alt+1完全透明   " & @TAB & @TAB & "Alt+2半透明     " & @TAB & @TAB & " Alt+3不透明", 20, 112, 380, 17)
GUICtrlSetColor(-1, 0x806080)
$Label4 = GUICtrlCreateLabel('Alt+"4" 增加透明度         Alt+"5" 增加不透明度', 50, 130, 350, 17)
GUICtrlSetColor(-1, 0xFF0000)
$button1 = GUICtrlCreateButton("置     顶   (F8)", 50, 150, 130, 30)
$button2 = GUICtrlCreateButton("取消置顶   (F9)", 230, 150, 130, 30)
GUISetState()
GUICtrlSetData($slider1, 255)     ; set cursor
WinSetOnTop(WinGetTitle(""), "", $i)
$bck = WinGetTitle("")
While 1
     $msg = TrayGetMsg()
     $nMsg = GUIGetMsg()    
     If $nMsg = $GUI_EVENT_CLOSE or $msg=$_exit Then Exit
     If $nMsg = $GUI_EVENT_MINIMIZE Then WinSetState($bck,"",@SW_HIDE)
     If $msg = $xianshi Then WinSetState ($bck,"",@SW_RESTORE)
     if $msg=$guanyu then MsgBox(64,"关于","作者：星驰周 "&@CRLF&"完成于2008年5月21日")
     If $nMsg = $button1 Or $msg = $zhiding Then zhiding()
     If $nMsg = $button2 Or $msg = $qxzhiding Then qxzhiding()
     $dqtmd = GUICtrlRead($slider1)
     If $dqtmd <> $cftmd And GUICtrlRead($Label1) <> "" Then
         WinSetTrans($dqck, "", $dqtmd)
         $cftmd = $dqtmd
     EndIf
     $ck = WinGetTitle("")
     If $ck <> $bck And $ck <> $dqck and $ck<> "AutoIt V3" Then
         $dqck = $ck
         GUICtrlSetData($Label1, $dqck)
     EndIf
     Sleep(20)
WEnd
Func zhiding()
     WinSetOnTop($dqck, "", 1)
     GUICreate("置顶与透明", 420, 200, 100, 200, "", "", $dqck)
     WinSetOnTop($bck, "", 1)
EndFunc   ;==>zhiding
Func qxzhiding()
     WinSetOnTop($dqck, "", 0)
EndFunc   ;==>qxzhiding
Func tmd()
     If @HotKeyPressed = "!1"   Then WinSetTrans($dqck, "", 0)
     If @HotKeyPressed = "!2"   Then WinSetTrans($dqck, "", 150)
     If @HotKeyPressed = "!3"   Then WinSetTrans($dqck, "", 255)
     GUICtrlSetData($slider1, $dqtmd)
EndFunc   ;==>tmd
Func wqtm()
     WinSetTrans($dqck, "", 0)
EndFunc   ;==>wqtm
Func bantm()
     WinSetTrans($dqck, "", 150)
EndFunc   ;==>bantm
Func butm()
     WinSetTrans($dqck, "", 255)
EndFunc   ;==>butm
Func zjtm()
     If $dqtmd >= 5 Then
         $dqtmd = $dqtmd - 5
         GUICtrlSetData($slider1, $dqtmd)
         WinSetTrans($dqck, "", $dqtmd)
     EndIf
EndFunc   ;==>zjtm
Func jstm()
     If $dqtmd < 251 Then
         $dqtmd = $dqtmd + 5
         GUICtrlSetData($slider1, $dqtmd)
         WinSetTrans($dqck, "", $dqtmd)
     EndIf
EndFunc   ;==>jstm
REALONE 怎么窗口置顶 怎么设置窗口置顶啊 windows media player窗口能置顶？怎么置顶？ 怎么样让运行的软件窗口置顶? VB中如何让窗口置顶 windows怎么设置窗口置顶啊 如何让窗口置顶，像QQ登陆窗口一样 如果编程判断桌面上是否有置顶的窗口 编程怎么实现win窗口置顶且不覆盖其他窗口？说明原理即可。 qq空间的日志等窗口透明 怎样把qqzone窗口变透明 怎样可以让windows的窗口透明? 透明动漫与幻灯片融合 有没有 什么窗口自动普通大小而且置顶的方法呢 ？ 如何在窗口上绘制 32 位的透明位图 怎么使QQ空间 日志等栏目的窗口透明 怎么使QQ空间 日志等栏目的窗口透明 诚求QQ空间窗口透明代码（超难） QQ空间时打开总是出现大的透明窗口。。 norton 软件打开的窗口是透明的啊 vb 我想让窗口某一颜色的图形透明. 有没有可以让所有有窗口透明的软件 vb中有没有办法让窗口背景色改为透明 如何设置QQ空间的代码(如设置窗口透明)