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

Frage Entwicklung VB for Applications

Mitglied: m0nstar

m0nstar (Level 1) - Jetzt verbinden

21.07.2009, aktualisiert 14:58 Uhr, 5853 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
Windows 7
Sysprep unattended abbrechen
gelöst Frage von mc-doubleyouWindows 72 Kommentare

Hallo zusammen, ich hoffe es kann mir jemand helfen, hab einen schweren Fehler gemacht - leider Also wir benötigen ...

Batch & Shell
VBS, Powershell,WSH oder doch noch CMD ???
gelöst Frage von Viper-BerlinBatch & Shell2 Kommentare

Servus Leute, hätte eine Frage ich hab bis jetzt CMD Skripte geschrieben und die Syntax ist eine Katastrophe genau ...

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 ...

Neue Wissensbeiträge
MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 5 StundenMikroTik RouterOS4 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 5 StundenSicherheit

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Administrator.de Feedback

Entwicklertagebuch: Die Startseite wurde überarbeitet

Information von admtech vor 8 StundenAdministrator.de Feedback9 Kommentare

Hallo Administrator User, mit dem Release 5.7 haben wir unsere Startseite überarbeitet und die Beiträge und Fragen voneinander getrennt. ...

Vmware

VMware Desktopprodukte sind verwundbar

Information von Penny.Cilin vor 13 StundenVmware

Die VMware-Anwendungen zum Umgang mit virtuellen Maschinen Fusion, Horizon Client und Workstation sowie die Plattform NSX sind verwundbar. Davon ...

Heiß diskutierte Inhalte
Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail
Frage von ahstaxVisual Studio24 Kommentare

Hallo, ich möchte gerne ein vb.net-Tool schreiben, das am Ende eine Outlook-E-Mail erzeugt. Grundsätzlich ist mir klar, wie das ...

Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server16 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows Netzwerk
Netzwerk Neustrukturierung
Frage von IT-DreamerWindows Netzwerk16 Kommentare

Hallo verehrte Community und Admins, bei uns im Haus steht eine Neustrukturierung an. Dafür benötige ich von euch ein ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...