Visual basic onay sistemi yapımı

Dim myProcess As Process() = Process.GetProcesses 'bunu public class form1in altına girin
For Each uyg As Process In myProcess
If uyg.ProcessName = "chrome" Then ' eğer chrome açıksa aşağıdaki işlemi yapar
TestPos = InStr(uyg.MainWindowTitle, "Memoryhackers") ' burası chromede açık olan sekmenin başlığıdır eğer chromede memoryhackers açıksa timeri kapatır ve işlemi aşağıdaki ilemi yapar
If TestPos Then
Timer1.Stop() timeri kapatır
MsgBox("Reklam onaylandı ", MsgBoxStyle.Information) ' reklam onaylandıktan sonra yapılacak işlem
Timer1.Stop()
End If
End If
Next

Genişletmek için tıklayın ...

Dim TestPos As Integer

Genişletmek için tıklayın ...

headsqot' Alıntı:

Biraz daha açıklarsan kodları daha iyi olur

Genişletmek için tıklayın ...

headsqot' Alıntı:

Biraz daha açıklarsan kodları daha iyi olur

Genişletmek için tıklayın ...

crossfire' Alıntı:

zaten vb.net den anlamayan yapamaz bunu

Genişletmek için tıklayın ...

headsqot' Alıntı:

Konu anlayıp anlamamak değil, kodların açıklayıcı olup olmaması. Bu kod bloğunu birkaç projemde kullandım fakat hiçbirşey bilmeyen birisi için çok mantıksız gözüküyor. Her satırın yanına açıklama yaparsan daha iyi olacağını düşünüyorum.

Genişletmek için tıklayın ...

asjdnhjsfnaskjfnas' Alıntı:

Önem Derecesi Kod Açıklama Proje Dosya Çizgi Gizleme Durumu
Hata BC30420 'Project4' içinde 'Sub Main' bulunamadı. Project4 C:\Users\Salih\source\repos\Project4\Project4\vbc 1 Etkin
bu hatayı alıyorum

Genişletmek için tıklayın ...