Visual Basic Gelişmiş Hwıd Sistem

hackerSahti · 5 Ara 2016

[font=tahoma, sans-serif, arial]Evet arkadaşlar bugün Gelişmiş Hwıd Sistem öğrenicez.[/FONT]

[font=tahoma, sans-serif, arial]--İlk olarak gerekli malzemeler--[/FONT]
[font=tahoma, sans-serif, arial]2 Adet Label 1 Adet GroupBox 2 Adet Button 1 Adet ProgressBar 1 Adet Timer
[/FONT]

[font=tahoma, sans-serif, arial]--Girilecek Yazılar--[/FONT]
[font=tahoma, sans-serif, arial]Kod:[/FONT]
[font=tahoma, sans-serif, arial]Kod:[/FONT]

Kod:

Label1 = Hwıd Öğren
Label2 = Boş Bırakın [Videoya Bakın]
Button1 = Hwıd Öğren
Button2 = Giriş Yap
GroupBox = Ne Yaparsan Yap :D

[font=tahoma, sans-serif, arial]--Button1 [Hwıd Öğren]--[/FONT]
[font=tahoma, sans-serif, arial]Kod:[/FONT]
[font=tahoma, sans-serif, arial]Kod:[/FONT]

Kod:

WebBrowser1.Navigate("http://siteadresi.com/program/HWID.txt")
        TextBox1.Text = My.Computer.Info.TotalPhysicalMemory & My.Computer.Info.TotalVirtualMemory

[font=tahoma, sans-serif, arial]--Button2 [Giriş Yap]--[/FONT]
[font=tahoma, sans-serif, arial]Kod:[/FONT]
[font=tahoma, sans-serif, arial]Kod:[/FONT]

Kod:

Dim a As String
        Dim b As String
        a = TextBox1.Text
        b = InStr(WebBrowser1.DocumentText, a)
        If b Then
            WebBrowser1.Focus()
            MsgBox("Kayıdınız Aktif")
            Form2.Show
        Else
            MsgBox("Kayıtlı Değilsiniz.!")
        End If

[font=tahoma, sans-serif, arial]--Timere Girilecek Kodlar--[/FONT]
[font=tahoma, sans-serif, arial]Kod:[/FONT]
[font=tahoma, sans-serif, arial]Kod:[/FONT]

Kod:

If ProgressBar1.Value = ProgressBar1.Maximum Then
            ProgressBar1.Value = 100
            GroupBox1.Enabled = True
            Timer1.Stop()
        Else
            ProgressBar1.Value = ProgressBar1.Value + 1

        End If
        Label2.Text = "%" & ProgressBar1.Value

NOT ;
Malesef Arkadaşlar Proje Dosyaları Yok : D K USURA BAKMAYINIZ. !

Visual Basic Gelişmiş Hwıd Sistem

hackerSahti

Benzer Konular