Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Inputbox abbrechen mit wsh

Mitglied: m0nstar

m0nstar (Level 1) - Jetzt verbinden

21.07.2009, aktualisiert 14:58 Uhr, 5867 Aufrufe, 7 Kommentare

Hallo,

ich versuche die ganze zeit, das wenn der user auf Abbrechen klickt das es auch schließt und bei keiner Eingabe das der Vorgang wiederholt wird. Hätte da einer eine Idee??

Das wäre meine Inputbox,

01.
	rechnernummer = CStr(InputBox("Rechnernummer bitte ohne Domain eingeben:" & Chr(13) & CHr(13) & "", msgTitel, "Rechnername eingeben (ohne Backlashe)")) 
02.
 
03.
	if rechnernummer = cancel Then 
04.
		wscript.quit 
05.
	End if 
06.
 
07.
	if rechnernummer = "" Then 
08.
		MsgBox "Sie haben leider keine Rechnernummer eingegeben."& Chr(13) & CHr(13) &"Klicken Sie auf - OK - und wiederholen Sie diesen Vorgang!",,msgTitel 
09.
		rechnernummer = CStr(InputBox("Rechnernummer bitte ohne Domain eingeben:" & Chr(13) & CHr(13) & "", msgTitel, "Rechnername eingeben (ohne Backlashe)")) 
10.
	End if 
11.
 
Würde mich sehr über eine weitere Hilfe freuen.

Gruß,
m0nstar
Mitglied: 76109
21.07.2009 um 18:23 Uhr
Hallo m0nstar!

Wenn in der Input-Box Abbrechen oder Schließen betätigt wird oder Leer und OK, dann gibt die Input-Box einen Leerstring zurück ("").

Gruß Dieter
Bitte warten ..
Mitglied: bastla
21.07.2009 um 21:32 Uhr
Hallo m0nstar!

Wie didi1954 schon erklärt hat, lässt sich nicht unterscheiden, ob "Abbrechen" gewählt oder einfach ein Leerstring eingegeben wurde - um allerdings ein irrtümliches "Enter" bzw einem vorzeitigen Klick auf "OK" zu erkennen, kannst Du einfach der InputBox einen Defaultwert mitgeben (was Du ja offensichtlich ohnehin vorhattest) und die Eingabe darauf hin untersuchen, also etwa:
01.
Default = "Rechnername eingeben (ohne Backlashes)" 
02.
Do 
03.
    OK = True 
04.
     
05.
    rechnernummer = InputBox("Rechnernummer bitte ohne Domain eingeben:" & Chr(13) & CHr(13), msgTitel, Default) 
06.
 
07.
    if rechnernummer = "" Then 
08.
	    wscript.quit 
09.
    End if 
10.
 
11.
    if InStr(rechnernummer, Default) > 0 Then 
12.
	    MsgBox "Sie haben leider keine Rechnernummer eingegeben."& Chr(13) & CHr(13) &"Klicken Sie auf - OK - und wiederholen Sie diesen Vorgang!",,msgTitel 
13.
        OK = False 
14.
    End if 
15.
     
16.
Loop Until OK 
17.
WScript.Echo rechnernummer
Die Konstruktion mit dem Schalter "OK" erlaubt Dir, ggf noch weitere Ausschlussbedingungen zu formulieren (dann jeweils wieder "OK" auf "False" setzen - "True" darf nur am Beginn der Schleife vergeben werden).

Grüße
bastla
Bitte warten ..
Mitglied: bastla
22.07.2009 um 10:35 Uhr
Als Ergänzung (aufgrund der per PM gestellten Zusatzfrage, wie ein irrtümliches Beenden durch eine Rückfrage verhindert werden kann):

Ersetze die Zeilen 7 bis 9 durch
01.
if rechnernummer = "" Then 
02.
    OK = False 
03.
    Answer = MsgBox("Wollen Sie wirklich das Programm beenden?", VbYesNo, "Programm beenden?") 
