当前位置： >
> 关于在电脑屏幕直接输出想要的图形,游戏外挂必备各位大侠，我想为cf（穿越火线）这游戏做一个辅助准心
关于在电脑屏幕直接输出想要的图形,游戏外挂必备各位大侠，我想为cf（穿越火线）这游戏做一个辅助准心
关于在电脑屏幕直接输出想要的图形,游戏外挂必备！各位大侠，我想为cf（穿越火线）这游戏做一个辅助准心，就是在屏幕上全屏的画居中的互相垂直的两条细直线，我知道在VB中在from中划线，但这用不到游戏中，怎么样才能脱离窗口直接在屏幕上显示呢，要求在游戏画面上也能显示，cf不是窗口游戏，是全屏游戏，希望会的大哥大姐教教我，小弟在此谢过了。我QQ，我这是个人用，绝不是什么商业化，当然以我的水平也不可能商业化，呵呵!
自制外挂？不懂，顶一个……
& & （0）（0）做一个透明窗口，再这个窗口上画2条线，再把这个窗口置顶，也就是总在最前
& & （0）（0）a)透明胶带，画+字b)用缝衣线在屏幕上拉两条对角线，就是一个 X
q5842330 & &
& & （0）（0）拿肥皂或香皂在屏幕中心画个十字恐怕更容易些！
q5991786 & &
& & （0）（0）我大学一室友打CS练盲狙的时候，还真的干过在屏幕上贴纸这种事情。
& & （0）（0）获取桌面的dc,在这个dc上不停的画 cs估计在桌面上画是不行的.有这功夫真不如直接贴个纸条算了
q5991786 & &
& & （0）（0）需要如下佐料：1.一个BorderStyle为“0-None”的Form2.Function GetDC Lib &user32&3.Function StretchBlt Lib &gdi32.dll&4.Function BitBlt Lib &gdi32&
& & （0）（0）用笔画在透明胶带上再贴屏幕上比较可行.游戏用的是DIRECTX或opengl直接操作显存的,VB用GDI画的十字线没办法画到游戏上去的,GDI通过系统调用转十七八个弯才能输出到屏幕,两者优先级不在一个档次的. 不信你可以试试的.
& & （0）（0）
整两个非模态且无边框的窗体和Move方法：一个宽度为1 pixel 高为全屏，位置是全屏居中另一个高度为i Pixel 宽为全屏，位置也是全屏居中程度一运行就Call出这两个窗体这种方式不影响游戏操作
& & （0）（0）探讨另一个高度为i Pixel 宽为全屏，位置也是全屏居中
& & （0）（0）试写了一下，用两个无边框的模态窗体也一样，代码如下：先抄一个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 LongPublic Const HWND_TOPMOST = -1Public Const HWND_NOTOPMOST = -2Public Const SWP_NOSIZE = &H1Public Const SWP_NOMOVE = &H2Public Const FLAGS = SWP_NOSIZE Or SWP_NOMOVEPublic OnTop As BooleanPublic Function StayOnTop(TheForm As Form)
Dim SetWinOnTop As Long
SetWinOnTop = SetWindowPos(TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
OnTop = TrueEnd FunctionPublic Function NotOnTop(TheForm As Form)
Dim SetWinOnTop As Long
SetWinOnTop = SetWindowPos(TheForm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
OnTop = FalseEnd Function然后建两个Form，无边框，背景设成你想要的线条的颜色，偷懒的话直接用Twips单位Form1代码：Option ExplicitPrivate 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, MeEnd SubForm2代码:Option ExplicitPrivate 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.HeightEnd Subokq & &
& & （0）（0）
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&&&湘教QS2-164&&增值电信业务经营许可证湘B2-我想要个QQ游戏的雷电的辅助不要钱的_百度知道
我想要个QQ游戏的雷电的辅助不要钱的
给我重赏20
提问者采纳
其他类似问题
qq游戏的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}