qq西游法师挂机脚本
兄弟，去下个简单百宝箱，里面有QQ西游脚本，法师的话把五雷和药开起来，五雷是开一秒，药开40-50秒，如果你把回蓝技能也点了，那个加暴击的点1分钟一次，那个用血换蓝的10秒一次，如果蓝少得快，你就把时间缩短，如果蓝一直满满的，就把时间拉长，法师不用寻怪的，做任务到19级就去刷团蘑菇，刷到25去刷乌鸡，刷到32去刷恶贼，35去刷白骨，35有把飞剑，速度很快，然后可以把以前的任务都清理掉
奉劝一句：别去网络上找什么脚本，那些都是会洗号的
纯手工打造，望采纳
求按键精灵热血江湖刀全自动挂机脚本
[General]
Description=中间渐开垂直打怪
BeginHotkey=122
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
UserVar hongBF=70 血量少于百分之多少时，自动吃红。
UserVar lanBF=30 蓝少于百分之多少时，自动吃蓝。
UserVar dihui=15 血量少于百分之多少时，自动回城。
UserVar hongyanshi=128 补红延时，1000=1秒
UserVar lanyanshi=128 补蓝延时，1000=1秒
UserVar wuguaiT=600 无怪时间，超过多少秒时间找不到怪自动报警。
UserVar fhong=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=0 红位置
UserVar flan=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=1 蓝位置
UserVar fdanJN=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=2 第一击JN位置
UserVar fqunJN=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=3 群JN位置
UserVar fjianqu=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=4 捡东西小手
UserVar f15JN=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=7 15级跑JN
UserVar fhuicheng=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=8 回城F
UserVar beidong=DropList{是:0|否:1}=0 直接群攻
UserVar fightT=30 技能防卡时间，为打死一只怪的最大时间(秒)。
UserVar Fanwei=40 战斗范围，请大于20
UserVar quanshu=3 搜索圈数
UserVar StepX=82 左右搜索距离
UserVar StepY=66 上下搜索距离
UserVar SearchT=32 搜索时间间隔,越小搜怪越快,1000=1秒
UserVar baojing=DropList{回城打坐:0|回城报警:1|回城关机:2}=0 回城后
VBS dim NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,color
VBS Dim objFM
VBS Set objFM=CreateObject("QMDispatch.QMFunction")
VBS Dim ScreenWidth,ScreenHeight
VBSCall GetScreenResolution(ScreenWidth,ScreenHeight)
CenterX = (ScreenWidth \ 2) - 1
CenterY = (ScreenHeight \ 2) - 1
VBS Dim MonX,MonY,TargetX,TargetY,DirectSIN,DirectCOS,MouseX,MouseY,lngHold
VBS MonX=0:MonY=0:DirectSIN=0:DirectCOS=1
Gosub 快捷键设置
Gosub LookDown
Gosub 补红蓝
VBSCall GetCurXY(CurX,CurY)@
VBS TargetX=CurX
VBS TargetY=CurY
SayString CurX
SayString "."
SayString CurY
Delay 64
KeyPress 13 1
Delay 64
VBS t=now
Rem 开始
VBSCall GetCurXY(CurX,CurY)@
Juli=sqr((CurX-TargerX)^2+(CurY-TargetY)^2)
If Juli>Fanwei
Gosub WalkToXY
EndIf
If DateDiff("s",t,now)>=wuguaiT
hcyy=4
KeyPress khuicheng 1
Delay 3000
Goto 停止挂机
EndIf
Rem 找怪
VBS NumA=0:NumB=0:NumC=0
MoveTo 0 384
Delay 200
MoveTo CenterX CenterY
Delay 32
VBSCall Shape=GetCursorShape(0)
If Shape=553575064
LeftClick 1
Delay 32
VBS youguai=1
Goto 打怪
EndIf
While NumC<quanshu
VBS NumN=NumC*8:NumK=0
While NumK<NumN
If NumK>0 and NumK<(NumN/4)
VBS NumB=NumB+1
ElseIf NumK>=(NumN/4) and NumK<(NumN/2)
VBS NumA=NumA-1
ElseIf NumK>=(NumN/2) and NumK<(NumN/4)*3
VBS NumB=NumB-1
ElseIf NumK>=(NumN/4)*3 and NumK<NumN
VBS NumA=NumA+1
EndIf
Gosub 补红
Gosub 无红回城
VBS GBX=CenterX+StepX*NumA
VBS GBY=CenterY+StepY*NumB
MoveTo GBX GBY
Delay SearchT
VBSCall Shape=GetCursorShape(0)
If Shape=553575064
LeftClick 1
Delay 32
VBS youguai=1
Goto 打怪
EndIf
VBS NumK=NumK+1
EndWhile
VBS NumA=NumA+1:NumC=NumC+1
EndWhile
VBS youguai=0
Rem 打怪
If youguai=1
VBS t=now
Gosub 补红蓝
Gosub 无药回城
If beidong=1
For 2
KeyPress kdanJN 1
Delay 256
EndFor
Else
For 3
KeyPress kqunJN 1
Delay 128
EndFor
EndIf
KeyPress k15JN 1
Delay 32
Gosub 补红蓝
Gosub 无药回城
VBS t1=now
Rem 技能攻击
VBSCall FindPic(250,180,780,580,"nf\血条L.bmp",0.8,x3,y3)
Delay 32
VBSCall FindPic(250,180,780,580,"nf\血条R.bmp",0.8,x4,y4)
Delay 32
VBSCall FindPic(250,180,780,580,"nf\_MonJ血条L.bmp",0.8,x5,y5)
Delay 32
VBSCall FindPic(250,180,780,580,"nf\_MonJ血条R.bmp",0.8,x6,y6)
Delay 32
If x3>0 or x4>0 or x5>0 or x6>0
VBS t=now
For 3
KeyPress kqunJN 1
Delay 64
EndFor
Gosub 补红蓝
KeyPress k15JN 1
Delay 32
Gosub 捡取
Gosub 无药回城
If DateDiff("s",t1,now)>=fightT
VBS t1=time
MoveTo CenterX CenterY+25
Delay 32
LeftClick 1
Delay 32
MoveTo CenterX CenterY-25
Delay 32
LeftClick 1
Delay 32
Goto 开始
EndIf
Goto 技能攻击
EndIf
EndIf
Goto 开始
Rem 停止挂机
Delay 3000
KeyDown 17 1
KeyPress 67 1
KeyUp 17 1
Delay 3000
If hcyy=1
SayString 低血回城
ElseIf hcyy=2
SayString 无红回城
ElseIf hcyy=3
SayString 无蓝回城
ElseIf hcyy=4
SayString 超时间无怪，回城
EndIf
If baojing=1
For 60
Beep
Delay 1000
EndFor
ElseIf baojing=2
KeyPress 27 1
Delay 3000
VBSCall FindPic(50,50,ScreenHeight-50,ScreenWidth-50,"nf\_User选项.bmp",0.9,x,y)
If x>0 And y>0
MoveTo x+10 y+5
Delay 64
LeftClick 1
Delay 64
EndIf
Delay 3000
VBSCall FindPic(50,50,ScreenHeight-50,ScreenWidth-50,"nf\确认退出.bmp",0.9,x,y)
If x>0 And y>0
MoveTo x+10 y+5
Delay 64
LeftClick 1
Delay 64
EndIf
Delay 30000
VBSCall Call RunApp("Shutdown.exe -s -t 30")
EndIf
EndScript
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Sub 补红蓝
IfColor dihui*1.28+21 5 041618 2
KeyPress khuicheng 1
Delay 3000
hcyy=1
Goto 停止挂机
EndIf
IfColor hongBF*1.28+21 5 041618 2
KeyPress khong 1
Delay hongyanshi
EndIf
IfColor lanBF*1.28+21 19 041618 2
KeyPress klan 1
Delay lanyanshi
EndIf
Return 补红蓝
Sub 无药回城
IfColor xh ScreenHeight-34 colorhong 2
Goto 查蓝颜色
EndIf
Rem 无红
KeyPress khuicheng 1
Delay 3000
hcyy=2
Goto 停止挂机
Rem 查蓝颜色
IfColor xl ScreenHeight-34 colorlan 2
Return 无药回城
EndIf
Rem 无蓝
KeyPress khuicheng 1
Delay 3000
hcyy=3
Goto 停止挂机
Return 无药回城
Sub 捡取
For 2
KeyPress kjianqu 1
Delay 64
EndFor
Return 捡取
Sub 快捷键设置
khong=112+fhong
klan=112+flan
kdanJN=112+fdanJN
kqunJN=112+fqunJN
kjianqu=112+fjianqu
k15JN=112+f15JN
khuicheng=112+fhuicheng
xh=ScreenWidth-351+fhong*37
colorhong=GetPixelColor(xh,ScreenHeight-34)
xl=ScreenWidth-351+flan*37
colorlan=GetPixelColor(xl,ScreenHeight-34)
Return 快捷键设置
Sub WalkToXY
VBS t1=now
VBS lngPreX=0:lngPreY=0:lngHold=0
VBS MouseX=0:MouseY=0
VBSCall GetCurXY(CurX,CurY)@
VBSCall SetWalkClick()@
While blnWalk=1
MoveTo MonX MonY
Delay 64
Gosub 补红蓝
Gosub 无药回城
KeyPress K15JN 1
Delay 32
LeftClick 1
Delay 512
VBSCall GetCurXY(CurX,CurY)@
VBSCall SetWalkClick()@
If DateDiff("s",t1,now)>=30
Goto 找怪
EndIf
EndWhile
Return WalkToXY
//********************调整为俯视子程序************************
Sub LookDown
MoveTo CenterX 30
Delay 100
RightDown 1
Delay 300
MoveR 0 620
Delay 200
RightUp 1
Delay 300
MoveTo CenterX CenterY
Delay 100
Return LookDown
//=================================
Sub 补红
IfColor hongBF*1.28+21 5 041618 2
KeyPress khong 1
Delay hongyanshi
EndIf
Return 补红
Sub 无红回城
IfColor xh ScreenHeight-34 colorhong 2
Else
KeyPress khuicheng 1
Delay 3000
hcyy=2
Goto 停止挂机
EndIf
Return 无红回城
求QQ西游自动打怪脚本源代码
Qy自动打怪加血助手
http://115(此处去掉).com/file/bhqy41vj
1、没用过大漠插件的，运行“注册大漠插件到系统.bat”注册一下插件。
2、加血的有三个，最后一个是用 “ 加血技能加血”，是医生用的，如果喝药瓶的话，加血的就不要用最后一个。
3、游戏分辨率为1024*600，不改就不用了。窗口不能最小化，可以遮挡，设有隐藏窗口键，避免不小心最小化。
4、自动旋转打怪，如果选怪7秒后，不打怪，则自动重新选怪。
QQ西游的刷小喇叭脚本跪求一个
首先，跑帮派小喇叭的脚本是没有的，因为这个是随机任务，不可能按照一套固定的程序去做，只能自己跑，不过我可以教你怎么跑出最大的效率
小喇叭任务概括起来就是3种，打怪，找人，找材料，每次交任务都会刷新三个任务，所以打怪的任务只接2种，一种怪是芙蓉，还有一种是叛军士兵，如果运气不好3个都是打怪任务，就选个最简单的你应该懂的
然后是找人，找人的任务分两种，一种是固定NPC，一种是随机2到3个当中的一个NPC，找复数固定NPC的不做，不在铁扇妹妹边上的固定NPC不做，如果是随机NPC的，不停放弃重接，直到要你找秦叔宝（小喇叭后面）或者徐功茂（长安郊外铁扇边）为止，还有一种是给你任务品到固定地点施放的，就包括在找人里面了，目前看来除了兔妖玉惜容不做其他都可以做
最后要说的重点就是交材料了，首先包尽量清空，然后装上可以叠加的任务品，注意是可以叠加的，什么莲花纸水蜡烛武器之类的都不要，大致上是傲来国的两种特产（特产商人），羊羔酒，八宝饭，月影花，冰魄草，推荐去五指山营地补给，一次搞定，还有毛皮，柔皮，白桦木，三等铜等（不需要多准备其他的如马兜铃之类的，因为放弃再接可以刷材料种类）但记得包裹必须空出3格防止施放任务拿不到任务品。然后是一种占一个的比较恶心的东西，祥泰玉如意，莲花纸，水蜡烛，武器等，这些东西不要装在自己的包里，开个小号，然后给他做4个8格包（魏征买图纸）买一个摆摊许可证，接着去慧心禅师跟建业铁匠那里补充材料吧，把42格包裹跟20个摊位全部装满，然后就在小喇叭边上摆个摊，价格必须是进价2倍以上，放心基本不会有人买，买了你不是赚了？
基本上刷小喇叭的方法就是我以上说的那些了，因为我早就把帮派技能需要的都点满了，很久没做了，所以可能有漏的。东西比较长，但是理解起来还是挺简单的，关键就是熟能生巧，弓手速度不慢熟练了一个小时200+没问题的，我是刺客一般都是300左右的啦，纯手打希望采纳~~
顺便再说一句，交任务的时候是一个一个交，交完一个看新出的任务适不适合接，适合的要先接掉再交下一个任务
