Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte Visual Basic 6. 
 2 
 zvoľte " Štandardné EXE " z nového zoznamu projektov . 
 3 
 prejdite na hornej lište , kliknite na " projekt " a potom kliknite na tlačidlo " Pridať modul . " To bude pridať štandardné modulu kódu do VB6 projekt 
 4 
 Zadajte alebo skopírujte a vložte nasledujúci kód do modulu : . 
 
 Sub VBPassword ( ) 
 
 Dim realpassword As String Dim 
 
 getpassword As String 
 
 realpassword = " password1 " 
 
 getpassword = InputBox ( " to , čo je heslo ? " ) 
 
 getpassword = realpassword Potom 
 
 MsgBox ( " správne heslo . " ) 
 
 Else 
 
 MsgBox ( " Zlé heslo , skúste to znova . " ) 
 
 End If 
 
 End Sub 
 5 
 Stlačte " F5 " pre spustenie programu . Získate vstupné okno s dotazom na heslo . Ak zadáte správne heslo , ktoré je " password1 , " okno so správou bude hovoriť " správne heslo . " Ak zadáte niečo iné ako password1 , získate okno s hlásením " Zlé heslo , skúste to znova . "