VB 热血江湖V170外挂 全部 源码
1. Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const GameTitle As String = "YB_OnlineClient" '判断游戏是否正在运行 If CheckFuZhu.value = 1 Then '开始 Function GetYanSe(zX As Long, zY As Long) As String '有红80%=133 70=119 60==105 91 77 63 49 ===0020FF End Sub
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String,热血 ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetLastError Lib "kernel32" () As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
'让程序拥有热键
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'窗体最前面
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
'RGB颜色获取
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
'模拟鼠标事件
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1 '移动鼠标
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const VK_F1 As Long = &H70
Const VK_F2 As Long = &H71
Const VK_F3 As Long = &H72
Const VK_F4 As Long = &H73
Const VK_F5 As Long = &H74
Const VK_F6 As Long = &H75
Const VK_F7 As Long = &H76
Const VK_F8 As Long = &H77
Const VK_F9 As Long = &H78
Const KEYEVENTF_KEYUP As Long = &H2
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'Const GameTitle As String = "新建 文本文档 - 记事本"
Dim SWD As String '喊话内容
Dim IsGuaJi As Boolean ' 挂机标志
Dim IsFuZhu As Boolean ' 补红蓝的辅助动作标志
Dim HongBiLv As Integer ' 补红比率
Dim LanBiLv As Integer ' 补蓝比率
Dim HongPoint(6) As Long ' 补红点的数组对应列表数值
Dim LanPoint(6) As Long ' 补蓝点的数组对应列表数值
Dim FPoint(1 To 9) As Long ' F1 F2...F9的数组对应列表数值
Dim i As Integer, j As Long, k As Long
'让程序拥有热键
Function HotKey(vKeyCode) As Boolean
HotKey = GetAsyncKeyState(vKeyCode) < 0
End Function
Sub AnJian(KStr As String)
DoEvents
Select Case KStr
Case "F1"
Call keybd_event(VK_F1, 0, 0, 0)
Delay 300
Call keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0)
Case "F2"
Call keybd_event(VK_F2, 0, 0, 0)
Delay 300
Call keybd_event(VK_F2, 0, KEYEVENTF_KEYUP, 0)
Case "F3"
Call keybd_event(VK_F3, 0, 0, 0)
Delay 300
Call keybd_event(VK_F3, 0, KEYEVENTF_KEYUP, 0)
Case "F4"
Call keybd_event(VK_F4, 0, 0, 0)
Delay 300
Call keybd_event(VK_F4, 0, KEYEVENTF_KEYUP, 0)
Case "F5"
Call keybd_event(VK_F5, 0, 0, 0)
'Sleep 100
'Call keybd_event(vbKeyF5, 0, KEYEVENTF_KEYUP, 0)
SendKeys "补红"
SendKeys "{ENTER}"
Sleep 100
SendKeys "...."
SendKeys "{ENTER}"
Sleep 100
Case "F6"
Call keybd_event(VK_F6, 0, 0, 0)
Delay 300
Call keybd_event(VK_F6, 0, KEYEVENTF_KEYUP, 0)
Case "F7"
Call keybd_event(VK_F7, 0, 0, 0)
Delay 300
Call keybd_event(VK_F7, 0, KEYEVENTF_KEYUP, 0)
Case "F8"
Call keybd_event(VK_F8, 0, 0, 0)
Delay 300
Call keybd_event(VK_F8, 0, KEYEVENTF_KEYUP, 0)
Case "F9"
Call keybd_event(VK_F9, 0, 0, 0)
Delay 300
Call keybd_event(VK_F9, 0, KEYEVENTF_KEYUP, 0)
End Select
Delay 100
End Sub
本主题包含附件: sf_2007418920.jpg (50863bytes)
查找屏幕颜色,找到为TRUE
Function FindColor(ColorStr As String) As String ' As Boolean
'man==402 353
FindColor = "" ' = False
For j = 402 To 402
DoEvents
For k = 250 To 450
DoEvents
If GetYanSe(j,江湖 k) = UCase(ColorStr) Then
FindColor = j & "++" & k ' True
Exit For
End If
Next
Next
MsgBox "pppp"
End Function
'
Sub Delay(YanShi As Long)
Sleep YanShi
End Sub
Function IsRun() As Boolean
IsRun = False
Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄
hwnd = FindWindow(vbNullString, GameTitle)
If hwnd = 0 Then
IsRun = False
Else
IsRun = True
End If
End Function
Private Sub Command1_Click()
Delay 3000
MsgBox "kljk"
End Sub
Private Sub Command2_Click()
If IsRun = False Then
MsgBox "游戏没有运行!",挂全 16
Exit Sub
End If
IsFuZhu = True
Else
IsFuZhu = False
End If
If CheckGuaJi.value = 1 Then
IsGuaJi = True
Else
IsGuaJi = False
End If
Me.WindowState = 1
AppActivate GameTitle
End Sub
Private Sub Command3_Click()
If IsRun = False Then
MsgBox "游戏没有运行,让我怎么喊?",部源 16
Exit Sub
End If
If CheckHanHua.value = 1 Then
Me.WindowState = 1
AppActivate GameTitle
SWD = Text1.Text
TimerHanHua.Interval = Val(ComboHanHua.Text) * 1000
TimerHanHua.Enabled = True
Else
TimerHanHua.Enabled = False
End If
End Sub
Private Sub Command4_Click()
Dim qq As Long
Open App.Path & "data.ini" For Output As #1
For qq = 0 To 150 Step 1
Print #1, qq & "*6==" & GetYanSe(qq, 6)
Next
Close #1
MsgBox "OK"
End Sub
Private Sub Command5_Click()
HongBiLv = ComboHongBi.ListIndex
MsgBox HongBiLv
End Sub
Private Sub Form_Load()
'屏幕分辨率
tw% = Screen.Width / Screen.TwipsPerPixelX
th% = Screen.Height / Screen.TwipsPerPixelY
If tw% <> 800 Then
MsgBox "当前屏幕分辨率是:" & tw% & "×" & th% & vbCrLf & "" & "本外挂只支持800×600分辨率!",热血 16
'End
End If
TimerHanHua.Enabled = False
For i = 1 To 9
ComboHong.AddItem "F" & i
ComboLan.AddItem "F" & i
ComboBackCity.AddItem "F" & i
ComboJiNeng.AddItem "F" & i
ComboPingKan.AddItem "F" & i
ComboJianWu.AddItem "F" & i
ComboChiTang.AddItem "F" & i
ComboHanHua.AddItem i
Next
For i = 20 To 80 Step 10
ComboHongBi.AddItem i & "%"
ComboLanBi.AddItem i & "%"
Next
ComboHongBi.Text = "50%"
ComboLanBi.Text = "50%"
ComboHong.Text = "F5"
ComboLan.Text = "F2"
ComboBackCity.Text = "F8"
ComboJiNeng.Text = "F3"
ComboPingKan.Text = "F6"
ComboJianWu.Text = "F7"
ComboChiTang.Text = "F4"
ComboHanHua.Text = "4"
'有红80%=133 70=119 60==105 91 77 63 49 ===0020FF
'红yyy===6
'有lan 80%=133 70=119 60==105 91 73 59 43 ===FF8273
'lan yyy===19
HongPoint(0) = 49
HongPoint(1) = 63
HongPoint(2) = 77
HongPoint(3) = 91
HongPoint(4) = 105
HongPoint(5) = 119
HongPoint(6) = 133
LanPoint(0) = 43
LanPoint(1) = 59
LanPoint(2) = 73
LanPoint(3) = 91
LanPoint(4) = 105
LanPoint(5) = 119
LanPoint(6) = 133
'F1 F2 ...F9
'xxx=439 476 512 550 586 624 661 698 735 yyy===578
For i = 1 To 9
FPoint(i) = 439 + i * 37
Next
IsFuZhu = False
IsGuaJi = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
'时刻监测程序热键F12
Private Sub Timer1_Timer()
DoEvents
'F12调出窗口
If HotKey(vbKeyF12) = True Then
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
Me.WindowState = vbNormal
End If
'Control+1 开始挂机
If HotKey(vbKeyControl) = True And HotKey(vbKey1) = True Then
IsGuaJi = True
End If
'Control+2 停止挂机
If HotKey(vbKeyControl) = True And HotKey(vbKey2) = True Then
IsGuaJi = False
End If
End Sub
Dim tPOS As POINTAPI
Dim sTmp As String
Dim lColor As Long
Dim lDC As Long
lDC = GetWindowDC(0)
'Call GetCursorPos(tPOS)
'lColor = GetPixel(lDC, tPOS.x, tPOS.y)
lColor = GetPixel(lDC, zX, zY)
sTmp = Right$("000000" & Hex(lColor), 6)
GetYanSe = UCase(sTmp)
'Caption = "R:" & Right$(sTmp, 2) & " G:" & Mid$(sTmp, 3, 2) & " B:" & Left$(sTmp, 2)
End Function
Private Sub Timer2_Timer()
'Dim tPOS As POINTAPI
'Call GetCursorPos(tPOS)
'Me.Caption = tPOS.x & "**" & tPOS.y & "**" & GetYanSe(tPOS.x, tPOS.y)
End Sub
'辅助动作
Private Sub TimerFuZhu_Timer()
If IsFuZhu = False Then Exit Sub
'红yyy===6
'有lan 80%=133 70=119 60==105 91 73 59 43 ===FF8273
'lan yyy===19
'补红
HongBiLv = ComboHongBi.ListIndex
If GetYanSe(HongPoint(HongBiLv), 6) <> "0020FF" Then
Call AnJian(ComboHong.Text)
End If
'补蓝
LanBiLv = ComboLanBi.ListIndex
If GetYanSe(LanPoint(LanBiLv), 19) <> "FF8273" Then
AnJian ComboLan.Text
End If
'无红回城
If CheckNoHongBack.value = 1 Then
If GetYanSe(FPoint(Right(ComboHong.Text, 1)), 578) = "B5FFE7" Then
AnJian ComboBackCity.Text
End If
End If
'无蓝回城
If CheckNoLanBack.value = 1 Then
If GetYanSe(FPoint(Right(ComboLan.Text, 1)), 578) = "B5FFE7" Then
AnJian ComboBackCity.Text
End If
End If
'自动挂机
Private Sub TimerGuaJi_Timer()
If IsGuaJi = False Then Exit Sub
'吃糖五色
If CheckChiTang.value = 1 Then
AnJian ComboChiTang.Text
Delay 100
End If
'捡东西
If CheckJianWu.value = 1 Then
AnJian ComboJianWu.Text
Delay 100
End If
'
- 最近发表
- 随机阅读
-
- 环球视讯!捷安特atx 770价格是多少?南京捷安特配置怎么样?
- 英雄联盟蔚的技能叫什么,英雄联盟新出的英雄皮城执法官蔚为什么第二个技能W放不出来谁给
- LOL英雄联盟殇之木乃伊阿木木出装符文天赋
- 《征途2》今日开启兔年大吉新区 送兔年时装+坐骑!
- 征途2手游哪个职业最厉害(全职业详细介绍分析)
- 赛尔号辅助器 v2.07.00
- 梦幻西游手游70级秘境白无常打法详解
- :探寻倩女幽魂手游老区,详细了解哪些区服
- 饕餮
- 蜀门手游为什么接不了钓鱼任务
- 12月12日国服9.24版本更新公告:新英雄厄斐琉斯上线,大量皮肤上线
- 玩转新私服乐趣:打造最强角色必备攻略!
- 胡莱三国珍宝阁攻略 珍宝阁有什么用
- 逃跑吧!少年
- 大唐无双生活技能采集点(大唐无双生活技能赚钱)
- 胡莱三国张飞最新技能搭配介绍
- 《金铲铲之战》虚空行者技能属性装备介绍
- 剑与远征迷宫币怎么获得?迷宫币怎么用?
- 蜀门手游-职业pk哪个好 喜欢打架的玩家须知
- 西游女儿国充值折扣平台推荐(人气高的西游女儿国手游折扣平台)
- 搜索
-
- 友情链接
-
- 职业杀手2存档
- 尊宝比萨加盟
- 嫦娥2号
- 剑网3华清宫攻略
- 爆莉萌天使技能加点
- 4399拳皇小游戏
- 英雄联盟1折英雄活动
- 小米抢购攻略
- 索尼mp3播放器
- 中国好声音决赛
- 吉格斯符文
- 陕西电信积分商城
- 实况足球2013 转会补丁
- sx240
- 奥运金牌最多的运动员
- 投篮手型
- 三星 8552
- 骷髅王攻略
- 逆风如解意 容易莫摧残
- 硬盘游戏大全
- 工藤舞
- 御龙在天重剑加点
- 虐杀原形2怎样追踪
- 魔兽世界服务器列表
- 2012好玩的单机游戏
- dnf腾讯游戏军团称号
- 最终幻想 纷争
- 残奥运金牌榜
- 幻冥界终章攻略
- 光荣使命单机版下载
- 科密638碎纸机
- 国徽息屏图片
- 八佰演员表 全部演员名单
- 100仿盛大传奇
- dota娱乐模式命令
- gladius竞技场框体
- 硬盘游戏大全
- 九阴真经饱食度怎么恢复
- 姓王的历史名人
- 月影辅助