我用的按键是V5.92版，免费的，没有“一键获取当前鼠标的坐标和颜色”这个功能，不知道新版本有没有，只有“得到鼠标当前位置”和“得到指定点颜色”这两个功能一起用。
你的脚本获取坐标的语句没有错，只是弹出窗口那一句有问题，所以显示不出来，改成下面这样就行了

VBS dim x,y.
//声明变量
VBSCall GetCursorPos(x,y)
//得到当前鼠标的坐标位置 并保存到变量x,y中
VBSCall MessageBox("坐标为:x="+cstr(x)+" y="+cstr(y))
//弹出窗口 输出坐标的值

VBSCall Call SetCursorPos
VBSCall Call SetCursorPosRmLcgz(CursorX,CursorY) '这个函数用来设置鼠标当前位置
VBSCall Call GetCursorPos
这个功能允许您得到当前鼠标所在的位置，并保存在变量中
格式
VBSCall Call GetCursorPos(x,y)
x和y都是整数型变量，分别表示当前鼠标的x和y坐标
您可以随便取变量名，不一定是x和y
例子
VBSCall Call GetCursorPos(mx,my) 把当前鼠标位置的x和y坐标放在变量mx和my中
************************给我加分呀*********************

试试这样：
Module1：
Option Explicit
Public Declare Function GetKeyboardState& Lib "user32" (pbKeyState As Byte)
Public Declare Function GetKeyNameText& Lib "user32" Alias "GetKeyNameTextA" (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Long)
Public Declare Function MapVirtualKey& Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long)
Public Declare Function GetAsyncKeyState% Lib "user32" (ByVal vKey As Long)
Public Declare Function SetWindowWord& Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long)
Public Declare Function GetKeyState% Lib "user32" (ByVal nVirtKey As Long)
Public Const GWL_HWNDPARENT& = (-8)
Public Const HOTKEYF_SHIFT = &H1
Public Const HOTKEYF_CONTROL = &H2
Public Const HOTKEYF_ALT = &H4
Public Const VK_CONTROL& = &H11
Public Const VK_SHIFT& = &H10
Public Const VK_MENU& = &H12
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public HotKey As Long
Public HotKey_Cild As Long

Form1:

Private Type POINTAPI
X As Long
Y As Long
End Type
Privat日夏养花网e Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
'判断函数调用时指定虚拟键的状态
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Form_Load()
Tim日夏养花网er1.Int日夏养花网erval = 1
End Sub

Private Sub Timer1_Timer()
Dim hdc As Long
Dim A As POINTAPI
Dim quyanse As Long
Call GetCursorPos(A) '取得鼠标位置
Text1.Text = "X坐标：" & A.X & "...Y坐标：" & A.Y
hdc = GetDC(0) '取得整个屏幕的hDC
Form1.BackColor = GetPixel(hdc, A.X, A.Y) '取颜色
ReleaseDC 0, hdc '释放hDC
If MyHotKey(vbKeyF2) Then '如果按下F2,就获取颜色值到变量中
quyanse = GetPixel(Me.hdc, 2, 2) '取颜色值
Text2.Text = Str(quyanse)
MsgBox Text1.Text & "颜色值:" & quyanse
End If
End Sub
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function
'注意！！！！Module1可以不要！！

我用的按键是V5.92版，免费的，没有“一键获取当前鼠标的坐标和颜色”这个功能，不知道新版本有没有，只有“得到鼠标当前位置”和“得到指定点颜色”这两个功能一起用。
你的脚本获取坐标的语句没有错，只日夏养花网是弹出窗口那一句有问题，所以显示不出来，改成下面这样就行了

VBS dim x,y.
//声明变量
VBSCall GetCursorPos(x,y)
//得到当前鼠标的坐标位置 并保存到变量x,y中
VBSCall MessageBox("坐标为:x="+cstr(x)+" y="+cstr(y))
//弹出窗口 输出坐标的值

如果是光标的坐标,可以考虑:
1. 获取该网页实例
2. 获取该网页中光标的坐标(相对)

如果是鼠标坐标,可以这样考虑:
1. 获取鼠标的绝对坐标(屏幕坐标)
2. 获取该网页的实例
3. 获取该网页的绝对坐标
4. 计算鼠标的相对坐标

输入点的光标所在坐标，可以通过找图命令来找，但光标是一闪一闪的，需要重复执行几次才能找到正确坐标