Sign in to follow this  
Followers 0
demandnothing

can this VB script be translated to AutoIt?

3 posts in this topic

#1 ·  Posted (edited)

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

Share this post


Link to post
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]

Share this post


Link to post
Share on other sites

really?? well thats good news.. thanks for your help.

Share this post


Link to post
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
Sign in to follow this  
Followers 0