VB.net : Siteye Girince Onay Sistemi Nasıl Yapılır?

Public Class'ın Altına Atın
Kod:

Dim TestPos As Integer

Bir tane de Timer açın içine bunu atın.

Kod:

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(" ", MsgBoxStyle.Information)'buraya ne isterseniz koya bilirsiniz mesela form2.show felan
Timer1.Stop()
End If
End If
Next
End Sub

 

Gülen suratlar yerine : D yazın boşluksuz..