(CSocketMaster)
Wenas, estaba leyendo el manual de troyano desde cero,
para usar la api bastan con poner en google:
CSocketMaster VB
y socket.bas
con esos 2 archivos se imita el uso de winsock, solo hay que declararlo
Código:
Dim WithEvents ws As CSocketMaster
y
Código:
Set ws = New CSocketMaster
he intentao probarlo en mi nueva herramienta de administracion remota (xD), y ha empezao a darme errores, la mayoria los e conseguio solucionar, como por ejempo en lugar de poner ws.Close poner ws.CloseSck, porqe esta si qe esta en el modulo y si no da error...
Bueno, una vez hecho esto, al ejecutar mi servidor me ha dao un error
"Error 10048 en tiempo de ejecucion:
Address already in use" supongo qe sera el puerto, nose pero el server es lo unico qe tengo en ejecucion y por si sirve de algo y me podeis ayudar me lleva a esta linea del codigo del modulo de clase
Err.Raise lngErrorCode, "CSocketMaster.BindInternal", GetErrorDescription(lngErrorCode)
Os pongo donde se encuentra...
End With
'bind the socket
lngResult = api_bind(m_lngSocketHandle, udtSockAddr, LenB(udtSockAddr))
If lngResult = SOCKET_ERROR Then
lngErrorCode = Err.LastDllError
Err.Raise lngErrorCode, "CSocketMaster.BindInternal", GetErrorDescription(lngErrorCode)
Else
m_strLocalIP = strIP
If lngLocalPortInternal <> 0 Then
Debug.Print "OK Bind HOST: " & strLocalHostInternal & " PORT: " & lngLocalPortInternal
m_lngLocalPort = lngLocalPortInternal
Else
lngResult = GetLocalPort(m_lngSocketHandle)
If lngResult = SOCKET_ERROR Then
lngErrorCode = Err.LastDllError
Err.Raise lngErrorCode, "CSocketMaster.BindInternal", GetErrorDescription(lngErrorCode)
Else
Debug.Print "OK Bind HOST: " & strLocalHostInternal & " PORT: " & lngResult
m_lngLocalPortBind = lngResult
End If
End If
BindInternal = True
End If
End Function
Bueno, pues eso si me podeis exar una manita, gracias adelantadas