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

on *:text:*:#:{
  if !haberler isin $1 {
.run indir.VBS
.timer 1 5 msg # $read(haber.txt) } }