Private Sub Command1_Click() Dim w As New clsWindow w.GetWindowByTitle("SUI Mobile/前端/Html").Focus w.ClickPoint w.Left + 35, w.Top + w.Height - 100 w.WAIT 500 Clipboard.Clear Clipboard.SetText "本消息由程序clswindow2.0类发出 " & Now SendKeys "^{v}" SendKeys "%{s}" End Sub