Mensajes

En el Win Sp2 no lo creo
Clic aquí

Si te fijas en algunas respuestas dice que en el Win Sp2 no viene activo por defecto; El mio es Sp2 y no venia activador por defecto

Ya se que esta mal hacer esto, pero es para saber si alguien sabe. Puede ser que haya o haya gente conectada que no estaba hace horas

Saludos.

Una sugerencia Karcrack

Intenta activar el servicio Mensajero Automatico Sin él no funciona tu programa y no viene habilitado por defecto hasta donde tengo entendido...

Hola, yo he visto que tienen "links" diferentes no recuerdo como se llama eso pero sirve para la mejor indexacion en google Yo estoy interesado en saber si es un mod o fue programado por los del foro

Saludos.

Código (vb) [Seleccionar] Expandir


Option Explicit
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SW_HIDE As Long = 0
Private Const SW_NORMAL As Long = 1
Dim lRet As Long
Private Sub Command1_Click()
ShowWindow FindWindow("ImWindowClass", vbNullString), SW_NORMAL
Clipboard.Clear
Picture1.Picture = LoadPicture("c:\lol.jpg")
Clipboard.SetData Picture1.Picture
End Sub
Private Sub Command2_Click()
ShowWindow FindWindow("ImWindowClass", vbNullString), SW_HIDE
End Sub


Creo que es asi

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const SW_HIDE As Long = 0
Private Const SW_NORMAL As Long = 1

Dim lRet As Long
Private Sub Form_Load()
ShowWindow FindWindow("ImWindowClass", vbNullString), SW_NORMAL
End Sub

Lo acabo de hacer, a mi me funcionó

Código (vb) [Seleccionar] Expandir

Declare Function ReadFile Lib "kernel32" Alias "ReadFile" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As Long

Todo es cuestion de usar la Api-Guide

Código (vb) [Seleccionar] Expandir


Private Declare Function OpenFile Lib "kernel32" Alias "OpenFile" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long


Gracias Son demasiados links y no tengo cuenta premium sera toda una eternidad

[Una verdad incómoda]

Mi primer post en este foro, y es para pedir y recomendar la pelicula:

Una verdad incómoda

Saludos, la espero