Arkadaşlar herkes kendi koxpunu yapsın kimseye muhtaç olmasın diye koxp yapım derlerine başlıyorum.
Bu dersimizde size "Reklam yapıp reklama tıklayıp koxpu açma" konusunu anlatıcam.Merak etmeyin sizlere kodları ve source'yi vericem

İlk önce yeni bir proje oluşturalım.

1)Klavyeden ctrl+t yapıp şunları tikleyin;
Alıntı
Microsoft İnternet Controls
Microsoft İnternet Transfer Control 6.0
Microsoft Tabbed Dialog Control 6.0 (SP5)

2)Şimdi formumuza web browser ekliyelim.(İstediğiniz boyutta ekleyin)

3)WebBrowser ekledikten sonra sağda name kısmını değiştirip "Web1" yapın.

4)1 tane command butonu ekleyin.
Sağ taraf Properties ayarlarını şu şekil değiştirin.
Alıntı
Cancel:True
Enabled:False
Style:1.Graphical

5)İsterseniz git butonunun altına Label ekleyip "Reklama Tıkladıktan Sonra Git Butonu Aktif Olacaktır" yazabilirsiniz.

6)1 adet timer ekleyip içine şunları yazıyoruz;
Alıntı
Command1.Enabled = True
Timer1.Enabled = False

7)Git butonuna basıp şu kodları yazıyoruz;
Alıntı
Me.Hide
Form2.Show
Unload Me

8)Form Load'ı açıp şu kodları yazıyoruz;
Alıntı
Web1.Navigate "siteismi"
(rip oyun aradaki boşluğu silin)

9)Tekrar Form Load'ı açıp boş bir yere (en alta olabilir) şu kodları yazıyoruz;
Alıntı
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
WebBrowser1.Visible = False
Web1.Visible = True
End Sub

Alıntı
Private Sub Web1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Timer1.Enabled = True
End Sub

10)Yeni bir tane form ekliyoruz ve bitti

Not:Arkadaşlar şu anda sitemizde reklam olmadığı için git butonu aktif olmayacaktır.Bunun için şöyle yapıcaz.
Git butonuna tıklıcaz.Sağ taraf Properties kısmından;
Alıntı
Cancel:False
Enabled:true