• Log in or sign up for an account here: https://www.sythe.org/login

Silent mouse clicks?

I 1337 I

Guru

Banned
Joined
Aug 18, 2007
Sythe Gold
0
Messages
1,158
Location
Finland
Im creating a bot (not for rs) in VB.net but how do i make it so it clicks a position silent. Like so it wouldnt use my mouse? I know how to make it click positions but how to make it do it silent, like when the program is minimized it would still click the spot in the bot so the click wouldnt effect anythingf else.

I mean like rsbots click, it works even when the program is minimized etc. (yes i know its made in Java)
 
Member of the Month Winner
Sythe's 10th Anniversary
SendMessage most likely.
 
here i use this
Code:
  Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
   ByVal hwnd As IntPtr, _
   ByVal wMsg As Int32, _
   ByVal wParam As Int32, _
   ByVal lParam As Int32) As Int32
    Public Declare Function WindowFromPoint Lib "user32" ( _
    ByVal stPoint As Point) As IntPtr
    Public Const WM_LBUTTONDOWN = &H201
    Public Const WM_LBUTTONUP = &H202
    Public Sub DoClick()
        Dim MyPoint As Point
        MyPoint.X = textbox1.text.Text
        MyPoint.Y = textbox2.text.Text
        Dim ptHwnd As IntPtr = WindowFromPoint(MyPoint)
        Dim retVal As Int32 = PostMessage(ptHwnd, WM_LBUTTONDOWN, 0, 0&)
        retVal = PostMessage(ptHwnd, WM_LBUTTONUP, 0, 0&)
    End Sub

i think ive seen you before are you planing on using this fir CB,CL ? if you are i can give you some other code that will work for that
 
here i use this
Code:
  Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
   ByVal hwnd As IntPtr, _
   ByVal wMsg As Int32, _
   ByVal wParam As Int32, _
   ByVal lParam As Int32) As Int32
    Public Declare Function WindowFromPoint Lib "user32" ( _
    ByVal stPoint As Point) As IntPtr
    Public Const WM_LBUTTONDOWN = &H201
    Public Const WM_LBUTTONUP = &H202
    Public Sub DoClick()
        Dim MyPoint As Point
        MyPoint.X = textbox1.text.Text
        MyPoint.Y = textbox2.text.Text
        Dim ptHwnd As IntPtr = WindowFromPoint(MyPoint)
        Dim retVal As Int32 = PostMessage(ptHwnd, WM_LBUTTONDOWN, 0, 0&)
        retVal = PostMessage(ptHwnd, WM_LBUTTONUP, 0, 0&)
    End Sub

i think ive seen you before are you planing on using this fir CB,CL ? if you are i can give you some other code that will work for that

Not only for CB, but for other games :) Thanks for that, trying it out soon.


E: Doesnt work when program minimized, but thanks for it, as it doesnt use my own mouse :)
 
Runescape Gamblingrunescape gambling
Back
Top