help me with FileReadLine function

[oMBRa]

  dallasgfx said:

ok this is the full code in the attechement

its better if you post the code here wrapped with "[code ] [/code ]" tags (without the space before the square bracket)

[dallasgfx]

  oMBRa said:

its better if you post the code here wrapped with "[code ] [/code ]" tags (without the space before the square bracket)

i would but with the code source there is the dll ( md5.dll )

[oMBRa]

  dallasgfx said:

i would but with the code source there is the dll ( md5.dll )

ok, sorry, my fault I didnt read other posts before posting

[dallasgfx]

it"s ok , read and if you have the answer , write it

thanks

[Bowmore]

  dallasgfx said:

it"s ok , read and if you have the answer , write it

thanks

The code you posted had syntax errors so it has never run as it is..

You should rename md5.dll to something else giving a txt file a dll extension can only lead to trouble and confusion.

Try this.

$File=""
$Count=0
Dim $aMD5HashValues[1]

_FileReadToArray("C:\some pathe\md5.dll",$aMD5HashValues)    ;<<<<<< Change this to correct path
If @error Then 
     MsgBox(16,"Load MD5.dll", "Unable to load md5.dll" & @CR   & "Error: " & @error)
         Exit
EndIf

While $File <> -1
    ; get the file to be checked
    $File = ScanFolder("D:\karim\dallas")
    ToolTip($File,0,200)
        $md5cod = _MD5Init()
                ; calculate md5 hash value
        _MD5Input($md5cod, FileRead ($File))
        $result =   _MD5Result($md5cod)
                ; compare result to each of the values stored in md5.dll
        For $iMD5 = 1 To $aMD5HashValues[0]
            If $result = $aMD5HashValues[$iMD5] Then 
                       MsgBox(16,"find",$File  ,$File)
            EndIf
        Next
    $Count += 1
    If $Count >= 3000 Then
       $File = ScanFolder("-ABORT-")
    EndIf
WEnd

[dallasgfx]

  Bowmore said:

The code you posted had syntax errors so it has never run as it is..

You should rename md5.dll to something else giving a txt file a dll extension can only lead to trouble and confusion.

Try this.

$File=""
$Count=0
Dim $aMD5HashValues[1]

_FileReadToArray("C:\some pathe\md5.dll",$aMD5HashValues)    ;<<<<<< Change this to correct path
If @error Then 
     MsgBox(16,"Load MD5.dll", "Unable to load md5.dll" & @CR   & "Error: " & @error)
         Exit
EndIf

While $File <> -1
    ; get the file to be checked
    $File = ScanFolder("D:\karim\dallas")
    ToolTip($File,0,200)
        $md5cod = _MD5Init()
                ; calculate md5 hash value
        _MD5Input($md5cod, FileRead ($File))
        $result =   _MD5Result($md5cod)
                ; compare result to each of the values stored in md5.dll
        For $iMD5 = 1 To $aMD5HashValues[0]
            If $result = $aMD5HashValues[$iMD5] Then 
                       MsgBox(16,"find",$File  ,$File)
            EndIf
        Next
    $Count += 1
    If $Count >= 3000 Then
       $File = ScanFolder("-ABORT-")
    EndIf
WEnd

thanks a lot my frien your way is worked

[dallasgfx]

the code work , but he serach only for 4 codes of the files

[Bowmore]

  dallasgfx said:

the code work , but he serach only for 4 codes of the files

The reason is that there are only 4 codes in the version of md5.dll that you posted.

[dallasgfx]

  Bowmore said:

The reason is that there are only 4 codes in the version of md5.dll that you posted.

yes , thals allot for your help