Visual Basic 6 - problema winsocket

salve, PREMESSA NON E' UN TROJAN.

Ho realizzato un'applicazione in vb6 che si connette tramite winsock ad un server su Aruba.
Il socket permette lo scambio di alcuni dati dal server al client.
Il mio problema è che alcuni antivirus, non tutti, lo rilevano come un trojan, pur non essendolo.
Esiste un sistema per "certificare" il collegamento winsock client-server affinche non sia visto come un falso positivo ?

Grazie

Lo devi indicare in qualche modo al tuo antivirus.

si, inserendo la regola sull'antivirus al comparire del messaggio, il problema è che questa applicazione la distribuisco a una serie di persone, e queste una volta installata al solo comparire del messaggio del loro antivirus gli si rizzano le orecchie senza capire che si tratta di un falso positivo.

Ma cosa utilizzi al suo interno ?

Quali API ?

ti serve che ti posti pezzi di codice ?

Basta che rispondi ...

sul client :

Private Sub Cmd_OnLine_Click()
'APRE CONNESSIONE AL SERVER
IP = "xx.xxx.xxx.xx"
PORTASOCK = xxxx
If FormS1.Socket.State = sckClosed Then Socket.Connect IP, PORTASOCK
End Sub


Private Sub Socket_Connect()
'MANDA DATI AUTENTICAZIONE AL SERVER
Lbl_Stato.Caption = "In Autenticazione"
If Socket.State = sckConnected Then
Socket.SendData "XXXX" & "Ø" & USERID & "Ø" & PASSWORD & "Ø" & RELASE & "Ø"
Else
Lbl_Stato.Caption = "Non Connesso"
Socket.Close
End If
End Sub

Private Sub Socket_Close()
Socket.Close
Text_Stato.Text = "Chiusa dal Server"
End Sub



Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
'RICEVE DATO
DATO = Empty
Socket.GetData DATO
'FILTRA DATO
Select Case Left$(DATO, 4)
Case "xxxx"
call routine 1

Case "xxxx"
call routine 2

Case "xxxx"
call routine n

End Select
End Sub



sul server

Public Sub Server_Ascolto_Disconnesso()
'DICHIARAZIONE VARIABILI
Dim I As Integer, QTA_SOCKET As Integer
'METTE SERVER IN ASCOLTO
If Form_Server.Socket(I).State = sckClosed Then
'IN ASCOLOTO
Form_Server.Socket(0).LocalPort = PORTA
Form_Server.Socket(0).Listen
'FORMATTA OGGETTI
Form_Server.Lbl_Stato.Caption = "In ascolto..."
Form_Server.Cmd_Ascolta_Disc.Caption = "Disconnetti"
'ESCE DA SUB
Exit Sub
End If
'CHIUDE SERVER
If Form_Server.Socket(0).State = sckListening Then
'CHIUDI SOCKET
QTA_SOCKET = Form_Server.Socket.UBound
Form_Server.Socket(0).Close
For I = 1 To QTA_SOCKET
Unload Form_Server.Socket(I)
Next I
'RESETTA MATRICE UTENTI
ReDim UTENTE(1 To QTA_UTENTI, 1 To QTA_DATI_UTENTE) As Variant
'FORMATTA OGGETTI
Form_Server.List_Connessi.Clear
Form_Server.Lbl_Stato.Caption = "Chiuso"
Form_Server.Cmd_Ascolta_Disc.Caption = "Ascolta"
End If
End Sub


Private Sub Socket_ConnectionRequest(Index As Integer, ByVal requestID As Long)
'DICHIARAZIONE VARIABILI
Dim I As Integer, QTA_SOCKET As Integer, N_SOCK As Integer
'CERCA SOCKET LIBERO
QTA_SOCKET = Socket.UBound
N_SOCK = 0
For I = 1 To QTA_SOCKET
If Socket(I).State = sckClosed Then
N_SOCK = I
Exit For
End If
Next
'CREA SOCKET
If N_SOCK = 0 Then
N_SOCK = QTA_SOCKET + 1
Load Socket(N_SOCK)
End If
'ACCETTA CONNESSIONE
Socket(N_SOCK).Close
Socket(N_SOCK).Accept requestID
'TESTO IN LISTA RICHIESTA CONNESSIONI
Call Testo_Rich_Conn(Format(Now, "dd/mm/yy hh:mm:ss" & ": " & Socket(N_SOCK).RemoteHostIP & " ID: " & requestID)
End Sub


Private Sub Socket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
'DICHIARAZIONE VARIABILI
Dim DATO As String
Dim CAMPO() As String
'RICEVE DATO
DATO = Empty
Socket(Index).GetData DATO
'FILTRA DATO
Select Case Left$(DATO, 4)
'AUTENTICAZIONE
Case "xxxx"
call routine autenticazione

Case "xxxx"
call routine 1

Case "xxxx"
call routine n
End Select
End Sub

in più nel resto del codice del server una serie di invio dati con
Socket(Index).SendData "xxxx" & "Ø" & "istruzione"

Ma, ti ripeto ... utilizzi delle API ? ?