ویرایش کد

[HjSoft]

می خوام اگه زحمتی نیست این کد رو برام نحوه ویرایش کردنشو بگید
می خوام این کد :


InStr("I Dont know", "no")
رو با این کد قاطی کنم به طوریکه اگه پنجره ای باز شد و در اون کلمه no به کار برده شده بود temp به عددی غیر از صفر تبدیل شود (( شما ویرایش بدین اون عدد صفر درست میشه ))

Private Declare Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim clos As Long
Private Sub Timer1_Timer()
temp = FindWindowA(vbNullString, "no")
clos = CloseWindow(temp) 'Minimize all




End Sub

حالا بگید چه جوری با هم تر کیب کنم که درست در بیاد __((( تعریف کدی " اگر پنجره ای باز شد no داشت temp به 1 و اگه نبود 0 باشد ))) به طور عادی که در کد های بالا میبینید این عمل رعایت میشه لطف کنین و جوابمو بدین ___ خواهشمندم

[HjSoft]

لطفا جواب بدید 24 ساعت پیش مطرح کردم جوابی نگرفتم

[مبین رنجبر]

اگر میخوای ببینی توی عنوان پنجره کلمه No وجود داره باید از تابع InStr استفاده کنی .. در ضمن اون کدی که شما به Instr نوشتین تا حدی غلطه .....

کد درست Instr :


Dim StrTitleName As String
StrTitleName = "My Computer"
If InStr(1, StrTitleName, "NO") <> 0 Then
Temp = 1
Else
Temp = 0
End If

[مبین رنجبر]

اینم از سورس این کاری که میخوای ..

[HjSoft]

ببخشید اگه بهتون زحمت دادم بالاخره درستش کردم
البته با مدل Alt + f4