求天龙八部按键精灵傻瓜版，做好脚本的，直接按F10就好。 我在人大外的网吧的有人在用，希望有的传一下。

启动键 是可以自己随意设置的，不是在脚本内的内容。

自动选怪设置为F11 其他无要求

Delay 2000

Plugin Hwnd = Window.Foreground()

Delay 200

Plugin Rect = Window.GetClientRect(Hwnd)

Dim xy

xy=Split(Rect,"|")

X1=CLng(xy(0))

Y1=CLng(xy(1))

Rem 000000000

Delay 2000

IfColor 280+X1 11+Y1,999999,2

Plugin Bkgnd.KeyPress(Hwnd, 122)

Delay 200

Goto 000000000

EndIf

IfColor 278+X1,31+Y1,0009cc,2

Delay 200

Plugin Bkgnd.KeyPress(Hwnd, 112)

Delay 200

Plugin Bkgnd.KeyPress(Hwnd, 113)

Delay 200

Plugin Bkgnd.KeyPress(Hwnd, 114)

Delay 200

Plugin Bkgnd.KeyPress(Hwnd, 115)

Delay 200

Gosub 吃药

Delay 200

Goto 000000000

EndIf

Plugin Bkgnd.KeyPress(Hwnd, 122)

Delay 200

Goto 000000000

Sub 自动回血补篮

Rem 补红

IfColor 151+X1 36+Y1 0009cc 2

Goto 补蓝

Else

Delay 100

Plugin Bkgnd.KeyPress(Hwnd, 119)

//按下补血快捷键F8

EndIf

Rem 补蓝

IfColor 116+X1 42+Y1 cc0000 2

Goto 补宝宝

Else

Delay 100

Plugin Bkgnd.KeyPress(Hwnd, 120)

//按下补蓝快捷键F9

EndIf

Rem 补宝宝

IfColor 140+X1 79+Y1 0009cc 2

Goto 开始

Else

Delay 100

Plugin Bkgnd.KeyPress(Hwnd, 121)

//按下补血快捷键F10

EndIf

Return 自动回血补篮