注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

翱翔的板儿砖

——燃烧吧,小宇宙!

 
 
 

日志

 
 

【AU3】自动隐藏 Pidgin  

2008-10-15 14:59:01|  分类: 编程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

来大庆时,忘记把常用软件如 The World、ThuderBird、Miranda 什么的带来,想等到下次回家时再带来,因为把这些软件配置到最适合也很麻烦。

昨天用到的 IM 工具特别多,发现自己已经濒临崩溃的边缘,于是不再等待,上网找!

新的 Miranda 不错,不过仍然是经常性地连不上 QQ,于是继续走老路,找 Pidgin。配置起来很方便,但 Pidgin 的插件中只有一个类似 ICQ 那样的停靠,而没有我习惯的 QQ 风格停靠,于是决定使用 AutoIt 来实现。由于只是自己用,所以停靠的风格比较单一,需要的朋友可以自己修改修改。

$Snap = True
HotKeySet("{PAUSE}",
"RestoreAndExit"
)
WinSetOnTop("好友列表",
"", 1
)
While
True
    If WinExists("好友列表")
Then
        If Not $Snap
Then
            WinMove("好友列表", "", -1,
-1)
            WinSetOnTop("好友列表", "", 0)
            Exit
       
EndIf
        $MousePos = MouseGetPos
()
        $BuddyListPos = WinGetPos
("好友列表")

        If InRect($MousePos, $BuddyListPos) Then
            WinMove("好友列表", "", -1,
-1)
        Else
            WinMove("好友列表", "", -$BuddyListPos[2] + 5,
0)
        EndIf
   
EndIf
    Sleep(300
)
WEnd

Func
InRect($Pos1, $Pos2
)
    If ($Pos1[0] > $Pos2[0]) And ($Pos1[0] <= $Pos2[2] + $Pos2[0]) And ($Pos1[1] > $Pos2[1]) And ($Pos1[1] <= $Pos2[1] + $Pos2[3])
Then
        Return
True
   
Else
        Return
False
   
EndIf
EndFunc
  
;==>InRect

Func RestoreAndExit
()
    $Snap =
False
EndFunc
  ;==>StopAndExit

 

  评论这张
 
阅读(749)| 评论(4)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017