Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: green.pitch en Diciembre 13, 2011, 04:51:40 am

Título: [Help] File Transfer (Resume Supportable)
Publicado por: green.pitch en Diciembre 13, 2011, 04:51:40 am

Dear Members,
I am a New Member of this forum. I'v joined this forum to get some useful programmatic information and  help.

Actually I am creating an Application is VB6.0 for Transferring Files to Remote Pc and vice-versa. I'v downloaded few RAT projects to study their File Transfer methods. They all are good.

But I need a Source Code to Transfer Files Resume supportable like IDM and other File Download Managers. All these Download managers are HTTP based.

Resume based File Transfer means to PAUSE and RESUME file transfer between two computers.
I hope you all are understanding me. I request you to please create such Source in Vb6 for study purpose.

-Thanks
-with Regards,

Título: Re:[Help] File Transfer (Resume Supportable)
Publicado por: raul338 en Diciembre 13, 2011, 12:14:17 pm

Did you check this? Uses HTTP 1.1 (I think, or maybe 1.0)

Descargador multiconexion (http://leandroascierto.com/blog/descargador-multiconexion/)

Título: Re:[Help] File Transfer (Resume Supportable)
Publicado por: green.pitch en Diciembre 13, 2011, 05:12:21 pm

Hi Raul bro,
Thanks for REply. Yes bro I'v already checked this.. This is Cool project for HTTP downloading.
But In above post I'v asked for PC to PC file transfer... same as a RAT given on :

Código: [Seleccionar]

http://leandroascierto.com/blog/explorador-remoto-proyecto-en-marcha/
But it's File Transfer (Download and Upload) is not Resume supportable.. Resume supportable File Transfer will be important to transfer large sized files..

Thanks again !
Regards,

Título: Re:[Help] File Transfer (Resume Supportable)
Publicado por: raul338 en Diciembre 13, 2011, 06:55:24 pm

Well you need to make your own message-based system to comunicate the apps. One server/mcuh clients, or p2p.

Client	Server
Get info A.jpg		Ask for A.jpg
	A.jpg|2000	Says that A.jpg size is 2000 bytes
Get A.jpg|0|1024		Gets first 1024 bytes from A.jpg
	A.jpg|(md5)	Starts the transfer, and gives the bytes send should have that md5
(close conection at byte 22)
Get A.jpg|22|1024		Get bytes from A.jpg from 22 to 1024
	A.jpg|(md5)	Starts the transfer, and gives the bytes send should have that md5

Now all you need is the client and server parse trough sockets, :)

Título: Re:[Help] File Transfer (Resume Supportable)
Publicado por: green.pitch en Diciembre 14, 2011, 08:22:10 am

Thanks Bro,
That's the nice concept..But still need to know from you about it.

How to Read and Write Binary Files from specific number of Bytes..

Example:
Suppose, If I wanna Write a Binary File from the 10th Byte then What I need to code?

And,

If I wanna Read File from 10th Byte to 20 byte then?

These are the big confusion for me..

What I know is :
To write file:

Código: [Seleccionar]

Open <Filename> for Binary as #1
Put#1,,Byte
Close #1

Same to Read:

Código: [Seleccionar]

Open <Filename> for Binary as #1
Get#1,,Byte
Close #1
-Thanks again ! :)

Título: Re:[Help] File Transfer (Resume Supportable)
Publicado por: raul338 en Diciembre 14, 2011, 03:51:53 pm

You need the Seek sentence, I cant google it rigth now, but thats the key

Título: Re:[Help] File Transfer (Resume Supportable)
Publicado por: green.pitch en Diciembre 15, 2011, 08:36:15 am

Cita de: raul338 en Diciembre 14, 2011, 03:51:53 pm

You need the Seek sentence, I cant google it rigth now, but thats the key

Thanks bro.
You are absolutely right bro.. that's the SEEK keyword.

To Read data from 10th byte we can use it as :

Código: [Seleccionar]

Open <Filename> for Binary as #1
Seek#1,10
Get#1,,Byte()
Close #1

How to SEEK from range:
to Seek data from 1st BYTE to range 10

Código: [Seleccionar]

Private Sub Command1_Click()
Dim BB(10) As Byte
Open "D:\calc.exe" For Binary As #1
Seek #1, 1
Get #1, , BB
Close #1
Dim i As Integer
Dim S As String
For i = 0 To UBound(BB)
S = S & " " & IIf(Len(Hex(BB(i))) = 1, "0" & Hex(BB(i)), Hex(BB(i)))
Next i
MsgBox S
End Sub

I am trying to create the project I'v explained above. I would like to contribute it to our forum if I got success else will ask again  ;D

Título: Re:[Help] File Transfer (Resume Supportable)
Publicado por: raul338 en Diciembre 15, 2011, 11:45:52 am

Nice, we (or at least, I xD) will be waiting :P

Título: Re:[Help] File Transfer (Resume Supportable)
Publicado por: green.pitch en Diciembre 22, 2011, 07:56:21 am

Hi Bros,
I have created one simple Resume based File transfer application that I am sharing with you. It can send large size files also (in GB).

- Create a folder "Downloads" in the application path.

Please have a look..
Download link:

Código: [Seleccionar]

http://www.2shared.com/file/NoK9AYxM/FileTransfer_VGood_.html
-Regards, :)