今天和朋友学了会儿Excel，折腾到2点半..

differentrain

/ w' U# ~& j9 ?$ h( Z
4 |: }8 d: n# ~3 ~+ J不怎么用Office系列，今天偶然和朋友聊起来，突发奇想用Excel做了个扫雷的修改器....[em1127]
虽然不会Excel，不过VB咱小时候还是学过的...[em1124]
' w) ]9 e; A( y0 E
我用的Win7的扫雷，其他版本的估计不行..可以停止计时和在表格中现实地雷位置...
附件就是那个表格...如果版本不对就直接看代码部分自己复制过去也行..
9 R4 a0 g) o, i. z' w顺便说，VBA简直反人类..MS为什么不出VBA.NET啊...大段的代码要自己写，而且抽象性巨差....

MineSweeperTrainer.rar (22.27 KB, 下载次数: 6)

2014-6-20 16:05 上传

点击文件名下载附件

1 D7 r" l* @+ Y/ M
5 {! G/ x3 E/ H0 _1 c1 {8 L
. j4 ]( o4 U& O5 C% u

9 t6 u! L/ t( a) K; M

1. 【控件】
   " _. H3 L% z0 J8 B
2. 
   + s' m9 a( v' C
3. 窗体：frmMain
   + I1 i! _5 C, a8 S2 G* r
4. 按钮：btnCatchGame，btnRefresh
   
5. 选择框：chkGameTime

复制代码

% X1 \6 o- V: E+ s) D3 f
  \4 I" }0 |/ v3 x3 M1 {8 B, @* d

. R8 y  J7 l/ z9 s6 Z% u

1. 【代码】
   % E  M, u# I; q/ P8 J$ A$ t
2. 
   
3. 
   7 `/ p' O) ]7 ]1 q9 X0 d% [
4. Option Explicit
   
5. 
   ; W! I6 {# b+ U
6. 
   + A- @& u3 _: |
7. Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
   
8. Private Declare Function module32First Lib "kernel32" Alias "Module32First" (ByVal hSnapShot As Long, lppe As moduleENTRY32) As Long
   9 H. k4 u4 R  h) \
9. Private Declare Function module32Next Lib "kernel32" Alias "Module32Next" (ByVal hSnapShot As Long, lppe As moduleENTRY32) As Long
   
10. Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As Long
    6 {8 J9 b5 p# x! s3 w4 a, v
11. Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As Long
    
12. Private Declare Function lstrcmpi Lib "kernel32" Alias "lstrcmpiA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
    & n* z( {$ Z* Q- q+ |/ q/ ]
13. 
    
14. 
    
15. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    
16. Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    
17. Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    
18. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    
19. 
    + S* U, e. K5 I' R
20. 
    . X! u& i& D& L1 Y( B3 C& \
21. Private Const TH32CS_SNAPPROCESS = &H2
    # p) v1 C3 E0 H4 z" E. B
22. Private Const TH32CS_SNAPmodule = &H8
    ; k& y! n8 n) T- V0 c7 z. }# D( g1 L9 f/ |
23. Private Const CB_SHOWDROPDOWN = &H157
    
24. Private Type moduleENTRY32
    
25.     dwSize As Long
    9 X3 t' f/ u& Z8 X; ~1 p
26.     th32ModuleID As Long
    
27.     th32ProcessID As Long
    0 D/ q8 p: t9 h8 ]4 c4 Z. N
28.     GlblcntUsage As Long
    : H2 d' v) A/ n% z! x) V
29.     ProccntUsage As Long
    : f5 `6 O5 _& E. J0 M8 C
30.     modBaseAddr As Long
    
31.     modBaseSize As Long
    
32.     hModule As Long
    
33.     szModule As String * 256
    " ^6 |& }- ^/ X) V( ?$ W" [
34.     szExePath As String * 1024
    
35. End Type
    % K3 I8 X( y  H& Z; L* P$ `. u
36. 
    7 i; n; c! u3 ?4 K0 x6 ^& R+ d% X) V0 \
37. Private Type PROCESSENTRY32
      J8 N5 Y/ k2 r# _
38.     dwSize As Long
    
39.     cntUsage As Long
    ) u2 X# N4 W# \2 Y
40.     th32ProcessID As Long
    ( Y  Q# h* g: E- A( ~, b
41.     th32DefaultHeapID As Long
    
42.     th32ModuleID As Long
    ' H; y; L2 p! R1 I! q/ i" m8 b3 B
43.     cntThreads As Long
    5 c6 U; k# Q. R9 P! p
44.     th32ParentProcessID As Long
    : R, D9 i9 d) n$ K5 ~- R8 ^6 l
45.     pcPriClassBase As Long
    ' f% o; B" Y; Y0 v/ i
46.     dwFlags As Long
    % h0 M8 L  l- j" U
47.     szExeFile As String * 1024
    
48. End Type
    2 U# d! O3 N' ~  l8 X
49. 
    
50. 
    0 j0 F& |& N' Z( t9 R; F+ h! Q
51. 
    6 \/ Y( t6 n( g* \- Q; o. v
52. Private Const PROCESS_ALL_ACCESS = &H1F0FFF
    5 Y; _# K' Z1 Z- d4 K0 T4 K
53. Private hProcess As Long
    
54. Private PID As Long
    
55. 
    
56. 
    
57. Private Type asmNum
    
58.     nuM1 As Byte
    ; z& o) F* f0 Z5 j5 h; q+ A
59.     nuM2 As Byte
    ) F4 ^) ], t' W, h6 Y
60.     nuM3 As Byte
    5 L: T2 y9 k3 g0 x5 l# E# e  l
61. End Type
    
62. 
    
63. Private adrTime As Long
    
64. Private adrMine As Long
    
65. 
    6 B) `  {" r! K2 ~/ h, w
66. Private Function GetProcIdByName(ByVal ProcName As String) As Long
    
67.     Dim PE32 As PROCESSENTRY32
    
68.     Dim Procid As Long
    
69.     Dim hSnapShot As Long
    ' x7 L( l0 {# j
70.     hSnapShot = CreateToolhelp32Snapshot(ByVal TH32CS_SNAPPROCESS, ByVal 0)
    4 B+ c9 {7 U1 ]& b! W6 Z! v% x
71.     PE32.dwSize = LenB(PE32)
    
72.     Process32First hSnapShot, PE32
    
73.     Do
    & J6 x/ R$ i9 w
74.         If lstrcmpi(Trim$(ProcName), Trim$(PE32.szExeFile)) = 0 Then
    
75.             Procid = PE32.th32ProcessID
    
76.             Exit Do
    . {2 q' C6 _. s1 I# Q( o- E6 V3 y- s
77.         End If
    
78.         PE32.szExeFile = vbNullString
    8 ]7 {$ P( d/ [# `1 {. ?- d$ g) n
79.     Loop Until Process32Next(hSnapShot, PE32) = 0
    ( ~% H4 s/ p  ^
80.     CloseHandle hSnapShot
    % Y8 ?6 ?; T6 D
81.         GetProcIdByName = Procid
    / R- W+ B! v3 h+ e9 e
82. End Function
    
83. 
    
84. 
    
85. 
    
86. Private Function GetModuleBaseByProcName(ByVal ModuleName As String) As Long
    - l8 M4 [, Q! p9 z: w
87. 
    
88.     Dim ME32 As moduleENTRY32, ModuleBase As Long
    
89.     Dim hSnapShot As Long
    
90.     hSnapShot = CreateToolhelp32Snapshot(ByVal TH32CS_SNAPmodule, ByVal PID)
    " f5 B- \8 X% I
91.     ME32.dwSize = LenB(ME32)
    0 e+ P) F9 Q0 h! p& W3 J( u3 f& C3 e$ V
92.     module32First hSnapShot, ME32
    
93.    
    
94.     Do
    
95.    
    , I2 Y, e8 U1 }- O4 h- L* ?' n5 H: w
96.         If lstrcmpi(Trim$(ModuleName), Trim$(ME32.szModule)) = 0 Then
    
97.             ModuleBase = ME32.modBaseAddr
    
98.             Exit Do
    
99.         End If
    8 b3 |; A' f+ u2 L) f7 f& ~/ e
100.         
     
101.         ME32.szModule = vbNullString
     
102.    
     3 q) P) A+ U" Q" j
103.     Loop Until module32Next(hSnapShot, ME32) = 0
     
104.     CloseHandle hSnapShot
     $ R/ D2 l7 k: L! I% Q6 K4 ~
105.     GetModuleBaseByProcName = ModuleBase
     
106. 
     ( I: t6 J  t' d( K1 _0 A
107. End Function
     
108. 
     
109. 
     
110. Private Function GetMemory(ByVal Adderss As Long, Optional Length As Byte = 4) As Long
     
111. ReadProcessMemory hProcess, Adderss, GetMemory, Length, 0
     : Z4 Y5 U! _7 L; F
112. End Function
     
113. Private Sub SetMemoryAsm(ByVal Adderss As Long, NumVal As asmNum)
     % p  C  v: J5 D
114. WriteProcessMemory hProcess, Adderss, NumVal, 3, 0
     5 @; ~5 H  a# i' m- r
115. End Sub
     ; W9 a) I- ^5 `( l, O# @- i* |
116. 
     
117. 
     
118. Private Function FindGame() As Boolean
     
119.    
     / F* K; `# b7 V' _4 @7 Y
120.     PID = GetProcIdByName("MineSweeper.exe")
     
121.    
     ' @" s. N! I: g: y
122.     Select Case PID
     
123.         Case 0
     % o7 X4 @/ L" ^- }  S1 _
124.             FindGame = False
     0 u, y( S3 I9 c3 e
125.         Case Else
     
126.             Dim adrBase As Long
     
127.             adrBase = GetModuleBaseByProcName("MineSweeper.exe")
     
128.             adrTime = adrBase + &H21446
     4 f8 h& C! t' s5 e1 |
129.             adrMine = adrBase + &H868B4
     . G, E. X4 c! [! K+ D" g9 X9 h2 a" Z4 G
130.             FindGame = True
     
131.     End Select
     0 k. M9 Q3 v9 \% l9 {
132. End Function
     . U: y; G0 ?  N. F# A. ~- E
133. 
     ' W. n" U9 E: S: k
134. Private Sub TrainerState(ByVal State As Boolean)
     7 i6 Z) p  z, z" h- H
135.     chkGameTime.Enabled = State
     
136.     btnRefresh.Enabled = State
     ( E- P, ~( ~9 R- W: i! r( Y, ?
137.     Select Case State
     
138.         Case True
     5 B1 U# S; s% v( D3 I# N5 w6 s
139.             btnCatchGame.Caption = "ReleaseGame"
     1 E6 N  {3 W* Q' D, y9 r- x* H
140.         Case False
     ( i0 q5 a  C' r7 e- U: i, j+ U' K
141.             btnCatchGame.Caption = "CatchGame"
     
142.             chkGameTime.Value = False
     * \' ^# Y" I; k* c! e
143.     End Select
     
144. End Sub
     " E* S% W( x7 B5 L' w- K
145. 
     7 Y( g7 Z: z, G& f/ R
146. 
     7 B! i% r* A3 ^- y5 m4 K
147. Private Sub AsmState(ByVal State As Boolean)
     
148.     Dim asm As asmNum
     
149.     Select Case State
     
150.         Case True
     
151.             asm.nuM1 = &H90
     
152.             asm.nuM2 = &H90
     
153.             asm.nuM3 = &H90
     " J( w8 l3 W$ W* p& B
154.         Case False
     
155.             asm.nuM1 = &HD9
     ! Y' e4 ^3 I* ~& w3 ^
156.             asm.nuM2 = &H58
     / _5 R4 w2 @  r
157.             asm.nuM3 = &H1C
     6 s6 Q2 r5 a" {; N3 C+ h
158.     End Select
     ( D& H; v' i- B6 _0 m
159.     Call SetMemoryAsm(adrTime, asm)
     
160. End Sub
     
161. 
     
162. 
     
163. Private Sub chkGameTime_Click()
     % u' Z" j$ n# M4 n! f
164.    AsmState (chkGameTime.Value)
     ! k( ~$ X. k$ C0 y9 \
165. End Sub
     9 A* l  r/ ^6 ?9 L
166. 
     - ^6 M( l1 ~5 I4 k: i/ Q
167. 
     ' p0 o( f" e! p9 |# r; t% y- Z
168. Private Sub isOpen(ByVal State As Boolean)
     $ I' y, ^4 b" B+ C3 i2 J! h
169.         Select Case State
     
170.         Case True
     
171.             If FindGame = True Then
     9 a1 w6 Z! x8 o2 l  w
172.                 hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, PID)
     # e3 }' j+ M% w+ A8 _8 Z
173.                 TrainerState (True)
     6 m6 k1 S, r8 t! a
174.             End If
     
175.         Case False
     
176.             If FindGame = True Then
     8 M5 e9 g- M+ U" V" s7 r/ C; k
177.                AsmState (False)
     
178.                CloseHandle hProcess
     1 B. @1 s4 ?- J! x
179.             End If
     7 M, }& \7 {9 ~. S. V, c
180.     End Select
     
181. End Sub
     ' a; r( U5 V5 P* d5 W6 _; n+ a
182. 
     2 g$ k& g( d0 L
183. 
     
184. Private Sub btnCatchGame_Click()
     9 Y4 l3 A; e: ~8 _
185.     Select Case btnCatchGame.Caption
     
186.         Case "CatchGame"
     
187.             isOpen (True)
     & x+ J4 a' @; a3 d3 k" _4 v) X
188.         Case "ReleaseGame"
     1 Y0 N0 C% I  c9 a2 ]
189.             isOpen (False)
     # |* l) |2 d2 [8 ^
190.             TrainerState (False)
     
191.     End Select
     
192. End Sub
     / L. [# X; k% f- F& x. U4 P- b( c
193. 
     
194. Private Sub btnRefresh_Click()
     
195. 
     4 b, b" G; U/ u- P8 |$ N/ p7 {+ I. e4 s
196.     Dim mineColumn As Byte, mineLine As Byte
     1 q  P) V6 u. T1 W1 G* L+ L$ e
197.     Dim adrPoint As Long, adrTemp As Long, adrColumn As Long
     
198.     Dim i As Byte, j As Byte
     
199. 
     1 T& n2 ?5 P# D( U& M4 c
200.    
     
201.    
     
202.     btnRefresh.Enabled = False
     , U) q  ]+ L  j3 U
203.    
     
204.     adrTemp = GetMemory(adrMine)
     0 C$ G" f' z% w" G3 G: `' x5 H
205.     adrPoint = GetMemory(adrTemp + &H10)
     $ m0 k/ q: q. @6 s
206.    
     
207.     mineLine = GetMemory(adrPoint + &H8) - 1
     
208.     mineColumn = GetMemory(adrPoint + &HC) - 1
     
209.    
     ! s! d  c+ ~3 h' {
210.     adrPoint = GetMemory(adrPoint + &H44)
     
211.     adrPoint = GetMemory(adrPoint + &HC)
     ( _- K" y( Q) X6 A) k0 n, {/ T: m
212.    
     ! T. V+ l. t2 c: o- ~
213.    
     ) q- A2 O2 L8 Z' g; J6 O) c4 l- h2 v
214.    
     
215.     For i = 0 To 30
     : v2 n7 V4 c- e+ E' F2 A- }' Q
216.         adrColumn = GetMemory(adrPoint + i * 4)
     
217.         adrColumn = GetMemory(adrColumn + &HC)
     
218.         For j = 0 To 23
     ' D  Z( U3 [7 I5 W' I4 H4 i) D' U) L
219.             If i > mineColumn Or j > mineLine Then
     / C' j. F7 O9 W$ z* z) x8 h( m
220.                 Sheet1.Cells(j + 1, i + 1) = ""
     
221.             Else
     
222.                 Sheet1.Cells(j + 1, i + 1) = GetMemory(adrColumn + j, 1)
     - c3 L! z0 E' v8 F8 P1 I
223.             End If
     
224.         Next j
     
225.     Next i
     ) {0 k* \8 Y3 a& k/ Y+ T, d. @
226.     btnRefresh.Enabled = True
     
227.    
     
228.    
     
229. End Sub
     
230. 
     5 C# |: q3 X9 R1 v4 o
231. Private Sub UserForm_Initialize()
     
232.     TrainerState (False)
     6 v$ L0 K/ f1 {, T
233.     Sheet1.Cells(1, 2) = 1
     % V9 H+ U' t8 n& y1 H
234. End Sub
     
235. 
     % Z" D- o8 Q# |% D/ S, b; t$ D# B. X, N4 w
236. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     - }5 o6 C* N7 r
237.     isOpen (False)
     
238. End Sub
       Q7 G' T8 r! O& a9 m- D- x. k

复制代码

" x- a; w2 v0 `& B' V" v. j0 x0 u; ]

! m' k# Z; \: U& [  |5 k6 o

NataieChan

事實證明Excel是有盡頭的﹗(謎：你是閒到甚麼程度？﹗)
3 O! \: ~. ~8 p

NataieChan

excel在我們這裡是必學的…

止慈

厉害还有源码，学习
* f; I4 t8 O: P( z) mexcel我只拿来做最简单的表格。。

尗又

完全看不懂！！！！。。。
5 W1 m: @5 v' O
不明觉厉只能跪

NataieChan

尗又 发表于 2014-6-20 18:24
完全看不懂！！！！。。。

1 F$ \# H, I1 Q- i+ y0 O$ c3 s  t7 @不明觉厉只能跪

這位很厲害噠﹗帶了修改器來報道﹗大慈姐姐很歡喜的樣子…
5 Z( G: K* T) f* V

止慈

NataieChan 发表于 2014-6-20 18:49
4 R3 d, |. }4 c) C" {7 D; U3 j這位很厲害噠﹗帶了修改器來報道﹗大慈姐姐很歡喜的樣子…

" v3 g% k1 ?, S# G, a4 q' `哈哈那是，因为我对修改器的东西比较感兴趣啊

NataieChan

止慈 发表于 2014-6-20 19:00
哈哈那是，因为我对修改器的东西比较感兴趣啊

莫非你勤制修改器的目的是因為懶得自己去玩…
- w8 `3 f. r; v8 _3 P

止慈

NataieChan 发表于 2014-6-20 20:32
莫非你勤制修改器的目的是因為懶得自己去玩…

9 ]$ r2 o- o' z+ T3 K+ Y不算勤，不过目的确实是为了省事。自己在玩的时候发现很多不合理的地方，比如说接通告，我要一家家转3D、跑进场景、走一段路、去点制作人、看目前有什么通告——这里还只是看到目前有什么通告，还不一定想接，也不一定能接，或者现在就能接。玩得烦了就自己琢磨减少一下流程，毕竟游戏是要有乐趣，但鼠标点多了也太繁琐。
! y8 [# x: n" s9 Q' Z% ^2 Z! v而且我玩游戏是修改派，不修改无乐趣。。
' ~0 k* i- D; @
: q7 ^9 [1 V2 O2 J有点跑题了。。再回到excel上，小N你们学校里都学用excel做什么？我会的只有最基本的表格和加加减减求和比较之类的。。
) T; g) P. _4 C" a) n
再想起来，我因为需要，想过用excel设计一个东西，大概也是存一定数据然后按自己需求可以随机提取之类的，搜到一篇文章还提供了源码的，结果源码链接无效了。。

' G  x! q  b% \: K8 C8 G8 p
- o5 H0 M9 D( a3 e
1 g$ d8 T( V# U止慈 于 2014-6-20 21:12:09 补充以下内容
- m7 [  o$ f  n: ^+ w
求指教。。打开附件excel，启用宏以后，那个窗体怎么出现。。我编辑宏能看到源代码，excel不会那么多不知道怎么让那个窗体出现。。

  [8 ^3 p9 p& d# c+ @/ ^9 `在我这里
4 f, D# J3 G; E* a; @

1. mineLine = GetMemory(adrPoint + &H8) - 1

复制代码

0 N' v4 D# ^* y7 G$ @会溢出

不过没关系，只是做着玩玩的，不用修~我是试着运行了一下然后出了这个错误，就顺便说一下

! Y: A/ @: x  z" H2 E+ D

NataieChan

止慈 发表于 2014-6-20 20:57
$ G% c5 B6 P3 F- r不算勤，不过目的确实是为了省事。自己在玩的时候发现很多不合理的地方，比如说接通告，我要一家家转3D、 ...

( z! G/ S6 c; \5 G9 ]- c9 G做各種奇怪的東西…說起都是淚…最討厭排名…很麻煩…
' B4 ^# \& f. p  O* U. p# v
7 m& s, y9 e, y
% }; m) j( z. O1 Y4 |NataieChan 于 2014-6-20 21:19:08 补充以下内容
- R4 f# B+ S! u5 \$ e& G4 l
做各種的圖…

止慈

NataieChan 发表于 2014-6-20 21:15
: o6 R0 f+ i# `6 F4 P0 i* y/ t做各種奇怪的東西…說起都是淚…最討厭排名…很麻煩…

  f9 {5 W$ [: G5 i; z[strike]做什么奇怪的东西说出来让我们乐一乐[/strike]
. b* q5 p) O4 p. W0 h! W6 v
- v$ V8 Z; R$ l& @/ w9 W2 U排名还好啊，不过也许你们的是比较复杂的排名，那就麻烦点吧。。
2 `  D: H1 B$ q4 T5 J
以下是编辑：
3 }9 ?' _- |3 a7 u7 t- D% l" W1 q# {
刚刚没看到你补充的。做各种的图的话确实比较麻烦。。
) v2 B( u) S0 X" }0 B