CF准心器 CF准星瞄准器永久可用版：
梦工厂倒了....看到有人要就再发一次...&&&& 源码也可以给你们...有人说，怕被CF检测，怕有什么问题，我不多说了，我可以100%的肯定，永久可以使用，绝对不会被封，代码是2年前写的& -& - ！ 你说会封吗？
Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H
Const MAX_PATH As Integer = 260
Private Type PROCESSE***Y32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
Private Declare Function CreateToolhelp32Snapshot Lib &kernel32& (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib &kernel32& (ByVal hSnapShot As Long, uProcess As PROCESSE***Y32) As Long
Private Declare Function Process32Next Lib &kernel32& (ByVal hSnapShot As Long, uProcess As PROCESSE***Y32) As Long
Private Declare Sub ExitProcess Lib &kernel32& (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib &kernel32& (ByVal hProcess As Long, lpExitCode As Long) As Long
Function exitproc(ByVal exefile As String) As Boolean
exitproc = False
Dim hSnapShot As Long, uProcess As PROCESSE***Y32
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
uProcess.dwSize = Len(uProcess)
r = Process32First(hSnapShot, uProcess)
Do While r
If Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) & 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0)) = exefile Then
exitproc = True
r = Process32Next(hSnapShot, uProcess)
End Function
Option Explicit
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const WS_EX_TRANSPARENT As Long = &H20&
Private Declare Function SetLayeredWindowAttributes Lib &user32& (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib &user32& Alias &GetWindowLongA& (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib &user32& Alias &SetWindowLongA& (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib &user32& (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function ReleaseCapture Lib &user32& () As Long
Private Declare Function SendMessage Lib &user32& Alias &SendMessageA& (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Declare Function GetAsyncKeyState Lib &user32& (ByVal vKey As Long) As Integer
Private Declare Function GetCursorPos Lib &user32& (lpPoint As POINTAPI) As Long
Private Type POINTAPI
Dim pos As POINTAPI
Private Sub Form1_DblClick()
Move Screen.Width / 2 - 240, Screen.Height / 2 - 240, 480, 480
Private Sub Form_Load()
Form2.Show
Form4.Show
Dim Ret As Long
Ret = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
SetWindowLong Me.hwnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hwnd, 0, 255, LWA_ALPHA
Form1.Enabled = False
Timer1.Enabled = True
Timer3.Enabled = True
Const LENGTH = 8& '长度
Const THICK_NESS = 0&
BorderStyle = 0: Caption = &十字准星&: App.TaskVisible = False
BackColor = vbWhite: ForeColor = vbRed: AutoRedraw = True: ScaleMode = vbPixels
Form1_DblClick
Line ((LENGTH - THICK_NESS) \ 2, 0)-((LENGTH - THICK_NESS) \ 2 + THICK_NESS, LENGTH), , BF
Line (0, (LENGTH - THICK_NESS) \ 2)-(LENGTH, (LENGTH - THICK_NESS) \ 2 + THICK_NESS), , BF
SetWindowPos hwnd, -1, 0, 0, 0, 0, &H20 Or &H2 Or &H1
SetWindowLong hwnd, (-20), GetWindowLong(hwnd, (-20)) Or &H80000
SetLayeredWindowAttributes hwnd, vbWhite, 0, &H1
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Unload Me
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then ReleaseCapture: SendMessage hwnd, &HA1, 2, 0
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyUp) Then
Form1.Top = Form1.Top - 18
If GetAsyncKeyState(vbKeyLeft) Then
Form1.Left = Form1.Left - 18
If GetAsyncKeyState(vbKeyDown) Then
Form1.Top = Form1.Top + 18
If GetAsyncKeyState(vbKeyRight) Then
Form1.Left = Form1.Left + 18
If GetAsyncKeyState(vbKeyF9) Then
If Form1.Visible = False Then
Form1.Visible = True
Form1.Visible = False
If GetAsyncKeyState(vbKeyF10) Then
If Timer3.Enabled = False Then
Timer3.Enabled = True
Timer3.Enabled = False
If GetAsyncKeyState(vbKeyF12) Then
If Form4.Visible = False Then
Form4.Visible = True
Form4.Visible = False
Private Sub Timer3_Timer()
GetCursorPos pos
Label1.Caption = pos.X & &,& & pos.Y
Form1.Top = pos.Y * Screen.TwipsPerPixelY - 65
Form1.Left = pos.X * Screen.TwipsPerPixelY - 60
☉推荐使用QQ旋风下载本站软件，使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请联系我们（见页尾）,谢谢合作!!
☉凡本站资源经过站长查毒后上传，以防万一，如发现问题请立刻联系我们。
☉如果遇到什么问题，请到本站论坛去咨询，我们将在那里提供更多 、更好的资源！
☉本站提供的外挂资源均来自网络,本站只做收集汇总工作,由外挂导致的任何问题与本站无关!