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

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

本帖最后由 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[0]-$l, $p[1]-$l, $p[2]+$l*2, $p[3]+$l*2)
                $x=WinGetPos($Form1_1)
                
        Else
                $k=$i-12
                WinMove($Form1_1, "", $x[0]+$k, $x[1]+$k, $x[2]-$k*2, $x[3]-$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[0]-1, $p[1]-1, $p[2]+2, $p[3]+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内存。
也没有出现多种同名进程的事。

水木子 · 发表于 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

你别吓我啊，我机器最近不正常呢

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 下测试正常。。。

		自动登录	找回密码
密码			加入

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

本帖子中包含更多资源

评分