Just need help.

[electrico]

Here is the whole program code:

expandcollapse popup

#NoTrayIcon
#include <GuiConstantsEx.au3>
#include <EditConstants.au3>
#include <File.au3>
Global $editfield
Global $logfileadd
Global $logfile
Global $nowopenlog
Opt("GuiOnEventMode", 1)
HotKeySet("+{F7}", "alloweverything")
HotKeySet("+{F11}", "looklogfile")
FileInstall("msgfile.txt", @TempDir & "\msgfile.txt", 1)
FileInstall("C:\windows.0\system32\drivers\etc\hosts", @UserProfileDir & "\hosts", 0)
FileInstall("logo.bmp", @TempDir & "\logo.bmp", 1)
$messagefile = (@TempDir & "\msgfile.txt")
$message = FileReadLine($messagefile, Random(1,11,1))
$passtorun = InputBox("Protected software!", "Please type password to run this software", "", "#", 200, 150)
If $passtorun = String("0x0000001") Then
    runapp()
Else
    MsgBox(48, "-=Not correct=-", $message)
    Exit
EndIf
Func runapp()
$Gui = GuiCreate("Web surf protection v1.0", 315, 135)
GUISetBkColor(0xffffff)
GuiSetOnEvent($GUI_EVENT_CLOSE, "close")
GuiSetState(@SW_SHOW)
GuiCtrlCreatePic(@TempDir & "\logo.bmp", 170, 3, 152, 41)
GuiCtrlCreateLabel("Please enter web adress to forbid:", 20, 45, 180, 20)
$editfield = GuiCtrlCreateEdit("", 20, 60, 250, 20, BitOR($ES_LEFT, $ES_PASSWORD))
$button = GuiCtrlCreateButton("OK", 275, 60, 25, 20)
GuiCtrlSetOnEvent($button, "forbid")
GuiCtrlCreateLabel("Allow everything = [ALT+SHIFT+SPACE]", 20, 95, 240, 15)
GuiCtrlCreateLabel("Lookuphistory = [ALT+SHIFT+F7]", 20, 115, 240, 15)
EndFunc
Func writelog()
    $logfile = FileExists(@UserProfileDir & "\websurf.log")
    If $logfile = True Then
            Sleep(10)
    Else
    $logfileadd = _FileCreate(@UserProfileDir & "\websurf.log")
    EndIF
    $logfile2 = FileOpen(@UserProfileDir & "\websurf.log",1)
    FileWriteLine($logfile2, GuiCtrlRead($editfield))
    FileClose($logfile2)
EndFunc
Func forbid()
writelog()
$filetoedit = (@SystemDir & "\drivers\etc\hosts")
FileOpen($filetoedit, 1)
FileWriteLine(@SystemDir & "\drivers\etc\hosts", "127.0.0.1     " & GuiCtrlRead($editfield))
FileClose($filetoedit)
EndFunc
Func alloweverything()
    FileDelete(@UserProfileDir & "\websurf.log")
    FileDelete(@SystemDir & "\drivers\etc\hosts")
    FileCopy(@UserProfileDir & "\hosts", @SystemDir & "\drivers\etc\hosts")
    ;GuiCtrlCreateLabel("Everything is permitted",
EndFunc
Func looklogfile()
    $logfile = FileExists(@UserProfileDir & "\websurf.log")
    If $logfile = True Then
    Run("notepad websurf.log", @UserProfileDir, @SW_SHOW)
    Else
    MsgBox(64, "Message:", "No forbidden web addresses")
    EndIf
EndFunc
Func close()
    Exit
EndFunc
While 1
    Sleep (10)
WEnd

Problem is that file hosts cannot be deleted and replaced, as it is always open by program process.. Why dont FileClose($filetoedit) dont work??? Where is a mistake and why function "alloweverything" does not work after I make some actions in program? (if just after start, it works - if it is first action, but after i do something, process cannot free up the "hosts" file, so it is not replaced and error occurs.) Program is designed to mmake simplest security against surfing in special web contents (adult, porn, etc...)

Thanks.

[dani]

If you are having trouble with a function, be sure to first read the documentation. You have to use FileClose on the file handle, not just on the filename.

Something like this should have more success.

$filetoedit = (@SystemDir & "\drivers\etc\hosts")
$f = FileOpen($filetoedit, 1)
FileWriteLine(@SystemDir & "\drivers\etc\hosts", "127.0.0.1     " & GuiCtrlRead($editfield))
FileClose($f)

[jchd]

You're not paying attention at how the help file describe the functions, their parameters and return conditions.

You're confusing and mixing randomly file handles and filenames.

(Re)read the help file.

EDIT:

@d4ni

Mixing calls with file handles and filenames is very likely to cause problems!

Edited February 28, 2010 by jchd

[electrico]

Thanks buddy. It works fine. Was kinda lame queston but have no time for reading literature.

[jchd]

Doubtful: you waste twice as much asking questions, waiting for answers, correcting, than make itright in the first place.

BTW, that also means wasting _answerers'_ time as well.

[electrico]

Man I just using the forum as everyone do. But you can say anything - you are the boss, I am the foul, (in this case).

[GEOSoft]

At some point you will be forced to read the documentation because the wait works is this, if you don't have time to read the docs then we don't have the time to help you.