Vb.Net Onaylama Sistemi Nasıl Yaparım

[NetLuis_]

Arkadaşlar ben bir onaylama sistemi yapmayı düşünüyorum.
Butona bastığında Link.TL url sine yönlendircek ve
reklamı geç e basınca onaylanıcak Memory'nin Loader ındaki daki gibi.
Nasıl yapabilirim yardım edin.
Web Browser tarzı bir şeyde olabilir.​

 

[Treebzy]

bana da lazım

 

[ÜzgünBirey]

Timer intevali vs siz ayalarsınız :
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
If note = "a" Then
Dim myProcess As Process() = Process.GetProcesses 'Çalışan uygulamaları Process ile tanımlayalım. myProcess kendi uygulamalarımız.
For Each uyg As Process In myProcess 'Döngü ile çalışan uygulamaları bul.
If uyg.ProcessName = "chrome" Then 'chrome yazan yer bizim uygulamamız
If note = "a" Then
TestPos = InStr(uyg.MainWindowTitle, "Facebook") 'Facebook yazdığım yer sekme ismi
If TestPos Then
Timer1.Stop()
MessageBox.Show("Onay tamamdır!") 'eğer facebook isimli sekme açıldıysa tamamdır diye mesaj yolla

End If

End If





End If 'Yapıyı bitir.
Next uyg 'Diğer uygulamaya geç.
End If

End Sub

 

[NetLuis_]

Timer intevali vs siz ayalarsınız :
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
If note = "a" Then
Dim myProcess As Process() = Process.GetProcesses 'Çalışan uygulamaları Process ile tanımlayalım. myProcess kendi uygulamalarımız.
For Each uyg As Process In myProcess 'Döngü ile çalışan uygulamaları bul.
If uyg.ProcessName = "chrome" Then 'chrome yazan yer bizim uygulamamız
If note = "a" Then
TestPos = InStr(uyg.MainWindowTitle, "Facebook") 'Facebook yazdığım yer sekme ismi
If TestPos Then
Timer1.Stop()
MessageBox.Show("Onay tamamdır!") 'eğer facebook isimli sekme açıldıysa tamamdır diye mesaj yolla

End If

End If





End If 'Yapıyı bitir.
Next uyg 'Diğer uygulamaya geç.
End If

End Sub

timera kodluyoruz bunları değil mi?

 

[NetLuis_]

Timer intevali vs siz ayalarsınız :
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
If note = "a" Then
Dim myProcess As Process() = Process.GetProcesses 'Çalışan uygulamaları Process ile tanımlayalım. myProcess kendi uygulamalarımız.
For Each uyg As Process In myProcess 'Döngü ile çalışan uygulamaları bul.
If uyg.ProcessName = "chrome" Then 'chrome yazan yer bizim uygulamamız
If note = "a" Then
TestPos = InStr(uyg.MainWindowTitle, "Facebook") 'Facebook yazdığım yer sekme ismi
If TestPos Then
Timer1.Stop()
MessageBox.Show("Onay tamamdır!") 'eğer facebook isimli sekme açıldıysa tamamdır diye mesaj yolla

End If

End If





End If 'Yapıyı bitir.
Next uyg 'Diğer uygulamaya geç.
End If

End Sub

olmadı
Olmadı değilde ben yapamadım muhtemelen ben vb.net le aram iyi olmadığı için sadece bir button ekledim butona
Timer1.Start yazdım
Timer1'e yukardaki kodları yazdım sadece windowstitle, "Link.TL - kısalt, paylaş ve kazan!" olarak değiştirdim
Ve processname'yi google chrome olarak değiştirdim.
Zaten TestPos'la note nin altı çiziliydi

 

[Shitric]

olmadı
Olmadı değilde ben yapamadım muhtemelen ben vb.net le aram iyi olmadığı için sadece bir button ekledim butona
Timer1.Start yazdım
Timer1'e yukardaki kodları yazdım sadece windowstitle, "Link.TL - kısalt, paylaş ve kazan!" olarak değiştirdim
Ve processname'yi google chrome olarak değiştirdim.
Zaten TestPos'la note nin altı çiziliydi

Timer ekle enabled True yap

webbrowser ekle url kısmını da link.tl deki kısaltma siteni yaz

timere şu kodları gir :

if webbrowser1.url.tostring = "kısaltmadan sonraki site" Then
timer1.enabled = False
me.hide
form2.show ' Onaydan sonraki işlem
end if

 

[NetLuis_]

Timer ekle enabled True yap

webbrowser ekle url kısmını da link.tl deki kısaltma siteni yaz

timere şu kodları gir :

if webbrowser1.url.tostring = "kısaltmadan sonraki site" Then
timer1.enabled = False
me.hide
form2.show ' Onaydan sonraki işlem
end if

if webbrowser1.url.tostring = "kısaltmadan sonraki site" Then
yukardaki cümlede hepsinin altı çizili oluyor

 

[Shitric]

if webbrowser1.url.tostring = "kısaltmadan sonraki site" Then
yukardaki cümlede hepsinin altı çizili oluyor

if webbrowser1.url.tostring("kısaltmadan sonraki site") Then

bununla değiştir

 

[NetLuis_]

if webbrowser1.url.tostring("kısaltmadan sonraki site") Then

bununla değiştir

hala olmuyor hala altıçizili

 

[NetLuis_]

if webbrowser1.url.tostring("kısaltmadan sonraki site") Then

bununla değiştir

kardeş internette araştırdım şöyle bir kavram buldum:
If WebBrowser1.Url.ToString() = "

Bağlantıları görmek için lütfen Giriş Yap

" Then
Timer1.Enabled = False
Me.Hide()
Form1.Show()
denedim bu sefer form1 i göster miyor

 

[Shitric]

kardeş internette araştırdım şöyle bir kavram buldum:
If WebBrowser1.Url.ToString() = "

Bağlantıları görmek için lütfen Giriş Yap

" Then
Timer1.Enabled = False
Me.Hide()
Form1.Show()
denedim bu sefer form1 i göster miyor

form2 yazacaksın oraya. Form1 şuanki formun adı. Form2 yazarsan form2yi açar

 

[NetLuis_]

form2 yazacaksın oraya. Form1 şuanki formun adı. Form2 yazarsan form2yi açar

hayır. ben yanlış söyledim galiba başta.
onaylama sisteminin olduğu formun ismi form3
gitmek istediğim yerin yani formun ismi form1

If WebBrowser1.Url.ToString() = "

Bağlantıları görmek için lütfen Giriş Yap

" Then
ve
If WebBrowser1.Url.ToString = "

Bağlantıları görmek için lütfen Giriş Yap

" Then
kodlarını denedim, olmadı.

ayrıca webbrowser ın başındaki :
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)

kodunu;

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

olarak değiştirdim, yine olmadı
Herhalde visual studio bana düşman
silesim geliyor visual studioyu 2 saattir onaylama şeyiyle uğraşıyorum

 

[Shitric]

hayır. ben yanlış söyledim galiba başta.
onaylama sisteminin olduğu formun ismi form3
gitmek istediğim yerin yani formun ismi form1

If WebBrowser1.Url.ToString() = "

Bağlantıları görmek için lütfen Giriş Yap

" Then
ve
If WebBrowser1.Url.ToString = "

Bağlantıları görmek için lütfen Giriş Yap

" Then
kodlarını denedim, olmadı.

ayrıca webbrowser ın başındaki :
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)

kodunu;

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

olarak değiştirdim, yine olmadı
Herhalde visual studio bana düşman
silesim geliyor visual studioyu 2 saattir onaylama şeyiyle uğraşıyorum

Programlamadan soğuyup bırakırsan işin çok zor, ben her takıldığım yerde bıraksaydım şuan buralara gelemeyecektim. Yaklaşık 6 yıldır visual basic dili ile ilgileniyorum ve hala eksiklerim, öğrenecek şeylerim var. Uğraş, çabala, mantık yürüt. Programlama mantık işidir. Her zaman birilerinden yardım bekleme. bildiğin kodları karıştır öğrenmeye çalış. Deneyerek bulacağına eminim Kolay gelsin

 

[xtromalihan]

Timer intevali vs siz ayalarsınız :
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
If note = "a" Then
Dim myProcess As Process() = Process.GetProcesses 'Çalışan uygulamaları Process ile tanımlayalım. myProcess kendi uygulamalarımız.
For Each uyg As Process In myProcess 'Döngü ile çalışan uygulamaları bul.
If uyg.ProcessName = "chrome" Then 'chrome yazan yer bizim uygulamamız
If note = "a" Then
TestPos = InStr(uyg.MainWindowTitle, "Facebook") 'Facebook yazdığım yer sekme ismi
If TestPos Then
Timer1.Stop()
MessageBox.Show("Onay tamamdır!") 'eğer facebook isimli sekme açıldıysa tamamdır diye mesaj yolla

End If

End If





End If 'Yapıyı bitir.
Next uyg 'Diğer uygulamaya geç.
End If

End Sub

Başarılı katılıyorum.

 

[NetLuis_]

Programlamadan soğuyup bırakırsan işin çok zor, ben her takıldığım yerde bıraksaydım şuan buralara gelemeyecektim. Yaklaşık 6 yıldır visual basic dili ile ilgileniyorum ve hala eksiklerim, öğrenecek şeylerim var. Uğraş, çabala, mantık yürüt. Programlama mantık işidir. Her zaman birilerinden yardım bekleme. bildiğin kodları karıştır öğrenmeye çalış. Deneyerek bulacağına eminim Kolay gelsin

