mkyx Posted September 6, 2012 Report Share Posted September 6, 2012 Pessoal, O programa abaixo deveria ficar no tray do windows, mas fica invisÃvel, não aparece o Ãcone ao lado do relógio. Alguém sabe o por que? #include "FiveWin.ch" #include "image.ch" #include "XBROWSE.ch" #include "urllink.ch" #INCLUDE "Struct.CH" #define TRANSPARENT 1 #define RDDNAME "DBFcdx" #define INDEXEXT ".cdx" #define NIM_ADD 0 #define NIM_MODIFY 1 #define NIM_DELETE 2 #define NIF_MESSAGE 1 #define NIF_ICON 2 #define NIF_TIP 4 //#define WM_TASKBAR 33218 #define WM_LBUTTONDBLCLK 515 // 0x203 #define WM_TASKBAR 1 // Variaveis Estaticas Para Todo o Sistema. STATIC oApp, oTray, oIcon, oWnd ANNOUNCE RDDSYS REQUEST OrdKeyNo, OrdKeyCount, OrdKeyGoto REQUEST DBFCDX, DBFDBT function MAIN() Set Date To British Set 3DLook On Set Exclusive OFF Set Delete On Set Century On set multiple on SETMULTIPLE("ON") SetHandleCount(200) set epoch to 1970 request DBFCDX rddsetdefault("DBFCDX") PRIVATE oApp, oTray, oIcon, oTimer, lUtil:=.F. SET 3DLOOK ON DEFINE ICON OICON RESOURCE "FIGURA" DEFINE WINDOW oApp ICON OICON ACTIVATE WINDOW oApp ON INIT ( oApp:Hide(),ajustatempo(),oTray:=TTrayIcon():New(oApp ,OICON ,"Gerente TEF",{||msginfo("teste")},{|nRow,nCol| MenuTray(nRow,nCol,oTray)}) ) VALID TRAY_E() RETURN .T. //----------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------- FUNCTION ajustatempo() LOCAL nTpo := (60-val(substr(time(),7,2)))*1000 DEFINE TIMER oTimer OF oApp INTERVAL (nTpo) ACTION ligar() oTimer:activate() ligar() RETURN NIL //----------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------- FUNCTIO Ligar() oTimer:end() DEFINE TIMER oTimer OF oApp INTERVAL 6000 ACTION VerMail() oTimer:activate() RETURN NIL //----------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------- FUNCTION VerMail() lUtil:=.F. RETURN .T. //----------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------- FUNCTION MenuTray( nRow,nCol,oTray ) LOCAL oMenu IF !lUtil oTimer:end() MENU oMenu POPUP MENUITEM "Consultas Internet" MENU MENUITEM "Consulta NFe" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=",,,1)) MENUITEM "Consulta Sintegra CNPJ/IE/CPF" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.sintegra.gov.br/",,,1)) MENUITEM "Consulta Situação Cadastral CNPJ" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao.asp",,,1)) MENUITEM "Consulta Irregularidade de Empresas Cadastradas no Estado São Paulo" ACTION (ShellExecute(GetActiveWindow(),"https://www.cadesp.fazenda.sp.gov.br/(S(dtpttyfsu5gqjpbmnxcfp345))/Pages/Login.aspx",,,1)) MENUITEM "Consulta Situação do CPF" ACTION (ShellExecute(GetActiveWindow(),"Open","https://www.receita.fazenda.gov.br/Aplicacoes/ATCTA/CPF/ConsultaPublica.asp",,,1)) MENUITEM "Seguro Desemprego" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.mte.gov.br/seg_desemp/default.asp",,,1)) MENUITEM "Consulta FGTS" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.caixa.gov.br/fgts/index.asp",,,1)) MENUITEM "Página de Download da Receita Federal - PJ" ACTION (ShellExecute(GetActiveWindow(),"Open","https://www.receita.fazenda.gov.br/principal/Informacoes/InfoDeclara/declaraPJ.htm",,,1)) MENUITEM "IVA-ST Refrigerantes, Cervejas, Shopps e Aguas" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.utilitas.com.br/Ricms0293a0296.htm",,,1)) MENUITEM "IVA-ST Refrigerantes, Cervejas, Shopps e Aguas" ACTION (ShellExecute(GetActiveWindow(),"Open","http://info.fazenda.sp.gov.br/NXT/gateway.dll/legislacao_tributaria/Regulamento_icms/art293.htm?f=templates&fn=default.htm&vid=sefaz_tributaria:vtribut",,,1)) MENUITEM "Legislação Substituição Tributária - SP" ACTION (ShellExecute(GetActiveWindow(),"Open","http://pfe.fazenda.sp.gov.br/st_legislacao.shtm",,,1)) MENUITEM "Pesquisa CNAE" action (ShellExecute(GetActiveWindow(),"Open","http://www.cnae.ibge.gov.br/",,,1)) MENUITEM "Consulta NFe" action (ShellExecute(GetActiveWindow(),"Open","https://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=",,,1)) MENUITEM "Consulta Irregularidade de Empresas Cadastradas no Estado São Paulo" action (ShellExecute(GetActiveWindow(),"Open","https://www.cadesp.fazenda.sp.gov.br/(S(dtpttyfsu5gqjpbmnxcfp345))/Pages/Login.aspx",,,1)) MENUITEM "Consulta Telefones Úteis NFe Estado de São Paulo" action (ShellExecute(GetActiveWindow(),"Open","http://www.fazenda.sp.gov.br/email/telefone.shtm",,,1)) MENUITEM "Pesquisa pelo Google" action pesq_g() ENDMENU MENUITEM "Agenda Telefônica" MENUITEM "Agenda de Compromissos" MENUITEM "Anotações" MENUITEM "Calculadora" MENUITEM "Calendários" MENUITEM "Feriados" MENUITEM "Tabela de CEPS" MENUITEM "Tabela de CNAE" MENUITEM "Tabela de CBO" MENUITEM "Tabela NBM/SH" MENUITEM "Tabela CFOP" MENUITEM "Tabela CST" MENUITEM "Recibo Avulso" MENUITEM "RPA - Recibo de Pagamento a Autônomo" MENUITEM "Cálculo de Pagamentos" SEPARATOR MENUITEM "Fechar Aplicação e Sair" ACTION oApp:End() ENDMENU ACTIVATE POPUP oMenu AT nRow,nCol OF oTray:oWnd * DEFINE TIMER oTimer OF oApp INTERVAL 6000 ACTION VerMail() * oTimer:activate() ENDIF RETURN .T. //----------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------- FUNCTION TRAY_E() oTimer:end() oTray:End() RETURN .T. * Rikko Guaratinguetá - SP (12) 8829-8088 E-Mail: mkyx@ig.com.br pardes.mky@hotmail.com MSN:pardes.mky@hotmail.com www.adentech.com.br www.rmahost.com xH 1.1.0 Hb 8.02 - BCC 55 Quote Link to comment Share on other sites More sharing options...
mkyx Posted September 6, 2012 Author Report Share Posted September 6, 2012 Pessoal, O programa abaixo deveria ficar no tray do windows, mas fica invisÃvel, não aparece o Ãcone ao lado do relógio. Alguém sabe o por que? #include "FiveWin.ch" #include "image.ch" #include "XBROWSE.ch" #include "urllink.ch" #INCLUDE "Struct.CH" #define TRANSPARENT 1 #define RDDNAME "DBFcdx" #define INDEXEXT ".cdx" #define NIM_ADD 0 #define NIM_MODIFY 1 #define NIM_DELETE 2 #define NIF_MESSAGE 1 #define NIF_ICON 2 #define NIF_TIP 4 //#define WM_TASKBAR 33218 #define WM_LBUTTONDBLCLK 515 // 0x203 #define WM_TASKBAR 1 // Variaveis Estaticas Para Todo o Sistema. STATIC oApp, oTray, oIcon, oWnd ANNOUNCE RDDSYS REQUEST OrdKeyNo, OrdKeyCount, OrdKeyGoto REQUEST DBFCDX, DBFDBT function MAIN() Set Date To British Set 3DLook On Set Exclusive OFF Set Delete On Set Century On set multiple on SETMULTIPLE("ON") SetHandleCount(200) set epoch to 1970 request DBFCDX rddsetdefault("DBFCDX") PRIVATE oApp, oTray, oIcon, oTimer, lUtil:=.F. SET 3DLOOK ON DEFINE ICON OICON RESOURCE "FIGURA" DEFINE WINDOW oApp ICON OICON ACTIVATE WINDOW oApp ON INIT ( oApp:Hide(),ajustatempo(),oTray:=TTrayIcon():New(oApp ,OICON ,"Gerente TEF",{||msginfo("teste")},{|nRow,nCol| MenuTray(nRow,nCol,oTray)}) ) VALID TRAY_E() RETURN .T. //----------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------- FUNCTION ajustatempo() LOCAL nTpo := (60-val(substr(time(),7,2)))*1000 DEFINE TIMER oTimer OF oApp INTERVAL (nTpo) ACTION ligar() oTimer:activate() ligar() RETURN NIL //----------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------- FUNCTIO Ligar() oTimer:end() DEFINE TIMER oTimer OF oApp INTERVAL 6000 ACTION VerMail() oTimer:activate() RETURN NIL //----------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------- FUNCTION VerMail() lUtil:=.F. RETURN .T. //----------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------- FUNCTION MenuTray( nRow,nCol,oTray ) LOCAL oMenu IF !lUtil oTimer:end() MENU oMenu POPUP MENUITEM "Consultas Internet" MENU MENUITEM "Consulta NFe" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=",,,1)) MENUITEM "Consulta Sintegra CNPJ/IE/CPF" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.sintegra.gov.br/",,,1)) MENUITEM "Consulta Situação Cadastral CNPJ" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao.asp",,,1)) MENUITEM "Consulta Irregularidade de Empresas Cadastradas no Estado São Paulo" ACTION (ShellExecute(GetActiveWindow(),"https://www.cadesp.fazenda.sp.gov.br/(S(dtpttyfsu5gqjpbmnxcfp345))/Pages/Login.aspx",,,1)) MENUITEM "Consulta Situação do CPF" ACTION (ShellExecute(GetActiveWindow(),"Open","https://www.receita.fazenda.gov.br/Aplicacoes/ATCTA/CPF/ConsultaPublica.asp",,,1)) MENUITEM "Seguro Desemprego" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.mte.gov.br/seg_desemp/default.asp",,,1)) MENUITEM "Consulta FGTS" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.caixa.gov.br/fgts/index.asp",,,1)) MENUITEM "Página de Download da Receita Federal - PJ" ACTION (ShellExecute(GetActiveWindow(),"Open","https://www.receita.fazenda.gov.br/principal/Informacoes/InfoDeclara/declaraPJ.htm",,,1)) MENUITEM "IVA-ST Refrigerantes, Cervejas, Shopps e Aguas" ACTION (ShellExecute(GetActiveWindow(),"Open","http://www.utilitas.com.br/Ricms0293a0296.htm",,,1)) MENUITEM "IVA-ST Refrigerantes, Cervejas, Shopps e Aguas" ACTION (ShellExecute(GetActiveWindow(),"Open","http://info.fazenda.sp.gov.br/NXT/gateway.dll/legislacao_tributaria/Regulamento_icms/art293.htm?f=templates&fn=default.htm&vid=sefaz_tributaria:vtribut",,,1)) MENUITEM "Legislação Substituição Tributária - SP" ACTION (ShellExecute(GetActiveWindow(),"Open","http://pfe.fazenda.sp.gov.br/st_legislacao.shtm",,,1)) MENUITEM "Pesquisa CNAE" action (ShellExecute(GetActiveWindow(),"Open","http://www.cnae.ibge.gov.br/",,,1)) MENUITEM "Consulta NFe" action (ShellExecute(GetActiveWindow(),"Open","https://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=",,,1)) MENUITEM "Consulta Irregularidade de Empresas Cadastradas no Estado São Paulo" action (ShellExecute(GetActiveWindow(),"Open","https://www.cadesp.fazenda.sp.gov.br/(S(dtpttyfsu5gqjpbmnxcfp345))/Pages/Login.aspx",,,1)) MENUITEM "Consulta Telefones Úteis NFe Estado de São Paulo" action (ShellExecute(GetActiveWindow(),"Open","http://www.fazenda.sp.gov.br/email/telefone.shtm",,,1)) MENUITEM "Pesquisa pelo Google" action pesq_g() ENDMENU MENUITEM "Agenda Telefônica" MENUITEM "Agenda de Compromissos" MENUITEM "Anotações" MENUITEM "Calculadora" MENUITEM "Calendários" MENUITEM "Feriados" MENUITEM "Tabela de CEPS" MENUITEM "Tabela de CNAE" MENUITEM "Tabela de CBO" MENUITEM "Tabela NBM/SH" MENUITEM "Tabela CFOP" MENUITEM "Tabela CST" MENUITEM "Recibo Avulso" MENUITEM "RPA - Recibo de Pagamento a Autônomo" MENUITEM "Cálculo de Pagamentos" SEPARATOR MENUITEM "Fechar Aplicação e Sair" ACTION oApp:End() ENDMENU ACTIVATE POPUP oMenu AT nRow,nCol OF oTray:oWnd * DEFINE TIMER oTimer OF oApp INTERVAL 6000 ACTION VerMail() * oTimer:activate() ENDIF RETURN .T. //----------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------- FUNCTION TRAY_E() oTimer:end() oTray:End() RETURN .T. * Rikko Guaratinguetá - SP (12) 8829-8088 E-Mail: mkyx@ig.com.br pardes.mky@hotmail.com MSN:pardes.mky@hotmail.com www.adentech.com.br www.rmahost.com xH 1.1.0 Hb 8.02 - BCC 55 Quote Link to comment Share on other sites More sharing options...
ecmsoft Posted September 6, 2012 Report Share Posted September 6, 2012 Não testei o seu código, mas comparei com o meu e eu não uso:oApp:Hide()id=red> no ON INIT Marciano Queiroz Teixeira de Freitas-Ba FW 10.12 + xHb 1.2.1 | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria | Ret.XML NF-e Quote Link to comment Share on other sites More sharing options...
Theotokos Posted September 6, 2012 Report Share Posted September 6, 2012 Olá, Testei o teu codigo e aqui funcionou, só não apareceu a imagem. Eu uso Win7 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 10, 2012 Report Share Posted September 10, 2012 Uma vez com Scrip.VBS pra testar e deu certo, só que eu não uso o aplicativo junto do relogio e não posso dizer se vá funcionar 100% testa ai e vê se resolve Activate Window oWnd ; On Init Criaico() Return(nil) Proc Criaico() Run Tutor.vbs Return(.t.) id=code>id=code>Agora crie o VBSid=blue> *********** TUTOR VBS *********** strWorkDir ="C:\tst" strAppPath = "C:\tst\tst.exe" strIconPath = "%SystemRoot%\system32\SHELL32.dll,5" Set objShell = CreateObject("WScript.Shell") objDesktop = objShell.SpecialFolders("Desktop") Set objLink = objShell.CreateShortcut(objDesktop & "\tst.lnk") objLink.Description = "Teste icone" objLink.HotKey = "CTRL+SHIFT+X" objLink.IconLocation = "C:\tst\tutor.ICO" objLink.TargetPath = strAppPath objLink.WindowStyle = 3 objLink.WorkingDirectory = strWorkDir objLink.Save WScript.Quit id=code>id=code>PS: TSTid=red> é a pasta que usei pra fazer o teste. Abraços Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.