Neler yeni

Visual Basic Xenforo login yardım

M

Mehmet47

Normal Üye
Katılım
20 Nis 2021
Mesajlar
8
Beğeniler
0
Imports System.Security.Principal
Imports System.Net
Imports System.IO

TextBox1.Enabled = False
TextBox2.Enabled = False
Buton1.Enabled = False
Timer1.Start()
WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
Dim Result = (From T In WebBrowser1.Document.GetElementsByTagName("button").Cast(Of HtmlElement)() Select T).ToList

For Each item As HtmlElement In Result

If item.GetAttribute("classname") = "button--primary button button--icon button--icon--login" Then

If Not String.IsNullOrWhiteSpace(item.GetAttribute("onClick")) Then
item.InvokeMember("click")
Else
item.InvokeMember("click")
End If
End If
Next

If (WebBrowser1.Url.ToString().Contains("
Linkleri görebilmek için kayıt olmanız gerekmektedir
")) Then
MsgBox("Giriş başarılı!")
Else
If (WebBrowser1.Url.ToString().Contains("
Linkleri görebilmek için kayıt olmanız gerekmektedir
")) Then
Timer_Login.Stop()
TextBox1.Enabled = True
TextBox2.Enabled = True
Button1.Enabled = True
MsgBox("Username or password incorrect!", MsgBoxStyle.Exclamation, "")
Else
Timer_Login.Stop()
TextBox1.Enabled = True
TextBox2.Enabled = True
Button1.Enabled = True
MsgBox("Sunucuyla bağlantı kurulamadı. Lütfen yöneticiyle iletişime geçin.", MsgBoxStyle.Critical, "")
End If
End If

Bunu Yaptım Fakat Butona Bastıgımda Username Password Girilmiyor Yardımcı olabilecek arkadaşlar varmı?
 
rp321' Alıntı:
If (WebBrowser1.Url.ToString().Contains("
Linkleri görebilmek için kayıt olmanız gerekmektedir
")) Then
MsgBox("Giriş başarılı!")
Else
If (WebBrowser1.Url.ToString().Contains("
Linkleri görebilmek için kayıt olmanız gerekmektedir
")) Then bu kısımları kendi site adresine göre düzenliyormusun
Genişletmek için tıkla ...
Düzenliyorum hocam fakat yazdırmıyor textboxtaki verileri
 
Kod: 
 If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Kullanıcı Adı şifre Boş bırakılamaz.!", MsgBoxStyle.Critical, "")
        Else
            WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
            WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
            Dim Result = (From T In WebBrowser1.Document.GetElementsByTagName("button").Cast(Of HtmlElement)() Select T).ToList

            For Each item As HtmlElement In Result

                If item.GetAttribute("classname") = "button--primary button button--icon button--icon--login" Then

                    If Not String.IsNullOrWhiteSpace(item.GetAttribute("onClick")) Then
                        item.InvokeMember("click")
                    Else
                        item.InvokeMember("click")
                    End If
                End If
            Next
bu işini görür
 
loggin' Alıntı:
Kod: 
 If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Kullanıcı Adı şifre Boş bırakılamaz.!", MsgBoxStyle.Critical, "")
        Else
            WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
            WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
            Dim Result = (From T In WebBrowser1.Document.GetElementsByTagName("button").Cast(Of HtmlElement)() Select T).ToList

            For Each item As HtmlElement In Result

                If item.GetAttribute("classname") = "button--primary button button--icon button--icon--login" Then

                    If Not String.IsNullOrWhiteSpace(item.GetAttribute("onClick")) Then
                        item.InvokeMember("click")
                    Else
                        item.InvokeMember("click")
                    End If
                End If
            Next
bu işini görür
Genişletmek için tıkla ...
Yok Hocam olmadı dediğim gibi texboxa yazdırmıyor böyle kullanıcı bulunamamıştır diyor
 
sitenin linkini atarsan kodu düzenleyip atabilirim
 
Bir webbrowser oluşturun ve forumun login adresini url ye yapıştırın. Webbrowser'ın visible kısmını false yapın.
Örnek login url adresi: https://cheatglobal.com/login/

VB.NET için
Kütüphaneye bunları yaz
Kod: 
Imports System.Security.Principal
Imports System.Net
Imports System.IO

2 tane textbox oluştur birisi şifre birisi username olacak.
Bir buton oluştur adını login yap bunları yaz.
Kod: 
    TextBox1.Enabled = False
    TextBox2.Enabled = False
    Buton1.Enabled = False
    Timer1.Start()
    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
    Dim Result = (From T In WebBrowser1.Document.GetElementsByTagName("button").Cast(Of HtmlElement)() Select T).ToList

    For Each item As HtmlElement In Result

        If item.GetAttribute("classname") = "button--primary button button--icon button--icon--login" Then

            If Not String.IsNullOrWhiteSpace(item.GetAttribute("onClick")) Then
                item.InvokeMember("click")
            Else
                item.InvokeMember("click")
            End If
        End If
    Next


Bir tane Timer oluştur ve içine bunları yaz. Timer'ın Interval'i 6000 yap.
Kod: 
          If (WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/")) Then
                MsgBox("Giriş başarılı!")
            Else
                If (WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/login/login")) Then
                    Timer_Login.Stop()
                    TextBox1.Enabled = True
                    TextBox2.Enabled = True
                    Button1.Enabled = True
                    MsgBox("Username or password incorrect!", MsgBoxStyle.Exclamation, "")
                Else
                    Timer_Login.Stop()
                    TextBox1.Enabled = True
                    TextBox2.Enabled = True
                    Button1.Enabled = True
                    MsgBox("Sunucuyla bağlantı kurulamadı. Lütfen yöneticiyle iletişime geçin.", MsgBoxStyle.Critical, "")
                End If
            End If

C# için
Kütüphaneye bunları yaz
Kod: 
Imports System.Security.Principal
using System.Net;
using System.IO;

2 tane textbox oluştur birisi şifre birisi username olacak.
Bir buton oluştur adını login yap bunları yaz.
Kod: 
    TextBox1.Enabled = false;
    TextBox2.Enabled = false;
    Buton1.Enabled = false;
    Timer1.Start();

    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text;
    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text;
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text;
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text;

    var Result = (from T in WebBrowser1.Document.GetElementsByTagName("button").Cast<HtmlElement>()
                  select T).ToList;
    foreach (HtmlElement item in Result)
    {
        if (item.GetAttribute("classname") == "button--primary button button--icon button--icon--login")
        {
            if (!string.IsNullOrWhiteSpace(item.GetAttribute("onClick")))
                item.InvokeMember("click");
            else
                item.InvokeMember("click");
        }
    }


Bir tane Timer oluştur ve içine bunları yaz. Timer'ın Interval'i 6000 yap.
Kod: 
    if ((WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/")))
        Interaction.MsgBox("Giriş başarılı!");
    else if ((WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/login/login")))
    {
        Timer_Login.Stop();
        TextBox1.Enabled = true;
        TextBox2.Enabled = true;
        Button1.Enabled = true;
        Interaction.MsgBox("Username or password incorrect!", MsgBoxStyle.Exclamation, "");
    }
    else
    {
        Timer_Login.Stop();
        TextBox1.Enabled = true;
        TextBox2.Enabled = true;
        Button1.Enabled = true;
        Interaction.MsgBox("Sunucuyla bağlantı kurulamadı. Lütfen yöneticiyle iletişime geçin.", MsgBoxStyle.Critical, "");
    }
 
Dreamfancy' Alıntı:
Bir webbrowser oluşturun ve forumun login adresini url ye yapıştırın. Webbrowser'ın visible kısmını false yapın.
Örnek login url adresi: https://cheatglobal.com/login/

VB.NET için
Kütüphaneye bunları yaz
Kod: 
Imports System.Security.Principal
Imports System.Net
Imports System.IO

2 tane textbox oluştur birisi şifre birisi username olacak.
Bir buton oluştur adını login yap bunları yaz.
Kod: 
    TextBox1.Enabled = False
    TextBox2.Enabled = False
    Buton1.Enabled = False
    Timer1.Start()
    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
    Dim Result = (From T In WebBrowser1.Document.GetElementsByTagName("button").Cast(Of HtmlElement)() Select T).ToList

    For Each item As HtmlElement In Result

        If item.GetAttribute("classname") = "button--primary button button--icon button--icon--login" Then

            If Not String.IsNullOrWhiteSpace(item.GetAttribute("onClick")) Then
                item.InvokeMember("click")
            Else
                item.InvokeMember("click")
            End If
        End If
    Next


Bir tane Timer oluştur ve içine bunları yaz. Timer'ın Interval'i 6000 yap.
Kod: 
          If (WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/")) Then
                MsgBox("Giriş başarılı!")
            Else
                If (WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/login/login")) Then
                    Timer_Login.Stop()
                    TextBox1.Enabled = True
                    TextBox2.Enabled = True
                    Button1.Enabled = True
                    MsgBox("Username or password incorrect!", MsgBoxStyle.Exclamation, "")
                Else
                    Timer_Login.Stop()
                    TextBox1.Enabled = True
                    TextBox2.Enabled = True
                    Button1.Enabled = True
                    MsgBox("Sunucuyla bağlantı kurulamadı. Lütfen yöneticiyle iletişime geçin.", MsgBoxStyle.Critical, "")
                End If
            End If

C# için
Kütüphaneye bunları yaz
Kod: 
Imports System.Security.Principal
using System.Net;
using System.IO;

2 tane textbox oluştur birisi şifre birisi username olacak.
Bir buton oluştur adını login yap bunları yaz.
Kod: 
    TextBox1.Enabled = false;
    TextBox2.Enabled = false;
    Buton1.Enabled = false;
    Timer1.Start();

    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text;
    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text;
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text;
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text;

    var Result = (from T in WebBrowser1.Document.GetElementsByTagName("button").Cast<HtmlElement>()
                  select T).ToList;
    foreach (HtmlElement item in Result)
    {
        if (item.GetAttribute("classname") == "button--primary button button--icon button--icon--login")
        {
            if (!string.IsNullOrWhiteSpace(item.GetAttribute("onClick")))
                item.InvokeMember("click");
            else
                item.InvokeMember("click");
        }
    }


Bir tane Timer oluştur ve içine bunları yaz. Timer'ın Interval'i 6000 yap.
Kod: 
    if ((WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/")))
        Interaction.MsgBox("Giriş başarılı!");
    else if ((WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/login/login")))
    {
        Timer_Login.Stop();
        TextBox1.Enabled = true;
        TextBox2.Enabled = true;
        Button1.Enabled = true;
        Interaction.MsgBox("Username or password incorrect!", MsgBoxStyle.Exclamation, "");
    }
    else
    {
        Timer_Login.Stop();
        TextBox1.Enabled = true;
        TextBox2.Enabled = true;
        Button1.Enabled = true;
        Interaction.MsgBox("Sunucuyla bağlantı kurulamadı. Lütfen yöneticiyle iletişime geçin.", MsgBoxStyle.Critical, "");
    }
Genişletmek için tıkla ...
Hocam Bu yorumdan bakarak yaptım fakat textboxlardaki kullanıcı adı şifreyi webbrowsere aktaramıyorum
 
Dreamfancy' Alıntı:
Bir webbrowser oluşturun ve forumun login adresini url ye yapıştırın. Webbrowser'ın visible kısmını false yapın.
Örnek login url adresi: https://cheatglobal.com/login/

VB.NET için
Kütüphaneye bunları yaz
Kod: 
Imports System.Security.Principal
Imports System.Net
Imports System.IO

2 tane textbox oluştur birisi şifre birisi username olacak.
Bir buton oluştur adını login yap bunları yaz.
Kod: 
    TextBox1.Enabled = False
    TextBox2.Enabled = False
    Buton1.Enabled = False
    Timer1.Start()
    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
    Dim Result = (From T In WebBrowser1.Document.GetElementsByTagName("button").Cast(Of HtmlElement)() Select T).ToList

    For Each item As HtmlElement In Result

        If item.GetAttribute("classname") = "button--primary button button--icon button--icon--login" Then

            If Not String.IsNullOrWhiteSpace(item.GetAttribute("onClick")) Then
                item.InvokeMember("click")
            Else
                item.InvokeMember("click")
            End If
        End If
    Next


Bir tane Timer oluştur ve içine bunları yaz. Timer'ın Interval'i 6000 yap.
Kod: 
          If (WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/")) Then
                MsgBox("Giriş başarılı!")
            Else
                If (WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/login/login")) Then
                    Timer_Login.Stop()
                    TextBox1.Enabled = True
                    TextBox2.Enabled = True
                    Button1.Enabled = True
                    MsgBox("Username or password incorrect!", MsgBoxStyle.Exclamation, "")
                Else
                    Timer_Login.Stop()
                    TextBox1.Enabled = True
                    TextBox2.Enabled = True
                    Button1.Enabled = True
                    MsgBox("Sunucuyla bağlantı kurulamadı. Lütfen yöneticiyle iletişime geçin.", MsgBoxStyle.Critical, "")
                End If
            End If

C# için
Kütüphaneye bunları yaz
Kod: 
Imports System.Security.Principal
using System.Net;
using System.IO;

2 tane textbox oluştur birisi şifre birisi username olacak.
Bir buton oluştur adını login yap bunları yaz.
Kod: 
    TextBox1.Enabled = false;
    TextBox2.Enabled = false;
    Buton1.Enabled = false;
    Timer1.Start();

    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text;
    WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text;
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text;
    WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text;

    var Result = (from T in WebBrowser1.Document.GetElementsByTagName("button").Cast<HtmlElement>()
                  select T).ToList;
    foreach (HtmlElement item in Result)
    {
        if (item.GetAttribute("classname") == "button--primary button button--icon button--icon--login")
        {
            if (!string.IsNullOrWhiteSpace(item.GetAttribute("onClick")))
                item.InvokeMember("click");
            else
                item.InvokeMember("click");
        }
    }


Bir tane Timer oluştur ve içine bunları yaz. Timer'ın Interval'i 6000 yap.
Kod: 
    if ((WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/")))
        Interaction.MsgBox("Giriş başarılı!");
    else if ((WebBrowser1.Url.ToString().Contains("https://cheatglobal.com/login/login")))
    {
        Timer_Login.Stop();
        TextBox1.Enabled = true;
        TextBox2.Enabled = true;
        Button1.Enabled = true;
        Interaction.MsgBox("Username or password incorrect!", MsgBoxStyle.Exclamation, "");
    }
    else
    {
        Timer_Login.Stop();
        TextBox1.Enabled = true;
        TextBox2.Enabled = true;
        Button1.Enabled = true;
        Interaction.MsgBox("Sunucuyla bağlantı kurulamadı. Lütfen yöneticiyle iletişime geçin.", MsgBoxStyle.Critical, "");
    }
Genişletmek için tıkla ...
Hocam bu şekil giriş yaptık ama programı kapatıp actıgımızda tekrar giriş yapma ekranına yönlendirmesi gerekiyor ama otomatik giriş yapmış oluyor cıkış yapmak için bir kod var mı ?
 
Cevap yazmak için giriş yap yada kayıt ol.

  Şuanda konuyu görüntüleyen kullanıcılar

Toplam: 2 (Kullanıcı: 0, ziyaretçi: 2)

Üst Alt