Long
Dim str1 As String * 30001
Dim Pt As POINTAPI, mWnd As Long
'Get the current cursor position
GetCursorPos Pt
'Get the window under the cursor
mWnd = WindowFromPoint(Pt.x, Pt.y)
abc = SendMessageByString&(mWnd, WM_GETTEXT, 30000, str1)
Text1.Text = str1
Dim str1 As String * 30001
Dim Pt As POINTAPI, mWnd As Long
'Get the current cursor position
GetCursorPos Pt
'Get the window under the cursor
mWnd = WindowFromPoint(Pt.x, Pt.y)
abc = SendMessageByString&(mWnd, WM_GETTEXT, 30000, str1)
Text1.Text = str1
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货