create a hidden character in edit box???

shocam · Post by **shocam** » Mon Feb 12, 2007 6:27 pm

Hi, I have a dilema.

I have created a username/password script and utilised the some script off this forum to enable me to grey out the boxes when the user is in read only mode. I dont really understand how the bit of script works, however, I know that it is causing me a headache!!

My script uses the username and password as the variable for filliing out the edit boxes (after reading the encrypted file). The user has a choice of upto 20 username/passwords to enter. The problem is that if they put any entries the same, the greyed out box doesnt work coz that bit of script gets confued with which variable it is talking to......is there any way to add a hidden character if it sees a match?

If it helps I can add the script to here (it is quite big though!)

cheers for any help

pgriffin · Post by **pgriffin** » Tue Feb 13, 2007 12:19 am

Not sure just how large your script is, but you should probably post it. It is not clear to me exactly what you are trying to do. "the user can choose from 20 user/passwords"... so the users aren't entering their OWN usernames and passwords?

Where does this script fit into the total solution you have.

shocam · Post by **shocam** » Wed Feb 14, 2007 9:18 pm

thought this all sounded a bit vague!! the script is below....

Code: Select all

VBSTART
VBEND
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//                                 Set all the variables at this point
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////


Let>User_File=U:\userfile.ini
Let>vlist=PADs%CRLF%IS Ticksheet%CRLF%VAS%CRLF%User Defined
Let>rList=Read Only%CRLF%Write
// Change maxcount to be 1 more than the number of user defined applications
Let>maxcount=21

Dialog>MainMenu
   Caption=Dialog5
   Width=445
   Height=250
   Top=104
   Left=16
   ComboBox=msComboBox1,136,56,145,vlist
   Button=Go,112,144,75,25,1
   Button=Exit,240,144,75,25,2
EndDialog>MainMenu



Label>startmenu
show>MainMenu,r

label>showloop
    If>r=1,setpage
    If>r=2,bombout
goto>showloop

Label>setpage
Let>page_choice=%MainMenu.msComboBox1%
//MDL>you chose %page_choice%

If>%page_choice%=PADs,PADsPage
If>%page_choice%=IS Ticksheet,ISPage
If>%page_choice%=VAS,VASPage
If>%page_choice%=User Defined,UserPage


Label>PADsPage
Let>Details=PADs
Goto>AllMenus

Label>ISPage
Let>Details=IS
Goto>AllMenus

Label>VASPage
Let>Details=VAS
Goto>AllMenus

Label>UserPage
Let>Details=UserDefined
Goto>AllMenus


Label>AllMenus

Let>Version=(v2.0)
Let>encryptionkey1=4837
Let>count=1
Let>VAREXPLICIT=0

IfFileExists>%User_File%
Let>add_on=.
  Label>read_file
  If>count=%maxcount%,dialog_box
   Let>read_details=UserDef%count%

   ReadIniFile>%User_File%,%Details%,%read_details%_Application,state
//   VBEval>Unescape("%state%"),state
   Crypt>%encryptionkey1%,state,%read_details%_Adecrypted
   Let>%read_details%_App=%read_details%_Adecrypted
   If>%read_details%_App=
   Let>%read_details%_App=**%count%app**
   EndIf

   ReadIniFile>%User_File%,%Details%,%read_details%_Username,state
//   VBEval>Unescape("%state%"),state
   Crypt>%encryptionkey1%,state,%read_details%_Udecrypted
   Let>%read_details%_User=%read_details%_Udecrypted
   If>%read_details%_User=
   Let>%read_details%_User=**%count%user**
   EndIf

   ReadIniFile>%User_File%,%Details%,%read_details%_Password,state
//   VBEval>Unescape("%state%"),state
   Crypt>%encryptionkey1%,state,%read_details%_Pdecrypted
   Let>%read_details%_Pass=%read_details%_Pdecrypted
   If>%read_details%_Pass=
   Let>%read_details%_Pass=**%count%pass**
   EndIf
   
   If>%read_details%_App=%read_details%_User
   Let>add_in=%read_details%_App
   Concat>%add_in%,%add_on%
   Let>%read_details%_App=%add_in%
   EndIf
   
   If>%read_details%_App=%read_details%_Pass
   Let>add_in=%read_details%_App
   Concat>%add_in%,%add_on%
   Let>%read_details%_App=%add_in%
   EndIf
   
   If>%read_details%_User=%read_details%_Pass
   Let>add_in=%read_details%_User
   Concat>%add_in%,%add_on%
   Let>%read_details%_User=%add_in%
   EndIf
   
   
   let>count=count+1
   Goto>read_file
  EndIf


  Label>dialog_box
