آیا این پنجره وجود دارد؟

[محمد حسینی]

سلام

اگه بخوایم بفهمیم یه پنجره ای با caption ی که ما به برنامه میدیم باز هست باید چیکار کنیم
البته caption رو کامل نمی دونیم . اولش رو میدونیم :?: :wink:

[SayyedAli]

اگه عنوان پنجره رو بدوني:

کد:

On Error Resume Next
AppActivate "عنوان"
AppActivate Me.Caption
If Err.Number=0 then
msgbox "وجو داره"
else
msgbox "وجود نداره"
End If

:wink:

[محمد حسینی]

وقتی caption رو کامل ندونیم چی؟ فقط اولشو می دونیم.
کسی نمی دونه :( :cry:

[محمد حسینی]

حداقل اگه کسی مطمئنه نمی شه بگه که دنبالش نباشم

[amirjan]

شدنش كه شده ، مي خواستم همين جا بزارم ، گفتم به صورت يه برنامه باشه بهتره ، پست ميزنم تو سايت ...

[محمد حسینی]

کسی نیست به داد من برسه

[arnh]

کسی نیست به داد من برسه

چرا ؟؟

کد:

Private Declare Function GetForegroundWindow Lib "user32" () As Long
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 Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub CloseWIN(Caption As String)
Dim h As Long
Dim h2 As Long
Dim wn As String
wn = Space(255)
h = GetForegroundWindow()
GetWindowText h, wn, GetWindowTextLength(h) + 1
If InStr(1, LCase(CStr(wn)), LCase(Caption)) <> 0 Then
h2 = h
DestroyWindow h
DoEvents
If h2 = GetForegroundWindow() Then SendKeys "%{f4}"
End If
End Sub
Private Sub Timer1_Timer()
CloseWIN "tas"
End Sub

اين كلمه رو داخل كپشن جستجو مي كنه و مي بنده .
حالا خودت ديگه تغيرش بده