其他 》 按键精灵 -脚本

 

 

魔兽世界 ，隔几秒 按 1， 又 按 2

Hwnd = Plugin.Window.Find(0, "魔兽世界")
Delay 1000
i=0
While True
Delay 1000
i = i + 1
If i=4
Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
i=0
Else 
//Call Plugin.Bkgnd.RightClick(Hwnd, 33, 33)
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
End If
Wend

 

-- LR 带 小号  ，----

按键精灵

http://zy.anjian.com/?action-model-name-qmdn-itemid-179

 

 

//下面这句是遍历符合窗口标题("记事本")的句柄保存到数组(HwndEx)里  

HwndEx = Plugin.Window.Search("魔兽世界")  


//下面这句用于分割字符串,将获得的句柄组分割  

dim MyArray   
MyArray = Split(HwndEx, "|")   
If UBound(MyArray)>=0 Then   
    i=0   
    For UBound(MyArray)   
    
   //下面这句将字符串转换成数值  
//要执行的语句
        //Msgbox "第 " & i + 1 & " 个窗口句柄为：" & Clng(MyArray(i))
         Call Plugin.Bkgnd.KeyPress(MyArray(i), 192)  
        //结束要执行的语句
        
      
        
        i=i+1   
    Next   
End If 

 

------------- lr 宏 -------------- 

 

 

/follow 丷丶
/target 丷丶
/assist
/script PetAttack() 
/施放 奥术射击(等级 8)
/施放 自动射击