--İ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
--Videolu Anlatım--
Hiç yorum yok :
Yorum Gönder