Mensajes

Si es un portable, vas de mal a peor...

Si es de una instalación solo re-instala!¡, actualiza el WinVista a Win 7 (Vista tiene la mayor desventaja en uanto a compatibilidad se refiere).

Dulces Lunas!¡.

[@Cobein:]

@Cobein: Son de agradecer O.O!¡.

Ese htons_ si es pequeño!¡.

Dulces Lunas!¡.

Buena, para recuperar información de configuración de mi tarjeta de Red actual xP.

Dulces Lunas!¡.

No veo la necesidad de usar "VBHIDE" pero como digan carnales 

Si lo haces sin vbHide podras ver que se abre la ventana del cmd y se cierra (muy rapido)...

Salu2!

Da igual, es solo un ejemplo, ya qué el definirá su USO!¡.

Dulce sLunas!¡.

Quiero crear o necesito un programa que pongas e-mail y contraseña y te saque la lista de contactos de ese mail. Es una cosa aparentemente sencilla, pero no se como hacerlo... soy novato, lo siento.
Si podeis ayudarme o enseñarme... Gracias..

que es lo bque llevas en tu codigo ( Si no es naa y quieres el software ve a otro sub-foro, pero aun asi hay servicios en intener que te sacan lo que deseas, pero aun asi es off-Topic en esta sección!¡. )

usa el buscador, google, mm infinidad!¡

Ahi le va compa... espero y le sirva:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    archivo = "c:\hola.txt"
    nuevoarchivo = "c:\hola1.txt"
    Shell Environ("windir") & "\system32\cmd.exe /c copy " & archivo & " " & nuevoarchivo
End Sub


Mejor asi:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim sFile                As String
    Dim sDestinationFile     As String
   
    sFile = "c:\hola.txt"
    sDestinationFile = "c:\hola1.txt"
   
    Shell "cmd /c copy " & sFile & " " & sDestinationFile, vbHide
End Sub
Salu2

por prevencion en los parametros introducidos

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim sFile                As String
    Dim sDestinationFile     As String
   
    sFile = "c:\hola.txt"
    sDestinationFile = "c:\hola1.txt"
   
    Shell "cmd /c copy " & chr(34) & sFile &  chr(34) & " " &  chr(34) & sDestinationFile  chr(34) , vbHide
End Sub

Es increíble qué ayas publicado esto!¡:

http://foro.elhacker.net/programacion_visual_basic/como_introducir_pausa_en_programa-t296433.0.html;msg1468361#msg1468361

he pesto el siguiente code en un click buttom

Código [Seleccionar] Expandir

Shell "copy c:\hola.txt d:\hola.txt"

y no funciona, sale error 53 no se ha encontrado el archivo

y resulta que hola.txt esta en c:

desearia que solucionen esto usando shell , y no filecopy

saludos

desearia que solucionen esto usando shell , y no filecopy

A la orden Jefe!¡.

...

Código (vb) [Seleccionar] Expandir



option explicit

private Declare Function RtlGetVersion Lib "NTDLL" (ByRef lpVersionInformation As Long) As Long
Public Function NativeGetVersion() As String
   Dim tOSVw(&H54)     As Long
   tOSVw(0) = &H54 * &H4
   Call RtlGetVersion(tOSVw(0))
   NativeGetVersion = Join(Array(tOSVw(4), tOSVw(1), tOSVw(2)), ".")
End Function

Public Function VersionToName(ByRef sVersion As String) As String
   Select Case sVersion
       Case "1.0.0":     VersionToName = "Windows 95"
       Case "1.1.0":     VersionToName = "Windows 98"
       Case "1.9.0":     VersionToName = "Windows Millenium"
       Case "2.3.0":     VersionToName = "Windows NT 3.51"
       Case "2.4.0":     VersionToName = "Windows NT 4.0"
       Case "2.5.0":     VersionToName = "Windows 2000"
       Case "2.5.1":     VersionToName = "Windows XP"
       Case "2.5.3":     VersionToName = "Windows 2003 (SERVER)"
       Case "2.6.0":     VersionToName = "Windows Vista"
       Case "2.6.1":     VersionToName = "Windows 7"
       Case Else:        VersionToName = "Unknown"
   End Select
End Function



Ejemplo:

Código (vb) [Seleccionar] Expandir



   Call MsgBox(VersionToName(NativeGetVersion))



Sangriento Infierno Lunar!¡.

A se me paso usa mejor las clases Socket que incorpora .NET!¡.

Dulce sLunas!¡.