Vb.Net Onaylama Sistemi Nasıl Yaparım

NetLuis_ · 16 Eyl 2017

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 · 16 Eyl 2017

bana da lazım

ÜzgünBirey · 16 Eyl 2017

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_ · 16 Eyl 2017

ÜzgünBirey' Alıntı:
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_ · 16 Eyl 2017

ÜzgünBirey' Alıntı:
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 · 16 Eyl 2017

EmreAtila' Alıntı:
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_ · 16 Eyl 2017

headsqot' Alıntı:
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 · 16 Eyl 2017

EmreAtila' Alıntı:
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_ · 16 Eyl 2017

headsqot' Alıntı:
if webbrowser1.url.tostring("kısaltmadan sonraki site") Then

bununla değiştir

hala olmuyor hala altıçizili

NetLuis_ · 16 Eyl 2017

headsqot' Alıntı:
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 · 16 Eyl 2017

EmreAtila' Alıntı:
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_ · 16 Eyl 2017

headsqot' Alıntı:
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 · 17 Eyl 2017

EmreAtila' Alıntı:
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 · 17 Eyl 2017

ÜzgünBirey' Alıntı:
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_ · 17 Eyl 2017

headsqot' Alıntı:
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 · 17 Eyl 2017

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 · 17 Eyl 2017

ÜzgünBirey' Alıntı:
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 · 17 Eyl 2017

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

Shitric · 17 Eyl 2017

EmreAtila' Alıntı:
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 · 23 Eyl 2017

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.

Vb.Net Onaylama Sistemi Nasıl Yaparım

NetLuis_

Treebzy

ECO

ÜzgünBirey

NetLuis_

NetLuis_

Shitric

Cehalet Mutluluktur

NetLuis_

Shitric

Cehalet Mutluluktur

NetLuis_

NetLuis_

Shitric

Cehalet Mutluluktur

NetLuis_

Shitric

Cehalet Mutluluktur

xtromalihan

NetLuis_

ÜzgünBirey

Cengavers

Cengavers

Shitric

Cehalet Mutluluktur

hkoguz

Vb.Net Onaylama Sistemi Nasıl Yaparım

ECO

Cehalet Mutluluktur

Cehalet Mutluluktur

Cehalet Mutluluktur

Cehalet Mutluluktur

Cehalet Mutluluktur

Privacy & Transparency

Privacy & Transparency