Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 5807 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 ..
Neuester Wissensbeitrag
Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (32)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...