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

Batch ausgabe in TextBox anzeigen lassen

Frage Entwicklung VB for Applications

Mitglied: superbios

superbios (Level 1) - Jetzt verbinden

06.08.2010 um 13:04 Uhr, 10935 Aufrufe, 14 Kommentare

Moin

Nunja... die überschrift sagt eigentlich schon alles....

Ich möchte von einer X belibigen batch die ausgaben in einer TextBox anzeigen lassen....


LG
Mitglied: bankaifan
06.08.2010 um 13:17 Uhr
Moin Superbios.

Einfach den Snippet unten verwenden. Ist aber keine "schöne" box.

01.
msg %username% Deine Ausgabe.
Das ist quasi eine Nachricht die sich der User selbst schickt. wenn du ne klassische Windowsmeldung willst nimm dieses VBScript und starte es von deiner Batch aus.

01.
Set WshShell = WScript.CreateObject("WScript.Shell")  
02.
WshShell.Popup "Deine Ausgabe",48,"Überschrift"
Da haste die typische Box.

Wenn du aber ne Variable ausgeben willst musst du mal fragen wie man variablen von Batch in VB übergibt.

Grüße
Bitte warten ..
Mitglied: bastla
06.08.2010 um 14:30 Uhr
Wenn du aber ne Variable ausgeben willst musst du mal fragen wie man variablen von Batch in VB übergibt.
... obwohl, so ein Geheimnis ist das dann ja auch wieder nicht :
01.
@echo off & setlocal 
02.
set "Ausgabe=Der Ausgabetext" 
03.
set "Titel=Der Fenstertitel" 
04.
 
05.
set M=%temp%\MBox.vbs 
06.
>%M% echo MsgBox WScript.Arguments(0),48,WScript.Arguments(1) 
07.
 
08.
cscript //nologo %M% "%Ausgabe%" "%Titel%" 
09.
cscript //nologo %M% "Geht auch ohne Variablen" "OV" 
10.
cscript //nologo %M% "... und mehrmals" "3. Box"
Anstelle des Wertes 48 dürfte es zB auch 64, 32 oder zur Not auch 16 sein ...

Grüße
bastla

P.S.: @bankaifan: Die "typische" Box wäre die "MsgBox" - die "PopUp"-Version wird vorrangig dazu verwendet, die Info nur für eine bestimmte Zeit anzuzeigen und dann das Script automatisch fortzusetzen ...
Bitte warten ..
Mitglied: schmitzi
06.08.2010 um 15:24 Uhr
oder so:

zB TEST.VBS -Datei erstellen mit Inhalt:

msgbox "Hallo ",0,"Wichtiger System-Hinweis:"

Diese VBS kannst Du dann mit "call test.vbs" aus Deiner batch aufrufen
Gruss
Ralf

[Edit Biber] Zum Vergleich mal die Zeile von oben in Codeformatierung.
01.
msgbox "Hallo :-)",0,"Wichtiger System-Hinweis:"  
[/Edit]
Bitte warten ..
Mitglied: bankaifan
06.08.2010 um 15:27 Uhr
Danke Bastla für die Aufklärung :D was bewirkt denn eigentlich das 64,48,32 usw.?

Und ja. VBS ist ned so mein Fachgebiet aber die Msgbox find ich hässlich xD
Bitte warten ..
Mitglied: superbios
06.08.2010 um 15:28 Uhr
Hallo, und danke für die zahlreichen antworten...

Ok... ich habe mich (wieder ein mal) unverständlich ausgedrückt...

In VB ( NICHT vbs!!!) eine Textbox...
Und in der sollen dann ausgaben einer batch stehen...
z.b. wenn jetzt in der batch ein echo befehl mit Hi ist, dann soll in der TB hi stehen

etc.
Bitte warten ..
Mitglied: bastla
06.08.2010 um 16:28 Uhr
Hallo bankaifan!
was bewirkt denn eigentlich das 64,48,32 usw.?
Einfach mal testen ...

Grüße
bastla
Bitte warten ..
Mitglied: bastla
06.08.2010 um 16:36 Uhr
Hallo superbios!

Du könntest versuchen, mit Deiner ungenannten VB-Version das "Shell.Exec" von VBScript zu verwenden / "nachzubauen" - ein Beispiel für die Verwendung findest Du im zweiten Script dieses "Scripting Guy"-Artikels ...

[Edit] Unter VB2005Express zB funktioniert
01.
Dim objShell = CreateObject("WScript.Shell") 
02.
Dim objExecObject = objShell.Exec _ 
03.
    ("D:\TestBatch.cmd") 
04.
Do While Not objExecObject.StdOut.AtEndOfStream 
05.
    TextBox1.Text = objExecObject.StdOut.ReadAll() 
06.
Loop
[/Edit]
Grüße
bastla
Bitte warten ..
Mitglied: superbios
06.08.2010 um 19:35 Uhr
Ich habe VirsualBasic 2010 Express.....
Bitte warten ..
Mitglied: bastla
06.08.2010 um 21:18 Uhr
Hallo superbios!
Ich habe VirsualBasic 2010 Express.....
... und beim Testen welchen Erfolg gehabt?

Grüße
bastla
Bitte warten ..
Mitglied: superbios
06.08.2010 um 21:21 Uhr
Nein, noch nicht probiert, ich installier mir gerade die Virsual Studio 2010 Ultimate Edition....
Bitte warten ..
Mitglied: superbios
06.08.2010 um 22:42 Uhr
Ok.. Funktioniert perfekt

Mein einziges problem noch:

Das werden längere scripts, die in manchen phasen länger brauchen...

Und die Text box ( ich hab ne RichTextBox verwendet) Bleit "oben" d.h. man muss von hand runterscrollen...
Bitte warten ..
Mitglied: bastla
06.08.2010 um 23:20 Uhr
Hallo superbios!

An das Ende des Textes solltest Du mit
RichTextBox1.SelectionStart = RichTextBox1.TextLength
kommen ...

Grüße
bastla
Bitte warten ..
Mitglied: superbios
13.08.2010 um 21:59 Uhr
Moin bastla

Alles so weit ok

Nur... es funktionieren leider keine defrag scripts ö.ä.

Win 7 64 bit....


LG;
superbios
Bitte warten ..
Mitglied: bastla
13.08.2010 um 22:03 Uhr
Hallo superbios!
Alles so weit ok
Freut mich

Nur... es funktionieren leider keine defrag scripts ö.ä.
Das dürfte allerdings ein ganz anderes Thema und damit einen neuen Thread wert sein ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Batch ausgabe zeilenweise stat spaltenweise ausgeben (4)

Frage von sugram zum Thema Batch & Shell ...

VB for Applications
gelöst VBA Textbox fokussieren und Daten über Button eintragen (1)

Frage von Aximand zum Thema VB for Applications ...

Outlook & Mail
Outlook 2010 Userprofile Foto anzeigen lassen (2)

Frage von staybb zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
gelöst Leiten "dumme" Switches VLAN-Tags mit durch? (26)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (16)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Router & Routing
FTTH bzw FTTB Router (13)

Frage von ukulele-7 zum Thema Router & Routing ...