论坛 › 『 GUI 交流 』 › 交流一下迅雷7的新建任务窗口的打开关闭特效

xyold1 发表于 2010-10-30 21:33:57

交流一下迅雷7的新建任务窗口的打开关闭特效

本帖最后由 xyold1 于 2010-10-30 21:41 编辑

迅雷7的新建任务窗口的打开关闭特效做得很不错，用AU3实现也很容易，下面代码，只是模仿得不太像，有兴趣的高手帮帮优化一下。
另：在测试程序的时候产生了很多的conime.exe进程，不知为什么，请专家解惑。

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Global $Form1_1
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("窗口测试", 205, 120, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Button1 = GUICtrlCreateButton("测试", 56, 40, 97, 33)
GUICtrlSetOnEvent(-1, "Button1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        Sleep(100)
WEnd
Func Form1Close()
Exit
EndFunc

Func Button1Click()
#Region ### START Koda GUI section ### Form=

$Form1_1 = GUICreate("Show me", 237, 78, 172, 104, -1,-1,$Form1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")

$Label1 = GUICtrlCreateLabel("动态显示效果测试：", 16, 16, 112, 17)
WinSetTrans ($Form1_1, "",0 )
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$p=WinGetPos($Form1_1)
For $i=1 To 17
        WinSetTrans ($Form1_1, "", $i*15 )
        If $i<12 Then
                $l=$i
                WinMove($Form1_1, "", $p-$l, $p-$l, $p+$l*2, $p+$l*2)
                $x=WinGetPos($Form1_1)
               
        Else
                $k=$i-12
                WinMove($Form1_1, "", $x+$k, $x+$k, $x-$k*2, $x-$k*2)
        EndIf
        Sleep($i)
Next

EndFunc
Func Form1_1Close()
       
For $i=17 To 1 Step -1
       
        WinSetTrans ($Form1_1, "", $i*15 )

                $l=$i
                $p=WinGetPos($Form1_1)
                WinMove($Form1_1, "", $p-1, $p-1, $p+2, $p+2)
        Sleep(5)
Next

GUIDelete ( $Form1_1 )
EndFunc

飘云 发表于 2010-10-30 23:13:49

效果不错，我测试了下，没产生很多的conime.exe进程，我的是win7

飘云 发表于 2010-10-30 23:24:41

本帖最后由 飘云 于 2010-10-30 23:26 编辑

虽然不知道为啥出现那么多conime.exe，这个进程和输入法有关呀=。=，不过有一点，WinSetTrans这个函数在win7工作很正常，但是在xp下就不一定了，我碰上过好几个用xp的使用此函数后，窗体卡的要死，点击后还有可能出现未响应的情况，也就是说使用这种代码产生特效的工具，在有些机子上会很卡很卡

chenronting 发表于 2010-10-31 07:36:00

我在XPSP3下试过了， 很好的效果。 E5400\2G内存 。
也没有出现多种同名进程的事。{:face (88):}

水木子 发表于 2010-10-31 09:08:40

conime.exe 是输入法编辑器相关程序进程！

anchie 发表于 2010-10-31 09:31:32

在XP下测试正常

nmgwddj 发表于 2010-10-31 17:12:52

conime,曾经机器狗病毒的药引子

6678720 发表于 2010-11-4 11:34:43

在XP SP3下测试，运行正常，效果很倩，谢谢楼主。

jy010 发表于 2010-11-4 22:50:03

效果不错，我测试了下Win7

helloxaj 发表于 2010-11-5 01:48:31

win7 X64 ultimate 英文版 测试一切正常，效果很好。

xyold1 发表于 2010-11-5 19:35:24

回复 7# nmgwddj


    你别吓我啊，我机器最近不正常呢{:face (43):}

xyold1 发表于 2010-11-5 19:38:30

谢谢楼上各位，有兴趣可以再优化一下，感觉和迅雷7和效果相比还差一点

penguinl 发表于 2010-11-5 21:18:19

感觉不错啊！也没出现多余的conime.exe进程！conime.exe进程一般是不会出现的，它主要是在CMD窗口下控制输入法的！曾经确实是机器狗的引子，现在是鬼影的影子，我们网吧已经中过这种鬼影了，开机的时候出现了两个conime.exe！楼主你要好好检查下了，哈哈！

afan 发表于 2010-11-5 21:20:58

试了一下，的确有意思哦~ 也没错误~
不知道迅雷7是啥样，没发言权~

scandisk 发表于 2010-11-6 13:33:36

win2003 R2 下测试正常。。。{:face (411):}

查看完整版本: 交流一下迅雷7的新建任务窗口的打开关闭特效