楼上之前是学什么语言的?..

Private Sub Timer1_Timer()
'FindWindow的第一个参数是要查找窗体的类名,第二个参数是要查找的窗体的标题.
'现在假设你要查找的窗体的标题的ajr
Dim isFindHwnd As Long
isFindHwnd = FindWindow(vbNullString, "ajr")
If (isFindHwnd > 0) Then '表示ajr存在
'你的处理
End If
End Sub

c 语言 vb语言,VF,什么都学,我是刚毕业的,第一份工作用VB维护程序,用VC开发

当然要先声明FindWindow

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

好的,明白了,谢谢了,呵呵,以后还得多请教你,谢谢

还是不行,关闭B程序,而工A程序不关闭,timer1里的isrun变量还是改变不了

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private isRun As Boolean

Private Sub Command1_Click()
If Not isRun Then
Shell "Calc.exe", vbNormalNoFocus
isRun = True
End If
End Sub

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Dim isFindHwnd As Long
isFindHwnd = FindWindow(vbNullString, "计算器")
If isFindHwnd > 0 Then
isRun = True
Else
isRun = False
End If
End Sub

用VC做开发..这些...应该是牛刀小试吧...也还不懂?..

我是这么做的,但是没有达到我要的结果

这个我懂,这些代码我都是在A程序中写的.