Re: Sello de 25 caracteres, esta bien asi?
Publicado: Mar Dic 07, 2010 4:43 pm
tanto en vb6 como en vb.net se puede usar Windows Scrip Host en lugar de Shell, solo hay que agregarla como referencia al proyecto. \Ejemplo:Araceli escribió:casi estoy 100% segura que ese es el problema, porque se parece mucho a la forma en q powerbuilder maneja sus
eventos con triggerevent()
... aun no termina de ejecutarse un evento cuando ya comenzo a ejecutarse la secuencia del segundo y asi sucesivamente
y una manera de corregirlo es con postevent, obligandolo a que se sume a la "cola", pero
no sabria como programar eso en visual basic, excepto con el truco del messagebox, asi retienes un poco el flujo de
ejecucion
Saludos
Código: Seleccionar todo
'---- WSH variables --------------
Dim oShl As New IWshShell_Class ' este seria como nuestro "shell"
Dim wRUN As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOWNOACTIVE = 4
Const SW_SHOW = 5
Const SW_MINIMIZE = 6
Const SW_SHOWMINNOACTIVE = 7
Const SW_SHOWNA = 8
Const SW_RESTORE = 9
'---- WSH variables --------------
wRun = oShl .Run("C:\OpenSSL\bin\openssl.exe dgst -md5 -sign c:\informes_sat\llave.pem.txt -out c:\informes_sat\SelloBin.txt c:\informes_sat\cad.txt",SW_HIDE, True)
wRun = oShl .Run("C:\OpenSSL\bin\openssl enc -base64 -in C:\informes_sat\SelloBin.txt -out C:\informes_sat\Sello.txt", SW_HIDE, True)
Código: Seleccionar todo
wRUN = oShl.Run(AppPath & "Bats\SELLO.BAT", SW_HIDE, True)