[Code] VIP-Ruler v1.0 - Hỗ Trợ căn góc siêu cao cho các cao thủ gunny

by **Admin** Mon Dec 17, 2012 3:23 am

Code:: #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.6.1 Author: Lương Thế Hai Yahoo : Sky_Finally@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