Mensajes

hola, mira si no me equivoco es porue nunca abriste un archivo para poner los datos solo pones put pero nunca lo abriste te falta esto

Código [Seleccionar] Expandir

Open "C:\archivo recibido.jpg" for bynary as #1
fijate debe ser eso el problema. Chau espero q te sirva

Sancho.Mazorka   

krispin ni idea si es de tu pagina yo se q lo saque del foro de otro ejemplo pero encontre uno mas sencillo y entendi como funciona les pongo el nuevo ej:

'CODIGO DE LA DLL

Código [Seleccionar] Expandir

'esto es para el modulo de clase llamado ModPrincipal
'y el proyecto ponganlen Plugin_num1

Public miFormularioPadre As Form 'el manejador del formulario

Public Function Arranca(Form As Object)
Set miFormularioPadre = Form
Form1.Text1.Text = miFormularioPadre.Text1.Text
Form1.Show
End Function

Public Function msgbox()
Form1.Text1.Text = miFormularioPadre.Text1.Text
End Function

'este es el code del q lee las plugin

dim Miplugin
private sub form_load()
Set Miplugin= CreateObject("Miplugin.ModPrincipal")
Miplugin.arranca Me
end sub

private sub command1_click()
Miplugin.msgbox
end sub

miren lo q esta en rojo es para referirse a las function ej:

Código [Seleccionar] Expandir

Miplugin.msgbox '<- haria q se ejecute la funcion q se llame msgbox en el plugin

y lo q esta en verde es al nombre del modulo q nos referimos.

el problema q me salta ahora es en la linea esta

Código [Seleccionar] Expandir

Set Miplugin= CreateObject("Miplugin.ModPrincipal")
y debe ser porque ahora leo las dll q tiene q cargar con un line input desde un .txt y hago un

Código [Seleccionar] Expandir

do while not EOF(1) entonces no se como hacer para q vayan cambiando las variables no se si me entiende o hacer un tipo de matriz de variables, lei el post pegado de NekroByte pero no entendi bien, alguien me podria ayudar con ese pedazo de code


Sancho.Mazorka    

Hola tanto tiempo, estaba haciendo mi troyano y se me ocuririo q se actualize pero lo quise hacer por medio de plugins (el ej es el que le dieron a martin) pero a mi no me deja cargar mas de una dll y queria saber si alguno me puede ayudar por favor. Codigo para leer las dll:

Código [Seleccionar] Expandir

Option Explicit

Public Sub AñadirAlMenu(ByVal Nombre$, ByVal Titulo$)
Dim index As Integer
If ListaDePlugins(0).Enabled = True Then
   index = index + 1
   Load ListaDePlugins(index)
Else
   ListaDePlugins(0).Enabled = True
End If
ListaDePlugins(index).Caption = Titulo
ListaDePlugins(index).Tag = Nombre
End Sub
Public Sub CargarPlugins()
On Error GoTo error:
Dim dll$, temp$, obj
dll = Dir("C:\Windows\System32\*.dll", vbNormal) 'se obtiene la dll
Do Until dll = ""

   dll = Left(dll, Len(dll) - 4) 'quita ".dll" del nombre
   temp = dll & "." & "plugin"
   Set obj = CreateObject(temp) 'se crea el plugin
   AñadirAlMenu temp, obj.NombrePlugin 'se añade el plugin al menu
   dll = Dir()
Loop
Exit Sub
error:
   MsgBox "Error al cargar un plugin. Puede que no esté corretamente registrado.", , "Error"
End Sub

Private Sub ListaDePlugins_Click(index As Integer)
Dim obj
Set obj = CreateObject(ListaDePlugins(index).Tag)
obj.AbrirPlugin Me
End Sub

Private Sub mnuplugins_Click()
CargarPlugins 'se cargan los plugins que están el el directorio plugins.
End Sub

Contiene un text1.text y un menu
caption: plugins
name: mnuplugins
->caption lala
->name: ListaDePlugins  (con index 0 para crear una matriz)

y este es el code de la dll a crear con vb esto es en el form1 lo otro va en un modulo de clase llamado plugin

Código [Seleccionar] Expandir

Public miFormularioPadre As Form 'el manejador del formulario
Option Explicit

Private Sub Command1_Click()
miFormularioPadre.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
miFormularioPadre.Text1.Text = miFormularioPadre.Text1 + Text2.Text
End Sub

Private Sub Command4_Click()
MsgBox miFormularioPadre.Text1.Text, vbInformation, "From Plugin"
End Sub

Código [Seleccionar] Expandir

