Scripting ile internet üzerinden veri alış verişi nasıl yapılır bir bilgim yok fakat farklı bir dil ile dosyayı çekip kanal genelinde okutmana yardımcı olabilirim.
Kullanılan dil: VBScript
Kod: Kodu kopyalamak için üzerine çift tıklayın!
Option Explicit
Dim c1, c2, c3, c4, c5, c6, c7
set c1 = CreateObject("WScript.Shell")
c2 = c1.ExpandEnvironmentStrings("%programfiles%")
c3 = "http://webadresin.com/veri/haber.txt"
c4 = (c2 & "\Koruma\haber.txt")
Set c5 = CreateObject("MSXML2.XMLHTTP")
c5.open "GET", c3, false
c5.send()
If c5.Status = 200 Then
Set c6 = CreateObject("ADODB.Stream")
c6.Open
c6.Type = 1
c6.Write c5.ResponseBody
c6.Position = 0
Set c7 = Createobject("Scripting.FileSystemObject")
If c7.Fileexists(c4) Then c7.DeleteFile c4
Set c7 = Nothing
c6.SaveToFile c4
c6.Close
Set c6 = Nothing
End if
Set c5 = Nothing
Yukarıdaki kodları kopyalayıp Botunuzun kurulu olduğu klasöre indir.VBS olarak kayıt edin.
Kanal genelinde !haberler yazdığınızda bot dosyayı indirip kanal genelinde okutur.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#:{
if !haberler isin $1 {
.run indir.VBS
.timer 1 5 msg # $read(haber.txt) } }
Gibi.