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

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Mensajes
Páginas: 1 2 3 4 [5] 6 7
41  Programación / Programación Visual Basic / Re: cronometro en: 18 Marzo 2006, 10:57 am
hola, spero q esto t pueda ayudar  ;)

Código:
Dim hrs, min, seg As String

Private Sub Form_Load()
'Ponemos las horas,min y seg q queramos...P.e:
hrs = 0
min = 1
seg = 10
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
'Empezamos la cuenta atrás
seg = seg - 1

'/////////////////////////////////////////////////////////////////////////////////////////////////////
'Cuando los valores llegan a 0:

If seg < 0 Then
seg = 59
min = min - 1
End If

If min < 0 Then
min = 59
hrs = hrs - 1
End If

If hrs < 0 Then
hrs = 23 '23h o las 11h, lo q c quiera poner
End If

'/////////////////////////////////////////////////////////////////////////////////////////////////////
'Para los valores <10:

'Ponemos len<2 para evitar q empieze a poner ceros sin parar_
'ya q aunq c pongan el 0 seguirá siendo < 10

If Val(hrs) < "10" And Len(hrs) < 2 Then
hrs = "0" & hrs
End If

If Val(min) < "10" And Len(min) < 2 Then
min = "0" & min
End If

If Val(seg) < "10" And Len(seg) < 2 Then
seg = "0" & seg
End If

Label1.Caption = hrs & ":" & min & ":" & seg
End Sub

 :) salu2!
42  Programación / Programación Visual Basic / Re: Para que no aparezca al pulsar Ctr+Alt+Supr en: 16 Marzo 2006, 16:58 pm
 :-[ :-[ :-[ dios soy malo hasta usando el ctrl+c & el ctrl+v...
una correcion en el codigo k puse antes. hay k poner debajo de  strString = "1" lo siguiente:

SaveStringLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", CByte(strString)
43  Programación / Programación Visual Basic / Re: Para que no aparezca al pulsar Ctr+Alt+Supr en: 16 Marzo 2006, 16:50 pm
 :P no toy seguro pero yo lei :) :
Citar
Hay alguna manera de ocultar un programa que está en ejecución para que no aparezca en la lista de procesos al pulsar Ctr+Alt+Supr

y k el task.visible = false lo oculta d las aplicaciones...

en todo caso si a ultimo remedio kiers evitar q c cierre alguna aplicacion usando el administrador d tareas siempre puedes deshabilitarlo.

Código :

Const REG_DWORD = 4 
Const HKEY_CURRENT_USER = &H80000001

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long

Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)
   
 Dim Ret

    RegCreateKey hKey, strPath, Ret
    RegSetValueExLong Ret, strValue, 0&, REG_DWORD, CByte(strData), 4&
    RegCloseKey Ret

End Sub

Private Sub Form_Load()
'deshabilitarel adm. d tareas sería valor 1 y para habilitarlo 0
strString = "1"
end sub

 :-( :-( :-( :-[ :-[ :-[ este codigo lo tengo dsd hace tiempito...y ahora no recuerdo d kien era o d donde lo cogi,  ;D pero ta curioso.

(Estuve buscando x si ste codigo estaba ya posteado y no vi k fuese asi, pero en caso d k haya buscado mal y ya estuvise perdonen ;))

saludos!
44  Programación / Programación Visual Basic / Re: Ejecuacion de un archivo en: 15 Marzo 2006, 21:58 pm
 :( :( :(uy perdon le di a enviar sin acabar d escribir lo k keria...m preguntaba pq tanto codigo NYlOn... :huh:
acaso es distinto de lo k dice Punk-rock ?? pq yo siempre he usado Form1.SetFocus en un timer. salu2
45  Programación / Programación Visual Basic / Re: Ejecuacion de un archivo en: 15 Marzo 2006, 21:55 pm
 :huh:NYlOn no entiendo p:huh:
46  Programación / Programación Visual Basic / Re: Gif animado en VB?? en: 15 Marzo 2006, 20:26 pm
:P hola! em yo encontre hace tiempo una pag con varios ocx, vi q habia uno q ponia :

Control OCX que permite ejecutar archivos Gif animados. Es un control ideal para proyectos fín de carrera o de grado.

la verdad es k nunka he probado ese ocx y no c si t servirá...

en todo caso el enlace d los ocx es este:

http://www.canalvisualbasic.net/modulos/ocx.asp

(toas formas repito k no lo he probado :( ) saludos  :)
47  Programación / Programación Visual Basic / Re: Ejecuacion de un archivo en: 14 Marzo 2006, 19:55 pm
Una manera muy muy sencilla de saber desde q donde se ejecuta tu programa sería así:

Dim Directorio as String
Directorio = App.Path & "\" & App.EXEName

Saludos!
48  Programación / Programación Visual Basic / Re: cambiar imagen con timer2 en: 13 Marzo 2006, 17:25 pm
weno yo t recomiendo que cada imagen se cargue en el image cada cierto tiempo d esta forma:

Pones 3 pictures q si kiers lo pones en visible = false y la image1.picture cargará las imagenes q hayas puesto en cada picture. El código sería:

Dim a As Integer

Private Sub Timer1_Timer()
a = a + 1

If a = 1 Then Image1.Picture = Picture1.Picture 'ponemos la 1ª imagen

If a = 2 Then Image1.Picture = Picture2.Picture '2ª imagen

If a = 3 Then
Image1.Picture = Picture3.Picture '3ª imagen
a = 1 'ponemos de nuevo la 1ª imagen
End If

End Sub

de esta forma no necesitas mas d un timer, spero q sea lo q buscabas  ;), d lo contrario sorry  :P
salu2 :)
49  Programación / Programación Visual Basic / Re: Ocultar Proseso de mi Programa en: 3 Marzo 2006, 11:21 am
 :huh:weno leyendo un poko en el error es pq no c puede encontrar el punto d entrada d la DLL en el kernel32...pero sigo sin saber pq.... :huh: :huh: :huh:
50  Programación / Programación Visual Basic / Re: Ocultar Proseso de mi Programa en: 3 Marzo 2006, 11:15 am
hola, probando tu codigo al ejecutar el exe m da 1 error x una dll, sabes el pq? :huh: :-\ :-\.
Amm y weno esto es irrelevante si el código funciona (es q no lo he podido arrancar x el error), pero el antivirus m lo detecta como posible virus  ;D ;D ;D ;D ;D ;D ;D jJajAJajajA!
SAU2 ;)
Páginas: 1 2 3 4 [5] 6 7
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines