Ir para conteúdo

Private Sub Teste

Héroi
  • Registro em

  • Última visita

Tudo que Private Sub Teste postou

  1. Resolvi postar uma pequena parte do código usado no Mage Trainer, é apenas um exemplo de como enviar hotkeys para o tibia. O processo é simples, você vai precisar de: Button Declare as seguintes funções no ínicio do form (depois de Public Class Form1) 'esta é a função usada 'para achar a janela do tibia Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int32 'esta é a função usada 'para enviar a mensagem para o client 'sem o "focusar" Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer 'usada para definir o client Dim hwndTarget As Long 'variaveis de algumas letras Const WM_KEYDOWN As Long = &H100 Const WM_KEYUP As Long = &H101 Const WM_F9 As Long = &H78 Agora, dê dois clicks no Button1 e adicione o seguinte: 'usado para armazenar o cliente 'essa função pega o handle do tibia 'e armazena em hwndTarget '"tibiaclient" é a classname do tibia hwndTarget = FindWindow("tibiaclient", vbNullString) 'envia a mensagem para a janela do tibia 'no caso ele enviara a hotkey F9 SendMessage(hwndTarget, WM_KEYDOWN, WM_F9, 0) 'sempre execute a função do WM_KEYUP 'em algums casos, pode dar erro 'portanto, é sempre bom previnir SendMessage(hwndTarget, WM_KEYUP, WM_F9, 0) No final, seu código será que nem esse: Já sabe oque fazer agora né?
  2. http://www.youtube.com/watch?v=SmcoqzQmjRs Ps: não sei porque está piscando em FULL HD. Rep++ aqui e Jóinha la no yutubi. Download Clique aqui ~ 4Shared Scan Clique aqui ~ VirusTotal
  3. Reputado. Gostei do tutorial, coisa simples e fácil de entender
  4. Private Sub Teste postou uma resposta no tópico em Playground (Off-topic)
    Euri ~~
  5. Private Sub Teste postou uma resposta no tópico em Playground (Off-topic)
    Vai ter algum viado pra votar na 1ª será?
  6. Added!
  7. Private Sub Teste postou uma resposta no tópico em Playground (Off-topic)
    IMAGEM 1: O usuário mais gostoso do tibiabots.net Euri demais. Ponha a 3ª ou a do aLD
  8. Ele quer colocar para checkar duas coisas, ve se isso ajuda \/ 500 {Item Check} Misc.ItemCount(item name)>XX CaveBot.GoStart 500 {Cap Check} Self.Capacity>XX CaveBot.GoStart
  9. Private Sub Teste postou uma resposta no tópico em Recursos Avançados
    xD Qualquer coisa posta ae
  10. Private Sub Teste postou uma resposta no tópico em Recursos Avançados
    WIEUWIEUIWUEIWUE verdade, fiz pensando nisso e também pra quem deixa certas coisas baixando que conheço muita gente que faz isso
  11. Private Sub Teste postou uma resposta no tópico em Recursos Avançados
    Hello guys, i'm Robson Venturin (oh no, you again). Esse é meu new program, um aplicativo simples que durou +/- 4horas pra mim conseguir faze-lo e ainda não cheguei a perfeição, háhá. Download Clique aqui ~ 4Shared Scan Clique aqui ~ VirusTotal Screenshot rep++ é ali embaixo ó >>>>>>>>>>>>>>>>>>>>>>>>>>>>>\/
  12. Desculpa se eu to revivendo o tópico, mas encontrei um problema Quando eu vo escrever no arquivo *.ini ele da erro e aparece: O que pode ser? Tava funcionando normal, agora parou... Preciso urgente disso ---------------------------------------- EDITED Foi mal por reviver o tópico, apenas deletei o arquivo config.ini e agora está funcionando perfeitamente ¬¬' Tyx
  13. Private Sub Teste postou uma resposta no tópico em Playground (Off-topic)
    Yo soi fueda
  14. Private Sub Teste postou uma resposta no tópico em Playground (Off-topic)
    Sim, fiz isso agora, só que antes eu tava só testando e apertei os botão errado, era por hotkey WEUWIEUWIEUWIUEIWE
  15. Private Sub Teste postou uma resposta no tópico em Playground (Off-topic)
    Se você for fazer um programa que 'Hide' todos os outros programa, não fexe o programa que da 'Unhide' nos programas ja 'Hidados'. Entendeu? Ou seja: Eu dei hide em todos os programas e depois fexei o programa principal, tive que reiniciar pc pra não criar um imenso código WIEUWIEUWIUE
  16. Concordo com você Eduu. xD vo programar, fui
  17. Tenso AUSHDUAHSDUHSAUDH
  18. Private Sub Teste postou uma resposta no tópico em Recursos Avançados
    Estou tentando fazer um projeto tipo o seu aqui, se der certo, posto pra você ver
  19. Private Sub Teste postou uma resposta no tópico em Recursos Avançados
    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 mas faz oque pede no tópico. Clique aqui ~ 4Shared Clique aqui ~ Vírus Total Não se esqueça do REP++ \/
  20. Adógo Lucas S. Restart s2s2s2
  21. Private Sub Teste postou uma resposta no tópico em Recursos Avançados
    Util.WinApi.ShowWindow(hWnd, value ? SW_SHOW : SW_HIDE); isVisible = value; Ps: vo estudar essa função acima /\Só nao sei oque é o 'value', mas o código puro é esse.Eu ainda axo mais fácil com o setwindowpos, é só você jogar ela pra 40000;400000 e ponhar pra não mostrar na task bar que seria mais uma das minhasbambiarras õ/
  22. ou como o próprio tibiawiki disse, os queridos boxes
  23. Eiiiiita putaria, to achando estranho o pessoal aqui do fórum iwueiwueiuwi
  24. Private Sub Teste postou uma resposta no tópico em Recursos Avançados
    Veja se esses links ajudam: Clique aqui Clique aqui Ps: Não consegui, fica dando erro, deve ser meu pc.
  25. WIUEWIEUWIUEWIUEWIUEIWUEIWUE Eu tenho mãos para criar outro õ/ Família Restart é nóix que te odiamo

Informação Importante

Confirmação de Termo