Fast question about making program to work for one ip

[EmptySpace]

I cant solve this myself.

For example:

If @ipaddress(I heard that i need to use number here, 1/2/3?) = some didgits Then

MY PROGRAM

Else exit loop

So I need to write it in autoit language.

Thanks

[guinness]

Look in the Help file, with 156 posts you should know the basics of If...Else...EndIf.

[EmptySpace]

I know it but i dont know how to do it with that ipaddress. In help file i found that there is @ipaddress1, @ipaddress2, @ipaddress3 so i should use first one? Also there is other func to get ip or only this?

[guinness]

What IP address do you want, LAN or WAN? If you're behind a router and you know your IP address of the local machine then check against the macros, normally @IPAddress1 is your LAN IP OR use ipconfig in a cmd prompt window and compare against that. If you want your public IP address then _GetIP is what you want.

[EmptySpace]

_GetIP(), thats what i wanted.

[guinness]

This is a better version. I will probably send a request to update the official UDF version.

ConsoleWrite(_GetIPEx() & @CRLF)

Func _GetIPEx()
    Local $bRead = InetRead("http://checkip.dyndns.org/")
    If @error Then
        $bRead = InetRead("http://automation.whatismyip.com/n09230945.asp")
    EndIf
    Local $aReturn = StringRegExp(BinaryToString($bRead), '[d.]{7,15}', 3) ; (?:d{1,3}.){3}d{1,3}
    If @error Then
        Return SetError(1, 0, -1)
    EndIf
    Return $aReturn[0]
EndFunc   ;==>_GetIP

[EmptySpace]

I just set ip. I want make that program would work only in one pc.

I made this before my GUI things

$ip = _GetIP()
If $ip = "XX.XXX.XXX.XX" Then
MsgBox(0,"","Greetings!")
Else
msgbox(0,"Busted","This wont work for you")
Exit
Endif

Its very good since I make GUI with picS and i send to one person, then that person cant send to other people.

[UEZ]

What if the other person have the same private ip?

To make it unique it is not a good choice to use an ip address. Using some kind of IDs, e.g. BIOS, is more secure for this kind of things.

Br,

UEZ

[EmptySpace]

Btw first time I need to use arrays and idk how it works, can you check my code?

Case $chectext
Local $arr[3]
$body = _IEBodyReadHTML($oIE)
$arr[0] = _StringBetween($body,"<b>pic2</b>","(")
$arr[1] = _StringBetween($body,"<b>pic5</b>","(")
$arr[2] = _StringBetween($body,"<b>pic8</b>","(")
msgbox(0,"It works?",$arr[0])

It returns 0, its good i think but how to show it? I know i can use array display but i need to get text and put it on gui label.

Edit ; UEZ i dont need so secure thing for now

Edited July 4, 2012 by Edgaras

[guinness]

To expand on what UEZ said, look at WinAPIEx and the function _WinAPI_UniqueHardwareID.

[EmptySpace]

I started my project with this and used

So here is code to get some info about pc.

I need only one which would be unique in pc. Maybe serial number? And how to show it in message box without other things. If i try i get syntax error.

expandcollapse popup

#include <CompInfo.au3>
Dim $OSs

_ComputerGetOSs($OSs)

For $i = 1 To $OSs[0][0] Step 1
MsgBox(0, "Test _ComputerGetOSs", "Name: " & $OSs[$i][0] & @CRLF & _
"Boot Device: " & $OSs[$i][1] & @CRLF & _
"Build Number: " & $OSs[$i][2] & @CRLF & _
"Build Type: " & $OSs[$i][3] & @CRLF & _
"Description: " & $OSs[$i][4] & @CRLF & _
"Code Set: " & $OSs[$i][5] & @CRLF & _
"Country Code: " & $OSs[$i][6] & @CRLF & _
"Creation Class Name: " & $OSs[$i][7] & @CRLF & _
"CSCreation Class Name: " & $OSs[$i][8] & @CRLF & _
"CSD Version: " & $OSs[$i][9] & @CRLF & _
"CS Name: " & $OSs[$i][10] & @CRLF & _
"Current Time Zone: " & $OSs[$i][11] & @CRLF & _
"Data Execution Prevention_32BitApplications: " & $OSs[$i][12] & @CRLF & _
"Data Execution Prevention_Available: " & $OSs[$i][13] & @CRLF & _
"Data Execution Prevention_Drivers: " & $OSs[$i][14] & @CRLF & _
"Data Execution Prevention_SupportPolicy: " & $OSs[$i][15] & @CRLF & _
"Debug: " & $OSs[$i][16] & @CRLF & _
"Distributed: " & $OSs[$i][17] & @CRLF & _
"Encryption Level: " & $OSs[$i][18] & @CRLF & _
"Foreground Application Boost: " & $OSs[$i][19] & @CRLF & _
"Free Physical Memory: " & $OSs[$i][20] & @CRLF & _
"Free Space In Paging Files: " & $OSs[$i][21] & @CRLF & _
"Free Virtual Memory: " & $OSs[$i][22] & @CRLF & _
"Install Date: " & $OSs[$i][23] & @CRLF & _
"Large System Cache: " & $OSs[$i][24] & @CRLF & _
"Last Boot Up Time: " & $OSs[$i][25] & @CRLF & _
"Local Date Time: " & $OSs[$i][26] & @CRLF & _
"Locale: " & $OSs[$i][27] & @CRLF & _
"Manufacturer: " & $OSs[$i][28] & @CRLF & _
"Max Number Of Processes: " & $OSs[$i][29] & @CRLF & _
"Max Process Memory Size: " & $OSs[$i][30] & @CRLF & _
"Number Of Licensed Users: " & $OSs[$i][31] & @CRLF & _
"Number Of Processes: " & $OSs[$i][32] & @CRLF & _
"Number Of Users: " & $OSs[$i][33] & @CRLF & _
"Organization: " & $OSs[$i][34] & @CRLF & _
"OS Language: " & $OSs[$i][35] & @CRLF & _
"OS Product Suite: " & $OSs[$i][36] & @CRLF & _
"OS Type: " & $OSs[$i][37] & @CRLF & _
"Other Type Description: " & $OSs[$i][38] & @CRLF & _
"Plus Product ID: " & $OSs[$i][39] & @CRLF & _
"Plus Version Number: " & $OSs[$i][40] & @CRLF & _
"Primary: " & $OSs[$i][41] & @CRLF & _
"Product Type: " & $OSs[$i][42] & @CRLF & _
"Quantum Length: " & $OSs[$i][43] & @CRLF & _
"Quantum Type: " & $OSs[$i][44] & @CRLF & _
"Registered User: " & $OSs[$i][45] & @CRLF & _
"Serial Number: " & $OSs[$i][46] & @CRLF & _
"Service Pack Major Version: " & $OSs[$i][47] & @CRLF & _
"Service Pack Minor Version: " & $OSs[$i][48] & @CRLF & _
"Size Stored In Paging Files: " & $OSs[$i][49] & @CRLF & _
"Status: " & $OSs[$i][50] & @CRLF & _
"Suite Mask: " & $OSs[$i][51] & @CRLF & _
"System Device: " & $OSs[$i][52] & @CRLF & _
"System Directory: " & $OSs[$i][53] & @CRLF & _
"System Drive: " & $OSs[$i][54] & @CRLF & _
"Total Swap Space Size: " & $OSs[$i][55] & @CRLF & _
"Total Virtual Memory Size: " & $OSs[$i][56] & @CRLF & _
"Total Visible Memory Size: " & $OSs[$i][57] & @CRLF & _
"Version: " & $OSs[$i][58] & @CRLF & _
"Windows Directory: " & $OSs[$i][59])
Next

Edited July 16, 2012 by Edgaras

[guinness]

Edgaras,

Think, where is the function _ComputerGetOSs? That's why you get the error since the include is missing and secondly you don't need Step 1 as this is the default increment.

Plus you totally missed my last post about retrieving a unique hardware ID!

Edited July 16, 2012 by guinness

[guinness]

For those interested.

#include <APIConstants.au3>
#include <WinAPIEx.au3> ; http://www.autoitscript.com/forum/topic/98712-winapiex-udf/ (Place all files in C:Program FilesAutoItIncludes or simililar)

MsgBox(4096, '', 'Unique ID: ' & _WinAPI_UniqueHardwareID($UHID_All) & @CRLF) ; Otherwise check out _WinAPI_CreateGUID.

[EmptySpace]

I tried retrieving a unique hardware ID, i got all files but when i launch something i get bunch of errors from include file. So I tried _ComputerGetOSs and it works fine. I get message box with all info. What I need to get only serial from that list.

I never used arrays or something so when I delete all unneeded code I get errors like undeclared variable or smthg.

Oh, i forgot to place include... fixed

Edited July 16, 2012 by Edgaras