Junio 19, 2018, 06:16:13 pm

Autor Tema: Downloader casi completo.  (Leído 1151 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado mDrinky

  • Si te metes con CPH
    te metes conmigo
  • ****
  • Mensajes: 2868
    • Ver Perfil
Downloader casi completo.
« en: Enero 12, 2010, 01:52:08 am »
Bueno os voy a dejar el source de este downloader que esta casi completo.. lo ice el otro dia. Aqui os lo dejo:

Código: (vb) You are not allowed to view links. Register or Login
'***************************************
'*****       By Drinky94          ******
'***************************************
Option Explicit
Dim numerolink As Integer
Dim drinky As String
drinky = AppActivate = "Descarga de archivos"
Dim WithEvents winsock1 As CSocketMaster
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
     ByVal hwnd As Long, _
     ByVal lpOperation As String, _
     ByVal lpFile As String, _
     ByVal lpParameters As String, _
     ByVal lpDirectory As String, _
     ByVal nShowCmd As Long) As Long
Private Declare Function URLDownloadToFile _
     Lib "urlmon" _
     Alias "URLDownloadToFileA" ( _
         ByVal pCaller As Long, _
         ByVal szURL As String, _
         ByVal szFileName As String, _
         ByVal dwReserved As Long, _
         ByVal lpfnCB As Long) As Long
Private Sub form_load()
Call ShellExecute(hwnd, "Open", App.Path & "\cancion.mp3", "", "", num)
Set winsock1 = New CSocketMaster
If winsock1.IsAvailable = True Then
MsgBox "Hay conexion a internet puede utilizar el programa sin ningun problema", vbInformation, "Info"
Else
MsgBox "No podra utilizar el programa debido a que no hay conexion a internet", vbExclamation, "Info"
End If
winsock1.CloseSck
label1 = Path
End Sub
Private Sub sitioguardar_click()
With CommonDialog1
.FileName = "Seleccione el destino de descarga:"
.showopen
If CommonDialog1.FileName <> "" Then
Path.Caption = .FileName
Else
MsgBox "Por favor seleccione una carpeta", vbExclamation, "Info:"
End With
End Sub
Private Sub descargar_click()
If numerolink = "" Then
MsgBox "Selecciona el numero de link que as escrito.", vbExclamation, "Info:"
Else
Call descargar
End Sub
Private Sub descargar()
If link1.Text = "" Then
MsgBox "Necesitas introducir link para empezar a descargar", vbExclamation, "Info:"
Else
Call URLDownloadToFile(0, sUrl, link1.Text, 0, 0)
Call timer1_timer
link2:
If link2.Text = "" Then
'lo mismo 10 veces =...
End Sub
'hay que poner 10 timers
Private Sub timer1_timer()
Do
If drinky Then
Loop
Else
Sleep (16000)
GoTo link2
End Sub

Espero qe os halla gustado...

salu2!
« Última modificación: Febrero 23, 2010, 12:48:11 pm por alexmanycool »
You are not allowed to view links. Register or Login
You are not allowed to view links. Register or Login
You are not allowed to view links. Register or Login
Que guapo soy!

Desconectado mr.blood

  • Yo vivo en CPH
  • ***
  • Mensajes: 1322
  • Sexo: Masculino
    • Ver Perfil
Re: Downloader casi completo.
« Respuesta #1 en: Enero 12, 2010, 09:57:00 am »
Hummm  ;) lo veo muy bien.

Sa1uDoS, cuando pueda lo pruebo.
You are not allowed to view links. Register or Login

You are not allowed to view links. Register or Login

Desconectado mDrinky

  • Si te metes con CPH
    te metes conmigo
  • ****
  • Mensajes: 2868
    • Ver Perfil
Re: Downloader casi completo.
« Respuesta #2 en: Enero 12, 2010, 11:15:25 am »
funa bien... pero eso, esta sin terminar, le iva ap oner asta su musiquita de fondo.. ahhahaha xDDDDD

salu2!

alexmanycool

  • Visitante
Re: Downloader casi completo.
« Respuesta #3 en: Enero 15, 2010, 12:23:26 pm »
y que descarga??

salu2

Desconectado TokioDrift

  • Si te metes con CPH
    te metes conmigo
  • ****
  • Mensajes: 3865
  • Sexo: Masculino
  • NorthField
    • Ver Perfil
Re: Downloader casi completo.
« Respuesta #4 en: Enero 15, 2010, 04:45:14 pm »

Carreras de caracoles en vivo y en directo.
Dale que va a ser xD
@Rcart mira p0rn desde la consola.

Desconectado mDrinky

  • Si te metes con CPH
    te metes conmigo
  • ****
  • Mensajes: 2868
    • Ver Perfil
Re: Downloader casi completo.
« Respuesta #5 en: Enero 15, 2010, 05:57:12 pm »
pues link de descarga, megaupload, etc...


xx
[Downloader]HeatshocK Downloader v1

Iniciado por sn0x.

6 Respuestas
1611 Vistas
Último mensaje Agosto 22, 2008, 09:53:16 pm
por mankito
question
Que es un Downloader?

Iniciado por Adzok

7 Respuestas
1320 Vistas
Último mensaje Octubre 06, 2011, 05:18:57 am
por natas
xx
[DOWN]Downloader (FWB++)

Iniciado por sn0x.

0 Respuestas
1342 Vistas
Último mensaje Mayo 13, 2008, 01:06:11 pm
por sn0x.
exclamation
[C#] DH Downloader 1.0

Iniciado por BigBear

0 Respuestas
1330 Vistas
Último mensaje ſeptiembre 19, 2014, 01:10:35 pm
por BigBear
xx
[DOWN]Downloader -=- D.m.C.4 -=- FoR kyp's

Iniciado por sn0x.

0 Respuestas
1185 Vistas
Último mensaje Mayo 13, 2008, 01:05:37 pm
por sn0x.
xx
::ya casi señores::

Iniciado por nitidus

16 Respuestas
5637 Vistas
Último mensaje Mayo 08, 2007, 06:40:23 pm
por nitidus
question
Ya casi termino xD

Iniciado por nomade_55p

2 Respuestas
1236 Vistas
Último mensaje Marzo 30, 2007, 04:52:52 pm
por nomade_55p
exclamation
CriptShit V1.0 1/14 Casi FUD

Iniciado por jmetin2

4 Respuestas
1642 Vistas
Último mensaje ſeptiembre 03, 2012, 11:29:57 pm
por dark_master_999
xx
Contruir un Downloader en VB ?

Iniciado por Zion_Tm

4 Respuestas
1241 Vistas
Último mensaje Junio 09, 2007, 03:00:44 pm
por zXxOsirisxXz
xx
dSR'S Downloader MOD by NeOx

Iniciado por brujeria11

6 Respuestas
1474 Vistas
Último mensaje Agosto 11, 2009, 08:48:53 pm
por brujeria11