31/5000 mouse position is not right in webbrowser [closed] - vb.net

Question

Closed. This question needs details or clarity. It is not currently accepting answers.
Want to improve this question? Add details and clarify the problem by editing this post.
Closed 4 years ago.
Improve this question
I have start to build a bot and i have try to get the mouse position store on a variable x and y and then wen i click start move the mouse to the location but wen i start the bot the location its not right.
How can i get the true position of it.
I have try like this but i cant get the correct position of mouse x,y inside of a webbrowser
I have made a gif image of the problem imgur link https://imgur.com/a/QQLQX
I have also edit my code and try a different way but i can not get the correct position
This is my code
Public Class Form1
Dim horas
Dim minutos
Dim segundos
Dim milesimos
Dim ratobutao
Dim tipoclick
Dim repetir
Dim currentelocal
Dim xmouse
Dim ymouse
Dim WithEvents htmldoc As HtmlDocument
Private Sub htmldoc_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs) Handles htmldoc.MouseMove
'TextBox5.Text = e.MousePosition.X.ToString
'TextBox6.Text = e.MousePosition.Y.ToString
'xmouse = e.MousePosition.X.ToString
'ymouse = e.MousePosition.Y.ToString
End Sub
Private Sub htmldoc_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs) Handles htmldoc.MouseDown
'xmouse = e.MousePosition.X.ToString
'ymouse = e.MousePosition.Y.ToString
'TextBox5.Text = e.MousePosition.X.ToString
'TextBox6.Text = e.MousePosition.Y.ToString
xmouse = Me.Width / WebBrowser1.Width
ymouse = Me.Height / WebBrowser1.Height
TextBox5.Text = e.MousePosition.X.ToString
TextBox6.Text = e.MousePosition.Y.ToString
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("www.google.com")
For Each c As Control In Controls
AddHandler c.MouseClick, AddressOf ClickHandler
Next
End Sub
Private Sub ClickHandler(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
Select Case e.Button
Case MouseButtons.Left
MsgBox("left mouse")
TextBox5.Text = xmouse
TextBox6.Text = ymouse
Label2.Text = "Left"
Case MouseButtons.Right
Label2.Text = "Right"
Case MouseButtons.Middle
Label2.Text = "Middle"
Case Else
Label2.Text = "Some other button"
End Select
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
htmldoc = WebBrowser1.Document
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox5.Text = xmouse
TextBox6.Text = ymouse
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Windows.Forms.Cursor.Position = New Point(xmouse, ymouse)
Timer1.Stop()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer1.Start()
End Sub
End Class

Answer 1

When programming with graphical interfaces, there are three different coordinate sets you need to be aware of: Screen, Window, and Client. Different contexts provide coordinates from different areas. You need to know what type of coordinates you have, and how to convert between the others. This image illustrates:
In multi-monitor situations there may even be a fourth, to differentiate between a specific monitor and the entire desktop. Different windowing systems may also argue about what section counts as the client area, but the main thing is it's not the same as the others.
Figure out what coordinates you have in each situation in your code, and then look up how to convert between them.

Answer 2

In fact after to try many different ways to get it .
I have solve the mystery :)
It is easy but there not that many information out there about, and well English its not my native Language and the way i try to search maybe not that efficient.
But i get it work perfect.
This is the working code
Private Sub htmldoc_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs) Handles htmldoc.MouseDown
xmouse = Control.MousePosition.X.ToString()
ymouse = Control.MousePosition.Y.ToString()
TextBox5.Text = xmouse
TextBox6.Text = ymouse
End Sub