Programmieren - alles kontrollieren 4.941 Themen, 20.715 Beiträge

Brauche Hilfe bei VB5

vb-anfänger / 4 Antworten / Baumansicht Nickles

1. Wie kann ich folgendes Programm so ändern, das beim Eingeben des richtigen Passwortes eine Internetseite aufgerufen wird?
2. Was muss ich ändern damit das Passwort als Sternchen angezeigt wird?

Nutze VB 5 Professional

Programm:

Private Sub Cmd_Ende_Click()
End
End Sub

Private Sub cmd_Prüfen_Click()
Const Passwort = "Test"
If UCase$(PW_Eingabe) = Passwort Then
MsgBox "Passwort ist richtig !", vbInformation
Else
MsgBox "Passwort ist falsch !", vbCritical
End If
End Sub

Private Sub Form_Load()
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
End Sub

bei Antwort benachrichtigen
T-Rex vb-anfänger „Brauche Hilfe bei VB5“
Optionen

Hi,

was ist denn PW_Eingabe? Ist das eine Textbox?

Nie "End" benutzen, um eine Anwendung zu beenden!
Wie beende ich meine Anwendung korrekt?

Eine beliebige Anwendung kannst Du mit ShellExecute starten:
Wie kann ich eine andere Anwendung starten?
Einfach die URL übergeben, die API startet dann den Standardbrowser mit dieser URL.

 GrüßeT-Rex 
bei Antwort benachrichtigen
vb-anfänger T-Rex „Hi, was ist denn PW_Eingabe? Ist das eine Textbox? Nie End benutzen, um eine...“
Optionen

PW_Eingabe ist eine Textbox

bei Antwort benachrichtigen
mr.escape vb-anfänger „Brauche Hilfe bei VB5“
Optionen

Das mit dem UCase$ solltest du noch mal überdenken, da ein funktionieren nur bei grossbuchstabigem "Passwort" funktioniert, bzw. dafür auch UCase$ verwenden!

If UCase$(PW_Eingabe) = UCase$(Passwort) Then

mr.escape

"The man who trades freedom for security does not deserve nor will he ever receive either." - Benjamin Franklin"Wer seine Freiheit aufgibt, um Sicherheit zu erreichen, wird beides verlieren." - Georg Christoph Lichtenberg
bei Antwort benachrichtigen
Uli M vb-anfänger „Brauche Hilfe bei VB5“
Optionen

Ergänzung zu den Postings der anderen:
zu 2: Verwende die PasswortChar-Eigenschaft des Steuerelements, z.B. = "*"

bei Antwort benachrichtigen