利用剪切板
Private Sub Command1_Click()
Dim TextStr As String
TextStr = "aaaaaaaaaaaaaaaaaaaaa"
Shell "w:\note5.0\note.exe", vbNormalFocus
VB.Clipboard.Clear
VB.Clipboard.SetText TextStr
SendKeys "^{V}"
End Sub
Private Sub Command1_Click()
Dim TextStr As String
TextStr = "aaaaaaaaaaaaaaaaaaaaa"
Shell "w:\note5.0\note.exe", vbNormalFocus
VB.Clipboard.Clear
VB.Clipboard.SetText TextStr
SendKeys "^{V}"
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货