按键精灵，侦测鼠标变形后点击一下左键

就是玩游戏的时候 鼠标移动到NPC身上后就变了 变了之后点击一下左键 没变的话就正常 如此循环下去
NPC是渐渐出现的..........

UserVar zhengchangshubiao=0 "这里输入你正常状态下的鼠标特征码"
dangqianshubiao = GetCursorShape(0)
Rem start
If dangqianshubiao = zhengchangshubiao Then
Goto start
Else
LeftClick 1
End If
以上为按键9全部源代码，望采纳。

//指定点后台点击的例子------------------------ 点击 = waitclick()//等待点击 delay 10 //得到鼠标指向的窗口句柄 hwnd = plugin.window.mousepoint() getcursorpos x, y//保存当前坐标 //下面这句是得到窗口句柄的客户区大小 srect = plugin.window.getclientrect(hwnd) //msgbox "得到窗口句柄："& hwnd //显示句柄 //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串 //dim myarray myarray = split(srect, "|") //下面这句将字符串转换成数值 l = clng(myarray(0)): t = clng(myarray(1)) r = clng(myarray(2)): b = clng(myarray(3)) do//循环开始 for 60 delay 2000//等待2秒 next call plugin.bkgnd.leftclick(hwnd, x-l, y-t)//(变量为前台坐标系) loop//循环结点

Dim i,n Dim x(2),y(2) i=0 n=0 VBSCall GetCursorPos(x(i),y(i)) While i<2 //设置延时，2分钟内5次 Delay 120000/5 //这里用绝对值函数，使i在0与1之间互相转化 i=Abs(i-1) VBSCall GetCursorPos(x(i),y(i)) If x(0)=x(1) and y(0)=y(1) n=n+1 Else n=0 EndIf //上面的IF语句里比较最近两次鼠标坐标，只要一有变化则计数器n清0 //当连续5次鼠标无变化时，则执行 If n>4 MoveTo 450,350 Delay 5 LeftClick 1 n=0 EndIf EndWhile 把上面的粘贴到按键精灵里会睇得更清楚。 其实无必要比较完5次啦，只要比较最近两次有无变化就行了。如果确实要看比较5次的脚本，那可以有如下程序（上下两个脚本效果一样）： Dim i,n Dim x(5),y(5) i=0 While i<5 Delay 120000/5 VBSCall GetCursorPos(x(i),y(i)) n=0 While n<i //这个循环用来比较数组内的数值 If x(n)=x(i) and y(n)=y(i) If n=3 MoveTo 450,350 Delay 5 LeftClick 1 i=-1 //这里初始化i，就可以不断循环检测 EndIf n=n+1 Else i=-1 EndIf EndWhile i=i+1 EndWhile

这个比较简单. 可以用找图的方法. Call FindPic(x1,y1,x2,y2,".\plugin\SB.bmp",0.5,intx,inty) If intx>0 and inty>0 Then RightClick 2 Else MoveTo x,y End if