关于在电脑屏幕直接输出想要的图形,游戏外挂必备!
各位大侠,我想为cf(穿越火线)这游戏做一个辅助准心,就是在屏幕上全屏的画居中的互相垂直的两条细直线,我知道在VB中在from中划线,但这用不到游戏中,怎么样才能脱离窗口直接在屏幕上显示呢,要求在游戏画面上也能显示,cf不是窗口游戏,是全屏游戏,希望会的大哥大姐教教我,小弟在此谢过了。我QQ635357375,我这是个人用,绝不是什么商业化,当然以我的水平也不可能商业化,呵呵!
[解决办法]
自制外挂?
不懂,顶一个……
[解决办法]
做一个透明窗口,再这个窗口上画2条线,再把这个窗口置顶,也就是总在最前
[解决办法]
a)透明胶带,画+字
b)用缝衣线在屏幕上拉两条对角线,就是一个 X
[解决办法]
拿肥皂或香皂在屏幕中心画个十字恐怕更容易些!
[解决办法]
我大学一室友打CS练盲狙的时候,还真的干过在屏幕上贴纸这种事情。
[解决办法]
获取桌面的dc,在这个dc上不停的画?
cs估计在桌面上画是不行的.有这功夫真不如直接贴个纸条算了
[解决办法]
需要如下佐料:
1.一个BorderStyle为“0-None”的Form
2.Function GetDC Lib "user32"
3.Function StretchBlt Lib "gdi32.dll"
4.Function BitBlt Lib "gdi32"
[解决办法]
用笔画在透明胶带上再贴屏幕上比较可行.
游戏用的是DIRECTX或opengl直接操作显存的,VB用GDI画的十字线没办法画到游戏上去的,GDI通过系统调用转十七八个弯才能输出到屏幕,两者优先级不在一个档次的. 不信你可以试试的.
[解决办法]
整两个非模态且无边框的窗体和Move方法:
一个宽度为1 pixel 高为全屏,位置是全屏居中
另一个高度为i Pixel 宽为全屏,位置也是全屏居中
程度一运行就Call出这两个窗体
这种方式不影响游戏操作
[解决办法]
[解决办法]
试写了一下,用两个无边框的模态窗体也一样,代码如下:
先抄一个Always on top的模块:
Public 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
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const FLAGS = SWP_NOSIZE Or SWP_NOMOVE
Public OnTop As Boolean
Public Function StayOnTop(TheForm As Form)
Dim SetWinOnTop As Long
SetWinOnTop = SetWindowPos(TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
OnTop = True
End Function
Public Function NotOnTop(TheForm As Form)
Dim SetWinOnTop As Long
SetWinOnTop = SetWindowPos(TheForm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
OnTop = False
End Function
然后建两个Form,无边框,背景设成你想要的线条的颜色,偷懒的话直接用Twips单位
Form1代码:
Option Explicit
Private Sub Form_Load()
StayOnTop Me
Dim X As Long
Dim Y As Long
X = Screen.Width \ 2
Y = Screen.Height \ 2
Move 0, Y, Screen.Width, 15
Form2.Show 0, Me
End Sub
Form2代码:
Option Explicit
Private Sub Form_Load()
StayOnTop Me
Dim X As Long
Dim Y As Long
X = Screen.Width \ 2
Y = Screen.Height \ 2
Move X, 0, 15, Screen.Height
End Sub
ok
