KiwiCsj 发表于 2009-5-21 23:00:35

七天都过了，怎么没有人补上任务2A呢？

我也写不出来，拷贝叁恨的函数给大家参考：

http://www.autoitx.com/forum.php?mod=viewthread&tid=828


BTW:期待每周任务3。。

hhasee 发表于 2009-5-23 09:18:01

高手，高手，高高手！！

rolaka 发表于 2009-5-24 13:26:24

本帖最后由 rolaka 于 2009-5-24 14:04 编辑


#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

InetGet("http://www.fontsquirrel.com/fonts/download/Journal", "Journal.zip")
RunWait("winrar e Journal.zip", @ScriptDir)
DllCall("gdi32.dll", "none", "AddFontResourceA", "str", @ScriptDir & "/journal.ttf")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("每周任务#2", 310, 154, 192, 124)
$Label1 = GUICtrlCreateLabel("Hyperion~", 6, 10, 325, 132)
GUICtrlSetFont(-1, 72, 400, 0, "Journal")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        If GUIGetMsg() == $GUI_EVENT_CLOSE Then
                Exit
        EndIf
WEnd

Func OnAutoItExit()
        DllCall("gdi32.dll", "none", "RemoveFontResourceA", "str", @ScriptDir & "/journal.ttf")
        FileDelete("Freeware License.txt")
        FileDelete("journal.ttf")
EndFunc   ;==>OnAutoItExit


....ok了...

thesnow 发表于 2009-5-29 18:16:51

2A在3.3.1.0 ADF中有注册的代码。当然，不是很完善。

rolaka 发表于 2009-6-1 10:12:47

2A在3.3.1.0 ADF中有注册的代码。当然，不是很完善。
thesnow 发表于 2009-5-29 18:16 http://www.autoitx.com/images/common/back.gif
.................我还在...用3.2..

superflq 发表于 2009-7-17 16:13:18

学习了,兔子问题,嘿嘿
页: 1 [2]
查看完整版本: 每周任务#2