Jump to content

can this VB script be translated to AutoIt?


Recommended Posts

Public 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 by demandnothing
Link to comment
Share on other sites

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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...