Enviando um email pelo Outlook

Enviando um email pelo Outlook Primeiro, selecione o componente MICROSOFT MAPI CONTROLS. Depois acrecente no seu form o objeto MAPISESSION e MAPIMESSAGES que apareceram na sua toolbox. Então use a seguinte codificação para enviar uma mensagem: mapisession.Action = 1 mapimessages1.SessionID = mapisession.SessionID mapimessages1.Compose mapimessages1.RecipAddress = “webmundi@webmundi.com” mapimessages1.AddressResolveUI = True mapimessages1.ResolveName mapimessages1.MsgSubject = “Titulo da minha

Continue reading »

Controlar a posição X e Y do mouse

As vezes desenvolvemos aplicações que necessitam mostrar a posição do mouse na tela. Global Type POINTAPI x As Long y As Long End Type Declare Function SetCursorPos Lib “user32” (ByVal x As Long, ByVal y As Long) As Long Declare Sub GetCursorPos Lib “user32” (lpPoint As POINTAPI) Global MOUSE_XY As POINTAPI Global xy_mostrar As Boolean,

Continue reading »

Efeitos sonoros

Efeitos sonoros Além de usar os fundos musicais (MID),é possível utilizar efeitos sonoros (WAV) sem que seja necessário interromper a música de fundo, porém enquanto este efeito sonoro toca, os comandos do jogo “travam” até que ele acabe. O código abaixo, se refere à este exemplo: você quer que quando o jogo seja fechado, o

Continue reading »
Pages:1234567...15»