TC官方合作论坛

标题: 如何生成鼠标的移动轨迹 [打印本页]

---

作者: qq465881818    时间: 2014-11-4 23:49
标题: 如何生成鼠标的移动轨迹
防封使用的。

---

作者: 610761555    时间: 2014-11-5 06:31
以前网上找来收藏的，借花敬佛

1. function 鼠标轨迹(i,x1,y1)
   
2.     变量 x0,y0,x3,y3,c1,x,y,返回串,x=array[0],y=array[0],ydx,ydy
   
3. dm[i].GetCursorPos(x0,y0)
   
4.     //鼠标.获取坐标(x0,y0)
   
5.     m=数学.绝对值(x1-x0)
   
6.     n=数学.绝对值(y1-y0)
   
7.     d=数学.开方(m*m + n*n)
   
8.     cs=类型.取整(d/20)
   
9.     x2=类型.取整((x1-x0)/cs)
   
10.     y2=类型.取整((y1-y0)/cs)
    
11.     s=0
    
12.     for(i1=0;i1<d;i1=i1+d/cs )
    
13.         if(x3==""&&y3=="")
    
14.             x3=x0
    
15.             y3=y0
    
16.         else
    
17.             x3=x3&"|"&(x0+x2*s)
    
18.             y3=y3&"|"&(y0+y2*s)
    
19.         endif
    
20.         s=s+1
    
21.     endfor
    
22.     str.split(x3,"|",x)
    
23.     str.split(y3,"|",y)
    
24.     arraysp.size(x,c1)
    
25.     for (j1=0;j1<c1;j1++)
    
26.         ydx=类型.转整型(x[j1])+辅助.随机数(-5,5)
    
27.         ydy=类型.转整型(y[j1])+辅助.随机数(-5,5)
    
28. dm[i].MoveTo(ydx,ydy)
    
29.         help.sleep(5)
    
30.     endfor
    
31. dm[i].MoveTo(x1,y1)
    
32. endfunction

复制代码

---

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)

Powered by Discuz! X3.1