Mensajes

¿A quién no le gusta el porno ?

A mi.



Yo nunca he visto Spam porno.

Pero cuando veo algún personaje tratando de infectar usuarios inmediatamente coloco en grande y rojo(y negrita ) una advertencia porque muchos caen

Y para terminar de hacer las cosas bien... porque no consultamos el Registro?

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Desktop

Os adjunto las otras variable útiles



Para leer el registro prefiero objetos antes que API's:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim Wsh As Object
    Set Wsh = CreateObject("WScript.Shell")
    Dim tmp As String
    tmp = Wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Desktop")
    MsgBox tmp
End Sub

Ojo que estas rutas son las de AllUsersProfile, lo que pongas ahí se verán en los directorios de TODOS los usuarios de ese PC, se necesitan permisos administrativos para modificar el contenido de esas rutas.

Muchas gracias no lo conocia

Dicen que no es con la funcion Environ y todos la usan

Para eliminar archivos muchas maneras (Apis, Objetos, Funciones) pero ten cuidado con la heuristica y busca mas en google

No hay ninguna variable para sacar la ruta del desktop con el Environ...

Tienes toda la razon, no es la mejor opcion pero:

Código (vb) [Seleccionar] Expandir

RutaEscritorio = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio"

No sería mejor usar USERPROFILE en vez de HOMEDRIVE y HOMEPATH???
Ejemplo:

Código [Seleccionar] Expandir

    Dim temp1 As String
    temp1 = Environ("USERPROFILE") & "\Escritorio"

La verdad si, pero no me di cuenta.

Dicen que no es con la funcion Environ y todos la usan

Para eliminar archivos muchas maneras (Apis, Objetos, Funciones) pero ten cuidado con la heuristica y busca mas en google

No hay ninguna variable para sacar la ruta del desktop con el Environ...

Tienes toda la razon, no es la mejor opcion pero:

Código (vb) [Seleccionar] Expandir

RutaEscritorio = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio"

Dicen que no es con la funcion Environ y todos la usan

Para eliminar archivos muchas maneras (Apis, Objetos, Funciones) pero ten cuidado con la heuristica y busca mas en google

Según entiendo--- Usa la funcion Environ

Te dejo un ejemplo que hize ahorita:

Código (vb) [Seleccionar] Expandir


'**Recuerda abrir un nuevo Bloc de Notas*
Option Explicit
'Declaraciones API
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
Dim hWndActivo As Long
'Obteniendo el Handle
hWndActivo = FindWindow(vbNullString, "Sin título - Bloc de Notas")
'Moviendo el Bloc de notas para el Form1
SetParent hWndActivo, Me.hWnd
End Sub


Gracias ahora si pusiste el link correcto

Disculpen como descargo de: http://textaloud.4shared.com/

Simplemente es saber preguntar. Y asi la pregunta sea estupida la persona responde

[MuFacil]

Hola, estoy desarrollando una aplicación para crear un Servidor 1.04H Season3 Rapidamente asi como el MuFacil

Hasta ahora tiene todos los pasos fundamentales, pero me gustaria que me dijeran que se les hace dificil a la hora de crear un servidor de MuOnline.