每周任务#2

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

.................我还在...用3.2..

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

学习了,兔子问题,嘿嘿

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