HjSoft
پنج شنبه 04 بهمن 1386, 23:28 عصر
می خوام اگه زحمتی نیست این کد رو برام نحوه ویرایش کردنشو بگید
می خوام این کد :
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 باشد ))) به طور عادی که در کد های بالا میبینید این عمل رعایت میشه لطف کنین و جوابمو بدین ___ خواهشمندم
می خوام این کد :
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 باشد ))) به طور عادی که در کد های بالا میبینید این عمل رعایت میشه لطف کنین و جوابمو بدین ___ خواهشمندم