Creating Several HTTPSecuresockets with FOR NEXT

Gerardo_Garca · August 4, 2017, 3:29pm

Hi!

I wonder if its possible to create several HTTPSecuresockets with For NEXT.

I’m doing this:

    Dim NombreSockets() as String
    For i as integer = 0 to 12 
      NombreSockets.Append("socket"+format(i,"00"))    //Creo los nombres de los Sockets
      Dim NombreSockets(i) as New HTTPSecureSocket. //Creo los sockets con los nombres deseados
      SocketSetup(NombreSockets(i))                                 //Asigno las propiedades a cada socket
    Next



    DirDescarga = SpecialFolder.Desktop.child("target").child("0"+".xml")
    socket02.Get(URLarray(0), DirDescarga)
    
    DirDescarga = SpecialFolder.Desktop.child("target").child("1"+".xml")
    socket01.Get(URLarray(1), DirDescarga)

But I got this Errors:
Redefined Identifier - This name is already defined by variable NombreSockets

This item doesn’t exist:
socket01
socket02

Obviously I get the last two errors, because its not yet created.

But the Error name of the sockets, is there a way to do that?

Thanks

DaveS · August 4, 2017, 3:36pm

try this… .off top of my head

    Dim NombreSockets() as HTTPSecureSocket
   dim sckt as TTPSecureSocket.
    For i as integer = 0 to 12 
      sckt=New HTTPSecureSocket
      SocketSetup(Sckt)                                 //Asigno las propiedades a cada socket
      NombreSockets.append sckt
    Next



    DirDescarga = SpecialFolder.Desktop.child("target").child("0"+".xml")
NombreSockets(2).Get(URLarray(0), DirDescarga)
    
    DirDescarga = SpecialFolder.Desktop.child("target").child("1"+".xml")
NombreSockets(1).Get(URLarray(1), DirDescarga)

Gerardo_Garca · August 4, 2017, 3:52pm

[quote=343822:@Dave S]try this… .off top of my head

[code]
Dim NombreSockets() as HTTPSecureSocket
dim sckt as TTPSecureSocket.
For i as integer = 0 to 12
sckt=New HTTPSecureSocket
SocketSetup(Sckt) //Asigno las propiedades a cada socket
NombreSockets.append sckt
Next

DirDescarga = SpecialFolder.Desktop.child("target").child("0"+".xml")

NombreSockets(2).Get(URLarray(0), DirDescarga)

DirDescarga = SpecialFolder.Desktop.child("target").child("1"+".xml")

NombreSockets(1).Get(URLarray(1), DirDescarga)
[/code][/quote]
Dave, you’re a totally Genius!!!

Gerardo_Garca · August 4, 2017, 4:29pm

Hi Dave!!! Look at this, The idea of do this, to Download the maximum of downloads at the same time, instead of doing a Query as normally, I’m thinking in that to efficientize my process, using less time and producing a cleaner code.

So, Thats my code looks like:

  //MsgBox Cookiename
  
  
  
  If Cookiename <> "" Then
    Dim DirDescarga As New FolderItem
    Dim URLarray() as String 
    
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    URLarray.Append("https://download_example.com/8bVjqrvQfLIVgL/Ar8gD800l429ScJOBvEz8bm=")
    
    
    //Creating Sockets as many Items Have my URLArray
    Dim NombreSockets() as HTTPSecureSocket
    dim sckt as HTTPSecureSocket
    For i as integer = 0 to URLarray.Ubound 
      sckt=New HTTPSecureSocket
      SocketSetup(Sckt)                                 //Setup the Socket Properties
      NombreSockets.append sckt
    Next
    
    
    
    
    Dim Numero As Integer
    For each d as HTTPSecureSocket in NombreSockets
      Numero = Numero  + 1
      DirDescarga = SpecialFolder.Desktop.child("target").child(Numero.ToText+".xml")
      d.Get(URLarray(Numero-1), DirDescarga)
    next
    
    
    
  End If

Surprisingly it works. Now the next goal is to do an EventHandler for every SocketCreated, In order to process each downloaded file using the DownloadComplete event of each socket.

Once procesed all files, dispose all sockets.

I’m think I’m doing it ok, but what did you think?