mouse!!!!!!

[kagartoe]

i need to move the mouse and click things
yes ive been to http://www.vbapi.com no they dont have what i need (well they do its just i cant get any of it to work for me) so help me if you can!

What exactly do you need?

[QWERTY]

'//In Module
Declare Function SetCursorPos Lib "user32.dll" _
(ByVal X As Long, ByVal Y As Long) As Long

Declare Sub mouse_event Lib "user32.dll" _
(ByVal dwFlags As Long, ByVal dx As Long, _
ByVal dy As Long, ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_ABSOLUTE = &H8000
Public Const MOUSEEVENTF_MOVE = &H1

'//Form
Private Sub Command1_Click()
    mouse_event MOUSEEVENTF_MOVE And MOUSEEVENTF_ABSOLUTE, 0, 0, 0, 0
    SetCursorPos 402.5, 340
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Post #520

[QWERTY]

Infinitive (sp) loop????? Why would you want to do that???

Dim I As Integer

For I = 1 To 2
    '//Do Whatever you want here
    I = I - 1
Next I

Post #521

[kagartoe]

Well its a bit hard to explain.
I would like the program to !!make sure!! it gets dune what I wont. Its a sad way to do it but i lack the know how to do it any other way

[kagartoe]

wait thats not all i need now i need a is to be able to use the key board useing vb

[gwdash]

try "SendKeys"

[kagartoe]

how does that work

[gwdash]

look it up in MSDN, don't have time to post example now, will post it later

[kagartoe]

ok

[Xenonic_Rob]

Syntax

SendKeys string[, wait]

The SendKeys statement syntax has these named arguments:

string Required. String expression specifying the keystrokes to send.

Wait Optional. Boolean value specifying the wait mode. If False (default), control is returned to theprocedure immediately after the keys are sent. If True, keystrokes must be processed before control is returned to the procedure.

Remarks
Each key is represented by one or more characters. To specify a single keyboard character, use the character itself. For example, to represent the letter A, use "A" for string. To represent more than one character, append each additional character to the one preceding it. To represent the letters A, B, and C, use "ABC" for string.

The plus sign (+), caret (^), percent sign (%), tilde (~), and parentheses ( ) have special meanings to SendKeys. To specify one of these characters, enclose it within braces ({}). For example, to specify the plus sign, use {+}. Brackets ([ ]) have no special meaning to SendKeys, but you must enclose them in braces. In other applications, brackets do have a special meaning that may be significant whendynamic data exchange (DDE) occurs. To specify brace characters, use {{} and {}}.

To specify characters that aren't displayed when you press a key, such as ENTER or TAB, and keys that represent actions rather than characters, use the codes shown below:

Key Code
BACKSPACE {BACKSPACE}, {BS}, or {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL or DELETE {DELETE} or {DEL}
DOWN ARROW {DOWN}
END {END}
ENTER {ENTER}or ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS or INSERT {INSERT} or {INS}
LEFT ARROW {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
RIGHT ARROW {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
UP ARROW {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16}


To specify keys combined with any combination of the SHIFT, CTRL, and ALT keys, precede the key code with one or more of the following codes:

Key Code
SHIFT +
CTRL ^
ALT %


To specify that any combination of SHIFT, CTRL, and ALT should be held down while several other keys are pressed, enclose the code for those keys in parentheses. For example, to specify to hold down SHIFT while E and C are pressed, use "+(EC)". To specify to hold down SHIFT while E is pressed, followed by C without SHIFT, use "+EC".

To specify repeating keys, use the form {key number}. You must put a space between key and number. For example, {LEFT 42} means press the LEFT ARROW key 42 times; {h 10} means press H 10 times.

Note You can't use SendKeys to send keystrokes to an application that is not designed to run in Microsoft Windows. Sendkeys also can't send the PRINT SCREEN key {PRTSC} to any application.

[kagartoe]

could someone give me an example
like typeing the word cow

Text1.SetFocus
SendKeys "COW"

[kagartoe]

thats good but i was hopeing for something i could use outside my own programs
after useing the mouse to move and click on the spot to type it (i all ready know how to move and click with the mouse)

Method 1:

AppActivate "MyAppTitle"
SendKeys "COW"

Method 2: (using SendMessage)

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CHAR = &H102

Private Sub Command1_Click()
    SendMessage Text1.hwnd, WM_CHAR, vbKeyC, 0
    SendMessage Text1.hwnd, WM_CHAR, vbKeyO, 0
    SendMessage Text1.hwnd, WM_CHAR, vbKeyW, 0
End Sub