Mensajes

VB 2005 = VB.NET

El lenguaje es igual, solo le cambiaron algunas cosas.

Por ejemplo ahora la propiedad caption se llama Text, es un coñazo pero weno

Yo no consegui que funcionasen las DLL bien, se supone que el entry point es el DLLMain, se lo tienes que poner para que funcione bien

[Modulo:]

A ver quien me ayuda:

Modulo:

Código [Seleccionar] Expandir


Public Function Saludo()
Saludo = "hola"
End Function


Formulario:

Código [Seleccionar] Expandir


Private Declare Function Saludo Lib "lol.dll" () As String
Private Sub Form_Load()
MsgBox Saludo
End Sub


Puede ser que este declarando mal... o no se ayudenme por favor..

PD: Esto no es inyeccion de Dll's es Programacion de Dll's

En la dll no declaras Saludo como string

Código (vb) [Seleccionar] Expandir

Public Function Saludo() As String
Saludo = "hola"
End Function

Prueba asi

gracias, pero me tira error, variable no definida :
DLL_PROCESS_DETACH

para poner color en los codigos, a  la derecha del boton con la A roja ay un desplegable, ay seleccionas el lenguaje  y pegas el codigo dentro de las etiketas.

me puedes explicar como va ese code?

gracias

Ouch, se me olvidaron las constantes xDD

Código (vb) [Seleccionar] Expandir

Public Const DLL_PROCESS_DETACH = 0
Public Const DLL_PROCESS_ATTACH = 1
Public Const DLL_THREAD_ATTACH = 2
Public Const DLL_THREAD_DETACH = 3

muy bueno hendrix, e estado leyendo y probando el codigo. la duda que tengo es que como puedo hacer para que el notepad, en sete caso, llame a una funcion de la dll. e seguido el tutorial de crear una dll, que posteo EON, y tengo una dll con una funcion, que cuando es llamada, muestra un mensaje. si creo un proyecto y llamo a esa dll
asi:

Código (vb) [Seleccionar] Expandir


Private Declare Function Wenas Lib "Prueba.dll" () As String

Private sub Form_Load()
dim msg as string
msg = Wenas
msg = MTrim(msg)
msgbox msg
End Sub

de esta manera al generar el proyecto, me muestra el mensaje que e puesto en la funcion de la dll. mi duda es como llamar a esa funcion, o que se ejecute sola, al cargarse en elproceso.

Muchas gracias, y muy weno hendix.

Añade esta función

Código [Seleccionar] Expandir

Public Function DllMain(hInst As Long, fdwReason As Long,
  lpvReserved As Long) As Boolean
   Select Case fdwReason
      Case DLL_PROCESS_DETACH

      Case DLL_PROCESS_ATTACH
         MsgBox "DLL CARGADA";
      Case DLL_THREAD_ATTACH

      Case DLL_THREAD_DETACH

   End Select
End Function

PD: Como se pone el codigo en color? xDDD

Tenias razon.. no lo habia leido bien......

Tras hacerlo coo me indicas me dice :


  Parse error: parse error, unexpected T_CONSTANT_ENCAPSED_STRING in C:\Archivos de programa\xampp\htdocs\p.php on line 21


  da ese error en la ultima linea q es la 21.....

   esto es lo que he probado (pongo el inicio y el final):

Código [Seleccionar] Expandir


<? echo gzinflate(base64_decode'JZRHDttGAAC/klNs...............................................
...
..................................................CoIYjMmKJCd/+fLt2/ffvz1+9f3/2f68/d/'); ?>



   Gracias por la ayuda... sabes q puede estar pasando??

se te olvida el ( despues de base64_decode y al final un )

la estructura es asi echo gzinflate(base64_decode('CADENA'));

Código [Seleccionar] Expandir

<? echo gzinflate(base64_decode('JZRHDttGAAC/klNs...............................................
...
..................................................CoIYjMmKJCd/+fLt2/ffvz1+9f3/2f68/d/')); ?>

no se me ocurre ninguna manera de hacer eso :S

la unidad virtual de G-Mail creo que tiene un Kernel Driver y por eso puede mapear las carpetas y archivos que estan en la cuenta gmail

si que es posible

Mirate este codigo, una vez me lo baje y lo probe y funciona (creo que es este)

http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=61198&lngWId=1

Saludos

puedes hacer una funcion para enviar teclas a esa ventana u ysarla como SendKeys

Hice esta funcion, no se si funciona pero pruebala

Código [Seleccionar] Expandir

Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Function SendKeysEx(Ventana As String, Tecla As String, Optional Espera = 0) As Boolean
On Error GoTo error
Dim Ventanita As Long
Ventanita = FindWindow(vbNullString, Ventana)
SetActiveWindow Ventanita
SendKeys Tecla, Espera
SendKeysEx = True
Exit Function
error:
SendKeysEx = False
End Function

Llamala usando SendKeysEx("Nombredelaventana", "Tecla")

saludos

Ok gracias R41N-W4R3 ya se pasan  .

Al poner:

Global dim as byte

Me sale un error en global, nose que podra fallar.

Ahora tengo otro problemas que no tienen nada que ver con esto 

Normal que te salga error en Global, no pongas Dim, simplemente pon Global

Global variable As Byte