autofishing-1.1.vbs

//////////////////////////////////////////////////////////////
// 魔兽世界 自动钓鱼脚本
// 版本：1.1
// 作者：Gates_ice
// 说明：
// 1. 屏幕右下角设置为钓鱼图标
// 2. 使用白色背景判断鱼漂说明的方框
// 3. 利用系统的音量判断是否上钩
//////////////////////////////////////////////////////////////


i = 10

// 循环整体间隔
LoopDelay = 1

// 声音判断坐标
SoundPointX = 100
SoundPointY = 100

// 鱼漂判断坐标
FishPointX = 100
FishPointY = 100

// 钓鱼图标位置
IconX = 1214
IconY = 649

//循环：主体循环
//功能：钓鱼
While i <> 0  
	Delay LoopDelay * 1000
	
	// 动作：抛鱼竿
	MoveTo IconX, IconY
	LeftClick 1

	Delay 1500
		
	// 动作：循环查找鱼钩
	minX = 400
	minY = 100
	
	maxX = 900
	maxY = 350
	
	plusX = 50
	plusY = 25
	
	mouseX = minX
	mouseY = minY
	
	While i <> 0
		// 移动鼠标指针
		MoveTo mouseX, mouseY
		
		// 判断是否有鱼钩
		FindColorEx 1153,620,1176,634,"695744",0,0.9,intX,intY
		If intX > 0 And intY > 0 Then 
			Goto OuterMoveCursor
		End If
		
		Delay 40
		
		mouseX = mouseX + plusX
		
		// 判断鼠标是否出界
		If maxX < mouseX Then 
			mouseX = minX
			mouseY = mouseY + plusY
			
			If maxY < mouseY Then 
				Goto NextLoop
			End If
		End If
		
	Wend

	
	Rem OuterMoveCursor
	MoveTo mouseX - plusX, mouseY
	
	// 判断是否有鱼上钩
	For t = 1 To 2000
		FindColorEx 1296,300,1298,310, "c3c5c5",0,0.9,intX,intY
		If intX > 0 And intY > 0 Then
			RightClick 1
			
			Goto NextLoop
		End If
		Delay 10
	Next
	
	Rem NextLoop
Wend
//当循环条件成立的时候，反复执行循环体