Siteye Girince Onay Sistemi Yapma

 Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
       Dim myProcess As Process() = Process.GetProcesses
       For Each uyg As Process In myProcess
           If uyg.ProcessName = "chrome" Then
               TestPos = InStr(uyg.MainWindowTitle, "MemoryHackers")'sitenizi koyun basliyi büyül olmali
               If TestPos Then
                   Timer1.Stop()
                   MsgBox(":D :D :D ", MsgBoxStyle.Information)'buraya ne isterseniz koya bilirsiniz mesela form2.show felan
                   Timer1.Stop()
               End If
           End If
       Next
   End Sub