Bot Telegram dengan Foxpro

he hanya iseng aja, apa itu bot? bot adalah software yang secara otomatis merespon pesan yang kita berikan , naa begitulah he ,langsung aja ya

pertama, you harus instal telegram pastinya harus punya akun donk

kedua, untuk menggunakan Api Telegram kita butuh token bot nya, kita bisa minta token sama  https://telegram.me/botfather , caranya chat aja beliau he,

ketik

/newbot

nanti dibalasnya ,berikut rinciannya

klo selesai anda akan mendapat tokennya

akhirnya dapat tokennya, bisa deh kita manfaatkan

ketiga, informasi API Telegram ada di sini
https://core.telegram.org/api

ok , saya gunakan postman, untuk ngetes

/getme : liat profil bot kita

https://api.telegram.org/bot/getme

https://api.telegram.org/bot/getUpdates

/getUpdates : melihat chat yang masuk kebot

https://api.telegram.org/bot/sendMessage?chat_id=254066414&text=lagiada

/sendMessage : ngirim chat bro

OK, sampai sini paham kan 😀 paham aja lah

ke empat, kita pake foxpro, yiiiii , sederhana aja master, karna return dari api ada Json, maka kita gunakan function dari https://vfpx.codeplex.com/wikipage?title=nfJson&referringTitle=Home

kelimat , contoh script mengambil chat

thisform.grid1.RecordSource=''
lcurl='https://api.telegram.org/bot262999048:AAEMLOFyuFuxBnUcrkIEkn1bCzd1CvUxmkg/getUpdates'
** proses ini yang belum benar
oHTTP = Createobject("WinHTTP.WinHTTPRequest.5.1")
oHTTP.Open("POST", lcurl, .F.)
*oHTTP.setrequestheader('Content-Type', 'application/x-www-form-urlencoded;')
oHTTP.Send()
oHTTP.Status
lcrespons = oHTTP.responseText
cJson =nfJsonRead(m.lcrespons)
*?cjson.result(1).message(1).from
If cJson.ok = .T.
For Each varChat In cJson.result(1)
lid = varChat.Message(1).message_id
lnId = varChat.Message(1).From.Id
lcNama = varChat.Message(1).From.first_name
lcPesan = varChat.Message(1).Text
Select mChat
Locate For id1=lid
If !Found()
Insert Into mChat (id1,User1,Pesan1)Values(lid,lcNama,lcPesan)
Endif
Endf
Else
Messagebox('Gagal Chat',16,'Error')
Endif
Select User1,Pesan1,user2,pesan2,id1 From mChat INTO CURSOR cChat Order By id1 Asc
Select cChat
Go Top
thisform.grid1.RecordSourceType= 1
thisform.grid1.RecordSource='cChat'
Thisform.grid1.column1.DynamicBackColor="IIF(!EMPTY(ALLTRIM(User1)), RGB(255,0,0), RGB(255,255,255))"
Thisform.grid1.column2.DynamicBackColor="IIF(!EMPTY(ALLTRIM(pesan1)), RGB(255,0,0), RGB(255,255,255))"
Thisform.grid1.column3.DynamicBackColor="IIF(!EMPTY(ALLTRIM(User2)), RGB(0,255,0), RGB(255,255,255))"
Thisform.grid1.column4.DynamicBackColor="IIF(!EMPTY(ALLTRIM(pesan2)), RGB(0,255,0), RGB(255,255,255))"
Thisform.grid1.Refresh

he daripada nulis banyak nih saya kasih aja contoh formnya

https://www.mediafire.com/?8dn0g2c9cor8224

 

silahkan download 😀