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

1

klo selesai anda akan mendapat tokennya

1

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

1


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

whatsapp-image-2017-01-30-at-21-25-59

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

 

silahkan download 😀

Iklan

3 Balasan ke Bot Telegram dengan Foxpro

  1. […] kasih token yang sebelumnya kita membuat akun bot terlebih dulu dari botfather bisa dicek disini https://rubahmania.wordpress.com/2017/01/31/bot-telegram-dengan-foxpro/ . naa untuk di Yii saya gunakan yii2 basic, saya copas dari […]

  2. Batman berkata:

    ijin belajar gan….

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: