Type INPUT dwType As Long mi(0 To 10) As Byte End Type Type MOUSEINPUT dwFlage As Long dx As Long dy As Long End Type dim inputStruct(0 To 1) As INPUT dim MInput A MOUSEINPUT inputStruct(0).dwType=0 Minput.dx=100 Minput.dy=200 Minput.dwFlags=10 Copymem instruct(0).mi(0),Minput,Len(Minput) inputStruct(1).dwType=0 Minput.dx=100 Minput.dy=200 Minput.dwFlags=10 Copymem instruct(1).mi(0),Minput,Len(Minput) SendInput 2,inputStruct(0).mi(0),Len(inputStruct(0))
SendInput 2,inputStruct(0).mi(0),Len(inputStruct(0))
SendInput 2,inputStruct(0),Len(inputStruct(0))
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)