Temas

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 ^^

Hola Gente ,, Quisiera Que Alguien Me Hiciera Un Codigo De VB 6  Que Cree 3 Cookies ... Los Cookies Son :

1)administrator

2)administratorpass

3)securitycode

TextBox : Donde Coloco La Pagina Web O IP De Web

Los Values De Los Cookies : 1

Expire : 2015


Osea Cuando Presione 1,2,3 Agregue Esos Cookies De La Web

Aqui Una Foto Del Proyecto :



Gracias Por Su Atencion ..

Codigo Borrado ! NO R.I.P

Ya Sirve !

Descargenlo Desde Aqui : http://www.megaupload.com/?d=O2ZQBV4R

¿Como Usarlo?
Muy Facil , Lo Descargas Pones el IP del Server , Vas al administrator.php del Server y En el Cheat Precionas los Botones 1 2 3 y Listo , Dale a Actualizar PAgina y Listo.