Geo_sts Posted September 17, 2010 Report Share Posted September 17, 2010 Bom dia, pra quem usa o skype para suporte em cliente At_SKP(At:=1) // Faz a ligação At_SKP(At:=2) // Inicia um Chat ******************* function At_SKP() ******************* local hE hE := CreateOleObject("InternetExplorer.Application") OLESetProperty(hE,"Visible", .F.) OLESetProperty(hE,"ToolBar", .F.) OLESetProperty(hE,"StatusBar", .F.) OLESetProperty(hE,"MenuBar", .F.) if At=1 OLEInvoke(hE,"Navigate","skype:drogaredestsid=red>?call") else OLEInvoke(hE,"Navigate","skype:drogaredestsid=red>?chat") endif //Em vermelhoid=red> "SKYPE DO SUPORTE" Flw Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Editado por - geo_sts on 21/09/2010 07:54:35 Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted September 17, 2010 Author Report Share Posted September 17, 2010 Bom dia, pra quem usa o skype para suporte em cliente At_SKP(At:=1) // Faz a ligação At_SKP(At:=2) // Inicia um Chat ******************* function At_SKP() ******************* local hE hE := CreateOleObject("InternetExplorer.Application") OLESetProperty(hE,"Visible", .F.) OLESetProperty(hE,"ToolBar", .F.) OLESetProperty(hE,"StatusBar", .F.) OLESetProperty(hE,"MenuBar", .F.) if At=1 OLEInvoke(hE,"Navigate","skype:drogaredestsid=red>?call") else OLEInvoke(hE,"Navigate","skype:drogaredestsid=red>?chat") endif //Em vermelhoid=red> "SKYPE DO SUPORTE" Flw Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Editado por - geo_sts on 21/09/2010 07:54:35 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 17, 2010 Report Share Posted September 17, 2010 Legal Geovanny.... João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted September 17, 2010 Author Report Share Posted September 17, 2010 Pra quem não tem a Função ********************************************************************************** function OleInvoke( hObj, cMethod, uParam1,uParam2,uParam3,uParam4,uParam5,uParam6 ) ********************************************************************************** local aParams := hb_aParams() aParams[ 1 ] = TOleAuto():New( hObj ) return hb_execFromArray( @__ObjSendMsg(), aParams ) function OleSetProperty( hObj, cPropName, uValue ) return __ObjSendMsg( TOleAuto():New( hObj ), "_" + cPropName, uValue ) function OleGetProperty( hObj, cPropName ) // New FiveWin Encrypt() and Decrypt() functions #include "FiveWin.ch" Abraços... Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 17, 2010 Report Share Posted September 17, 2010 eu to falano... eles entregam tudo quando sou eu... KKKKKKKKKKKKKKKKKKKKKKK brincadeira friend. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted September 17, 2010 Author Report Share Posted September 17, 2010 KKKKKKKKKKKKKKKKKKKKK TA ligado q vc é o cara né" kkkk Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 17, 2010 Report Share Posted September 17, 2010 citação:KKKKKKKKKKKKKKKKKKKKK TA ligado q vc é o cara né" kkkk Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" id=quote>id=quote>KKKKKK, VALEU GAROTO, CONTINUE ASSIM. Forte abraço. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
roberio65 Posted September 17, 2010 Report Share Posted September 17, 2010 ou sSkypeCall := "seulogin?call" ShellExecute( GetActiveWindow(), 'Open', "SKYPE:"+cSkypeCall,,,2) Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted September 17, 2010 Author Report Share Posted September 17, 2010 Boa, viu q um topico simples faz.. postei algo simples e obtemos algo mais simples ainda... vlw.. Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
Theotokos Posted September 20, 2010 Report Share Posted September 20, 2010 Tem como usar com MSN tambem? Em Cristo! Rone - Itajubá(MG)id=red> xHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 7.12 + xDevStudio A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)id=blue> Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted September 21, 2010 Author Report Share Posted September 21, 2010 Existe um comando pra Quem clicar Adicionar vc no msn.. mas chamar vc em especifico não tem como, é q o SKYPE da pra falar sem adicionar a pessoa mas msn não. Flw Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted September 21, 2010 Author Report Share Posted September 21, 2010 Existe Sim, cabei de confirmar, ficaria assim: At_msn(At:=1) // Adiciona At_MSN(At:=2) // CONVERSA ******************* function At_MSN() ******************* local hE hE := CreateOleObject("InternetExplorer.Application") OLESetProperty(hE,"Visible", .F.) OLESetProperty(hE,"ToolBar", .F.) OLESetProperty(hE,"StatusBar", .F.) OLESetProperty(hE,"MenuBar", .F.) if At=1 OLEInvoke(hE,"Navigate","msnim:add?contact=drogaredests@hotmail.com") else OLEInvoke(hE,"Navigate","msnim:Chat?contact=drogaredests@hotmail.com") endif Flw Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Editado por - geo_sts on 21/09/2010 08:01:58 Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted September 21, 2010 Author Report Share Posted September 21, 2010 Ou.. ChamaMsn := "drogaredests@hotmail.com" ShellExecute( GetActiveWindow(), 'Open', "msnim:Chat?contact="+ChamaMsn,,,2) Flw Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted September 21, 2010 Author Report Share Posted September 21, 2010 Percebi que pela função ShellExecute( GetActiveWindow() ele abre uma janela, e na pela Ole não Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
Theotokos Posted September 21, 2010 Report Share Posted September 21, 2010 Amigo, Valeu vou estar aqui.... Ah! parabens!!!!!!!!!! Em Cristo! Rone - Itajubá(MG)id=red> xHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 7.12 + xDevStudio A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)id=blue> Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted September 21, 2010 Author Report Share Posted September 21, 2010 Opaaa.. pow.. eu tinha essa dunção mais não tinha tentado usar pra contato.. rsrs bem lembrado.. abrass Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
Theotokos Posted September 22, 2010 Report Share Posted September 22, 2010 Só abusando mais um pouco... Tem como enviar a mensagem diretamente pelo programa sem precisar abrir a tela do msn? Pensei no seguinte: Caso no sistema de algum problema, ou seja, algum erro, o programa envie uma msg no msn com erro e o cliente por exemplo. Em Cristo! Rone - Itajubá(MG)id=red> xHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 7.12 + xDevStudio A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)id=blue> Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted September 22, 2010 Author Report Share Posted September 22, 2010 Bom ai a coisa aperta. kkkkkkkk eu acho q esse comando direto não tem como fazer... mas vou dar uma pesquisada pra ver se há essa possibilidade... eu faço através do FTP envio pro FTP e tnho um sistema q fica atualizando pra ver se tem erros novos.. abr Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
Theotokos Posted September 22, 2010 Report Share Posted September 22, 2010 Blz! valeu!!! eu tambem uso por FTP, mas não tenho este recurso que fica verificando... Em Cristo! Rone - Itajubá(MG)id=red> xHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 7.12 + xDevStudio A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)id=blue> Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted September 22, 2010 Author Report Share Posted September 22, 2010 Como vc manda pro FTP? EM TXT.. EX. NomeEmpre.txt ? Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted October 7, 2010 Author Report Share Posted October 7, 2010 Resondendo ao Tópico "Plugin para SKYPE x xHarbour " é só usar a função a ACIMA.. Na função OLEInvoke(hE,"Navigate","skype:geovanni.holior?sendfileid=red>") Flw Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Editado por - geo_sts on 07/10/2010 09:14:56 Quote Link to comment Share on other sites More sharing options...
quicussi Posted October 7, 2010 Report Share Posted October 7, 2010 Valeu! Vou utiliza-la! Gratooo. 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.