#176008 - 2007-05-05 08:18 AM
Re: How to mimic Start > Run command?
[Re: pearly]
|
Witto
MM club member
   
Registered: 2004-09-29
Posts: 1828
Loc: Belgium
|
Maybe a way to silence the password input
;************************************************************************* ; Script Name: GetPassword ; Author: Wim Rotty ; Date: 5/05/2007 ; Description: Get screen input without displaying anything on the screen ;*************************************************************************
;Example
;If Not @LOGONMODE ; Break On ;Else ; Break Off ;EndIf ;DIM $RC ;$RC=SetOption("Explicit", "On") ;$RC=SetOption("NoMacrosInStrings", "On") ;$RC=SetOption("NoVarsInStrings", "On") ;$RC=SetOption("WrapAtEOL", "On") ; ;DIM $strSecret ;$strSecret = GetPassword() ;$strSecret ?
Function GetPassword() DIM $chrTemp Do Get $chrTemp Select ;ASCII value 8 = Backspace Case 8 = ASC($chrTemp) ;Whipe the last character $GetPassword = Left($GetPassword, Len($GetPassword)-1) ;Usable Characters start at ASCII value 32 Case ASC($chrTemp) > 31 ;Add character at the end $GetPassword = $GetPassword + $chrTemp EndSelect ;End if input was Enter, ASCII value 13 = Carriage Return Until 13 = ASC($chrTemp) Exit @ERROR EndFunction |
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 1077 anonymous users online.
|
|
|