break on



SetConsole ("HIDE")

 

$Form = createobject("Kixtart.Form")

$Form.Size = 450,350

$Form.Caption = "Internet Rules"

$Form.Backcolor = "deepskyblue"

$Form.Fontsize = 8

$Form.bold = 1

$Form.visible



$Label1 = $Form.label("IMPORTANT: please read.",20,10,180,30)



$TextBox = $Form.TextBox("As a student at King's Norton Girls' School, you are bound by the terms in this agreement: I will only access the system with my own login

 and password, which I will keep secret; I will not access other people's files; I will only use the computers for school work and homework; I will not bring in floppy disks from outside school unless I have been given permission; I 

will ask permission from a member of staff before using the

 Internet; I will only E-mail people I know, or my teacher has approved; The messages I send will be polite and responsible; I will not visit Internet sites that I know may contain material of an unsuitable nature; I will 

respect copyright rules whilst using the computer systems; I will not post or forward anonymous messages on the Network or Internet; I will always ask the person supervising me before downloading any material from the 

Internet; I will take care not to infect the computer systems with viruses and I shall always use the Anti-Virus software on a fdisk; I will not give my home address or telephone number, or arrange to meet someone, unless my

 parent, carer or teacher has given permission; I will report any unpleasant material or messages sent to me. I 



understand this report would be confidential and would help 

protect other students and myself; I understand that the school may check my computer files and may monitor the 



Internet sites I visit, and that the use of the computer

 systems without permission or for a purpose not agreed by the school could constitute a criminal offence under the 

Computer Misuse Act 1990",20,60,230,180)

$TextBox.MultiLine =true

$TextBox.Scrollbars = 2



$Label1.Fontsize = 10

$Label1.Forecolor = "yellow"



$Image = $Form.Image("\\curricsvr1\netlogon\kings.bmp",320,20,114,113)





$Button1 = $Form.Button("Yes I agree",160,270,90,40)

$Button1.onClick = "Button1_Click()"





$Button2 = $Form.Button("No I dont agree",20,270,90,40)

$Button2.onClick = "Button2_Click()"



$Form.Center

$Form.Show







While $Form.visible

  $ = Execute($Form.DoEvents)

Loop



Function Button1_Click()

; Run "want to insert the correct path for iexplore using a var.. Im sure theres on for program files.....

EndFunction



Function Button2_Click()

$Form = "Nothing"

EndFunction  

$ie=READVALUE('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE','')
RUN $ie+' http://www.microsoft.com'