Setconsole("Hide")

Break On 

$Form = CreateObject("Kixtart.Form") 

$Form.Text = "Internet Usage Policy "

$Form.Size = 380,420



$TextBox1 = $Form.TextBox("By clicking the 'YES I AGREE

 BUTTON' this states that you are agreeing to the following 

conditions:  The aim of this document is to guide staff and 

pupils when using ICT to ensure that they are complying 

with the rules stipulated in the following statement. The 

rules of usage must be adhered to as there may be actions 

taken against those individuals. This statement is also 

designed to protect pupils, staff and the school when using 

ICT. The use of a computer system without permission or for 

a purpose not agreed by the school, could constitute a 

criminal offence under the Computer Misuse Act 1990.For 

this reason the following usage of computer equipment is 

deemed illegal and could lead to disciplinary action or 

even prosecution, this includes; pornography, incitement to 

racial hatred, threatening/solicitous emails, chat rooms, 

and any other material that may be considered 

contentious.Access must only be made by the individuals 

authorised account and password, which must not be given to 

any other person. The individual must also ensure that 

he/she logs off the system correctly and does not leave the 

computer logged on and unattended. School computer and 

Internet use must be appropriate to the students education 

or to staff professional activity during lessons.  Personal 

use of email/internet by staff should be agreed by their 

line manager, during school hours.  Students must not 

procure material from the system and claim this it falsely 

as their own.  Software must not be copied unless licensing 

allows this and copies must only be made by the ICT 

department. All users must be responsible for reporting to 

the ICT department any sites or materials that are deemed 

in conflict with this policy. All downloading of programs 

unless advised by the ICT department is prohibited.  

Anonymous messages and chain letters must not be sent. 

Holte Schools computer systems should not be compromised by 

individuals or groups from within or outside of the school. 

Examples include hacking and copying unauthoried 

information.  Students should not gamble or partake in any 

financial transactions online. The school Internet or email 

facilities should not be used for personal or financial 

gain, political purposes or advertising. When accessing the 

schools systems outside of normal working hours, (including 

from home) this policy should also be adhered 

to.",40,100,300,200)



$Textbox1.MultiLine = true 

$Textbox1.ScrollBars = 3

$Textbox1.Fontsize = 10

$Label1 = $Form.Label("Responsible Internet Use",90,50,200,50)

$Label1.Fontsize = 12

$Button2 = $Form.Button("Yes I agree",50,340,100,30)

$Button2.OnClick = "Button2_Click()"

$Button1 = $Form.Button("No I do not agree", 210,340,100,30)

$Button1.OnClick = "Button1_Click()"



$Form.Center

$Form.Show 

While $Form.Visible   

$=Execute($Form.DoEvents)

Loop 

Quit() 



Function Button2_Click



RUN "C:\Program Files\Internet Explorer\iexplore.exe"

quit



EndFunction



Function Button1_Click



quit



EndFunction



EXIT 

$null = WriteValue ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoInternetIcon","1",REG_DWORD)