Newbie - Modifying host file

[Mark01]

I'm new to Autoit and wanted to know how to search C:\Windows\System32\drivers\etc\host for an entry for "10.1.1.1 www.google.com" if it doesn't exist then modify the host file to enter in that entry automatically. But if the user clicks on the Internet button then it should comment out the entry to read "#10.1.1.1 www.google.com" and if the user clicks on the dedicated button then it should change it to "10.1.1.1 www.google.com" but if the user constantly click on the Internet button it should only input in one "#". When this script runs everytime I click on the Internet button it places and "#" at the beginning of the line so if I open the app 2 times the lines shows "##10.1.1.1 www.google.com" instead of "#10.1.1.1 www.google.com". I also need it to work for Windows 7 pc's. Thanks in advance for any assistance on this.

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_outfile=C:\Temp\test.exe

#AutoIt3Wrapper_UseX64=n

#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#Begin

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region

#Region Variable Declarations, etc

Dim $line, $HostFileName, $FileContent

Global $EntryTag = "NotFound"

$HostFileName = "C:\Windows\System32\drivers\etc\host"

$FileContent = ""

#EndRegion Variable Declarations, etc

_Main()

Func _Main()

$Form1 = GUICreate("The ICE 1.0", 316, 238, 381, 189)

GUISetIcon("D:\003.ico")

$GroupBox1 = GUICtrlCreateGroup("", 8, 1, 297, 193)

$InternetButt = GUICtrlCreateButton("&Internet", 17, 50, 131, 89, $WS_GROUP)

GUICtrlSetFont(-1, 12, 800, 0, "Perpetua")

$DedicatedButt = GUICtrlCreateButton("&Dedicated", 161, 50, 131, 89, $WS_GROUP)

GUICtrlSetFont(-1, 12, 800, 0, "Perpetua")

GUICtrlCreateLabel("Web ICE Host Switcher", 35, 16, 244, 28)

GUICtrlSetFont(-1, 14, 800, 2, "Univers 55")

GUICtrlSetColor(-1, 0x008000)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$CancelButt = GUICtrlCreateButton("&Cancel", 110, 203, 75, 25, $WS_GROUP)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Select

Case $nMsg = $CancelButt

Exit

Case $nMsg = $InternetButt

InternetConfig()

Case $nMsg = $DedicatedButt

ModDedicated()

Case $nMsg = $GUI_EVENT_CLOSE

Exit

EndSelect

WEnd

EndFunc ;==>_Main

Func ModDedicated()

$TheICEMod = "#10.1.1.1 www.google.com"

$ReplaceText = "10.1.1.1 www.google.com"

$FileContents = FileRead($HostFileName)

$FileContents = StringReplace($FileContents, $TheICEMod, $ReplaceText)

FileDelete($HostFileName)

FileWrite($HostFileName, $FileContents)

$JARMod = "#10.1.1.2 new.google.com"

$ReplaceText = "10.1.1.2 new.google.com"

$FileContents = FileRead($HostFileName)

$FileContents = StringReplace($FileContents, $JARMod, $ReplaceText)

FileDelete($HostFileName)

FileWrite($HostFileName, $FileContents)

$InternetButt = GUICtrlCreateButton("&Internet", 17, 50, 131, 89, $WS_GROUP)

GUICtrlSetFont(-1, 12, 800, 0, "Perpetua")

GUICtrlSetBkColor(-1, 0x00FF00)

$DedicatedButt = GUICtrlCreateButton("&Dedicated", 161, 50, 131, 89, $WS_GROUP)

GUICtrlSetFont(-1, 12, 800, 0, "Perpetua")

GUICtrlSetBkColor(-1, 0xFFFFFF)

Exit

EndFunc ;==>ModDedicated

Func InternetConfig()

$TheICE = "10.1.1.1 www.google.com"

$ReplaceText = "#10.1.1.1 www.google.com"

$FileContents = FileRead($HostFileName)

$FileContents = StringReplace($FileContents, $TheICE, $ReplaceText)

FileDelete($HostFileName)

FileWrite($HostFileName, $FileContents)

$JAR = "10.1.1.2 new.google.com"

$ReplaceText = "#10.1.1.2 new.google.com"

$FileContents = FileRead($HostFileName)

$FileContents = StringReplace($FileContents, $JAR, $ReplaceText)

FileDelete($HostFileName)

FileWrite($HostFileName, $FileContents)

$InternetButt = GUICtrlCreateButton("&Internet", 17, 50, 131, 89, $WS_GROUP)

GUICtrlSetFont(-1, 12, 800, 0, "Perpetua")

GUICtrlSetBkColor(-1, 0x00FF00)

$DedicatedButt = GUICtrlCreateButton("&Dedicated", 161, 50, 131, 89, $WS_GROUP)

GUICtrlSetFont(-1, 12, 800, 0, "Perpetua")

GUICtrlSetBkColor(-1, 0xFFFFFF)

Exit

EndFunc ;==>InternetConfig

#End

[guinness]

Search the Example Forum for _HostFile, this should give you a good basis to work from. Also when you do post code could you possibly use the [autoit][/autoit] tags as it makes things a lot easier to read, thanks.