找回密码
 加入
搜索
查看: 1146|回复: 3

如何使用AU3实现这个功能

[复制链接]
发表于 2009-7-1 12:52:47 | 显示全部楼层 |阅读模式
本帖最后由 TheBelief 于 2009-7-1 13:02 编辑

如题!我查了很多代码都没办法实现,高手出来吧!ToolTip太难看了

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×

评分

参与人数 1金钱 +10 收起 理由
nboss888 + 10

查看全部评分

发表于 2009-7-1 12:55:26 | 显示全部楼层
下来帮你研究下
 楼主| 发表于 2009-7-1 13:03:20 | 显示全部楼层
2# nboss888

谢谢你   在线等你的消息
发表于 2009-7-1 14:08:50 | 显示全部楼层
本帖最后由 lynfr8 于 2009-7-1 14:13 编辑
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
$gonggao=GUICreate("gonggao",@DesktopWidth,@DesktopHeight/20,"","",0x80000000)
$Label=GUICtrlCreateLabel("",-1,-1,@DesktopWidth,@DesktopHeight/20)
                GUISetBkColor(0xE0FFFF) 
                WinSetTrans("gonggao", "", 180);
                GUICtrlSetColor(-1, 0xFF0000)
        WinSetOnTop("gonggao", "", 1);
        GUISetState(@SW_SHOW)
                $sNew ="此处狼群经常出入,敬请注意人身安全!                 此乃lynfr8所写的公告动态显示!                 "
                Local $s, $a= StringSplit($sNew, ""), $i
                While 1
                For $i = $a[0] To 1 Step - 1
                        Sleep(200)
                                $s = $a[$i]&$s
                GUICtrlSetData($Label,$s)
                 $font = "Comic Sans MS"
         GUICtrlSetFont(-1, 22, 400, 2, $font)
                 _ReduceMemory(@AutoItPID);释放内存
        Next
  
        WEnd
Func _ReduceMemory($i_PID = -1);内存释放函数
        If $i_PID <> -1 Then
                Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess','int', 0x1f0fff, 'int', False, 'int', $i_PID)
                Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet','long', $ai_Handle[0])
                DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
        Else
                Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet','long', -1)
        EndIf

        Return $ai_Return[0]
EndFunc 

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-9-23 01:31 , Processed in 0.080397 second(s), 27 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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