#177081 - 2007-06-20 08:25 AM
Re: Again AUP
[Re: Saleem]
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11623
Loc: CA
|
If you have Web Developers just create a mini Website that will contain the information and log from input forms.
Even more elaborate methods are possible, just depends on the resources you have available to you and the time frame.
You can create interactive training pages with programs like Adobe Captivate or Camtasia
http://www.adobe.com/products/captivate/
http://www.techsmith.com/camtasia.asp
You could also create your own from within Flash Professional if you have someone to do it.
That way it's not so dull and drab and users still have to sign that they've attended/seen/read the material.
|
Top
|
|
|
|
#177110 - 2007-06-21 08:39 AM
Re: Again AUP
[Re: NTDOC]
|
Saleem
Hey THIS is FUN
Registered: 2001-04-11
Posts: 280
Loc: UAE
|
I have done some exercise:
I know it can be done better
please review this code and suggest me
Break on
Color C/N
Box(0, 0, 24, 79, GRID)
Color g/N
Box(2, 20, 20, 59, FULL)
Box(2, 20, 4, 59, FULL)
Color Y+/N
At(3, 29) "WELCOME TO ABC NETWORK"
At(6, 21) "The following box will show ABC AUP"
At(8, 21) " Please read carefully and accept"
At(10, 21) "Please press OK Button after you read"
At(12, 21) "For further queries call Help desk. "
Color W+/N
At (18,25) "Press any key to continue....."
Get $x ? " "
CLS
$msg1="ABC PASSWORD POLICY @CRLF"
$msg2="@CRLF"
$msg3="Password has to be minimum 6 charecters @CRLF"
$msg4="Password has to be compbination of number and alphebets @CRLF"
$msg5="ABC E-MAIL POLICY @CRLF"
$msg6="@CRLF"
$msg7="Email has to be Business purpose @CRLF"
$msg8="Email box size has to be not more than 5 mb @CRLF"
$msg9="ABC INTERNET POLICY @CRLF"
$msg10="@CRLF"
$ms11="Internet has to be Business purpose @CRLF"
$ms12="Internet usage need to be restricted @CRLF"
;$pol1=ReadProfileString ("d:\kix\aup_files\@USERID.ini","Pol ID", "@USERID agreed pol1")
If Exist ("D:\kix\aup_files\@USERID.ini")=0
$Selection = MessageBox($msg1+$msg2+$msg3+$msg4,"ABC AUP",0)
? $Selection
If $Selection = 1
WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 1", "agreed pol1")
EndIf
Else
$pol1=ReadProfileString ("d:\kix\aup_files\@USERID.ini","Pol ID","Agreement 1")
If ($pol1="agreed pol1")
$Selection = MessageBox($msg5+$msg6+$msg7+$msg8,"ABC AUP",0)
? $Selection
If $Selection = 1
WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 2", "agreed pol2")
EndIf
EndIf
$pol2=ReadProfileString ("d:\kix\aup_files\@USERID.ini","Pol ID","Agreement 2")
If ($pol2="agreed pol2")
$Selection = MessageBox($msg9+$msg10+$msg11+$msg12,"ABC AUP",0)
? $Selection
If $Selection = 1
WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 3", "agreed pol3")
EndIf
EndIf
EndIf
Please let me know how ca I make it work suppose I have 10 policies
_________________________
“I’ll not change you unless you don’t have intention to change yourself”
--H:Quran
|
Top
|
|
|
|
#177122 - 2007-06-21 12:36 PM
Re: Again AUP
[Re: Saleem]
|
Saleem
Hey THIS is FUN
Registered: 2001-04-11
Posts: 280
Loc: UAE
|
Time being please help me to correct this code
Please tell me how can I add more policies here For Exa:-
when a user logs logs on first time should show first policy second time only second policy third time third one forth time skip all and continue with the rest of the script please see the below code, it works fine for first time attempt and failing for second and third time
If Exist ("D:\kix\aup_files\@USERID.ini")=0 $Selection = MessageBox($msg1+$msg2+$msg3+$msg4,"ABC AUP",0) If $Selection = 1 WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 1", "agreed pol1") EndIf EndIf $pol1=ReadProfileString ("d:\kix\aup_files\@USERID.ini","Pol ID","Agreement 1") $pol2=ReadProfileString ("d:\kix\aup_files\@USERID.ini","Pol ID","Agreement 2") $pol3=ReadProfileString ("d:\kix\aup_files\@USERID.ini","Pol ID","Agreement 3") If ($pol1="agreed pol1") $Selection = MessageBox($msg5+$msg6+$msg7+$msg8,"ABC AUP",0) If $Selection = 1 WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 2", "agreed pol2") EndIf EndIf
If ($pol2="agreed pol2") $Selection = MessageBox($msg9+$msg10+$msg11+$msg12,"ABC AUP",0) If $Selection = 1 WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 3", "agreed pol3") EndIf EndIf
Please help...
_________________________
“I’ll not change you unless you don’t have intention to change yourself”
--H:Quran
|
Top
|
|
|
|
#177123 - 2007-06-21 01:46 PM
Re: Again AUP
[Re: Saleem]
|
DrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
|
because of the 4 x please in your post, I just felt obliged to help
$inifile = "d:\kix\aup_files\@USERID.ini"
Select
Case ReadProfileString($inifile,"Pol ID","Agreement 1") <> "agreed pol1"
$Selection = MessageBox($msg1+$msg2+$msg3+$msg4,"ABC AUP1",324)
If $Selection = 6
$nul = WriteProfileString($inifile,"Pol ID", "Agreement 1", "agreed pol1")
EndIf
Case ReadProfileString($inifile,"Pol ID","Agreement 2") <> "agreed pol2"
$Selection = MessageBox($msg5+$msg6+$msg7+$msg8,"ABC AUP2",324)
If $Selection = 6
$nul = WriteProfileString($inifile,"Pol ID", "Agreement 2", "agreed pol2")
EndIf
Case ReadProfileString($inifile,"Pol ID","Agreement 3") <> "agreed pol3"
$Selection = MessageBox($msg9+$msg10+$msg11+$msg12,"ABC AUP3",324)
If $Selection = 6
$nul = WriteProfileString($inifile,"Pol ID", "Agreement 3", "agreed pol3")
EndIf
EndSelect
_________________________
The Code is out there
|
Top
|
|
|
|
#177136 - 2007-06-21 06:59 PM
Re: Again AUP
[Re: Saleem]
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11623
Loc: CA
|
Well since The Sarge coded for you there - you should be in good hands
|
Top
|
|
|
|
#177216 - 2007-06-25 10:59 AM
Re: Again AUP
[Re: Saleem]
|
Saleem
Hey THIS is FUN
Registered: 2001-04-11
Posts: 280
Loc: UAE
|
This is my first KiX forms script
Please let me know how to make it more attractive with those soft touchings……
Break On
$msg1="Password has to be minimum 6 characters @CRLF"
$msg2="Password has to be combination of number and alphabets @CRLF"
$msg3="E-Mail has to be Business Usage @CRLF"
$msg4="Mail box size should not exceed more than 5 mb @CRLF"
$msg5="Internet has to be Business purpose @CRLF"
$msg6="Internet usage need to be restricted @CRLF"
$System = CreateObject("Kixtart.System")
$form1 = $System.Form();
$button1 = $form1.Controls.Button ()
$button2 = $form1.Controls.Button ()
$button1.Text = "OK";
$button1.Location = $System.Point (10, 400)
$button2.Text = "Cancel";
$button2.Location = $System.Point (500, 400)
$button1.DialogResult = $System.DialogResult.OK
$button2.DialogResult = $System.DialogResult.Cancel
$form1.Text = "Abu Dhabi Islamic Bank AUP"
$form1.FormBorderStyle = $System.FormBorderStyle.FixedDialog
$form1.StartPosition = $system.formStartPosition.centerScreen
$Form1.Width = 680
$Form1.bottom = 700
If Exist ("D:\kix\aup_files\@USERID.ini")=0
$label1 = $form1.label("ABC Password Policy")
$label1.FontSize=20
$label1.Left = 200
$label1.width = $form1.scalewidth-$label1.Left-90
$label1.height = 50
$label2 = $form1.label($msg1)
$label2.FontSize=15
$label2.location = 5,50
$label2.width = 680
$label3 = $form1.label($msg2)
$label3.FontSize=15
$label3.location = 5,80
$label3.width = 680
$button1.default = true
$button2.cancel = true
$= $form1.ShowDialog()
If ($form1.DialogResult = $System.DialogResult.OK)
$= $System.MessageBox.Show("AUP Agreed")
$=WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 1", "@Userid agreed pol1")
Else
$= $System.MessageBox.Show("AUP Declined");
EndIf
Gosub end
EndIf
If ReadProfileString("d:\kix\aup_files\@USERID.ini","Pol ID","Agreement 2") <> "@Userid agreed pol2"
$label1 = $form1.label("ABC E-Mail Policy")
$label1.FontSize=20
$label1.Left = 200
$label1.width = $form1.scalewidth-$label1.Left-90
$label1.height = 50
$label2 = $form1.label($msg3)
$label2.FontSize=15
$label2.location = 5,50
$label2.width = 680
$label3 = $form1.label($msg4)
$label3.FontSize=15
$label3.location = 5,80
$label3.width = 680
$button1.default = true
$button2.cancel = true
$= $form1.ShowDialog()
If ($form1.DialogResult = $System.DialogResult.OK)
$= $System.MessageBox.Show("AUP Agreed")
$=WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 2", "@Userid agreed pol2")
Else
$= $System.MessageBox.Show("AUP Declined");
EndIf
Gosub end
EndIf
If ReadProfileString("d:\kix\aup_files\@USERID.ini","Pol ID","Agreement 3") <> "@Userid agreed pol3"
$label1 = $form1.label("ABC Internet Policy")
$label1.FontSize=20
$label1.Left = 200
$label1.width = $form1.scalewidth-$label1.Left-90
$label1.height = 50
$label2 = $form1.label($msg5)
$label2.FontSize=15
$label2.location = 5,50
$label2.width = 680
$label3 = $form1.label($msg6)
$label3.FontSize=15
$label3.location = 5,80
$label3.width = 680
$button1.default = true
$button2.cancel = true
$= $form1.ShowDialog()
If ($form1.DialogResult = $System.DialogResult.OK)
$= $System.MessageBox.Show("AUP Agreed")
$=WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 3", "@Userid agreed pol3")
Else
$= $System.MessageBox.Show("AUP Declined");
EndIf
Gosub end
EndIf
:end
Exit
_________________________
“I’ll not change you unless you don’t have intention to change yourself”
--H:Quran
|
Top
|
|
|
|
#177274 - 2007-06-27 08:39 AM
Re: Again AUP
[Re: Saleem]
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11623
Loc: CA
|
Probably have to wait a few hours for some of the other members that are good with KiXforms to come online. I only dabble with it
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 507 anonymous users online.
|
|
|