?? form1.frm
字號(hào):
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
BackColor = &H00808080&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 3960
ClientLeft = 3075
ClientTop = 4425
ClientWidth = 7755
ForeColor = &H8000000E&
Icon = "Form1.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3960
ScaleWidth = 7755
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 50
Left = 240
Top = 3000
End
Begin VB.Frame Frame1
BackColor = &H00808080&
ForeColor = &H8000000E&
Height = 2775
Left = 240
TabIndex = 0
Top = 720
Width = 7455
Begin VB.Frame Frame4
BackColor = &H80000012&
Caption = "方式"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 1215
Index = 1
Left = 5160
TabIndex = 10
Top = 240
Width = 1815
Begin VB.OptionButton Option2
BackColor = &H00000000&
Caption = "倒計(jì)時(shí)為0時(shí)暫停"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 375
Index = 1
Left = 120
TabIndex = 13
Top = 600
Width = 1095
End
Begin VB.OptionButton Option2
BackColor = &H00000000&
Caption = "不倒計(jì)時(shí)"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 375
Index = 0
Left = 120
TabIndex = 11
Top = 240
Value = -1 'True
Width = 1575
End
End
Begin VB.Frame Frame3
BackColor = &H80000012&
ForeColor = &H8000000E&
Height = 855
Left = 5160
TabIndex = 4
Top = 1560
Width = 1815
Begin VB.CommandButton Command2
Caption = "Off"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 960
TabIndex = 12
Top = 240
Width = 615
End
Begin VB.CommandButton Command1
Caption = "On"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 5
Top = 240
Width = 615
End
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000007&
Height = 360
Index = 1
Left = 360
TabIndex = 9
Top = 2400
Width = 4695
End
Begin VB.Label Label3
BackColor = &H80000012&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label3"
ForeColor = &H8000000E&
Height = 2055
Index = 3
Left = 240
TabIndex = 8
Top = 240
Width = 4695
End
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "WC-QuickStart"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 180
Index = 2
Left = 120
TabIndex = 7
Top = 120
Width = 1365
End
Begin VB.Label Label2
BackColor = &H80000012&
Caption = "?"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 255
Index = 3
Left = 6720
TabIndex = 6
Top = 120
Width = 135
End
Begin VB.Line Line1
BorderColor = &H80000009&
BorderWidth = 2
X1 = 0
X2 = 7800
Y1 = 480
Y2 = 480
End
Begin VB.Label Label2
BackColor = &H80000012&
Caption = " X"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 255
Index = 1
Left = 7200
TabIndex = 2
Top = 120
Width = 255
End
Begin VB.Label Label2
BackColor = &H80000012&
Caption = "_____"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 255
Index = 0
Left = 6960
TabIndex = 1
Top = 120
Visible = 0 'False
Width = 135
End
Begin VB.Label Label2
BackColor = &H8000000D&
Height = 495
Index = 2
Left = 0
TabIndex = 3
Top = 0
Width = 7815
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'原理：從倒計(jì)時(shí)到Loading，主機(jī)War3發(fā)送2次數(shù)據(jù)：1次是“開始倒計(jì)時(shí)吧”，一次是“Loading吧”，就是說Loading由主機(jī)決定。
'找到控制倒計(jì)時(shí)的CALL在War3.Game.dll-&H6F23D200(由字符串下硬件斷點(diǎn)然后CTRL+F9直到第一個(gè)select case出現(xiàn)即為控制CALL；也可從Send下斷CTRL+F9找)，
'發(fā)現(xiàn)這個(gè)select case由ECX決定執(zhí)行哪段代碼：點(diǎn)擊“開始”時(shí)ECX為0，倒計(jì)時(shí)時(shí)5-3時(shí)為6，倒計(jì)時(shí)2-0時(shí)為2，Loading時(shí)為3，退出時(shí)主要為12。
'修改和增加代碼控制這個(gè)select case的ECX值，當(dāng)ECX=3時(shí)(即倒計(jì)時(shí)=0時(shí))就控制了是Loaing還是退出，或者用循環(huán)來等待玩家做決定
'修改在War3.Game.dll-&H6F23D200，增加的代碼在War3.Game.dll-&H6F704BB0。
'&&&&&&&&&&
'變量前帶L_的是局部變量
'帶G_的是全局變量
'什么都不帶的變量不重要
'帶ProcF_的是Call
'clsmem1是那個(gè)類的實(shí)例，大部分API在里面調(diào)用
Option Explicit
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 200
End Type
'====my Struct====================================
Private Type AppMsg
title As String
explain As String
explain2 As String
formname As String
End Type
'=========my Var
Dim nfIconData As NOTIFYICONDATA '
Dim ClsMem1 As New Class1
'====end var
Private Sub Command1_Click() '寫入代碼，修改跳轉(zhuǎn)等，call ProcF_WriteProcess()
If ClsMem1.FindWindowcls("Warcraft III") = 0 Then
Label1(1).Caption = "魔獸爭霸沒有運(yùn)行 " & Time
Exit Sub
End If
If ProcF_WriteProcess() = 1 Then '寫入
Label1(1).Caption = "On " & Time
Else
Debug.Print "寫入目標(biāo)失敗"
End If
Frame3.Caption = "ON"
Timer1.Enabled = True
End Sub
Private Sub Command2_Click() '恢復(fù)，OFF
Dim l_HandleOpen As Long
Dim l_WindowName As String
l_WindowName = "WarCraft III"
l_HandleOpen = ClsMem1.OpenHandleByWin(l_WindowName, vbNullString)
If l_HandleOpen = 0 Then
Label1(1).Caption = "魔獸爭霸沒有運(yùn)行 " & Time
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -