Bueno encontre estas:

Declare Function closesocket Lib "ws2_32" (ByVal sck As Long) As Long
Declare Function Connect Lib "ws2_32" (ByVal sck As Long, ByVal SckName As String, ByVal namelen As Long) As Long
Declare Function gethostbyaddr Lib "ws2_32" (ByVal addr As String, ByVal iaddrlen As Long, ByVal iaddrtype As Long) As HOSTENT
Declare Function gethostbyname Lib "ws2_32" (ByVal hostname As String) As Long
Declare Function gethostname Lib "ws2_32" (ByVal name As String, ByVal namelen As Long) As Long
Declare Function getsockopt Lib "ws2_32" (ByVal sck As Long, ByVal level As Long, ByVal optname As Long, ByVal optval As Long, optlen As Long) As Long
Declare Function htons Lib "ws2_32" (ByVal hostshort As Integer) As Integer
Declare Function recv Lib "ws2_32" (ByVal s As Long, ByVal buf As String, ByVal BufLen As Integer, ByVal flags As Integer) As Integer
Declare Function send Lib "ws2_32" (ByVal s As Long, ByVal buf As Long, ByVal BufLen As Integer, ByVal flags As Integer) As Integer
Declare Function setsockopt Lib "ws2_32" (ByVal s As Long, ByVal level As Integer, ByVal optname As Integer, ByVal optval As Long, ByVal optlen As Long) As Integer
Declare Function socket Lib "ws2_32" (ByVal iAddressFamily As Long, ByVal iType As Long, ByVal iProtocol As Long) As Long
WSSAsyncselect
Declare Function WSACleanup Lib "ws2_32" () As Integer
Declare Function WSAStartup Lib "ws2_32" (ByVal wVersionRequired As Long, lpWSAData As WSADATA) As Long


pero todavia me faltan =(

closesocket,
connect,
gethostbyaddr,
gethostbyname,
gethostname,
getsockopt,
htons,
recv,
send,
setsockopt,
socket,
WSSAsyncselect,
WSACancelBlockingCall,
WSACleanup,
WSIGetlasterror,
WSAisblocking y
WSAStartup.

esas son las que necesito para reemplazar el MSWINSCK.OCX
pero nose como buscarlas las busque con el viser de apis pero nada alguien sabe?.

Todos los codigos de abrir cerrar cd apagar reiniciar y esas cosas las detecta el AV automaticamente  y lo otro el antivirus busca palabras dentro del ejecutable? como por ejemplo apagar reiniciar y cosas haci?

Si estas usando el control winsock y lo pasas a otra makina te va a pedir este archivo MSWINSCK.OCX y dependiendo de los controles que vayas agregando te va a pedir otros y haci.
espero te ayude suerte.

gracias.

elmaro seria algo como esto o no?:

contador.
i=1
y el put quedaria de esta forma:
put #1,i,registro
y abajo de esto iria:
i=i+1

algo haci seria? porque si es haci no me resulta =P

Tengo esto :
6 cajas de texto en 3 de ellas inreso nombre apellido y edad y en las otras 3 muestro los resultados de mi archivo.

este es el codigo:

Private Type T_Registro
    nombre As String * 20
    apellido As String * 20
    edad As String * 20
End Type

Dim registro As T_Registro


Private Sub Command1_Click()
Open "personas.txt" For Random As #1
    registro.nombre = Text1.Text
    registro.apellido = Text2.Text
    registro.edad = Text3.Text
    Put #i, 1, registro
Close #1
End Sub

Private Sub Command2_Click()
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

End Sub

Private Sub Command3_Click()
Open "personas.txt" For Random As #1
Put #1, 1, registro
    Text4.Text = registro.nombre
    Text5.Text = registro.apellido
    Text6.Text = registro.edad
Close #1
End Sub


ahora mi duda es la siguiente se guardan en el archivo personas.txt pero si agrego otro se me borra el que tenia anteriormente y me deja el actual y yo quiero que el archivo me vaya guardando todos los usuarios que ingreso .

alguien que me ayude con esto porfavor o me de una idea bueno gracias saludos.

Bueno hice una aplicacion cliente servidor pero ahoira  cuando un antivirus dice si esta aplicacion es peligrosa y la elimina porque no todos los programas que trabajan con winsock son malignos como hace el antivirus para enterarse por el puerto nose a mi me tomo la aplicacion como un troyano.

Alguien me podria explciar en teoria osea lo que tengo entendido es lo siguiente.

configuro mi server con no-ip claro se refresca y actualiza mi direccion ip lo que hago en "teoria" seria enviarle el server al cliente y que este se conecte a mi no-ip o no ?

haber is alguien me aclara este asunto desde ya gracias cuidense.

Pero es que te pones como una fiera compadre se que me equivoque pero perdon tambien me equivoco y saludos no tengo nada en contra tuyo aca todos queremos aprender cuidate y paz.