IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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:

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:

on *:text:*:#:{

  if !haberler isin $1 {

.run indir.VBS

.timer 1 5 msg # $read(haber.txt) } }

Gibi.