Teşekkür ederim kardeşim. Kendim biraz deneyerek buldum. Belki link.TL 'de sorun vardır diye başka bir kısaltıcı denedim.(kisalt.xyz)
Ve ayriten MsgBox ekledim. Onay tamamlanınca Onay Tamam diye mesaj çıkıyor ve form1 i açıyor.
Benimle ilgilenip zamanını ayırdığın için teşekkürler

 

[ÜzgünBirey]

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If note = "a" Then
Dim myProcess As Process() = Process.GetProcesses 'Çalışan uygulamaları Process ile tanımlayalım. myProcess kendi uygulamalarımız.
For Each uyg As Process In myProcess 'Döngü ile çalışan uygulamaları bul.
If uyg.ProcessName = "chrome" Then 'chrome yazan yer bizim uygulamamız
If note = "a" Then
TestPos = InStr(uyg.MainWindowTitle, "Title") 'Title yazdığım yer sekme ismi
If TestPos Then
Timer1.Stop()
Button2.Enabled = True
MessageBox.Show("Onay tamamdır!") 'eğer facebook isimli sekme açıldıysa tamamdır diye mesaj yolla

End If

End If





End If 'Yapıyı bitir.
Next uyg 'Diğer uygulamaya geç.
End If

End Sub


Bu kodlarda bir tek title kısmını değişecektin.Link.tl hangi siteye yönlendiriyorsa onun titleni yaz.Bu arada bunlar timer içine yazılacak.Reklam onayla diye bir button oluştur içine
Timer1.Start()
Yaz sonra button oluştur hangi buttonsa kodda değiştir.Ben button2 dedim.Reklam onaylanınca o aktif olur.Sonra button2 ye basınca başka form açılmasını istiyorsan içine:
Form2.Show()
Hangi form vs sen ayarlarsın.Eğer kodlarda hata çıkarsa öm at.

 

[Cengavers]

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If note = "a" Then
Dim myProcess As Process() = Process.GetProcesses 'Çalışan uygulamaları Process ile tanımlayalım. myProcess kendi uygulamalarımız.
For Each uyg As Process In myProcess 'Döngü ile çalışan uygulamaları bul.
If uyg.ProcessName = "chrome" Then 'chrome yazan yer bizim uygulamamız
If note = "a" Then
TestPos = InStr(uyg.MainWindowTitle, "Title") 'Title yazdığım yer sekme ismi
If TestPos Then
Timer1.Stop()
Button2.Enabled = True
MessageBox.Show("Onay tamamdır!") 'eğer facebook isimli sekme açıldıysa tamamdır diye mesaj yolla

End If

End If





End If 'Yapıyı bitir.
Next uyg 'Diğer uygulamaya geç.
End If

End Sub


Bu kodlarda bir tek title kısmını değişecektin.Link.tl hangi siteye yönlendiriyorsa onun titleni yaz.Bu arada bunlar timer içine yazılacak.onay sistemi onayla diye bir button oluştur içine
Timer1.Start()
Yaz sonra button oluştur hangi buttonsa kodda değiştir.Ben button2 dedim.onay sistemi onaylanınca o aktif olur.Sonra button2 ye basınca başka form açılmasını istiyorsan içine:
Form2.Show()
Hangi form vs sen ayarlarsın.Eğer kodlarda hata çıkarsa öm at.

Kardeşim lütfen bi proje falan yapıp paylaşabilirmisin beceremedim lütfen yardım et bunu yapmayı çok istiyorum hiçbir yerdede bulamadım

 

[Cengavers]

#up #up lütfen yardım edin bende yapamadım proje atın lütfen

 

[Shitric]

Teşekkür ederim kardeşim. Kendim biraz deneyerek buldum. Belki link.TL 'de sorun vardır diye başka bir kısaltıcı denedim.(kisalt.xyz)
Ve ayriten MsgBox ekledim. Onay tamamlanınca Onay Tamam diye mesaj çıkıyor ve form1 i açıyor.
Benimle ilgilenip zamanını ayırdığın için teşekkürler

Rica ederim dostum, eline emeğine sağlık

 

[hkoguz]

kardeşim dowrd hackin reklam onaylama sistemi başka. o chrome uygulamasından doğru onaylama yapıyor. bu sistemi diğerleriyle karıştırmayın lütfen
isteyenlere mybbde forma giriş yaptıktan sonra programa girme kodu verebilirim. ama vbnette. mybbye giriş Windows.Forms üzerinden olacaktır.