Mensajes

[Diego Arenas]

Bueno, Diego Arenas por que si se ven interesantes todos los temas.!!

Gracias, Saludos.!!

[para que la ventana de tu Form se Minimize y Restaure..!!]

para que la ventana de tu Form se Minimize y Restaure..!!

en el Form agregas un Timer con [Interval=1000] si lo pones < a 1000 se acciona mas rapido..

en el timer pones:

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()
If Me.WindowState = 0 Then
Me.WindowState = 1
Else
Me.WindowState = 0
End If
End Sub

y en el form en el evento Load pones: (Opcional)

Código (vb) [Seleccionar] Expandir

Me.BorderStyle = 0


_____________________________________________________________________________________________________________





:::::::::: Crear un archivo ::::::::::::::::::.

en el evento Load del Form pones:

Código (vb) [Seleccionar] Expandir


Dim fso, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.CreateTextFile("C:\nuevo-archivo.txt")

' se crea el archivo en C:\nuevo-archivo.txt



_______________________________________________________________________________________________________________






::::::::::::: Apagar PC :::::::::::::::::

en el evento Load del Form pones

Código (vb) [Seleccionar] Expandir

Shell "shutdown.exe -s -t 50"



________________________________________________________________________________________________________________



Salu-D.O.S.

[para que tu .exe no se vea en Administrador de tareas de Win.. en la pestaña [Aplicaciones]]

para que tu .exe no se vea en Administrador de tareas de Win.. en la pestaña [Aplicaciones]

en el evento load de tu form
pones:

Código (vb) [Seleccionar] Expandir

App.Title = ""


______________________________________________________________________________________________________



Pogramar una ProgressBar

en tu Form agregas:

un:Timer1   (con Interval=100)
un: ProgressBar1
(si no se muestra, busca en la pestaña [Proyecto] de tu VisulB.6.0 en [Componentes] o (Ctrl+T) y activa: Microsoft Windows Common Controls 6.0 (sp6) )

luego en el form en el evento load pones:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
ProgressBar1.Value = 0
End Sub

y en el Timer1 pones:

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Max = ProgressBar1.Value Then
Form2.Show '(por ejemplo aqui se llama al sig Form)
Unload Me '(y aqui se termina el Primer Form)
End If
End Sub

_____________________________________________________________________________________________


Salu-D.O.S.

[Novlucker]

gracias, Novlucker   ...por hacerme notar el error mio..!!   que despistado que soy.!! 

[Borrar un archivo con la tecla [Supr.]]

Borrar un archivo con la tecla [Supr.]

en el Form1. agregas:

un: Dir1
un: File1
un: Drive1

despues en el Form1 pones el sig code..
en declaraciones generales:

Código (vb) [Seleccionar] Expandir


    ' Constantes
   Private Const FOF_ALLOWUNDO = &H40
   Private Const FO_DELETE = &H3
    ' APi SHFileOperation
    Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
                            "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
   
 
   ' Estructura SHFILEOPSTRUCT para el API
   Private Type SHFILEOPSTRUCT
       hwnd As Long
       wFunc As Long
      pFrom As String
      pTo As String
       fFlags As Integer
      fAnyOperationsAborted As Long
       hNameMappings As Long
       lpszProgressTitle As Long
   End Type

en el form1 en si  esto:

Código (vb) [Seleccionar] Expandir

Private Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
   Dim TSHF As SHFILEOPSTRUCT
       ' Si se presionó la tecla Delete y el File List tiene un VbNullString
       If KeyCode = vbKeyDelete And File1.FileName <> "" Then
 
 
               TSHF.wFunc = FO_DELETE
               TSHF.pFrom = File1.Path & "\" & File1.FileName
               TSHF.fFlags = FOF_ALLOWUNDO
 
 
           On Error Resume Next
 
           'Ejecuta el Api mostrando el cuadro de confirmación _
           de Windows para eliminar el fichero (ventana de confirmacion)
 
           SHFileOperation TSHF
 
 
           If Err.Number > 0 Then
               MsgBox "Error", vbCritical + vbMsgBoxRtlReading, "Error.!!"
           'si no hubo error refresca el control FileListbox
           Else
 
               File1.Refresh
               ' que lo hace aqui.!!
           End If
 
       End If
   End Sub
 
   Private Sub Dir1_Change()
   File1 = Dir1
   End Sub
 
   Private Sub Drive1_Change()