//Label>AllMenus
Dialog>UpdateMenu
   Caption=Modify Info
   Width=679
   Height=961
   Top=0
   Left=275
   Label=%Version%,0,914,true
   Label=APPLICATION,160,96,true
   Label=USERNAME,296,96,true
   Label=PASSWORD,440,96,true

   Edit=msEdit1,136,128,121,%UserDef1_App%
   Edit=msEdit2,272,128,121,%UserDef1_User%
   Edit=msEdit3,416,128,121,%UserDef1_Pass%

   Edit=msEdit4,136,160,121,%UserDef2_App%
   Edit=msEdit5,272,160,121,%UserDef2_User%
   Edit=msEdit6,416,160,121,%UserDef2_Pass%

   Edit=msEdit7,136,192,121,%UserDef3_App%
   Edit=msEdit8,272,192,121,%UserDef3_User%
   Edit=msEdit9,416,192,121,%UserDef3_Pass%

   Edit=msEdit10,136,224,121,%UserDef4_App%
   Edit=msEdit11,272,224,121,%UserDef4_User%
   Edit=msEdit12,416,224,121,%UserDef4_Pass%

   Edit=msEdit13,136,256,121,%UserDef5_App%
   Edit=msEdit14,272,256,121,%UserDef5_User%
   Edit=msEdit15,416,256,121,%UserDef5_Pass%

   Edit=msEdit16,136,288,121,%UserDef6_App%
   Edit=msEdit17,272,288,121,%UserDef6_User%
   Edit=msEdit18,416,288,121,%UserDef6_Pass%

   Edit=msEdit19,136,320,121,%UserDef7_App%
   Edit=msEdit20,272,320,121,%UserDef7_User%
   Edit=msEdit21,416,320,121,%UserDef7_Pass%

   Edit=msEdit22,136,352,121,%UserDef8_App%
   Edit=msEdit23,272,352,121,%UserDef8_User%
   Edit=msEdit24,416,352,121,%UserDef8_Pass%

   Edit=msEdit25,136,384,121,%UserDef9_App%
   Edit=msEdit26,272,384,121,%UserDef9_User%
   Edit=msEdit27,416,384,121,%UserDef9_Pass%

   Edit=msEdit28,136,416,121,%UserDef10_App%
   Edit=msEdit29,272,416,121,%UserDef10_User%
   Edit=msEdit30,416,416,121,%UserDef10_Pass%

   Edit=msEdit31,136,448,121,%UserDef11_App%
   Edit=msEdit32,272,448,121,%UserDef11_User%
   Edit=msEdit33,416,448,121,%UserDef11_Pass%

   Edit=msEdit34,136,480,121,%UserDef12_App%
   Edit=msEdit35,272,480,121,%UserDef12_User%
   Edit=msEdit36,416,480,121,%UserDef12_Pass%

   Edit=msEdit37,136,512,121,%UserDef13_App%
   Edit=msEdit38,272,512,121,%UserDef13_User%
   Edit=msEdit39,416,512,121,%UserDef13_Pass%

   Edit=msEdit40,136,544,121,%UserDef14_App%
   Edit=msEdit41,272,544,121,%UserDef14_User%
   Edit=msEdit42,416,544,121,%UserDef14_Pass%

   Edit=msEdit43,136,576,121,%UserDef15_App%
   Edit=msEdit44,272,576,121,%UserDef15_User%
   Edit=msEdit45,416,576,121,%UserDef15_Pass%

   Edit=msEdit46,136,608,121,%UserDef16_App%
   Edit=msEdit47,272,608,121,%UserDef16_User%
   Edit=msEdit48,416,608,121,%UserDef16_Pass%

   Edit=msEdit49,136,640,121,%UserDef17_App%
   Edit=msEdit50,272,640,121,%UserDef17_User%
   Edit=msEdit51,416,640,121,%UserDef17_Pass%

   Edit=msEdit52,136,672,121,%UserDef18_App%
   Edit=msEdit53,272,672,121,%UserDef18_User%
   Edit=msEdit54,416,672,121,%UserDef18_Pass%

   Edit=msEdit55,136,704,121,%UserDef19_App%
   Edit=msEdit56,272,704,121,%UserDef19_User%
   Edit=msEdit57,416,704,121,%UserDef19_Pass%

   Edit=msEdit58,136,736,121,%UserDef20_App%
   Edit=msEdit59,272,736,121,%UserDef20_User%
   Edit=msEdit60,416,736,121,%UserDef20_Pass%

   RadioGroup=msRadioGroup1,,264,776,137,49,rList,Read Only
   Button=Save,216,846,81,33,98
   Button=Exit,368,846,81,33,99
