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("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
Imports System.Security.Principal
using System.Net;
using 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;
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");
}
}
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, "");
}
Tesekkurler HocamBir 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çinKütüphaneye bunları yazKod: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 Web_Kontrol.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çinKütüphaneye bunları yazKod: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 Web_Kontrol.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, ""); }
Web_Kontrol surda bir hatam var çözemiyorum hocam'de webrowser ekledikçe hata veriyor
kütüphane kısmı derken nereden bahsediyorsunuzBir 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çinKütüphaneye bunları yazKod: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çinKütüphaneye bunları yazKod: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, ""); }
İlk satır Using diye yazar zaten o kodları oraya yazacaksınkütüphane kısmı derken nereden bahsediyorsunuz
denedim orayı ama 42 tane hata verdi :dİlk satır Using diye yazar zaten orası kütüphane
discord varsa yardım edebilme şansın varmıİlk satır Using diye yazar zaten o kodları oraya yazacaksın