Dim myProcess As Process() = Process.GetProcesses
For Each uyg As Process In myProcess
If uyg.ProcessName = "Opera" Then
End If
If uyg.ProcessName = "chrome" Then
TestPos = InStr(uyg.MainWindowTitle, "Reklam geçiş'i için kullandığınız sitenin titlesi")
If TestPos Then
Timer1.Stop()
Timer2.Start()
End If
End If
Next
-------------------------------
Dim myProcess As Process() = Process.GetProcesses
For Each uyg As Process In myProcess
If uyg.ProcessName = "Opera" Then
End If
If uyg.ProcessName = "chrome" Then
TestPos = InStr(uyg.MainWindowTitle, "Reklam geçildikten sonra açılacak site")
If TestPos Then
Button1.Enabled = True 'Bu kısmımda işlem tamamlandıktan sonra hangi işlemi yapacağını söylüyor.Ben örnek olarak yazdım siz istediğinizi yazın
Timer2.Stop()
End If
End If
Next