demandnothing Posted September 20, 2009 Share Posted September 20, 2009 (edited) expandcollapse popupPublic Class Form1 Dim r As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName) r = h.AddressList.GetValue(0).ToString(1) r = r & h.AddressList.GetValue(0).ToString(2) r = r & "MPGH" r = r & My.Computer.Info.TotalPhysicalMemory r = r & My.Computer.Name.GetHashCode r = r & "B" r = r & "1" r = r & h.AddressList.GetValue(0).ToString(7) r = r & h.AddressList.GetValue(0).ToString(6) r = r & h.AddressList.GetValue(0).ToString(3) r = r & h.AddressList.GetValue(0).ToString(2) r = r & h.AddressList.GetValue(0).ToString(8) r = r & h.AddressList.GetValue(0).ToString(1) r = r & "0x1" r = r & h.AddressList.GetValue(0).ToString(5) r = r & "UR12xF" r = r & My.Computer.Info.OSFullName.GetHashCode r = r & "x7T" r = r & My.Computer.Info.OSPlatform.GetHashCode r = r & My.Computer.Info.OSVersion.GetHashCode r = r & My.Computer.Screen.GetHashCode r = r & "ASMU" TextBox1.Text = r Timer1.Start() Timer1.Interval = 500 WebBrowser1.Navigate("http://resourceempire.com/userpages/sites/user1.html") End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If WebBrowser1.DocumentText.Contains(TextBox1.Text) Then Label4.Text = "Registered" Label4.ForeColor = Color.Green Else Label4.Text = "Not Registered" Label4.ForeColor = Color.Red End If End Sub End Class its a way of verifying a person by their computer info.. to prevent programs from being used on more than one computer Edited September 20, 2009 by demandnothing Link to comment Share on other sites More sharing options...
colafrysen Posted September 20, 2009 Share Posted September 20, 2009 This .AU3-->.VBS has been asked before, quite a lot... do a search Yes, you can veryify someone by thier computer info, Either by username or computername, or you might go one step further and verify by the installation CD-KEY (do a forum search to fund out how to acquire the key) Username Example: #include <Array.au3> If @UserName = "Alloweduser" Then ConsoleWrite("Allowed" & @CRLF) Else ConsoleWrite("Denied" & @CRLF) EndIf ;Or with array Dim $aAllowedUsers[4] = ["Alloweduser1","Alloweduser2","Alloweduser3","Alloweduser4"] If _ArraySearch($aAllowedUsers, @UserName)<> -1 Then ConsoleWrite("Allowed" & @CRLF) Else ConsoleWrite("Denied" & @CRLF) EndIf [font="Impact"]Use the helpfile, It´s one of the best exlusive features of Autoit.[/font]http://support.microsoft.com/kb/q555375ALIBI Run - a replacement for the windows run promptPC Controller - an application for controlling other PCs[size="1"]Science flies us to the moon. Religion flies us into buildings.[/size][size="1"]http://bit.ly/cAMPZV[/size] Link to comment Share on other sites More sharing options...
demandnothing Posted September 20, 2009 Author Share Posted September 20, 2009 really?? well thats good news.. thanks for your help. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now