通过这个实例应用，得到了甜老师耐心的指导，作为小白的我，十分感谢，感谢甜老师，感谢foxtable
发个完整代码，供同仁参考。
Dim hwnd As IntPtr = FindWindow(Nothing, "登录到 Visual SourceSafe 数据库")
If hwnd <> IntPtr.Zero Then
'msgbox("找到窗口")
Dim lbl As IntPtr = FindWindowEx(hwnd, 0, "EDIT", "")
If lbl <> IntPtr.Zero Then
'msgbox("找到文本框")
SendMessage(lbl, &H000C, 0, "yinddmx")
Dim lbl2 As IntPtr = FindWindowEx(hwnd, lbl, "EDIT", "")
SendMessage(lbl2, &H000C, 0, "750070234546")
Dim btn = FindWindowEx(hwnd, 0, "Button", "确定")
If btn <> IntPtr.Zero Then
'msgbox("找到按钮")
SendMessage(btn, &Hf5, 0, 0)
'MyTimers("计划1").Enabled = False
msgbox("已经登录前一个项目")
End If
End If
End If
[此贴子已经被作者于2018/9/5 17:35:46编辑过]
加好友 
发短信
Post By：2018/9/5 17:34:00 [只看该作者]