04.
    if not Answer = vbNo Then wscript.quit 
05.
End if
Hier wird die MsgBox als Function verwendet und liefert daher einen Rückgabewert, der ausgewertet werden kann. Wenn "Nein" gewählt wurde, sorgt der oben schon erwähnte Schalter "OK" dafür, dass die Eingabe wiederholt werden kann.

Grüße
bastla
Bitte warten ..
Mitglied: 76109
22.07.2009 um 11:11 Uhr
Hallo bastla!

Zitat von bastla:
Als Ergänzung (aufgrund der per PM gestellten Zusatzfrage, wie
ein irrtümliches Beenden durch eine Rückfrage verhindert
werden kann):
Dann doch eher die andere Variante?

Wenn Str = Vorgabe-Str, Dann MsgBox, Sonst abbrechen

Ich persönlich bin ziemlich genervt , wenn ich z.B. auf Abbrechen oder Schließen klicke und dann nochmal gefragt werde, ob ich denn nun auch wirklich abbrechen möchte

Aber, das ist wohl Ansichtssache!

Dein Urlaub war aber kurz

Gruß Dieter
Bitte warten ..
Mitglied: bastla
22.07.2009 um 11:20 Uhr
@76109
Ich persönlich bin ziemlich genervt , wenn ich z.B. auf Abbrechen oder Schließen klicke und dann nochmal gefragt werde, ob ich denn nun auch wirklich abbrechen möchte
Da bin ich völlig bei Dir (Rückfragen der Art "Wollen Sie tatsächlich dieses Super-Duper-Über-Drüber-Programm ohne Angabe eines Entschuldigungsgrundes jetzt schon beenden?" stören mich auch sehr) - war aber so gewünscht ...

Dein Urlaub war aber kurz
'Tschuldigung, dass ich schon wieder da bin ...

Grüße
bastla
Bitte warten ..
Mitglied: 76109
22.07.2009 um 11:28 Uhr
Zitat von bastla:
'Tschuldigung, dass ich schon wieder da bin ...
Dafür musst Du Dich doch nicht entschuldigen

Einige Mitglieder haben Dich schon vermisst und ich freue mich auch, dass Du wieder da bist.

Gruß Dieter

PS
Bitte warten ..
Mitglied: bastla
22.07.2009 um 11:33 Uhr
Einige Mietglieder haben Dich schon vermisst
Biber würde da vermutlich eine Schweinerei herauslesen (oder zumindest nach dem Vermieter fragen) ...

... aber ich freu' mich einfach mit ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Bei INSERT Fehler abbrechen
Frage von newit1Batch & Shell8 Kommentare

Hallo zusammen, ich habe ein kleines Problem. Das unterstehende Skript importiert eine CSV Datei in eine Datenbank. Den Aufbau ...

Webbrowser

Internet Explorer 11 Öffnen Speichern Abbrechen abschalten

Frage von Randy99Webbrowser

Im Internet Explorer 11 (Version 11.0.28) in Windows 7 (Version 6.1.7601) wird bei einem Klick auf einen Link eine ...

Windows Server

Windows Server 2016 Essentials Konfigurationsassistent abbrechen

Frage von derBadnerWindows Server1 Kommentar

Hallo zusammen, ich habe einen neuen Windows Server 2016 Essentials Server erhalten. Nach dem ersten Start erschien der Wizzard ...

Microsoft

Server wird sich in 15 min neustarten wg. Updates - wie lässt sich das abbrechen? Windows Server 2012 R2

gelöst Frage von thomasreischerMicrosoft5 Kommentare

Guten Morgen, mein server hat gerade die meldung ausgespuckt, dass er sich in 15 min neustarten wird. Wie kann ...

Neue Wissensbeiträge
iOS
IOS 11.2.6 verfügbar
Information von sabines vor 2 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 17 StundenSicherheit1 Kommentar

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 1 TagErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Heiß diskutierte Inhalte
Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server38 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1028 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgbornMicrosoft17 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless15 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...