EndDialog>UpdateMenu




/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//                                Dont change anything after this point
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////


/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//                                 Check for .ini file, if not, makes it and hides it
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    Label>UpdateInfo
//	Show>UpdateMenu,upresult


	Show>UpdateMenu
//	If>result=1,checkfile
//    If>result=2,quit
	//Get Handle of filename Edit Box
LibFunc>User32,FindWindowA,dlgHwnd,TForm,Modify Info
LibFunc>User32,FindWindowExA,edit1Hwnd,dlgHwnd,0,TEdit,UserDef1_App
LibFunc>User32,FindWindowExA,edit2Hwnd,dlgHwnd,0,TEdit,UserDef1_User
LibFunc>User32,FindWindowExA,edit3Hwnd,dlgHwnd,0,TEdit,UserDef1_Pass

LibFunc>User32,FindWindowExA,edit4Hwnd,dlgHwnd,0,TEdit,UserDef2_App
LibFunc>User32,FindWindowExA,edit5Hwnd,dlgHwnd,0,TEdit,UserDef2_User
LibFunc>User32,FindWindowExA,edit6Hwnd,dlgHwnd,0,TEdit,UserDef2_Pass

LibFunc>User32,FindWindowExA,edit7Hwnd,dlgHwnd,0,TEdit,UserDef3_App
LibFunc>User32,FindWindowExA,edit8Hwnd,dlgHwnd,0,TEdit,UserDef3_User
LibFunc>User32,FindWindowExA,edit9Hwnd,dlgHwnd,0,TEdit,UserDef3_Pass

LibFunc>User32,FindWindowExA,edit10Hwnd,dlgHwnd,0,TEdit,UserDef4_App
LibFunc>User32,FindWindowExA,edit11Hwnd,dlgHwnd,0,TEdit,UserDef4_User
LibFunc>User32,FindWindowExA,edit12Hwnd,dlgHwnd,0,TEdit,UserDef4_Pass

LibFunc>User32,FindWindowExA,edit13Hwnd,dlgHwnd,0,TEdit,UserDef5_App
LibFunc>User32,FindWindowExA,edit14Hwnd,dlgHwnd,0,TEdit,UserDef5_User
LibFunc>User32,FindWindowExA,edit15Hwnd,dlgHwnd,0,TEdit,UserDef5_Pass

LibFunc>User32,FindWindowExA,edit16Hwnd,dlgHwnd,0,TEdit,UserDef6_App
LibFunc>User32,FindWindowExA,edit17Hwnd,dlgHwnd,0,TEdit,UserDef6_User
LibFunc>User32,FindWindowExA,edit18Hwnd,dlgHwnd,0,TEdit,UserDef6_Pass

LibFunc>User32,FindWindowExA,edit19Hwnd,dlgHwnd,0,TEdit,UserDef7_App
LibFunc>User32,FindWindowExA,edit20Hwnd,dlgHwnd,0,TEdit,UserDef7_User
LibFunc>User32,FindWindowExA,edit21Hwnd,dlgHwnd,0,TEdit,UserDef7_Pass

LibFunc>User32,FindWindowExA,edit22Hwnd,dlgHwnd,0,TEdit,UserDef8_App
LibFunc>User32,FindWindowExA,edit23Hwnd,dlgHwnd,0,TEdit,UserDef8_User
LibFunc>User32,FindWindowExA,edit24Hwnd,dlgHwnd,0,TEdit,UserDef8_Pass

LibFunc>User32,FindWindowExA,edit25Hwnd,dlgHwnd,0,TEdit,UserDef9_App
LibFunc>User32,FindWindowExA,edit26Hwnd,dlgHwnd,0,TEdit,UserDef9_User
LibFunc>User32,FindWindowExA,edit27Hwnd,dlgHwnd,0,TEdit,UserDef9_Pass

LibFunc>User32,FindWindowExA,edit28Hwnd,dlgHwnd,0,TEdit,UserDef10_App
LibFunc>User32,FindWindowExA,edit29Hwnd,dlgHwnd,0,TEdit,UserDef10_User
LibFunc>User32,FindWindowExA,edit30Hwnd,dlgHwnd,0,TEdit,UserDef10_Pass

LibFunc>User32,FindWindowExA,edit31Hwnd,dlgHwnd,0,TEdit,UserDef11_App
LibFunc>User32,FindWindowExA,edit32Hwnd,dlgHwnd,0,TEdit,UserDef11_User
LibFunc>User32,FindWindowExA,edit33Hwnd,dlgHwnd,0,TEdit,UserDef11_Pass

LibFunc>User32,FindWindowExA,edit34Hwnd,dlgHwnd,0,TEdit,UserDef12_App
LibFunc>User32,FindWindowExA,edit35Hwnd,dlgHwnd,0,TEdit,UserDef12_User
LibFunc>User32,FindWindowExA,edit36Hwnd,dlgHwnd,0,TEdit,UserDef12_Pass

LibFunc>User32,FindWindowExA,edit37Hwnd,dlgHwnd,0,TEdit,UserDef13_App
LibFunc>User32,FindWindowExA,edit38Hwnd,dlgHwnd,0,TEdit,UserDef13_User
LibFunc>User32,FindWindowExA,edit39Hwnd,dlgHwnd,0,TEdit,UserDef13_Pass

LibFunc>User32,FindWindowExA,edit40Hwnd,dlgHwnd,0,TEdit,UserDef14_App
LibFunc>User32,FindWindowExA,edit41Hwnd,dlgHwnd,0,TEdit,UserDef14_User
LibFunc>User32,FindWindowExA,edit42Hwnd,dlgHwnd,0,TEdit,UserDef14_Pass

LibFunc>User32,FindWindowExA,edit43Hwnd,dlgHwnd,0,TEdit,UserDef15_App
LibFunc>User32,FindWindowExA,edit44Hwnd,dlgHwnd,0,TEdit,UserDef15_User
LibFunc>User32,FindWindowExA,edit45Hwnd,dlgHwnd,0,TEdit,UserDef15_Pass

LibFunc>User32,FindWindowExA,edit46Hwnd,dlgHwnd,0,TEdit,UserDef16_App
LibFunc>User32,FindWindowExA,edit47Hwnd,dlgHwnd,0,TEdit,UserDef16_User
LibFunc>User32,FindWindowExA,edit48Hwnd,dlgHwnd,0,TEdit,UserDef16_Pass

LibFunc>User32,FindWindowExA,edit49Hwnd,dlgHwnd,0,TEdit,UserDef17_App
LibFunc>User32,FindWindowExA,edit50Hwnd,dlgHwnd,0,TEdit,UserDef17_User
LibFunc>User32,FindWindowExA,edit51Hwnd,dlgHwnd,0,TEdit,UserDef17_Pass

LibFunc>User32,FindWindowExA,edit52Hwnd,dlgHwnd,0,TEdit,UserDef18_App
LibFunc>User32,FindWindowExA,edit53Hwnd,dlgHwnd,0,TEdit,UserDef18_User
LibFunc>User32,FindWindowExA,edit54Hwnd,dlgHwnd,0,TEdit,UserDef18_Pass

LibFunc>User32,FindWindowExA,edit55Hwnd,dlgHwnd,0,TEdit,UserDef19_App
LibFunc>User32,FindWindowExA,edit56Hwnd,dlgHwnd,0,TEdit,UserDef19_User
LibFunc>User32,FindWindowExA,edit57Hwnd,dlgHwnd,0,TEdit,UserDef19_Pass

LibFunc>User32,FindWindowExA,edit58Hwnd,dlgHwnd,0,TEdit,UserDef20_App
LibFunc>User32,FindWindowExA,edit59Hwnd,dlgHwnd,0,TEdit,UserDef20_User
LibFunc>User32,FindWindowExA,edit60Hwnd,dlgHwnd,0,TEdit,UserDef20_Pass

LibFunc>User32,FindWindowExA,b2Hwnd,dlgHwnd,0,TBitBtn,Save

Label>updateloop
GDA>UpdateMenu,result

if>UpdateMenu.msRadioGroup1=Read Only
  //Disable Edit Box
  LibFunc>User32,EnableWindow,rEW,edit1Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit1Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit2Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit3Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit4Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit5Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit6Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit7Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit8Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit9Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit10Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit11Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit12Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit13Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit14Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit15Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit16Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit17Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit18Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit19Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit20Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit21Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit22Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit23Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit24Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit25Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit26Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit27Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit28Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit29Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit30Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit31Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit32Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit33Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit34Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit35Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit36Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit37Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit38Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit39Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit40Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit41Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit42Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit43Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit44Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit45Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit46Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit47Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit48Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit49Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit50Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit51Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit52Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit53Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit54Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit55Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit56Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit57Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit58Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit59Hwnd,0
  LibFunc>User32,EnableWindow,rEW,edit60Hwnd,0
  LibFunc>User32,ShowWindow,rEW,b2Hwnd,0
