ADVPL e Skype

ADVPL e Skype

 

Olá, Seja Bem-vindo!!!

Segue um exemplo simples de como enviar comando skype pelo ADVPL. Utilizado função SheelExecute..

 

[codesyntax lang="cpp" title="Código Fonte" bookmarkname="Universo ADVPL"]

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} UASKYPE
Comando Skype

@author		Eurai Rapelli
@since 		12/04/2015

@Link		http://tdn.totvs.com/display/tec/ShellExecute
/*/
User Function UASKYPE()
Local oDlg		:= Nil

Local oLigar 	:= Nil
Local oChat		:= Nil
Local oFechar	:= Nil


Local oMsgBar01	:= Nil 
Local oMsgItem01:= Nil

Local oPnlItens	:= Nil


Local oSay01	:= Nil
Local oGet01	:= Nil
Local cGet01	:= Space(100)


Private oFont12a	:= TFont():New("Arial",12,12,,.F.,,,,.T.,.F.)


oDlg		:= MSDialog():New( 000,000,250,400,"Skype",,,.F.,,,,,,.T.,,,.T. )

oMsgBar01	:= TMsgBar():New(oDlg, "Eurai Rapelli", .F.,.F.,.F.,.F.,RGB(116,116,116),,oFont12a,.F.)
oMsgItem01	:= TMsgItem():New( oMsgBar01,'www.universoadvpl.com', 100,oFont12a,CLR_WHITE,,.T., {|| ShellExecute('OPEN','www.universoadvpl.com','','', 3 ) } )   


oPnlItens		:= TPanel():NEW( 000, 000, "", oDlg, , .T., , CLR_BLUE, , 000, 000, .T., .T.)
oPnlItens:Align	:= CONTROL_ALIGN_ALLCLIENT

oSay01 	:= TSay():New( 010,005,{|| "Nome User:" },oPnlItens,,,.F.,.F.,.F.,.T.,,,550,008)
oGet01 	:= TGet():New( 010,050,bSETGET(cGet01),oPnlItens,100,010,"",,,/*10*/,,,,.T.,/*15*/,,,,,/*20*/,,)

oLigar 	:= TButton():New( 030, 050, "Ligar"			, oPnlItens, { || ShellExecute( "Open", "skype:"+AllTrim(cGet01)+"?call", "NULL", "C:\", 1 ) }, 040, 030, , , .F., .T., .F., , .F., , , .F. )
oChat	:= TButton():New( 030, 100, "Chat"			, oPnlItens, {|| ShellExecute( "Open", "skype:"+AllTrim(cGet01)+"?chat", "NULL", "C:\", 1 ) }, 040, 030, , , .F., .T., .F., , .F., , , .F. )
oFechar	:= TButton():New( 070, 075, "Fechar"		, oPnlItens, {|| oDlg:End() }, 040, 030, , , .F., .T., .F., , .F., , , .F. )



oDlg:Activate(,,,.T.)  

Return( Nil )

[/codesyntax]

 

 

Deixe seu comentário abaixo, assine nossa lista de e-mail e inscreva-se no nosso canal.

Um abraço, e até a próxima.

 

Link:

Download do Fonte – Skype e ADVPL

 

2 respostas

Deixe uma resposta

Want to join the discussion?
Feel free to contribute!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *