HWID system

[guinness]

What if you use InetGet instead and then use FileRead? If you don't know how to use the function then please read the help file.

Alpha Help File Example:

expandcollapse popup

Example1() ; Download a file in the background.
Example2() ; Wait for the download to complete.

Func Example1()
    ; Save the downloaded file to the temporary folder.
    Local $sFilePath = @TempDir & "update.dat"

    ; Download the file in the background with the selected option of 'force a reload from the remote site.'
    Local $hDownload = InetGet("http://www.autoitscript.com/autoit3/files/beta/update.dat", @TempDir & "update.dat", 1, 1)

    ; Wait for the download to complete by monitoring when the 2nd index value of InetGetInfo returns True.
    Do
        Sleep(250)
    Until InetGetInfo($hDownload, 2)

    ; Retrieve the number of total bytes received and the filesize.
    Local $iBytesSize = InetGetInfo($hDownload, 0)
    Local $iFileSize = FileGetSize($sFilePath)

    ; Close the handle returned by InetGet.
    InetClose($hDownload)

    ; Display details about the total number of bytes read and the filesize.
    MsgBox(4096, "", "The total download size: " & $iBytesSize & @CRLF & _
            "The total filesize: " & $iFileSize)

    ; Delete the file.
    FileDelete($sFilePath)
EndFunc   ;==>Example1

Func Example2()
    ; Save the downloaded file to the temporary folder.
    Local $sFilePath = @TempDir & "update.dat"

    ; Download the file by waiting for it to complete. The option of 'get the file from the local cache' has been selected.
    Local $iBytesSize = InetGet("http://www.autoitscript.com/autoit3/files/beta/update.dat", @TempDir & "update.dat", 1)

    ; Retrieve the filesize.
    Local $iFileSize = FileGetSize($sFilePath)

    ; Display details about the total number of bytes read and the filesize.
    MsgBox(4096, "", "The total download size: " & $iBytesSize & @CRLF & _
            "The total filesize: " & $iFileSize)

    ; Delete the file.
    FileDelete($sFilePath)
EndFunc   ;==>Example2

[legend]

I would prefer not to use inetget if it's possible, I don't want the file to be written to the disk

[water]

Then replace InetGet with InetRead (as you had in your first post).

Edited October 8, 2012 by water

[guinness]

legend,

I'm afraid I can't help you anymore because frankly you aren't helping yourself. Have you done any error checking after InetRead? Have you considered it might be your system at fault and not my code? I also didn't ask you to commit to using InetGet exclusively, just to see if it works, but you didn't even do that. So good luck!

[legend]

I tried this:

Func _GetHWID($sHWID)
    Local $aArray = StringSplit(InetRead('http://ajoko.com/test.txt'), @CRLF)
_ArrayDisplay($aArray)
    Return _ArraySearch($aArray, $sHWID) > -1
ConsoleWrite($aArray)
EndFunc   ;==>_GetHWID

_ArrayDisplay($aArray) returns some long random number :S?

[water]

To correctly split at @CRLF you have to use:

Local $aArray = StringSplit(InetRead('http://ajoko.com/test.txt'), @CRLF, 1)

because @CRLF is two characters.

[guinness]

OK.

#include <Array.au3>
#include <String.au3>

If _GetHWID('d7390699.963411DEXIF08') Then ; Check if d7390699.963411DEXIF08 exists in the file.
    MsgBox(4096, '', 'HWID Found.')
Else
    MsgBox(4096, '', 'HWID NOT Found.')
EndIf

Func _GetHWID($sHWID)
    Local $aArray = StringSplit(BinaryToString(InetRead('http://ajoko.com/test.txt')), @LF)
    If @error Then
        Return SetError(1, 0, 0)
    EndIf
    Return _ArraySearch($aArray, $sHWID) > -1
EndFunc   ;==>_GetHWID

Func _HWID()
    Local $sOSDrive = StringLeft(@SystemDir, 3)
    Local $sHWID = '0' & @CPUArch & @KBLayout & DriveGetSerial(@HomeDrive) & StringUpper(DriveGetType($sOSDrive)) & DriveSpaceTotal($sOSDrive)
    $sHWID = StringMid($sHWID, Round(StringLen($sHWID) / 2), Round(StringLen($sHWID) / 2))
    $sHWID = _StringReverse($sHWID)
    Return $sHWID
EndFunc   ;==>_HWID

[guinness]

To correctly split at @CRLF you have to use:

Local $aArray = StringSplit(InetRead('http://ajoko.com/test.txt'), @CRLF, 1)

because @CRLF is two characters.

It's not that. I forgot to include StringToBinary and only noticed it when legend actually gave me a file to test. Plus they are using @LF instead of @CRLF in their file. Edited October 8, 2012 by guinness

[legend]

thanks alot for helping me with all this, much appreciated, it works:)

[guinness]

thanks alot for helping me with all this, much appreciated, it works:)

Great.

[legend]

it seems it doesen't work if you move the hardware id in the file, example: if you click tab to move it in, then it doesen't detect the hardware id.

the first one works, because there no spaces from where it starts, the second doesen't, is there a way it can be fixed ?

[guinness]

Loop through the array returned by StringSplit and use StringInStr instead of _ArraySearch. Also, please do not respond with "I don't know how" because I will just tell you to read the help file. Therefore, my advice, show a little effort first and then I will help you.

Edited October 9, 2012 by guinness