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--
--Button1 [Hwıd Öğren]--
--Button2 [Giriş Yap]--
--Timere Girilecek Kodlar--
Kod:
--İlk olarak gerekli malzemeler--
2 Adet Label 1 Adet GroupBox 2 Adet Button 1 Adet ProgressBar 1 Adet Timer
--Girilecek Yazılar--
Kod:
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--Button1 [Hwıd Öğren]--
Kod:
Kod:
WebBrowser1.Navigate("http://siteadresi.com/program/HWID.txt")
TextBox1.Text = My.Computer.Info.TotalPhysicalMemory & My.Computer.Info.TotalVirtualMemory--Button2 [Giriş Yap]--
Kod:
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--Timere Girilecek Kodlar--
Kod:
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