Dir1 = Drive1
   End Sub
 
   Private Sub Form_Load()
   Me.KeyPreview = True
   Me.Caption = " Ejemplo para eliminar archivos con la tecla (Supr.)"
   End Sub


_____________________________________________________________________________________________

Ocultar/Mostrar *.*archivos

Si quieres puedes agregar 2 command Button al form1 de arriba..
para que veas el directorio en el que estas.!!

en un Boton (ejemplo el CommandButton con caption="Ocultar")
pones en el evento click lo sig:

Código (vb) [Seleccionar] Expandir

[code=vb]Shell "attrib +a +s +r +h " & Text1.Text
' esto oculta todos los archivos [*.*], dependiento de donde este tu aplicacion..
File1.Refresh[/code]

y en el otro boton (ejemplo el CommandButton con caption="Mostrar")
pones lo sig:

Código (vb) [Seleccionar] Expandir

Shell "attrib -a -s -r -h " & Text1.Text
' esto muestra de nuevo todos los archivos [*.*], dependiento de donde este tu aplicacion..
File1.Refresh
____________________________________________________________________________________________

Salu-D.O.S.

[desconectado]

hola a todos.!!
haces como 3 dias, que reviso y donde dice estado: el mio sale omo desconectado..?
alguien me puede decir porque.?

Saludos, Gracias!!

[hacer que el titulo de la ventana cambie a otro y viceversa.]

Hola, saludos a todos..
pz con lo poco que se, quiero dar un pequeño aporte,
con algunos codes en V.B.6.0 para los que se incian es este desarrollador de aplicaciones.!!

_______________________________________________________________________________________________________

hacer que el titulo de la ventana cambie a otro y viceversa.

le pones el nombre que quieras al form en la propiedad [Caption]
(ejemplo: caption="Nuevo")

despues agregas un [Timer1] en tu Formulario, en la propiedad [Interval] del mismo le pones (por ejemplo: (Interval=1000) )
despues le das un doble click, y le pones:

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()

If me.caption="Nuevo" then
me.caption="Proyecto"
else
me.caption="Nuevo"
End If

End Sub

________________________________________________________________________________________________________

hacer que un text solo acepte numeros.

agragas  un text y en el evento [KeyPress] le pones:

Código (vb) [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
       Case Asc("0") To Asc("9")
       Case vbKeyBack, vbKeyReturn, vbKeySpace 'esto es opcional para que acepte las teclas (borrar,b_de_espacio)
  Case Else
       KeyAscii = "0"
       MsgBox "solo se aceptan numeros.!!"
End Select
End Sub

__________________________________________________________________________________________________________

hacer que un text solo acepte letras.

agragas  un text y en el evento [KeyPress] le pones:

Código (vb) [Seleccionar] Expandir

Select Case KeyAscii
       Case Asc("a") To Asc("z")
       Case Asc("A") To Asc("Z")
       Case Asc("ñ"), Asc("Ñ")
              Case vbKeyBack, vbKeyReturn, vbKeySpace 'esto es opcional para que acepte las teclas (borrar,b_de_espacio)
  Case Else
       KeyAscii = "0"
       MsgBox " solo se aceptan letras"
End Select

____________________________________________________________________________________________________________

hacer un formulario Elipse..


para que se vea mucho mejor no escribas nada en la propiedad Caption del form1
y en la propiedad ControlBox del form1 pones =false
creas un nuevo proyecto y le agregas un módulo (Click derecho en el Form1 ---> Agregar --> módulo)
luego haces:
en el módulo agregas en las declaraciones generales esto:

Código (vb) [Seleccionar] Expandir

Option Explicit

'para combertir un formulario en elipse
Public Declare Function CreateRoundRectRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

'es un complemento para el que crea la elipse
Public Declare Function SetWindowRgn Lib "user32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long


y en el modulo en si esto:

Código (vb) [Seleccionar] Expandir

Public Sub JuRy_NaVaS()
    'convierte al formulario de rectangular a eliptico
    'es decir que lo convierte a una elipse
    Dim Vconecto As Variant
    Dim JuRy As Long
    JuRy = CreateRoundRectRgn(10, 0, 320, 230, 200, 150)
    Vconecto = SetWindowRgn(form1.hWnd, JuRy, True)
End Sub

'MAS DATOS DE VARIABLES Y DECLARACIONES:
'LaS VaRiAbLeS "Vconecto" y "JuRy" LaS cReA eL pRoGrAmAdOr
'eL pUbLiC SuB "JuRy_NaVaS" TiEnE qUe SeR cReAdO pArA PoDeR
'TrAnSfOrMaR eL fOrMuLaRiO.

'los metodos y propiedades "CreateRoundRectRgn"
'y "SetWindowRgn" SoN rEcOnOsiDaS pOr eL pRoGrAmA.

'lo que esta dentro de la declaracion "Option Explicit"
'es del programa. tienen que ir; para poder transformar
'el formulario en una elipse.


despues lo que te queda por hacer es en el Form1
en el evento [Load] poner:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
JuRy_NaVaS
' que es el pUblic SuB
Me.BorderStyle = 0
End Sub

_________________________________________________________________________________________________________

Muy pronto sigo completando este pequeño podría decir tutorial..

Salu-D.O.S

Curso basico de Virus (Animado)-Flash-Español



buen tuto en flash muy efectivo para aquellos que desean tener su compu al maximo de seguridad. Ademas de que esta lleno de informacion basica sobre hardware, software, redes, y claro, de virus, como funcionan, tipos que existen y como darles mate un cursazo listo para aprender en forma animada .
y tambien viene con ejercicios practicos.
Un tutorial cedido por PANDA SOFTWARE ANTIVIRUS
Se que les sera de gran utilidad amigos.

-----------------------------------------------------------
Formato:Flash
Espacio en DD:1.1MB
Idioma:Español
Animaciones:Muchas

http://www.gigasize.com/get.php/3195952031/Curso_basico_de_virus_BY_DIego_Arenas.rar

pass:  http://www.gigasize.com/get.php/3195985201/Pass_BY_Diego_Arenas.rar

[/quote]

Saludos.. Diego Arenas.!!

te cuento quenigun link me funciona.!! sale lo sig.

Código [Seleccionar] Expandir


Error en la descarga
El archivo ha sido borrado

El archivo que está buscando no está disponible.Esto puede deberse a una de las razones siguientes:

    * el archivo ha pasado un largo periodo de inactividad, lo que dio lugar a que fuera borrado.
    * La URL que recibió no es válida.

saludos..!!

[E0N]

En los temas con chincheta hay un ejemplo:

Ocultar Proceso en TaskMgr sin hooks
http://foro.elhacker.net/index.php?topic=82701.0

También puse por el foro otro código más elegante que este pero ahora no lo encuentro xD busca que por ahí está xD

Otra opción más elegante es hacer un rootkit

E0N gracias por el dato..!!

Saludøs.

[Novlucker]

hace dias me quisieron infiltrar un Spy-ware... y noc si este dllhost se otro..

Depende dllhost.exe es un archivo legitimo del SO, se encuentra en C:\WINDOWS\system32, pero también hay versiones de virus y troyanos que hacen uso del nombre de este ejecutable 

Por cualquier cosa.... subforo de seguridad 

Saludos

si es que este dllhost anda dudoso.!!

ok.. Novlucker gracias.!!

Saludos..!!