Autoit Tự động vẽ text bằng chuột (very cool)

Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập


Welcome to Forums Haku
Chào mừng các bạn đến với diễn đàn
Chúc các bạn có những giờ phút thư giãn thoải mái tại diễn đàn
Chúc các bạn luôn thành công trong cuộc sống

<--Code by Admin Haku -->

Share|
Tiêu đề

Autoit Tự động vẽ text bằng chuột (very cool)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down
Tác giảThông điệp

Admin
Member
avatar

Tổng bài gửi : 1074
Được Cảm Ơn : 538
Đến từ : Hà Ná»™i
Tài năng của Admin
Hạng: Member
Level:1074
Tài năng:/300


Tài Sản
Huân Chương: PhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucket

Bài gửiTiêu đề: Autoit Tự động vẽ text bằng chuột (very cool) Mon Jul 08, 2013 9:19 pm

Autoit Tự động vẽ text bằng chuột (very cool)

Bấm h để nhập text, bấm h cái nữa để thực hiện vẽ
Khi vẽ nhớ mở paint ra, để nó vẽ bằng bút chì




Code:
;Bấm b để nhập text, bấm b cĂ¡i nữa để thá»±c hiện vẽ
;Khi vẽ mở paint ra, để nĂ³ vẽ bằng bĂºt chì
;CĂ¡i nĂ y khĂ¡ lĂ  hay em chĂ´m trĂªn AutoitScriptForum
HotKeySet("h", "InputOrDraw")
HotKeySet("{ESC}", "Terminate")
$TakeInput = 1
$TextToDraw = ""
While 1
    Sleep(100)
WEnd

Func InputOrDraw()
    if $TakeInput = 1 then
        $TextToDraw = InputBox("Haku.4rumer.Com", "Hãy nhập nội dung vào khung rưới", "Haku Love MaiNa", "", 205, 114)
        $TakeInput = 0
    Else
        DrawText($TextToDraw)
        $TakeInput = 1
    EndIf

EndFunc

Func DrawText($DrawThis)
    While StringLen($DrawThis) > 0
        $NextLetter = StringLeft($DrawThis, 1)
        Select
            Case $NextLetter = "a"
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1)-10)
                MouseDown("")
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0)+2, MouseGetPos(1)+11)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)-1)
            Case $NextLetter = "b"
                Mousemove(MouseGetPos(0), MouseGetPos(1)-20)
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)+20)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                MouseUp("")
                Mousemove(MouseGetPos(0)+15, MouseGetPos(1)+10)
            Case $NextLetter = "c"
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1)-8)
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-2)
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-1)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+1)
            Case $NextLetter = "d"
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1)-20)
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)+20)
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+10)
            Case $NextLetter = "e"
                Mousemove(MouseGetPos(0), MouseGetPos(1)-5)
                MouseDown("")
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-5)
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-2)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+2)
            Case $NextLetter = "f"
                Mousemove(MouseGetPos(0)+4, MouseGetPos(1))
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-20)
                Mousemove(MouseGetPos(0)+6, MouseGetPos(1))
                MouseUp("")
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1)+8)
                MouseDown("")
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+12)
            Case $NextLetter = "g"
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1)-10)
                MouseDown("")
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0), MouseGetPos(1)+20)
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-2)
                MouseUp("")
                Mousemove(MouseGetPos(0)+15, MouseGetPos(1)-8)
            Case $NextLetter = "h"
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-20)
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1))
            Case $NextLetter = "i"
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-13)
                MouseUp("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-3)
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-2)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+18)
            Case $NextLetter = "j"
                MouseDown("")
                Mousemove(MouseGetPos(0)+6, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-13)
                MouseUp("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-3)
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-2)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+18)
            Case $NextLetter = "k"
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-17)
                MouseUp("")
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1)+2)
                MouseDown("")
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1)+7)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1)+8)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1))
            Case $NextLetter = "l"
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-17)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+17)
            Case $NextLetter = "m"
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0)+6, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0)+6, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1))
            Case $NextLetter = "n"
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1))
            Case $NextLetter = "o"
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                MouseUp("")
                Mousemove(MouseGetPos(0)+15, MouseGetPos(1))
            Case $NextLetter = "p"
                MouseDown("")
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+20)
                MouseUp("")
                Mousemove(MouseGetPos(0)+15, MouseGetPos(1)-10)
            Case $NextLetter = "q"
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                MouseDown("")
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+20)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)-10)
            Case $NextLetter = "r"
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0)+7, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)+2)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+8)
            Case $NextLetter = "s"
                MouseDown("")
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-5)
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-5)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+10)
            Case $NextLetter = "t"
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1))
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)-17)
                MouseUp("")
                Mousemove(MouseGetPos(0)-5, MouseGetPos(1)+7)
                MouseDown("")
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+10)
            Case $NextLetter = "u"
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+10)
            Case $NextLetter = "v"
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                MouseDown("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)-10)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+10)
            Case $NextLetter = "w"
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                MouseDown("")
                Mousemove(MouseGetPos(0)+4, MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)+4, MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0)+4, MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)+4, MouseGetPos(1)-10)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1)+10)
            Case $NextLetter = "x"
                MouseDown("")
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1)-10)
                MouseUp("")
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                MouseDown("")
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1)+10)
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1))
            Case $NextLetter = "y"
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                MouseDown("")
                Mousemove(MouseGetPos(0), MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                Mousemove(MouseGetPos(0), MouseGetPos(1)+20)
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1))
                MouseUp("")
                Mousemove(MouseGetPos(0)+15, MouseGetPos(1)-10)
            Case $NextLetter = "z"
                Mousemove(MouseGetPos(0), MouseGetPos(1)-10)
                MouseDown("")
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                Mousemove(MouseGetPos(0)-10, MouseGetPos(1)+10)
                Mousemove(MouseGetPos(0)+10, MouseGetPos(1))
                MouseUp("")
                Mousemove(MouseGetPos(0)+5, MouseGetPos(1))
            Case $NextLetter = " "
                Mousemove(MouseGetPos(0)+15, MouseGetPos(1))
            Case Else
                MsgBox(0, "", "Chỉ có thể vẽ được những chữ cái từ a-z")
        EndSelect
        $DrawThis = StringTrimLeft($DrawThis, 1)
    WEnd
EndFunc

Func Terminate()
    Exit 0
EndFunc

Hãy cám ơn bài viết của Admin bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://haku.4rumer.com

Tiêu đề

Autoit Tự động vẽ text bằng chuột (very cool)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang
::.
Permissions in this forum:Bạn không có quyền trả lời bài viết
Forum Häkü Cộng Đồng Chém Gió :: CONG NGHE THONG TIN :: Thủ thuật-