FileRead / FileReadLine

[Unc3nZureD]

Hello. I tried to use the FileRead & FileReadLine but i failed somewhere.

So the Code:

expandcollapse popup

$DLL = FileExists(@ScriptDir & "/Base.dll")

If $DLL = 0 Then
    Msgbox(0, "Security!", "Please do not delete or change the Base.dll !")
    $answ = Msgbox(36, "Security!", "Do you want to download the original Base.dll ?")

    If $answ = 6 Then
        Local $hDownload = InetGet("An URL address - currently not uploaded", @ScriptDir & "Base.dll", 1, 1)
        Do
        Sleep(250)
        Until InetGetInfo($hDownload, 2)
        Local $nBytes = InetGetInfo($hDownload, 0)
        InetClose($hDownload)
    If $answ = 7 Then
        Msgbox(48, "Security!", "^ERROR")
        exit 0
    EndIf
    EndIf
EndIf

msgbox(0,"", $DLL)

$Check = FileReadLine(@ScriptDir & "/Base.dll")

If $Check Not = "Created by: [Unc3nZureD]" Then
    Msgbox(0, "DLL Guard!", "Please do not delete or change the Base.dll !")
    $answ = Msgbox(36, "DLL Guard!", "Do you want to download the original Base.dll ?")
    If $answ = 6 Then
            Local $hDownload = InetGet("An URL address - currently not uploaded", @ScriptDir & "Base.dll", 1, 1)
            Do
            Sleep(250)
            Until InetGetInfo($hDownload, 2)
            Local $nBytes = InetGetInfo($hDownload, 0)
            InetClose($hDownload)
            Sleep(500)
    If $answ = 7 Then
        Msgbox(48, "DLL Guard!", "^ERROR")
        exit 0
    EndIf
    EndIf
EndIf

msgbox(0,"",$Check)
msgbox(0,"","DONE")

To edit Base.dll , just open with a simple notepad and read the 1st line. It can find the file and able to read the 1st line but it says: "Created by: [unc3nZureD]" = "What The Hell??!!" Why?

Base.dll

[ZacUSNYR]

Are you opening/closing the file?

[Unc3nZureD]

What do u mean? It isn't opened when I run it.

[bogQ]

Look at the example on FileReadLine

and youl see $file = FileOpen("test.txt", 0)

look under FileReadLine second parametar and youl see "[, line] )"

Look under FileReadLine first parametar and youl see that there isnt any line telling you that first parametar is file path

The handle of a file, as returned by a previous call to FileOpen. Alternatively you may use a string filename as the first parameter.

[Unc3nZureD]

But it says:

"If no line number to read is given, the "next" line will be read. ("Next" for a newly opened file is initially the first line.)"

But I will try to write 1 as line.

[Unc3nZureD]

Don't know why If i start the script it accept the "Created by: [unc3nZureD]" = "What The Hell??!!" and don't give my the choosing msgbox.

[BrewManNH]

The only thing I can see happening is that it's reading the first line of the dll and that first line says What The Hell??!!. I opened your dll file in notepad, and that is what the first line of the file says.

The only things wrong with your code are

• You have the Not command after the $Check variable, and that's wrong, it has to be before it

• In the same line, you are looking for the words "Created by: [unc3nZureD]" in the first line of the dll, and that's not what's in the first line of the dll, so that check will always be that $Check does not equal "Created by: [unc3nZureD]". You can modify it so that the check will fail correctly by changing the If Not $Check = "Created by: [unc3nZureD]" to If $Check <> "Created by: [unc3nZureD]" then.

[sleepydvdr]

Why not do a checksum check instead of reading a single line from the file?

ETA: In case it interests you:

Edited December 21, 2010 by sleepydvdr

[Unc3nZureD]

Why not do a checksum check instead of reading a single line from the file?

ETA: In case it interests you:

Wow, MD5 will be great, but a bit hard I think the LineCheck will be enough Easy, simple, and a bit safe Thanks everything

[Unc3nZureD]

I have another problem

If $DLL = 0 Then
    Msgbox(0, "CoD 4 _ ESP-box [by Unc3nZureD]", "Please do not delete or change the Hook.dll !")
    $answ = Msgbox(36, "CoD 4 _ ESP-box [by Unc3nZureD]", "Do you want to download the original Hook.dll ?")

    If $answ = 6 Then
        Local $hDownload = InetGet("http://WarningHOOK.yolasite.com/resources/Hook.res", @ScriptDir & "Hook.dll", 1, 1)
        Do
        Sleep(250)
        Until InetGetInfo($hDownload, 2)
        Local $nBytes = InetGetInfo($hDownload, 0)
        InetClose($hDownload)
    If $answ = 7 Then
        Msgbox(48, "WarningHOOK", "^ERROR")
        exit 0
    EndIf
    EndIf
EndIf

When I Press NO Then it continues the script. (Same at the 2nd part of the script) Why? the Help file says:

Button Pressed Return Value

OK 1

CANCEL 2

ABORT 3

RETRY 4

IGNORE 5

YES 6

NO 7

TRY AGAIN ** 10

CONTINUE ** 11

So :

If $answ = 7 Then
msgbox(0,"","asd")
exit 0

But it isn't detect it

I tried to put this:

msgbox(0,"",$answ)

After the Yes/No. I pressed no and the answ was 7. So it's 7. Then why 7 don't = with 7 ? Edited December 22, 2010 by Unc3nZureD

[Jos]

proper formatting tells a 1000 words:

If $DLL = 0 Then
    MsgBox(0, "CoD 4 _ ESP-box [by Unc3nZureD]", "Please do not delete or change the Hook.dll !")
    $answ = MsgBox(36, "CoD 4 _ ESP-box [by Unc3nZureD]", "Do you want to download the original Hook.dll ?")

    If $answ = 6 Then
        Local $hDownload = InetGet("http://WarningHOOK.yolasite.com/resources/Hook.res", @ScriptDir & "Hook.dll", 1, 1)
        Do
            Sleep(250)
        Until InetGetInfo($hDownload, 2)
        Local $nBytes = InetGetInfo($hDownload, 0)
        InetClose($hDownload)
        If $answ = 7 Then
            MsgBox(48, "WarningHOOK", "^ERROR")
            Exit 0
        EndIf
    EndIf
EndIf

[Unc3nZureD]

damn, sorry wrong script. I did that for another program, but i want the same security

The other one:

$DLL = FileExists(@ScriptDir & "/Base.dll")

If $DLL = 0 Then
    Msgbox(0, "Security!", "Please do not delete or change the Base.dll !")
    $answ = Msgbox(36, "Security!", "Do you want to download the original Base.dll ?")

    If $answ = 6 Then
        Local $hDownload = InetGet("An URL address - currently not uploaded", @ScriptDir & "Base.dll", 1, 1)
        Do
        Sleep(250)
        Until InetGetInfo($hDownload, 2)
        Local $nBytes = InetGetInfo($hDownload, 0)
        InetClose($hDownload)
    If $answ = 7 Then
        Msgbox(48, "Security!", "^ERROR")
        exit 0
    EndIf
    EndIf
EndIf

Edited December 22, 2010 by Unc3nZureD

[Jos]

damn, sorry wrong script. I did that for another program, but i want the same security

of course

I have given the answer any ways so better now stick to our policies here.