很简单，高手还望指点
$ z i! L1 w$ a脚本是可以用在各种领域的，只要自己喜欢，哈哈
- T" y* r# E D K5 f1 T, C
, i0 R- U6 ^+ ?- I* b
Set WshShell= WScript.Createobject("WScript.Shell")
2 _7 A7 O( R- {
'捕获游戏窗口
5 f# r) `2 j" [2 o4 `1 \
WshShell.AppActivate "Element Client"
- C$ F* ]; B' P9 T6 x% W A'设置练级次数，4为加攻快捷键
& z( X1 C# h4 ffor k=1 to 2
2 p' y0 C9 M- N. q) i
WshShell.SendKeys "4"
% ?% R) J+ g" U6 p, K; [
WScript.Sleep 1100
$ c2 I2 B" u; V7 r8 G- Y+ p1 n# g'设置每次加攻时间
6 [! z( i6 ]4 W2 a' Tfor j=1 to 20
8 I- \! g# U# `'设置次每轮加血杀怪个数
- L1 M6 H' n9 b, z: I
for i=1 to 3
: K$ m$ e4 G8 B! I& j
'捕获游戏窗口
! A$ r0 g' i" w1 E2 |! XWshShell.AppActivate "Element Client"
1 Q/ D7 O2 k5 Q# ^
'***********************
7 o- c9 s+ Y1 z
'*游戏中数怪的个数,不要修改*
1 {) W4 ^. v8 z( }/ V
'***********************
& U0 m4 c4 }1 F' p5 ]2 n- K( OWshShell.SendKeys "{enter}"
& Q7 A2 ^# b- C( M6 [$ x' y0 HWScript.Sleep 50
( _' e. g& g9 q7 w4 t$ a+ q5 g1 \WshShell.SendKeys "The "
9 e! W$ n3 K( }3 H- j) xWScript.Sleep 10
- D$ Y& _ m" j* lWshShell.SendKeys j
) w" }: Q3 Y+ K" u0 e; GWScript.Sleep 10
, R$ F$ f2 P5 O; w- k X% Z8 y+ m
WshShell.SendKeys " class "
V! Y7 c' h# Q1 Q8 _0 ]WScript.Sleep 10
* ^/ `$ z0 o* |- V$ N7 l: x) Y8 s% Y
WshShell.SendKeys ", the"
1 O0 `$ P* H" e. G: f3 I
WScript.Sleep 10
, @5 N. m1 A# @- i o% E' A4 FWshShell.SendKeys i
9 A" m6 [/ c3 b4 l9 `
WScript.Sleep 10
! W# d! i6 b2 [+ J% ]' HWshShell.SendKeys " One "
0 {. L5 |' c' `. t: L9 _9 \
WScript.Sleep 10
$ w# ^2 e6 X; M5 a) X" z- u4 A. CWshShell.SendKeys ", The "
" T; \0 s- z% r' k& P3 Y0 wWScript.Sleep 10
9 E1 }9 G' C" G# d# M/ m- J! s" hWshShell.SendKeys (j-1)*8+i
# b0 @6 n; E# C9 Z' E+ @WScript.Sleep 10
D$ W: X, y+ _ g0 h' }- V: fWshShell.SendKeys "in all. "
5 M+ a0 K4 Z1 E1 a" o4 H
WScript.Sleep 10
$ S% n1 k2 J5 g T# ~& r, v
WshShell.SendKeys k
1 e7 r8 m3 u; F# NWScript.Sleep 10
$ Y; X9 G$ b5 P! uWshShell.SendKeys "{enter}"
( z2 n8 P+ F" L- @: X" W2 t
WScript.Sleep 50
. |; f* u1 c# g( `7 V
'*********
5 t* z" U* f" v3 U8 c' z
'*数怪结束*
2 t' w0 Z9 @4 l, x3 r$ f0 o% B* v'*********
- Z8 O! l+ i, |
'*********
: m" q R& v# X'*打怪开始*
& F& O$ _; ~( K3 R( c* o7 h' Q
'*********
3 K/ H6 f% A4 i& A+ l7 Y
WshShell.AppActivate "Element Client"
" {% A2 G3 V. a
WScript.Sleep 550
( ?8 U M9 Y" X G: ]
'拣东西,3为拣物键
/ G7 }9 |2 ?- Z9 E4 d+ V P- Y1 B
WshShell.SendKeys "3"
* O4 k' v G; hWScript.Sleep 650
0 j% I+ u1 ]4 u0 V( K+ h
WshShell.AppActivate "Element Client"
5 x9 b# G/ |$ Q4 p6 C' h5 XWshShell.SendKeys "3"
4 G! @7 V. k3 I* NWScript.Sleep 650
' x6 H/ ?+ }9 d' U
WshShell.AppActivate "Element Client"
) v0 e# R$ x7 @
WshShell.SendKeys "3"
# n% h: Z( t. h+ J" }+ k5 Q& N: n( V( |
WScript.Sleep 650
' b. k, m3 i- ?3 f8 ?WshShell.AppActivate "Element Client"
, O0 }4 O9 s0 g; r
WshShell.SendKeys "{tab}"
4 b t+ h" f2 ^9 o O2 bWScript.Sleep 330
3 y4 H/ ^, ]& e5 b; H6 X( ~WshShell.AppActivate "Element Client"
4 v2 \" X( ~5 h+ g7 O; sWshShell.SendKeys "2"
5 W' X, s9 W8 x2 r: O" A
WScript.Sleep 3000
# h" I# v# ^8 H' C* j9 oWshShell.AppActivate "Element Client"
; z: I& Z! U# q' e1 F, q
WshShell.SendKeys "2"
1 b9 f1 L2 h: M m: z/ O' E5 T5 R
‘如果打不死怪修改这里的数据，3000为3000毫秒，自己修改
0 ]: A6 q, K( V: F
WScript.Sleep 3000
! T0 I" U5 z3 `) U2 j& ~' hWshShell.AppActivate "Element Client"
4 E* _9 U6 d1 G- xWshShell.SendKeys "1"
6 `% i& b \; a& z1 ^WScript.Sleep 3000
1 Q2 m0 x6 T4 u9 W" W4 X( m8 l
next
* i' v$ T3 s) u$ E9 b5 q1 g( G" _'补血,7为补血键
6 `# ]7 h/ r, ~, q2 mWshShell.SendKeys "7"
$ J( P* \# x/ l
'补血时间，可以根据级别修改
( L! b; @% V Q/ p
WScript.Sleep 24000
1 I* E# G* [3 H5 f' j
next
9 Y/ D. A9 r) }7 Lnext
