VB知道了控件ID，怎么模拟点击

VB知道了控件ID，怎么模拟点击

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
Dim s As String
Dim n As Long
Dim hHwnd As Long

hHwnd = Text1.hwnd '控件句柄

n = GetWindowTextLength(hHwnd) '控件文本长度
s = Space(n)
Call GetWindowText(hHwnd, s, n + 1)
Print s
End Sub

病情分析： 一般是长牙导致或是口腔溃疡导致流口水。你要注意看看。 指导意见： 把维生素E里面的液体挤在溃疡面上面能够马上止痛，而且促进溃疡愈合，但是每天不能超过3粒。 病情分析： 您好，很高兴为您解答，根据您提供的资料看，小孩发烧服用药物退烧后出现流口水的症状，这个要考虑有口腔溃疡可能，可看医生检查一下。 指导意见： 就宝宝的上述情况建议带宝宝看医生检查一下，尤其是手脚上还有小泡的话要引起重视，检查清楚再行用药治疗，多局部用药治疗。 病情分析： 注意宝宝如果发烧后出现流口水一般就是由于口腔溃疡导致的。 指导意见： 孩子已经口服药物治疗两天天，建议再口服目前的药物巩固治疗两天左右时间，同时建议可以选择药物如口立爽、西瓜霜等对孩子溃疡部位进行局部喷涂治疗。

比如文本框

msgbox 句柄.text

比如按钮

msgbox 句柄.caption