else
  //Enable Edit Box

    if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit1Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit1Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit2Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit3Hwnd,1

    if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit4Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit4Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit5Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit6Hwnd,1

    if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit7Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit7Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit8Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit9Hwnd,1

    if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit10Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit10Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit11Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit12Hwnd,1

    if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit13Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit13Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit14Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit15Hwnd,1

      if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit16Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit16Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit17Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit18Hwnd,1

      if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit19Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit19Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit20Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit21Hwnd,1

      if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit22Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit22Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit23Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit24Hwnd,1

      if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit25Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit25Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit26Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit27Hwnd,1

      if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit28Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit28Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit29Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit30Hwnd,1

      if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit31Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit31Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit32Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit33Hwnd,1

    if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit34Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit34Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit35Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit36Hwnd,1

    if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit37Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit37Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit38Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit39Hwnd,1

    if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit40Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit40Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit41Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit42Hwnd,1

    if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit43Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit43Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit44Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit45Hwnd,1

      if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit46Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit46Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit47Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit48Hwnd,1

      if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit49Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit49Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit50Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit51Hwnd,1

      if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit52Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit52Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit53Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit54Hwnd,1

      if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit55Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit55Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit56Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit57Hwnd,1

      if>%Details%=UserDefined
    LibFunc>User32,EnableWindow,rEW,edit58Hwnd,1
    Else
    LibFunc>User32,EnableWindow,rEW,edit58Hwnd,0
    EndIf
  LibFunc>User32,EnableWindow,rEW,edit59Hwnd,1
  LibFunc>User32,EnableWindow,rEW,edit60Hwnd,1

  LibFunc>User32,ShowWindow,rEW,b2Hwnd,1
endif

	If>result=98,checkfile
    If>result=99,quit
goto>updateloop


	Label>checkfile

    IfFileExists>%User_File%
      goto>update_file
    Else
      WriteLn>%User_File%,[%Details%]
      Let>RP_WINDOWMODE=0
      Run Program>cmd /c attrib +h %User_File%
      Let>RP_WINDOWMODE=1

    EndIf

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//									           Encrypting the info and save to file
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  Label>update_file

Dialog>Save_Data
   Caption=Please Wait - Saving data........
   Width=337
   Height=61
   Top=452
   Left=431
   ProgressBar=progressbar,41,8,250,10,0
EndDialog>Save_Data

Show>Save_Data
  Let>count=1
  Let>counta=1
  Let>countb=2
  Let>countc=3
  Let>countd=5

VBSTART
VBEND

  Label>refresh_loop
	Let>Save_Data.progressbar=%countd%
	RDA>Save_Data
  If>count=%maxcount%,quit

    Let>appcrypto=UserDef%count%
    Let>cryapp=%appcrypto%_Appcrypto
    Let>usercrypto=UserDef%count%
    Let>cryuser=%usercrypto%_Usercrypto
    Let>passcrypto=UserDef%count%
    Let>crypass=%passcrypto%_Passcrypto

    Crypt>%encryptionkey1%,UpdateMenu.msEdit%counta%,%appcrypto%_Appcrypto
    StringReplace>%appcrypto%_Appcrypto,","",rep_Appcrypto
//    VBEval>Escape("%rep_Appcrypto%"),%cryapp%
    EditIniFile>%User_File%,%Details%,%appcrypto%_Application,%appcrypto%_Appcrypto

    Crypt>%encryptionkey1%,UpdateMenu.msEdit%countb%,%usercrypto%_Usercrypto
    StringReplace>%usercrypto%_Usercrypto,","",rep_Usercrypto
//    VBEval>Escape("%rep_Usercrypto%"),%cryuser%
    EditIniFile>%User_File%,%Details%,%usercrypto%_Username,%usercrypto%_Usercrypto

    Crypt>%encryptionkey1%,UpdateMenu.msEdit%countc%,%passcrypto%_Passcrypto
    StringReplace>%passcrypto%_Passcrypto,","",rep_Passcrypto
//    VBEval>Escape("%rep_Passcrypto%"),%crypass%
    EditIniFile>%User_File%,%Details%,%passcrypto%_Password,%passcrypto%_Passcrypto

  Let>count=count+1
  Let>counta=counta+3
  Let>countb=countb+3
  Let>countc=countc+3
  Let>countd=countd+5
  Goto>refresh_loop

EndIf
Label>quit

Label>bombout

Hope thats not too big..........

thanks