1、你为什么要把代码写在定时器那里？你不能在命令窗口单独测试功能？
2、执行这个代码有没有问题？
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, "yinmx")
Dim lbl2 As IntPtr = FindWindowEx(hwnd, lbl, "EDIT", "")
SendMessage(lbl2, &H000C, 0, "yinmx")
Dim btn = FindWindowEx(hwnd, 0, "EDIT", "确定")
If btn <> IntPtr.Zero Then
'msgbox("找到按钮")
SendMessage(btn, &Hf5, 0, 0)
'MyTimers("计划1").Enabled = False
msgbox("已经登录前一个项目")
End If
End If
End If
加好友 
发短信
Post By：2018/9/5 11:14:00 [只看该作者]
