2016-03-24 14 views
-2

Ich brauche jedes, um seine eigene Message-Box zu knacken, wenn ich auf OK klicke, bewegt es sich zum nächsten und dann zum nächsten. Am Ende speichert es alles als Textdokument auf dem Desktop. Wird derzeit in einer .bat verwendet, aber wenn .vbs wäre einfacher oder besser sagen Sie mir bitte, welchen Code zu verwenden.Erstellen Sie msgbox beim Ausführen von Batch

Ich habe versucht, einschließlich msgbox, aber nicht sicher, wie Sie die verschiedenen Codes mit jeder Box einstellen. Ich habe versucht, Reverse-Engineer: Set WshShell = CreateObject ("WScript.Shell") MsgBox ConvertToKey (WshShell.RegRead ("HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ DigitalProductId") Aber kein solches Glück

+0

nicht die Gewohnheit, Menschen zu sagen * * „was Code zu verwenden“ wollen Sie nach, was Sie versucht haben, und versuchen Sie und helfen Ihnen zu einer Lösung selbst arbeiten – Lankymart

+0

Alle nützlichen Informationen, die sein sollte. [hinzugefügt zu] (http://stackoverflow.com/posts/36198750/edit) die erste Frage – Lankymart

+1

Duplikat von [Ein Popup/Meldungsfeld aus einer Windows-Stapeldatei anzeigen] (http://stackoverflow.com/q/ 774175/692942) – Lankymart

Antwort

2

Versuchen Sie wie auf diese Weise:

@echo off 
Set Title="Example of MsgBox by Hackoo" 
Set TmpFile=Tmp.txt 
Set LogFile=%UserProfile%\Desktop\result.txt 
(
    for /f "delims=" %%G in ('wmic csproduct get uuid') do (echo "%%G" & Call:MsgBox "%%G" ,vbInformation,%Title%) 
    for /f "delims=" %%G in ('wmic diskdrive get SerialNumber') do (echo "%%G" & Call:MsgBox "%%G" ,vbInformation,%Title%) 
    for /f "delims=" %%G in ('getmac') do (echo %%G & Call:MsgBox "%%G" ,vbInformation,%Title%) 
)>%TmpFile% 
Cmd /U /C Type %TmpFile% > %LogFile% 
Start "" %LogFile% 
Del %TmpFile% 
Exit /b 

:MsgBox <Message> <Buttons Type> <Title> 
Rem This function create a vbscript file %tmp%\Msg.vbs with 3 arguments and executes it 
Rem First argument is %1 ==> To show the message 
Rem Second argument is %2 ==> To choose the type of buttons 
Rem Third argument is %3 ==> To show the Title 
Rem Example how we can call this function : 
Rem Call :MsgBox "This an example from Hackoo to say Hello to ""stackoverflow.com"" ",vbInformation,%Title% 
Rem Call :MsgBox "This an example from Hackoo to show any kind of a Warning Message",vbExclamation,%Title% 
Rem Call :MsgBox "This an example from Hackoo to show any kind of error",vbCritical,%Title% 
(
echo MsgBox %1,%2,%3 
)>%tmp%\Msg.vbs 
cscript /nologo %tmp%\Msg.vbs 
Del %tmp%\Msg.vbs 
+0

Keine Erklärung überhaupt noch einmal ... ok es mag für uns offensichtlich sein, was' msg.vbs' ist werde aber nicht jeder machen. – Lankymart

+0

@Lankymart Hmmm ich denke, ich weiß, wer zu meinen Antworten alle Antworten :) – Hackoo

+0

Was habe ich nichts herabgestimmt, worum geht es dir? Ich denke jedoch, dass * einige * Ihrer Antworten, obwohl sie technisch korrekt sind, unter einem Mangel an detaillierter Erklärung leiden. – Lankymart