Hola ,,, Yo Quiero Crear Un Programa Que Envie Codigos A Servidores Remotos


Ejemplo Que Envie Paquetes Hexadecimales Tipo : C1 03 BC 48 DA
 

Ejemplo Este Programa Hecho Con Winsok :

pero en vez de enviar archivos .. envie paquetes


este es el code mio ....

Option Explicit


Private Declare Function GetFileTitle _
Lib "comdlg32.dll" _
Alias "GetFileTitleA" ( _
ByVal lpszFile As String, _
ByVal lpszTitle As String, _
ByVal cbBuf As Integer) As Integer

Private Sub Command1_Click()
On Error Resume Next
'conectamos al servidor. El Text1 es la dirección IP y el Text2 es el puerto
Winsock1.Connect Text1, Text2
Command1.Enabled = False
End Sub

Private Sub Command2_Click()

Dim sFileName As String
'Comprobamos que hay un archivo a enviar
If Trim(Text3) = "" Then
MsgBox "Debe elegir un archivo"
Exit Sub
End If

If Dir(Text3) <> "" Then
sFileName = GetFileName(Text3)

'Enviamos los datos (El tamaño, y el nombre)
Winsock1.SendData "|Archivo|" & FileLen(Text3) & "|" & sFileName
Else
MsgBox "El archivo no existe"
End If

End Sub


Private Sub Form_Load()
'Ip del formulario servidor
Text1 = "127.0.0.1"
'Puerto
Text2 = "3000"
Text3.Enabled = True
Command1.Caption = "Conectar"
Command2.Caption = "Enviar"
Me.Caption = "Cliente"
End Sub

Private Sub Winsock1_Close()

On Error Resume Next

Command1.Enabled = True
Command2.Enabled = False

'Cerramos el winsock
Winsock1.Close

MsgBox "La Conexion se ha cerradado", vbInformation
End Sub

Private Sub Winsock1_Connect()
Command1.Enabled = False
Command2.Enabled = True

MsgBox "Conectado correctamente al servidor"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
Winsock1.GetData sData, vbString

If sData = "|Ok|" Then Call Enviar_Archivo
End Sub

Private Sub Winsock1_Error( _
ByVal Number As Integer, _
Description As String, _
ByVal Scode As Long, _
ByVal Source As String, _
ByVal HelpFile As String, _
ByVal HelpContext As Long, _
CancelDisplay As Boolean)

On Error Resume Next

Command1.Enabled = True
Command2.Enabled = False
'Cerramos el winsock
Winsock1.Close
MsgBox "Error al cerrar la conexion"
End Sub

Private Sub Enviar_Archivo()
Dim Size As Long
Dim arrData() As Byte

Open Text3 For Binary Access Read As #1

'Obtenemos el tamaño exacto en bytes del archivo para
' poder redimensionar el array de bytes
Size = LOF(1)
ReDim arrData(Size - 1)

'Leemos y almacenamos todo el fichero en el array
Get #1, , arrData
'Cerramos
Close

'Enviamos el archivo
Winsock1.SendData arrData

End Sub

Private Function GetFileName(sPath As String)
Dim sBuffer As String * 255
Dim sTemp As String

GetFileTitle sPath, sBuffer, Len(sBuffer)
GetFileName = Left(sBuffer, InStr(1, sBuffer, Chr(0)) - 1)
End Function

cuando lo hago y pongo el codigo y le doy enviar me dice ''El Archivo No Existe''
O.o ... cuando pngo un archivo si sirve pero lo que yo quiero es enviar codigos no archivos ^^

es lo mismo q enviar un archivo porq lo q estas haciendo es enviar packetes que despues en el server los unís y forma el archivo con la diferencia que antes de enviar el mensaje aca lo vas a tener q pasar a hexadecimal. Busca un tutorial cliente-server y vas a ver

mmm pero no te exasperes bro...¡! lo que debes saber es que para enviar texto, datos binarios, archivo (EXe, jpg, todo lo que se t ocurra) por medio el Winsock o derivados. se mandan de la misma forma TODOS.

Busca en el foro un manual de Winsock que basta cantidad de esto.

P.D.: Lee un manual/tuto de esto.¡!

Empieza por aprender a programar y cuando tengas dudas de verdad preguntas...

^^ quien lo soluciono ??? O.o?