让调用的程序逐渐显示出来

sysdzw · 发表于 2009-3-28 00:07:48

Opt("WinTitleMatchMode", 2) ; 匹配子字符串
Run("notepad.exe","",@SW_HIDE)
WinWait("无标题 - 记事本")
WinActivate("无标题 - 记事本")
WinSetOnTop("无标题 - 记事本", "", 1)
WinSetTrans("无标题 - 记事本", "", 1)
WinSetState("无标题 - 记事本", "", @SW_SHOW)

Dim $I
For $I = 1 To 240
        Sleep (1)
        WinSetTrans("无标题 - 记事本", "", $I) ;让记事本半透明.        
Next
Send("exit")

www.symental.com

sysdzw · 发表于 2009-3-28 00:09:06

测试的效果还可以现学现用

t01001 · 发表于 2009-5-13 23:28:31

有点意思，还是顶一下

zjg2003 · 发表于 2009-5-14 12:57:59

有点意思,比那个调用API的简单多了,一看就懂

fyhwaijxnt78 · 发表于 2009-6-16 15:52:40

换调别的程序，拖拉机！
会先把这个个拖拉机调出，然后自己会关闭！

关闭后，又出个拖拉机程序.
这次的会逐渐显示出来,第一次的不会？

问怎么会调出两个呢？

menfan · 发表于 2009-6-16 18:07:48

呵呵，有意思：）

penguinl · 发表于 2009-6-17 23:06:08

效果不错

codger · 发表于 2009-6-18 01:06:20

很有意思的程序

flycntl · 发表于 2009-6-26 01:12:03

士大夫似的警方

flycntl · 发表于 2009-6-26 01:12:07

都是大师傅士大夫

flycntl · 发表于 2009-6-26 01:12:10

撒旦发射点发射点

flycntl · 发表于 2009-6-26 01:12:20

大师傅士大夫但是

flycntl · 发表于 2009-6-26 01:12:25

斯蒂芬是对方的身份

xavier880819 · 发表于 2009-7-17 11:45:35

为什么都说效果不错，我就是运行不起来呢？？

songtao · 发表于 2009-8-6 00:02:16

恩，不错哦，呵呵

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

[原创] 让调用的程序逐渐显示出来