Visual basic onay sistemi yapımı

[While]

1:1 tane timer ekliyoruz
2:Timerin içine giriyoruz
3:timerin enapledini true yapın
4 şu kodu yapıştırıyoruz

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

5:timer1 tickin üzerine şu kodu yapıştırın

Dim TestPos As Integer

Not: Alıntıdır

 

[Fight5Freedom]

Teşekürler Yararlı Konu

 

[Mr_BrooS]

teşekürler

 

[Shitric]

Biraz daha açıklarsan kodları daha iyi olur

 

[While]

Biraz daha açıklarsan kodları daha iyi olur

eğer hata alıyorsanız hatanızın ss sini atabilirsiniz yardımcı olurum

 

[While]

Biraz daha açıklarsan kodları daha iyi olur

zaten vb.net den anlamayan yapamaz bunu

 

[T-BABATÜRK]

teşşekürler

 

[Shitric]

zaten vb.net den anlamayan yapamaz bunu

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.

 

[PeachCat]

Tesekkurler.

 

[While]

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.

haklısın vb den anladıgım için herkesin anlıcagini düşündüm

 

[mcsmedyacom]

teşekkürler kardeşim süper konu

 

[asjdnhjsfnaskjfnas]

Ö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

 

[While]

Ö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

vb.net imi yapıyon vb 6 yimi

 

[om3rcan]

Bana lazımdı deneyeceğim, sağol.