para - ¿Cómo crear diálogo de opciones con VbScript?

vbscript descargar

Question

Tengo una aplicación de terceros que invoca un archivo vsbscript para ciertas operaciones. Me gustaría poner un aviso del usuario con una opción de opciones, ya sea una lista desplegable o casilla de verificación o algo así. Sin embargo, todo lo que puedo encontrar es la opción del cuadro de entrada.

No creo que las HTA sean una opción en mi caso (a menos que haya una forma de llamarlas desde un archivo .vbs).

Mi otro pensamiento era algún tipo de control ActiveX, pero no puedo encontrar uno integrado que estaría disponible de forma predeterminada en Windows XP / Vista.

¿Alguien tiene alguna idea sobre cómo podría lograr esto?

Answer 1

Pruebe WshShell.Popup . Dependiendo de sus datos que pueden funcionar para usted ...

De lo contrario, podría investigar PowerShell.

Answer 2

La respuesta simple es, realmente no puedes. La solución de Tmdean es la única forma en que puedo pensar. Dicho eso, puedes arreglar el cuadro de entrada para que no se vea horrible . Dale una carrera, no creo que sea un fracaso épico :

Dim bullet
Dim response
bullet = Chr(10) & " " & Chr(149) & " "
Do
response = InputBox("Please enter the number that corresponds to your selection:" & Chr(10) & bullet & "1.) Apple" & bullet & "2.) Bannana" & bullet & "3.) Pear" & Chr(10), "Select Thing")
If response = "" Then WScript.Quit ''Detect Cancel
If IsNumeric(response) Then Exit Do ''Detect value response.
MsgBox "You must enter a numeric value.", 48, "Invalid Entry"
Loop
MsgBox "The user chose :" & response, 64, "Yay!"

Answer 3

Una opción es guiar Internet Explorer. Puede utilizar VBScript para iniciar IE y cargar un archivo HTML local, y adjuntar un sub archivo de VBScript al botón de envío de un formulario (o cualquier otro evento de JavaScript), que luego puede cerrar la ventana de IE como parte de su ejecución.

Answer 4

Puede iniciar una HTA desde un VBScript.

Set shell = CreateObject("WScript.Shell")
shell.Run "Test.hta"

EDITAR

Como tiene el control total de VBScript, ¿podría hacer que VBScript de terceros simplemente llame a su HTA? Podría colocar la IU y cualquier código de procesamiento dentro de la HTA.

Answer 5

Si desea utilizar un hta para esto, puede hacerlo así.
El VBScript:

Set WshShell = CreateObject("WScript.Shell")
''Run the hta.
WshShell.Run "Test.hta", 1, true
''Display the results.
MsgBox "Return Value = " & getReturn
Set WshShell = Nothing
Function getReturn
''Read the registry entry created by the hta.
On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")
getReturn = WshShell.RegRead("HKEY_CURRENT_USER/Volatile Environment/MsgResp")
If ERR.Number 0 Then
''If the value does not exist return -1
getReturn = -1
Else
''Otherwise return the value in the registry & delete the temperary entry.
WshShell.RegDelete "HKEY_CURRENT_USER/Volatile Environment/MsgResp"
End if
Set WshShell = Nothing
End Function

A continuación, diseñe el hta como desee e incluya los siguientes métodos

''Call this when the OK button is clicked.
Sub OK_Click
For Each objradiobutton In Opt
If objradiobutton.Checked Then
WriteResponse objradiobutton.Value
End If
Next
window.Close
End Sub
''Call this when the Cancel button is clicked.
Sub Cancel_Click
WriteResponse("CANCEL")
window.Close
End Sub
''Write the response to the registry
Sub WriteResponse(strValue)
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER/Volatile Environment/MsgResp", strValue
Set WshShell = Nothing
End Sub

Utilicé un grupo de botones de opción llamados "Optar" para elegir, pero puede usar los controles que desee.

Debido a que hta no puede devolver valores, esto creará una entrada de registro temperary. Si no eres compatible con el registro, también puedes escribir el resultado en un archivo de texto temperary.

Este enfoque es bueno porque puede diseñar el hta de la manera que desee, en lugar de usar la casilla de entrada suministrada y elegir números (eso es DOS).

Esto también podría ser bueno si expandió hta para crearse a sí mismo en función de los argumentos que se le pasaron, como pasar un título, un mensaje para mostrar, una matriz de opciones, un conjunto de botones. De esta forma, podría usar el mismo hta en cualquier momento que necesite obtener información del usuario.

Answer 6

Puede usar DialogLib para crear formularios con listas desplegables y casillas de verificación. DialogLib todavía está en sus etapas iniciales, pero ya es bastante útil: http://www.soren.schimkat.dk/Blog/?p=189

Answer 7

Como ejemplo de la sugerencia de @TmDean, hay esta clase que a veces uso qué secuencias de comandos IE (bueno, el IE6 con guiones, no he probado las encarnaciones más recientes).

class IEDisplay
''~ Based on original work by Tony Hinkle, [email protected]
private TEMPORARY_FOLDER
private objShell
private objIE
private objFSO
private objFolder
private strName
private streamOut
private objDIV
private numHeight
private numWidth
private numTop
private numLeft
private sub Class_Initialize()
Dim strComputer
Dim objWMIService
Dim colItems
Dim objItem
Dim arrMonitors( 10, 1 )
Dim numMonitorCount
Set objShell = WScript.CreateObject("WScript.Shell")
Set objIE = CreateObject("InternetExplorer.Application")
strComputer = "."
Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/cimv2")
Set colItems = objWMIService.ExecQuery( "Select * from Win32_DesktopMonitor")
numMonitorCount = 0
For Each objItem in colItems
arrMonitors( numMonitorCount, 0 ) = objItem.ScreenHeight
arrMonitors( numMonitorCount, 1 ) = objItem.ScreenWidth
numMonitorCount = numMonitorCount + 1
Next
numHeight = arrMonitors( 0, 0 )
numWidth = arrMonitors( 0, 1 )
Set objFSO = CreateObject("Scripting.FileSystemObject")
TEMPORARY_FOLDER = 2
set objFolder = objFSO.GetSpecialFolder( TEMPORARY_FOLDER )
strName = objFSO.BuildPath( objFolder, objFSO.GetTempName ) & ".html"
WriteFileU strName, Join( Array( "<HTML><HEAD><TITLE>Information</TITLE></HEAD>", _
"<BODY SCROLL=''NO''><CENTER><FONT FACE=''arial black''> <HR COLOR=''BLACK''>", _
"<DIV id=''MakeMeAnObject''></DIV>", _
"<HR COLOR=''BLACK''></FONT></CENTER></BODY></HTML>" ), vbCRLF ), WF_CREATE
numTop = 0
numLeft = 0
end sub
Sub Init( strPosition )
''NW, N, NE, W, CENTRE, E, SW, S, SE
Select Case strPosition
Case "NW"
numTop = 0
numLeft = 0
Case "N"
numTop = 0
numLeft = ( numWidth / 2 ) - 250
Case "NE"
numTop = 0
numLeft = numWidth - 500
Case "W"
numTop = ( numHeight / 2 ) - 55
numLeft = 0
Case "CENTRE"
numTop = ( numHeight / 2 ) - 55
numLeft = ( numWidth / 2 ) - 250
Case "E"
numTop = ( numHeight / 2 ) - 55
numLeft = numWidth - 500
Case "SW"
numTop = numHeight - 110
numLeft = 0
Case "S"
numTop = numHeight - 110
numLeft = ( numWidth / 2 ) - 250
Case "SE"
numTop = numHeight - 110
numLeft = numWidth - 500
Case Else
numTop = 0
numLeft = 0
End Select
SetupIE( strName )
Set objDIV = objIE.Document.All("MakeMeAnObject")
end sub
private sub Class_Terminate()
''Close IE and delete the file
objIE.Quit
''~ optionally you may want to get rid of the temp file
end sub
public sub Display( strMsg, numMillisec )
objDIV.InnerHTML = strMsg
WScript.Sleep numMillisec
end sub
Private Sub SetupIE(File2Load)
objIE.Navigate File2Load
objIE.ToolBar = False
objIE.StatusBar = False
objIE.Resizable = False
Do
Loop While objIE.Busy
objIE.Width = 500
objIE.Height = 110
objIE.Left = numLeft
objIE.Top = numTop
objIE.Visible = True
objShell.AppActivate("Microsoft Internet Explorer")
End Sub
end class

aquí está la función faltante (de la publicación original) WriteFileU

Const WF_APPEND = 1
Const WF_CREATE = 2
Const WF_FOR_APPENDING = 8
Const WF_FOR_WRITING = 2
Const WF_CREATE_NONEXISTING = True
Const CONST_READ = 1, CONST_WRITE = 2, CONST_APPEND = 8
Const AS_SYSTEMDEFAULT = -2, AS_UNICODE = -1, AS_ASCII = 0
Sub WriteFileU( sFilename, sContents, nMode )
Dim oStream
If nMode = WF_APPEND Then
Set oStream = oFSO.OpenTextFile( sFilename, WF_FOR_APPENDING, WF_CREATE_NONEXISTING, AS_UNICODE )
ElseIf nMode = WF_CREATE Then
Set oStream = oFSO.OpenTextFile( sFilename, WF_FOR_WRITING, WF_CREATE_NONEXISTING, AS_UNICODE )
Else
STOP
End If
oStream.Write sContents
oStream.Close
Set oStream = Nothing
End Sub

y luego como un ejemplo de su uso

set i = new IEDisplay
a = array("NW", "N", "NE", "W", "CENTRE", "E", "SW","S","SE")
for each aa in a
i.init aa
i.display "Here in " & aa & " of screen", 1000
next

Ahora eso no es inmediatamente útil (especialmente si hay un montón de llamadas a mis propias rutinas de utilidad allí) pero da un marco. Al modificar qué HTML se almacena, puede agregar soporte para listboxes, etc.