Sythe.org — A Virtual Goods Trading Hub

I 1337 I *BANNED* · #1 08-18-2009, 02:25 PM

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)

Swan · #2 08-18-2009, 10:54 PM

SendMessage most likely.

ipivb · #3 09-17-2009, 07:22 AM

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

I 1337 I *BANNED* · #4 09-24-2009, 06:11 PM

Quote:

Originally Posted by ipivb

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