var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www."); document.write(("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E")); try { var pageTracker = _gat._getTracker("UA-645550-3"); pageTracker._trackPageview(); } catch(err) {}
  • 【AU3】自动隐藏 Pidgin - [编程]

    2009-03-19

    版权声明:转载时请以超链接形式标明文章原始出处和作者信息及本声明
    http://www.blogbus.com/runningwaterpro-logs/36749817.html

    来大庆时,忘记把常用软件如 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

    分享到: