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: CAR3S? en 26 Diciembre 2010, 12:35 PM

Título: Pero como MIER!!
Publicado por: CAR3S? en 26 Diciembre 2010, 12:35 PM
Hola gente, tengo las b0las llenas, estuve toda la noche tratando de hacer esto...

Código (vb) [Seleccionar]
On Error GoTo error
Dim a As String
a = (Environ("tmp") & "\tmp.reg")
MsgBox a
Shell "regedit.exe /s a"
Exit Sub
error:
MsgBox "error"


pero no abre el PUT* tmp.reg


pooorfavor que alguien me diga q esta mal! :S
Título: Re: Pero como MIER!!
Publicado por: cobein en 26 Diciembre 2010, 13:07 PM
On Error GoTo error
Dim a As String
a = (Environ("tmp") & "\tmp.reg")
MsgBox a
Shell "regedit.exe /s " & a '<---------- a es una variable no parte del string
Exit Sub
error:
MsgBox "error"
Título: Re: Pero como MIER!!
Publicado por: CAR3S? en 26 Diciembre 2010, 13:27 PM
còmo? no entendi  :rolleyes:

miren esto: (No tengo idea como, pero lo encontre)

es una funcion (Creo, nose mucho... cuando tenga mas tiempo voy a leer)

Código (vb) [Seleccionar]
Sub RegeditImport(sFilename As String)
sFilename = (Environ("tmp") & "\tmp.reg")
   Shell "regedit.exe /s /c " & Chr(34) & sFilename & Chr(34), vbHide
End Sub



Lo unico que veo es... mmm... que envez de usar " usa Chr(34)... no entiendo porque ese funciona...

Alguien me explica?

Sigo pensando que quiero corregir mi codigo, ya que tambien usaria la correccion para los archivos de texto (.TXT).

Código (vb) [Seleccionar]
dim a as string
a = c:\telefonos_cabarets.txt
shell ("notepad.exe a")



ese tampoco me anda... :S

pero el segundo (El de los TXT), me anda aveces... nose porque...


aca otro ejemplo (Que intento usar y no me anda D:)

Código (vb) [Seleccionar]
Dim st As String
st = (App.Path & "\ST.txt")
Shell ("notepad.exe  ST"), vbNormalFocus


ST.txt No existe, desea crearlo balbalababl
Título: Re: Pero como MIER!!
Publicado por: raul338 en 26 Diciembre 2010, 15:09 PM
No es lo mismo decir "HOLA NUMERO" que "HOLA " (y leo el numero del papelito)

:P tienes que concatenar (unir) los strings

Código (vb) [Seleccionar]

Dim a as string
a = "C:\a.txt"
msgbox "TIenes que abrir " & a


PD: LA proxima elige un titulo mas descriptivo :¬¬