Option Explicit

Public Property Get NombrePlugin() As String 'El nombre del plugin
NombrePlugin = "Este es miplugin"

End Property

Public Sub AbrirPlugin(Form As Object)
Set Form1.miFormularioPadre = Form
Form1.Show
End Sub

bueno al compilar la dll la ponemos en system32 y la regsitramos asi en MS-DOS o en cmd o en ejecutar como quieran ponen regsvr32 miplugin.dll ese nombre xq asi lo compile miplugin.dll
y si o si al registrarla tiene q estar en system32 al dll (si me equivoco corijanmen)

ese code no me fuciona bien y yo probe hacer esto

Código [Seleccionar] Expandir

Public Sub CargarPlugins()
On Error GoTo error:
Dim dll$, temp$, obj
open "C:\dll.txt" for input as #1
Do While Not EOF(1)
Line Input #1, lala
   dll = Left(lala, Len(lala) - 4) 'quita ".dll" del nombre
   temp = dll & "." & "plugin"
   Set obj = CreateObject(temp) 'se crea el plugin
   AñadirAlMenu temp, obj.NombrePlugin 'se añade el plugin al menu
Loop
Exit Sub
error:
   MsgBox "Error al cargar un plugin. Puede que no esté corretamente registrado.", , "Error"
End Sub

bueno en C:\dll.txt estan los nombres de las dll entonces las saca de a una pero no sirve ninguno de los 2 ejemplos espero q alguien me ayude y perdon x escribir tanto.


Sancho.Mazorka    

hay una forma q es con un timer revisar si esta activa la ventana del regedit y si lo esta q le mande un sendkeys o finaliza el proceso eso hago yo.
PD: espero q te sirva, avisa


Sancho.Mazorka      

ehhh... no te entendi un pedo como q queres poner el Mozilla q con tu programa se minimize al Systray los otros?


Sancho.Mazorka     

alguno me puede ayudar a hacer o decirme como se hacen los ballon tool tips text?


Sancho.Mazorka    

Toma esto lo pones como esta

Código [Seleccionar] Expandir

Public Function IsNetConnectOnline() As Boolean
    IsNetConnectOnline = InternetGetConnectedState(0&, 0&)
End Function

y estas son las constantes y la API

Código [Seleccionar] Expandir

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

Public Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
    Public Const INTERNET_RAS_INSTALLED As Long = &H10
    Public Const INTERNET_CONNECTION_OFFLINE As Long = &H20
    Public Const INTERNET_CONNECTION_CONFIGURED As Long = &H40

Salu2

Sancho.Mazorka   

mira esta es la API para posicionar el mouse:

Código [Seleccionar] Expandir

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

esta para hacer clicks:

Código [Seleccionar] Expandir

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

y estas son las constantes de los clicks:

Código [Seleccionar] Expandir

Const MOUSEEVENTF_MOVE = &H1 '  movimiento del mouse
Const MOUSEEVENTF_LEFTDOWN = &H2 '  botón izquierdo presionado
Const MOUSEEVENTF_LEFTUP = &H4 '  botón izquierdo soltado
Const MOUSEEVENTF_RIGHTDOWN = &H8 '  botón derecho presionado
Const MOUSEEVENTF_RIGHTUP = &H10 '  botón derecho soltado
Const MOUSEEVENTF_MIDDLEDOWN = &H20 '  botón central presionado
Const MOUSEEVENTF_MIDDLEUP = &H40 ' botón central soltado
Const MOUSEEVENTF_ABSOLUTE = &H8000 '  movimiento absoluto

esta es una pequeña ayuda ya q es muy dificil:

Código [Seleccionar] Expandir

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0
    mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, X, Y, 0, 0

eso te haria q haga los clicks donde este el mouse, la primera linea es para hacer el click y la segunda es para soltar el click xq o si no te lo mantiene apretado y en X va la coordenada X o en Y va la coordenada Y o vbnullstring, y si queres q la makian lo ponga y hjaga click ahi hace usa la primer API q te di.

PD: espero q te sirva avisame! Salu2

Sancho.Mazorka    

pero con eso de mandarla cada tanto tiempo te va a dejar re lenta la makina si a mi cuando abro la lectora con la funcion esa se me tilda una fraccion de segundo imaginate mandarla todo el tiempo, fija si no podes encontrar algo apra deshabilitarla. como en las propidades deshabilitar.
espero q te sirva eso o si estoy mal aclaren.


Sancho.Mazorka     

oye man yo tengo hecho un programa asi yo te agrego y despues por msn te lo paso.



Sancho.Mazorka