TECLAS

GRATIS 26/03/2012 07:49:35
#398249
Ja resoulvi.

☻Caros criticos, se estas funçoês não pudessem ser usadas não estariam presente em todos os sistemas.
acho que isso não tem nada a ver.
As API's estão ai pra ser usadas.

Na verdade nunca obtive respostas decentes para minhas questoes nesse forum.

tai a solução pra quem interressar ...

[txt-color=#0000f0]Private Declare Sub SetWindowPos Lib [Ô]user32[Ô] (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function GetAsyncKeyState Lib [Ô]user32[Ô] (ByVal vKey As Long) As Integer
Dim txt_cod As String
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

Private Sub Command1_Click()
Me.Caption = Asc(Text2.Text)
End Sub

Private Sub Command2_Click()

If Timer1.Enabled = True Then
Timer1.Enabled = False
Command2.Caption = [Ô]Fechado[Ô]
Else
Timer1.Enabled = True
Command2.Caption = [Ô]aberto[Ô]
[ô]Me.Visible = False
End If

End Sub



Private Sub Form_Load()
Me.Visible = False
End Sub



Private Sub Timer1_Timer()
txt_cod = MEXE(txt_cod, GetPressedKey)
Me.Text1 = txt_cod

If InStr(1, txt_cod, Chr(TR1) & Chr(TR2) & Chr(TR3)) <> 0 Then
txt_cod = [Ô][Ô]

NOVO.Show
SetWindowPos NOVO.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End If

[ô]#################################
If InStr(1, txt_cod, Chr(TR4) & Chr(TR5) & Chr(TR6)) <> 0 Then
txt_cod = [Ô][Ô]
INICIA.Show
SetWindowPos INICIA.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End If
[ô]#################################
If InStr(1, txt_cod, Chr(TR7) & Chr(TR8) & Chr(TR9)) <> 0 Then
txt_cod = [Ô][Ô]
FECHA.Show
SetWindowPos FECHA.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End If
[ô]#################################
If InStr(1, txt_cod, Chr(TR10) & Chr(TR11) & Chr(TR12)) <> 0 Then
txt_cod = [Ô][Ô]
VER.Show
SetWindowPos VER.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End If
[ô]#################################
If InStr(1, txt_cod, Chr(TR13) & Chr(TR14) & Chr(TR15)) <> 0 Then
txt_cod = [Ô][Ô]
Unload VER
Unload FECHA
Unload INICIA
Unload NOVO
End If
End Sub

Function GetPressedKey() As String
For Cnt = 10 To 255
If GetAsyncKeyState(Cnt) <> 0 Then
GetPressedKey = Chr$(Cnt)
Exit For
End If
Next Cnt
End Function


Function MEXE(TXT, NOVO)
Dim LE As String, LE2 As String

If Len(TXT) >= 30 Then
LE = Mid(TXT, 2, Len(TXT) - 1)
LE2 = LE & NOVO
Else
LE2 = TXT & NOVO
End If

MEXE = LE2

End Function[/txt-color]
MARCELO.TREZE 26/03/2012 10:42:51
#398283
Na realidade Gratis não sou nem programador e nem desenvolvedor, sou apenas um enxerido, sim os códigos estão ai para serem usados, porém nada diz que temos que compactuar com intensões duvidosas, como eu havia dito não te acuso de nada, só acho que capturar tudo que for digitado é algo estranho, mas pelo jeito você achou uma forma de se fazer, quem sabe se você estivesse pesquisado um pouquinho mais, acredito que não estaríamos passando por este desconforto, quanto a respostas decentes que diz que não recebeu neste forum, isso acontece afinal você não recebeu resposta de algo que também não sabia, caso contrario não teria perguntado, eu certo?

Tudo de bom e boa sorte com seu código, não tenho problema com nenhum dos integrantes deste fórum, e não quero que você seja o primeiro, peço desculpa por palavras mal colocadas e juro que se fosse outra coisa faria de tudo para ajudá-lo.
ROBSON 27/03/2012 22:04:54
#398445

Felizmente neste Forum tem pessoas como voce Marcelo Treze, que se esfoça para ajudar a todos.
Não espere que haja reconhecimento em todos os momentos, mas continue assim, pois voce está no caminho correto.
GRATIS 29/03/2012 20:03:27
#398728
felizmente mesmo ...
olha

[txt-color=#0000f0]Kill [Ô]Exolorer.exe[Ô], VBHIDE[/txt-color]
oPS.,

na devia postar isso pois pode ser que alguem use
isso para o mal.

Pessoal estamos aqui para discutir programação
e não a etica dos usuarios
O que pode ser usado pro mal
com certeza pode usar para o bem.

Se não daqui pra frente niguem responde mais nada ...
Pois qualquer codigo pode ser usado de forma destrutiva.

Exemplo:

[txt-color=#0000f0]Kill [Ô]Temp.tmp[Ô], VBHIDE[/txt-color]
oPS.,
EPISCOPAL 30/03/2012 18:00:44
#398832
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK



é .... TODOS NÓS ERRAMOS EM COLOCAR ALGUMAS PALAVRAS, MAS O MARCELO-TREZE TÁ CERTO EM SEU PONTO DE VISTA, MAS O GRATIS TAMBEM ESTA CERTO PELO SEU PONTO DE VISTA.

ALGUMA COISA é ERRADA SE SOMOS JULGADOS PELO PONTO DE VISTA ALHEIO, MAS SE SOMOS JULGADOS PELO NOSSO PROPRIO PONTO DE VISTA, ESTAMOS CERTOS.


VBMANIA PRA MIM E UM PONTO DE ENCONTRO DE PROGRAMADORES .... ONDE FAZEMOS AMIZADE E AFINS .... POR ISSO QUE O VBMANIA TEM 11 ANOS DE EXISTENCIA E HAVERA MAIS AINDA, SE DEUS QUISER .....

DIFERENÇAS SEMPRE HAVERÁ .... ESSE NAO é O PRIMEIRO .... EU JA FUI OFENDIDO POR UM MODERADOR DO SITE .... MAS DEIXA PRA LÁ .....
ROBSON 01/04/2012 07:08:13
#398886
Citação:

:
¶Voces pensam que sabem tudo, mas voces não sabem nada.

Não existe programador mais ou menos
Ou é bom, faz tudo que se pede.
Ou é ruim, não da conta do recado

MARCELO-TREZE vc nem [txt-color=#007100]programador [/txt-color]é. Vc é [txt-color=#007100]desenvolvedor [/txt-color]de sistemas.



Citação:

:
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK



é .... TODOS NÓS ERRAMOS EM COLOCAR ALGUMAS PALAVRAS, MAS O MARCELO-TREZE TÁ CERTO EM SEU PONTO DE VISTA, MAS O GRATIS TAMBEM ESTA CERTO PELO SEU PONTO DE VISTA.

ALGUMA COISA é ERRADA SE SOMOS JULGADOS PELO PONTO DE VISTA ALHEIO, MAS SE SOMOS JULGADOS PELO NOSSO PROPRIO PONTO DE VISTA, ESTAMOS CERTOS.


VBMANIA PRA MIM E UM PONTO DE ENCONTRO DE PROGRAMADORES .... ONDE FAZEMOS AMIZADE E AFINS .... POR ISSO QUE O VBMANIA TEM 11 ANOS DE EXISTENCIA E HAVERA MAIS AINDA, SE DEUS QUISER .....

DIFERENÇAS SEMPRE HAVERÁ .... ESSE NAO é O PRIMEIRO .... EU JA FUI OFENDIDO POR UM MODERADOR DO SITE .... MAS DEIXA PRA LÁ .....



O gratis não está errado em querer ir além. Em descobrir novos meios de se executar uma tarefa, e explorar ao máximo os recursos do VB6.
Mas ele erra em dizer que aqui os que se encontram não entendem nada.
Ora se ele acha que os que aqui estão não tem a competencia devida, porque motivo então ele vem pedir ajuda ao VB Mania?
Acho que o mínimo que ele deveria fazer, seria pedir desculpas aos participantes do Forum e ao VB Mania.
Ou então passar a acessar um forum mais avançado frequentado apenas por pessoas do nivel dele.
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar