fuldho
发表于 2010-2-3 14:05:06
感谢“gapkiller”的无私帮助,老菜鸟非常感激,再次谢谢了!
afan
发表于 2010-2-3 17:48:25
这是我一个未弄完的小软件部分(exe文件),虽没附源码,但有源码解说。
gapkiller
发表于 2010-2-3 19:04:13
这是我一个未弄完的小软件部分(exe文件),虽没附源码,但有源码解说。
afan 发表于 2010-2-3 17:48 http://www.autoitx.com/images/common/back.gif
学习了...
gapkiller
发表于 2010-2-3 19:06:06
至于闪的问题,其实我还想到了内嵌IE...
catcher
发表于 2010-2-3 19:14:43
回复 19# gapkiller
期待牛人出招
catcher
发表于 2010-2-3 19:15:04
回复 17# afan
看看大作
lchl0588
发表于 2010-2-3 20:22:27
这是偶从别人的代码改的#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$a="2010年02月3日"
$Form1 = GUICreate("2010年02月3日", 790,586)
$Label1 = GUICtrlCreateLabel($a, 320,580,572, 17,$SS_CENTERIMAGE)
GUISetState(@SW_SHOW)
$b = 1
While 1
if $b = 635 Then $b = 1
sleep (10)
ControlMove ($a,"", $Label1,320,580-$b, 572, 17)
$b +=1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd如何完善文字的显示,偶不想说了
lchl0588
发表于 2010-2-3 20:40:01
回复 17# afan
为什么运行这个帖的四楼代码 会出现
错误呢?
而我把If $s >= 188 Then AdlibUnRegister()改为If $s >= 188 Then Exit就没事了!!!
afan
发表于 2010-2-3 20:43:24
回复 23# lchl0588
你的Au版本?
lchl0588
发表于 2010-2-3 20:45:53
回复 24# afan
v3.3.1.1 (beta)
afan
发表于 2010-2-3 20:48:06
本帖最后由 afan 于 2010-2-3 20:52 编辑
将括号里面加一对引号即可。If $s >= 188 Then AdlibUnRegister('')以下版本及之上版本不用加。
3.3.1.2 (2009-10-14) (Beta)
AdlibUnRegister()'s function argument is now optional.Called without arguments causes the last registered function to be unregistered.
lchl0588
发表于 2010-2-3 20:53:22
本帖最后由 lchl0588 于 2010-2-3 20:55 编辑
汗,我试过,加了之后,无循环的向右一直走下去,没有结束语,不会停止的
偶的英文不好,看了中文的:
AdlibUnRegister()的函数的参数现在是可选的。所谓原因不带参数的最后登记职能未经注册。
lchl0588
发表于 2010-2-3 20:53:26
本帖最后由 lchl0588 于 2010-2-3 21:05 编辑
如果到头后,再调用别的函数,或许更好些!!!!
回复 29# afan
呵呵,这个改法在问之前我也试过,到头就停在那里了,应该消失才对吧!!!
如果不消失,那做这段代码就无意义了!!
afan
发表于 2010-2-3 20:58:36
回复 28# lchl0588
那就是 If $s >= 188 Then AdlibUnRegister('myadlib') 了,汗
tnt844
发表于 2010-2-3 23:53:10
学到一招,收藏备用先!多谢gapkiller