COMO DESLIGAR COMPUTADOR XP/WIN2K COM HORA

USUARIO.EXCLUIDOS 11/06/2007 09:36:34
#220619

Henri..

Olha...esse dois caracteres no final...se vc ainda n desobriu como tirar é o seguite:

sResult = sResult + Chr(13) & Chr(10) + sLinha..ta vendo q nessa linha, vc tem chr(13) e chr(10), é por causa desses caras q aparecem os quadradinhos..

Se no seu caso...somente grava uma linha de texto e mais nada, deixe essa linha assim

sResult = sLinha

Pronto..terá resolvido!

QQ coisa...posta novamente..

Agora pro seu segundo problema...o certo seria encerrar esse tópico e criar outro...de todo caso..vamos lá

Pra desabilitar CTrl+Alt+Del

Declara o seguinte em um Módulo:

Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, _
ByVal dwType As Long) As Long

Public Const RSP_SIMPLE_SERVICE As Long = 1
Public Const RSP_UNREGISTER_SERVICE As Long = 0


Crie a seguinte Sub:
Public Sub MakeMeService()
  Dim pid As Long
  Dim reserv As Long
  pid = GetCurrentProcessId()
  reserv = RegisterServiceProcess(pid,RSP_SIMPLE_SERVICE)
End Sub



Depois coloque o seguinte no FORM_LOAD:

Private Form_Load()
MakeMeService
End Sub


Para o Alt+F4, n achei nada...mas em todo caso tenta isso:
Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

      Cancel = 1

End Sub


o Form n fecha nem a pau!

Abraços
HENRYKAUKAU 11/06/2007 09:48:44
#220621
Buenas Sinker.

Logo mais quando chegar em casa irie fazer os teste indicados, pois agora estou no trabalho.

Quanto aos caracteres mesmo apesar de ter conseguido resolver o problema com o tratamento de arquivos INI, vou testar a sugestão.

As restantes para desabilitar as teclas depois eu dou um retorno.

Desde já agradeço pelas dicas.

Tanks All
Página 3 de 3 [26 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar