aaaa lo de la contraseña.. jejeje se me olvido kitarla... puende descarlo de nuevo... ya quite ese atributo
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarYa he modificado la aplicacion corrigiendo los errores que BlackZeroX encontro por favor sigan mensionando errores que les produzca
Las mejoras las tendre en cuenta para la proxima version, al igual contrendra algunos codigos incorporados.
Private Sub richTextBox_KeyPress(KeyAscii As Integer)
'En caso de que selFile sea 0 entonces determinar donde comienza la linea nueva
If selFile = 0 Then
selFile = 1
posIni = richTextBox.SelStart 'posIni es para saber la posicion donde comienza la linea
End If
If KeyAscii = 13 Then 'En caso de que se presione enter
selFile = 0
'Llamar a la funcion que se encarga de darle color a la linea
call FindLine(posIni, richTextBox.selStart) 'Se le envia posIni que es la posicion inicial de la linea, y el richTextBox.selStart es enviarle la posicion final de la linea
End If
End Sub
Private Sub RichTextBox_Change()
line=line & RichTextBox.selStart -1
if chr(13) then
'Llamar a la funcion que se encarga de hacer lo k se deba hacer con la linea
end if
End Sub
Cita de: seba123neo en 21 Enero 2009, 00:11 AMes cierto todo lo que dice seba123neo, ahora que me acuerdo hay un code para desabilitar el ctrl alt supr....
todo eso consume un monton de recursos...para deshabilitar el ctrl + alt + sup lo podes hacer desde el registro o sino matar la ventana del task manager cuando se hace visible...o mira hace poco postearon como no permitir matar tu aplicacion desde el tskmanager deshabilitando el boton de "matar proceso"
saludso.
Option Explicit
' Rama del registro para deshabilitar y habilitar el TaskManager de XP
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Const RAMA_REGISTRO As String = _
"HKEY_CURRENT_USER\Software\" & _
"Microsoft\Windows\CurrentVer" & _
"sion\Policies\System\DisableTaskmgr"
Private Sub Grabar_Registro(Rama As String, Value As Integer)
Dim wsh As Object
On Error GoTo error_sub
'creamos la variable para usar wsh
Set wsh = CreateObject("wscript.shell")
'Grabamos el valor en el registro con el método regWrite _
de windows script host
wsh.RegWrite Rama, Value, "REG_DWORD"
'Eliminamos la variable wsh creada
Set wsh = Nothing
Exit Sub
' Error
error_sub:
MsgBox Err.Description: Resume Next
End Sub
'BOTON PARA Desactivar las teclas
''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
Grabar_Registro RAMA_REGISTRO, "1"
End Sub
'BOTON PARA Activar Ctrl+Alt+Sup
''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command2_Click()
Grabar_Registro RAMA_REGISTRO, "0"
End Sub
Private Sub Form_Load()
Command1.Caption = " Desactivar "
Command2.Caption = " Activar "
End Sub