Call yanshi()
		MoveTo  pyX+979, pyY+481
		Call yanshi()
		LeftClick 1
		Call yanshi()
		KeyUp "CTrl", 1
		Delay 100 
        FindPic  pyX,pyY,pyX+pmK,pyY+pmG,"Attachment:\宝石数量.bmp",0.6,intX,intY
		If intX > 0 And intY > 0 Then 
Select Case xxsl
Case 1
    KeyDown "1", 1
Case 2
    KeyDown "2",1
Case 3
    KeyDown "3", 1
Case 4
	KeyDown "4", 1
Case Else
	msgbox "拿宝石程序出错"
End Select			
          	Call yanshi()
          	MoveTo pyX + 445, pyY + 463          	
          	//MsgBox pyX & pyY
          	Call yanshi()
          	LeftClick 1
          	Call yanshi()
          	MoveTo pyX + 455, pyY + 480
          	//MsgBox pyX & pyY
          	call yanshi()
          	LeftClick 1
          	call yanshi()
		End If
End Function
Function zaxing(pyX,pyY,pmK,pmG)//砸星，xxdj星星原有等级
	
Dim xxdj
Rem jixu
xxdj = pdxj(pyX,pyY,pmK,pmG)
	//MsgBox xxdj
	If xxdj = 6 Then 
		zb(izb,2)=7 
		Exit Function
	End If
	If xxdj = 4 or xxdj = 5 Then 
		Call quxing(4,pyX,pyY,pmK,pmG)
	End If
	If xxdj = 3 Then 
		Call quxing(3,pyX,pyY,pmK,pmG)		
	End If
	If xxdj = 2 Then 
		Call quxing(2,pyX,pyY,pmK,pmG)
	End If
	If xxdj = 1 or xxdj = 0 Then 
		Call quxing(1,pyX,pyY,pmK,pmG)
	End If
	Call yanshi()
	MoveTo  pyX+537, pyY+617	
	Call yanshi()
	LeftClick 1
	Call yanshi()
	zaxing = xxdj + 1
	Goto jixu	
End Function 
Event Form1.CheckBox1.Click
If Form1.CheckBox1.Value = 0 Then 
	zb(0, 2) = 7
Else 
	zb(0, 2) = 0	
End If
End Event
Event Form1.CheckBox2.Click
If Form1.CheckBox2.Value = 0 Then 
	zb(1, 2) = 7
Else 
	zb(1, 2) = 0	
End If
End Event
Event Form1.CheckBox3.Click
If Form1.CheckBox3.Value = 0 Then 
	zb(2, 2) = 7
Else 
	zb(2, 2) = 0	
End If
End Event
Event Form1.CheckBox4.Click
If Form1.CheckBox4.Value = 0 Then 
	zb(3, 2) = 7
Else 
	zb(3, 2) = 0	
End If
End Event
Event Form1.CheckBox5.Click
If Form1.CheckBox5.Value = 0 Then 
	zb(4, 2) = 7
Else 
	zb(4, 2) = 0	
End If
End Event
Event Form1.CheckBox6.Click