Ir para conteúdo

Featured Replies

Postado

Mais procure intender o código, só colocar e ve se funciona não vai adiantar de nada, porque erros concerteza irão surgir.

@Robson

Eu tbm tinha intendido isso, mais acho q isso ja é "foda" de faze, pelo menos pra mim tbm.

# Regras Gerais - TibiaKing.com #
Contato: [email protected]
Não respondo dúvidas via MP.


1C2tu.png4Tlqo.png1C2tu.png


 

  • Respostas 18
  • Visualizações 1.6k
  • Created
  • Última resposta

Top Posters In This Topic

Most Popular Posts

  • Fazer tipo, teclas de atalho, se vc apertar CTRL+S o programa esconde? http://vbtuga.blogspot.com/2008/09/vbnet-criando-hotkeys-teclas-de-atalho.html segue um link que explica isso (se for r

  • Private Sub Teste
    Private Sub Teste

    Prontinho, consegui fazer, agora é só ajeitar, se não conseguir colocar pra pegar o SelectedItem do ListBox e jogar no código, posta aqui ou me add msn ([email protected]). Fiz meio correndo

Posted Images

Postado

@Augusto

Sim, essa função que você enviou é ótima. Se eu soubesse eu ajudava com a outr :(

@Topic

Eu faço gambiarras em algums códigos, quando era mais 'novo', mais inexperiente, eu colocava um timer com interval de 1000 e adiciona o seguinte código:

'declara que keystate é quando for pressionada a tecla "A"

keystate = Getasynckeystate(System.Windows.Forms.Keys.A)

'se a key "A", declarada acima for pressionada, irá executar a função

If (keystate And &H1S) = &H1S Then

'executa a função, no caso irá adicionar ao textbox a tecla "A"

TextBox1.Text = TextBox1.Text & "A"

'termina o "então"

End If

Você ainda pode fazer assim:

'declara que keystate é quando for pressionada a tecla definida no TextBox1 e no TextBox2

keystate = Getasynckeystate(System.Windows.Forms.Keys.TextBox1.Text And System.Windows.Forms.Keys.TextBox2.Text)

'se a key "A", declarada acima for pressionada, irá executar a função

If (keystate And &H1S) = &H1S Then

'executa a função, no caso irá adicionar ao textbox3 uma frase

TextBox1.Text = TextBox3.Text & "Não testei, portanto, não é certeza que funcione"

'termina o "então"

End If

Postado

Se não entender ou não funcionar, me fale no tópico

Ps: Você temque declarar keystate(Dim keystate) e pegar o evento do Getasynckeystate, só joga no google.

'declara que keystate é quando for pressionada a tecla desejada

keystate = Getasynckeystate(System.Windows.Forms.Keys.PageUp)

'se a key "A", declarada acima for pressionada, irá executar a função

If (keystate And &H1S) = &H1S Then

'executa a função, no caso irá adicionar ao textbox a tecla "A"

Me.Hide

'termina o "então"

End If

Postado
  • Autor

Se não entender ou não funcionar, me fale no tópico

Ps: Você temque declarar keystate(Dim keystate) e pegar o evento do Getasynckeystate, só joga no google.

'declara que keystate é quando for pressionada a tecla desejada

keystate = Getasynckeystate(System.Windows.Forms.Keys.PageUp)

'se a key "A", declarada acima for pressionada, irá executar a função

If (keystate And &H1S) = &H1S Then

'executa a função, no caso irá adicionar ao textbox a tecla "A"

Me.Hide

'termina o "então"

End If

Po vamo faze de otro geito tipo assim clica com o direito aparece o menu strip e clica em add Process To hide. Dai lá vai te uma lista de processos e tu escolhe o processo Tipo Tibia. Dai clica hide no botao e vai aparece o programa numa listbox e dps clica em show mostra ele

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

Quem Está Navegando 0

  • Nenhum usuário registrado visualizando esta página.

Estatísticas dos Fóruns

  • Tópicos 96.9k
  • Posts 520k

Informação Importante

Confirmação de Termo