'a = Plugin.zhishiceshi.Test1("http://hi.baidu.com/niswodezuiai01/home", 4 )
'If a <> "完美测试" Then 
  '  MsgBox a & "作者QQ ：３７６３２１２０５"
  '  EndScript 
'End If
Dimenv kk
Dimenv cs,cs2,cs3,cs4
Dimenv c
Dimenv cnm
Dimenv x1, y1
Dimenv jineng             '挂机技能
Dimenv gx, gy, ox, oy     '找怪范围
gx = Form1.InputBox3.Text '找怪范围
gy = Form1.InputBox4.Text '找怪范围
ox = Form1.InputBox5.Text '找怪范围
oy = Form1.InputBox6.Text '找怪范围

wushe = Form1.InPutBox2.Text
jineng = Asc(wushe)


Dim x(19),y(19),ex(19),ey(19),tx(19),ty(19)
Call Plugin.Office.OpenXls("C:\map.xls")
Dim map1, map2, map3
map1 = Plugin.Office.ReadXls(1, 30, 1)
TracePrint map1
For i = 0 To 19
  
    x(i) = Plugin.Office.ReadXls(1, i + 1, 1)
    y(i) = Plugin.Office.ReadXls(1, i + 1, 2)
     TracePrint x(i)
    If x(i) = "" Then 
        tu1 = i
        TracePrint i
        Exit For	
    End If
    
Next
map2 = Plugin.Office.ReadXls(1, 30, 3) 
For i = 0 To 19
	
    ex(i) = Plugin.Office.ReadXls(1, i + 1, 3)
    ey(i) = Plugin.Office.ReadXls(1, i + 1, 4)
        
    If ex(i) = "" Then 
        tu2 = i
        Exit For	
    End If
    
Next
map3 = Plugin.Office.ReadXls(1, 30, 5) 
For i = 0 To 19
	
    tx(i) = Plugin.Office.ReadXls(1, i+1, 5)
    ty(i) = Plugin.Office.ReadXls(1, i+1, 6)
	    
    If tx(i) = "" Then 
        tu3 = i
        Exit For	
    End If
    
Next
cs = tu1:cs2 = tu2:cs3 = tu3

tim = Form1.InputBox1.Text

Call zhuce()

'======================= > > >获取句柄 < < < ==================================
For tim
    MsgBox "【小键盘】“+”代表“"&map1&"”，“-”代表“"&map2&"”，“*”代表“"&map3&"”"
    Key = WaitKey
   
    If key = 107 Then 
        x1 = Join(x,",")    	
        y1 = Join(y,",")
        kk = Plugin.Window.MousePoint()
        BeginThread gamestart(cs)
    ElseIf key = 109 Then
        x1 = Join(ex,",")    	
        y1 = Join(ey,",")
        kk = Plugin.Window.MousePoint()
        BeginThread gamestart(cs2)
    ElseIf key = 106 Then
        x1 = Join(tx,",")    	
        y1 = Join(ty,",")
        kk = Plugin.Window.MousePoint()
        BeginThread gamestart(cs3)
    End If
    TracePrint x1
Next
'======================= > > >获取句柄 < < < ==================================


Sub zhuce()
    '======================= > > >注册大漠 < < < ==================================
    PutAttachment ".\plugin","*.dll"
    PutAttachment ".\plugin\大漠梦想","*.bmp"
    PutAttachment ".\plugin\大漠梦想","*.txt"
    PutAttachment ".\plugin\大漠梦想","dm.dll"