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

测试的效果还可以 现学现用 :face (31):

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

效果不错:face (37):

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

恩，不错哦， 呵呵
页: [1] 2
查看完整版本: 让调用的程序逐渐显示出来