Vb.Net Onaylama Sistemi Nasıl Yaparım

hkoguz · 23 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

Kardeşim Me.Hide()
Form1.Show()
diye olmaz
form1.show
me.hide
diye olur. yanlışmışsın kardeşim. her zaman formadı.show
sonrada me.hide olmalıdır.

By Tanımsız · 30 Eyl 2017

Banada lazımdı yorumlardan az çok anladım saol böyle bi konu açtığın için

adiyamanli02 · 14 Ara 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

aynen böyle ama birkaç yeri editle

WithCreative · 14 Ara 2017

Private Sub AdressChanged(sender As System.Object, e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
Using w = WebBrowser1
If Not w.Url.AbsoluteUri.Contains("//kisalt.xyz") Then
'Reklam geçildiğinde yapılacak işlem
End If
End Using
End Sub

jRivals · 11 Şub 2018

Eyvalah şimdi deniyorum inş çalışır

Vb.Net Onaylama Sistemi Nasıl Yaparım

hkoguz

By Tanımsız

adiyamanli02

WithCreative

jRivals