Share code Hỗ trợ căn góc siêu cao game Gunny

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 đề

Share code Hỗ trợ căn góc siêu cao game Gunny

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 đề: Share code Hỗ trợ căn góc siêu cao game Gunny Thu Mar 21, 2013 9:18 am

Share code Hỗ trợ căn góc siêu cao game Gunny

Code:
#cs ----------------------------------------------------------------------------
   
    AutoIt Version: 3.3.6.1
    Author:        Admin.Haku
                    Yahoo : mactoingaodu2001@yahoo.com.vn
    Công Dụng:
                Hỗ Trợ căn góc siêu cao cho các cao thủ gunny.
    Notes: 
            Khi code có tham khảo mã nguồn từ nhiều nguồn khác nhau.
            Khi code xin hãy ghi rõ nguồn tham khảo.
            Xin hãy tự trọng khi sử dụng mã nguồn.
    #ce ----------------------------------------------------------------------------
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
   
    Global $GUIMinWidth = "150"
    Global $GUIMinHeight = "30"
    Global $MManhinh = 10
    Global $hPen, $hGraphic
    HotKeySet('{F1}','DCGui')
    HotKeySet('{F2}','GUIResizing')
    HotKeySet('{F3}','_1ManHinh')
    HotKeySet('{esc}','MainGUIClose')
   
    Opt("GUICloseOnESC",0)
    Opt("GUIOnEventMode", 1)
    Tray()
    #Region
    $MainGUI = GUICreate("Ruler - Design by Luong The Hai", $GUIMinWidth, $GUIMinHeight, 398, 180, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
    GUISetOnEvent($GUI_EVENT_CLOSE, "MainGUIClose")
    $BG = GUICtrlCreateLabel("", 0, 0, 41, 41)
    #EndRegion
    MainGUIFix()
   
    While 1
        Sleep(1)
    WEnd
   
    Func _1ManHinh()
        Local $GUISize = WinGetPos($MainGUI)
        Local $MousePos = MouseGetPos()
        Local $GUINewWidth = $MousePos[0]-$GUISize[0]; Khoảng cách.
        $MManhinh  =  $GUINewWidth
        WinMove($MainGUI,"",$GUISize[0],$GUISize[1],$MManhinh*3)
        _DrawLine($MManhinh)
    EndFunc
   
    Func _GDIStart()
        _GDIPlus_Startup ()
        $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($MainGUI)
    EndFunc
   
    Func _DrawLine($MManhinh)
        _GDIStart()
        Local $iX1,$iY1, $iX2, $iY2, $d, $a
        $1PhanManHinh=$MManhinh/10
        ; Draw line
        $hPen = _GDIPlus_PenCreate ()
        _GDIPlus_PenSetWidth($hPen, 3)
        _GDIPlus_GraphicsDrawLine($hGraphic, 0, 20, 0, 0, $hPen)
        Do
       
            $iX1=$iX1+$1PhanManHinh    ;Tọa độ đầu của đường kẻ.
            $iY1=10                    ;Độ dài của đường kẻ.
            $iX2=$iX2+$1PhanManHinh    ;Tọa độ cuối của đường kẻ.
            $iY2=0                      ;Góc lệch của đường kẻ.
            $a+=1
            If Mod($a,2) = 0 Then $iY1+=10
            If Mod($a,5)= 0 Then
                _GDIPlus_PenSetWidth($hPen, 3)
            Else
                _GDIPlus_PenSetWidth($hPen, 1)
            EndIf
            _GDIPlus_GraphicsDrawLine($hGraphic, $iX1, $iY1, $iX2, $iY2, $hPen)
            $d=$d+$1PhanManHinh
        Until $d>=$MManhinh*4
        $iX1=0
        $iY1=0
        $iX2=0
        $iY2=0
        $d=0
    EndFunc
   
    ;~ Đóng chương trình
    Func MainGUIClose()
        _EndGDI()
        Exit
    EndFunc
   
    Func _EndGDI()
        ; Clean up resources
        _GDIPlus_PenDispose ($hPen)
        _GDIPlus_GraphicsDispose ($hGraphic)
        _GDIPlus_Shutdown ()
    EndFunc
   
    Func MainGUIFix()
        CreateNumber()
        GUISetState(@SW_SHOW,$MainGUI)
        WinSetTrans($MainGUI,'',150)
    EndFunc
   
    Func Tray()
        Opt('TrayMenuMode',2+1)
        Opt('TrayOnEventMode',1)
        TrayCreateItem('Exit')
        TrayItemSetOnEvent(-1,'MainGuiClose')
        TrayCreateItem('')
        TrayCreateItem('Design by Luong The Hai.')
        TrayItemSetOnEvent(-1,'_design')
        TrayCreateItem('Yahoo :Sky_Finally@yahoo.com.vn')
    EndFunc
   
    Func _design()
        MsgBox(0,'Notes !','Soft có tham khảo mã nguồn từ nhiều nguồn.')
    EndFunc
   
    Func CreateNumber()
        Global $LNumber = GUICtrlCreateLabel(2500,0,55,50,20)
    EndFunc
   
    Func DCGui()
        Local $MousePos = MouseGetPos()
        WinMove($MainGui,'',$MousePos[0],$MousePos[1])
    EndFunc
   
    ;~ Kiểm tra để thay đổi kích thước GUI
    Func GUIResizing()
        Local $GUISize = WinGetPos($MainGUI)
        Local $MousePos = MouseGetPos()
        Local $GUINewWidth = $MousePos[0]-$GUISize[0];+50
   
        If $GUINewWidth<0 Then
            WinMove($MainGUI,'',$MousePos[0],$MousePos[1])
            $GUINewWidth=Abs($GUINewWidth)
        EndIf
   
        MoveNumber($GUINewWidth);-50)
        WinMove($MainGUI,"", Default, Default,$GUINewWidth)
    ;~  WinMove($MainGUI,"",$GUISize[0],$GUISize[1],$GUINewWidth)
        _DrawLine($MManhinh)
        tooltip($GUINewWidth,0,0)
    EndFunc
   
    Func LNumberSet($NewValue = "")
        Local $Check = LNumberGet()
        If $Check <> $NewValue Then
            GUICtrlSetData($LNumber,$NewValue)
        EndIf
    EndFunc
   
    Func LNumberGet()
        Return GUICtrlRead($LNumber)
    EndFunc
   
    Func MoveNumber($Number)
        GUICtrlSetPos($LNumber,$Number,55)
        LNumberSet($Number-50)
    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

nhoxtheanh
Member

Tổng bài gửi : 1
Được Cảm Ơn : 0
Tài năng của nhoxtheanh
Hạng: Member
Level:1
Tài năng:/300

Bài gửiTiêu đề: Re: Share code Hỗ trợ căn góc siêu cao game Gunny Thu Jun 12, 2014 12:46 pm

dùng code này như thế nào vậy ad  a8 

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

Về Đầu Trang Go down

Xem lý lịch thành viên

Tiêu đề

Share code Hỗ trợ căn góc siêu cao game Gunny

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-