strRegkey = "HKCU\AppEvents\Schemes\Apps\Explorer\Navigating\.current\"
strPrefix = "NoClick_"

CurrentEntry = regget(strRegKey)

'msgbox CurrentEntry

If left(CurrentEntry, len(strPrefix)) = strPrefix then
	Call FixReg(strRegKey, right(CurrentEntry, len(CurrentEntry) - len(strPrefix)), "REG_SZ")
	Msgbox "Page Click should now be re-ENABLED"
Else
	Call FixReg(strRegKey, strPrefix & CurrentEntry, "REG_SZ")
	Msgbox "Page Click should now be DISABLED"
End If


	




Sub FixReg(RegkeyIn, shouldbeIN, strTypeIn)

On Error Resume Next
x = regget(RegkeyIn)

'msgbox "Error" & Err.Number
'msgbox x
'msgbox shouldbeIn

'If instr(1, lcase(regget(RegkeyIn)), lcase(shouldbeIN)) < 1 then
'	joblog = joblog & vbCrLf & vbCrLf & "Setting " & RegKeyIn & " to " & shouldbeIn
	a = RegCreate(RegkeyIn, shouldbeIN, strTypeIn)
'End If

End Sub


function regget(value)
	Set regedit = CreateObject("WScript.Shell")
	regget=regedit.RegRead(value)
	'logfile.WriteLine("RegGet: " & value)
end function

Function regcreate(regkey, regvalue, regtype)
	Set regedit = CreateObject("WScript.Shell")
	regedit.RegWrite regkey, regvalue, regtype
	'logfile.WriteLine("RegWrite: " & regkey & ", " & regvalue & ", " & regtype)
end function