Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: mike3636522 en 12 Octubre 2013, 02:42 AM

Título: Me sale error al inentar abrir objeto WScript
Publicado por: mike3636522 en 12 Octubre 2013, 02:42 AM
Hola, vengo a notificarme un problema.
Me e fijado varias veces si e sintetizado bien el codigo y, al parecer, si deberia de funcionar.
Antes, si me funcionaba el objeto wscript, Siempre lo declaraba con este codigo( En el caso de VB6)
Private Sub Form_Load()

Dim wsh as Object
wsh = CreateObject("WScript.shell")
'cuando la declaro me dice el depurador que no existe

...

End Sub

y me aparece este error
(http://imageshack.us/a/img196/1619/a66c.jpg)

Y tambien me aparece este error al utilizar Wscript en Vbs
(http://imageshack.us/a/img707/3236/fdrm.jpg)
que puedo hacer para resolverlo?

Título: Re: Me sale error al inentar abrir objeto WScript
Publicado por: Flamer en 12 Octubre 2013, 02:55 AM
hola mike no lo declares con el dim yo nunca loe hecho y nose si se pueda mejor has lo asi.

Set wsh=CreateObject
("WScript.shell")


saludos
Título: Re: Me sale error al inentar abrir objeto WScript
Publicado por: mike3636522 en 12 Octubre 2013, 05:58 AM
Ok, gracias, se me soluciono el problema con el VB6 pero en el vbs no me a servido :-\
Título: Re: Me sale error al inentar abrir objeto WScript
Publicado por: MCKSys Argentina en 12 Octubre 2013, 23:58 PM
Cita de: Flamer en 12 Octubre 2013, 02:55 AM
hola mike no lo declares con el dim yo nunca loe hecho y nose si se pueda mejor has lo asi.

Set wsh=CreateObject
("WScript.shell")


saludos

Es muy mala idea no declarar las variables. Incluso deberías colocar Option Explicit al inicio de cada modulo/form/class/etc (el IDE tiene una opcion).

Deberías probar declararla como variant (ambas declaraciones siguientes son iguales):

Código (vb) [Seleccionar]

Dim wsh
Dim msh2 as Variant
Título: Re: Me sale error al inentar abrir objeto WScript
Publicado por: BlackZeroX en 13 Octubre 2013, 02:15 AM
Código (vb) [Seleccionar]


Dim wsh as Object
set wsh = CreateObject("WScript.shell")



Dulces Lunas!¡