|
|
[简单屏幕取词功能]可保存到剪切板
理论支持所有未保护以标题为文字的窗口
这个功能挺简单的,给新手学习,高手可以路过了
Hwnd = Plugin.Window.MousePoint()
If Hwnd<>0 Then
sText = Plugin.Window.GetText(Hwnd)
If sText<>"" Then
Call Plugin.Sys.SetCLB(sText)
Call 显示提示信息("获取文本:"&sText)
Else
Call 显示提示信息("无法获取文本")
End If
Else
Call 显示提示信息("无法获取文本")
End If
Sub 显示提示信息(Text)
ScreenX = Plugin.Sys.GetScRX()
ScreenY = Plugin.Sys.GetScRY()
GetCursorPos x, y
Call Plugin.Msg.ShowScrTXT(x, y, ScreenX, ScreenY, Text, "0000FF")
Delay 1000
Call Plugin.Msg.HideScrTXT()
EndScript
End Sub |
|
