请高手发个最基本的模拟鼠标和键盘的VB6源码!!!!!!!!!!!!!

ablavefox

我靠我是超级菜鸟 你会知道VB里的延时代码吗 我想把模拟放到游戏里去用 如果会圆渐开函数也请发上来
LEFTDOWN=8H2
LEFTUP=8H4
RIGHTD=8H8
RIGHEU=8H10
MOVE=8H1中键我不是经常用忘记了呵呵
这是简单游里的按键精灵代码 怎么用在VB里
BSCall Call GetScreenResolution(fx,fy)
VBS x0=fx/2:n=1:y0=fy/2
While n<77
    VBS x=x0+4*(cos(n)+n*sin(n))
    VBS y=y0+3*(sin(n)-n*cos(n))
    VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>
    Delay 10
    VBS n=n+0.2
EndFor
VBS x1=fx/2:n=77:y1=fy/2
While n>1
    VBS x=x1+4*(cos(n)+n*sin(n))
    VBS y=y1+3*(sin(n)-n*cos(n))
    VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>
    Delay 10
    VBS n=n-0.2
EndFor
EndScript