29 Kasım 2016 Salı

VB.NET Hwıd Sistemi (Kodlar + Videolu Anlatım)

Posted by Karolinax on 10:27 programlama , vb.net Hiç yorum yok

Evet arkadaşlar bugün Gelişmiş Hwıd Sistem öğrenicez.

--İlk olarak gerekli malzemeler--
2 Adet Label 1 Adet GroupBox 2 Adet Button 1 Adet ProgressBar 1 Adet Timer

--Girilecek Yazılar--

Label1 = Hwıd ÖğrenLabel2 = Boş Bırakın [Videoya Bakın]Button1 = Hwıd ÖğrenButton2 = Giriş YapGroupBox = Ne Yaparsan Yap :D

--Button1 [Hwıd Öğren]--

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

--Button2 [Giriş Yap]--

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

--Timere Girilecek Kodlar--

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