IDENTIFICAR SE OUTRO PROGRAMA EST EM TELA CHEIA

 Tópico anterior Próximo tópico Novo tópico

IDENTIFICAR SE OUTRO PROGRAMA EST EM TELA CHEIA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#476654 - 19/09/2017 16:26:58

EDUPAVANI
SANTO ANDRE
Cadast. em:Abril/2010


Pessoal

Tenho um programa que inicia o Internet Explorer pelo comando: Process.Start([]iexplore[], MinhaURL)
Preciso que o IE esteja sempre em modo FullScreen ou Tela Cheia.

Como eu fao essa verificao pelo meu sistema?

Obrigado,



#476656 - 19/09/2017 16:57:35

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Nossa, meio esquisito isso... o que []minhaURL[] contm?

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#476657 - 19/09/2017 17:02:34

EDUPAVANI
SANTO ANDRE
Cadast. em:Abril/2010


Citação:
:
Nossa, meio esquisito isso... o que []minhaURL[] contm?


A varivel MinhaURL tem uma URL, exemplo: []www.google.com.br[]

O que eu preciso saber pelo meu cdigo se o Internet Explorer est em modo tela cheia ou no (caso no eu ativo pelo cdigo, e isso eu j consegui)

Valeu!!!



Resposta escolhida #476658 - 19/09/2017 17:05:17

SINCLAIR
CRICIUMA
Cadast. em:Janeiro/2001


Última edição em 19/09/2017 17:05:54 por SINCLAIR

Colega,

Se for mesmo VB6, coloque o seguinte cdigo em um mdulo:


Public Declare Function ShellExecute Lib []shell32.dll[] Alias []ShellExecuteA[] (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Type MAPIMessage
    Reserved As Long
    Subject As String
    NoteText As String
    MessageType As String
    DateReceived As String
    ConversationID As String
    Flags As Long
    RecipCount As Long
    FileCount As Long
End Type
Type MapiRecip
    Reserved As Long
    RecipClass As Long
    Name As String
    Address As String
    EIDSize As Long
    EntryID As String
End Type
Type MapiFile
    Reserved As Long
    Flags As Long
    Position As Long
    PathName As String
    FileName As String
    FileType As String
End Type


Para acessar um site Web no navegador padro, em tela maximizada, use:



dim lng_Global_Site_Web as Long
lng_Global_Site_Web = ShellExecute(Me.hwnd, vbNullString, []www.google.com.br[], vbNullString, []c:\[], vbMaximizedFocus)


Substitua www.google.com.br pela URL que voc desejar.


Euzbio Cruz
Cricima - SC


#476659 - 19/09/2017 17:18:54

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Bem perigoso isso... pode simular uma tela de erro... tem vrios golpes aplicados por web que usam exatamente essa tcnica

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por EDUPAVANI em 19/09/2017 20:27:37