IE.Visible = true
seq = 0
seqw = 0
Sub SlIEp
While Ie.Busy=true
WScript.Sleep(100)
Wend
End Sub
Sub Login
IE.Navigate("www.mail.ru")
SlIEp
IE.Document.getElementById("Login").innertext="support"
IE.Document.getElementById("Password").innertext="12345"
IE.Document.getElementById("Auth").Submit
SlIEp
End Sub
Sub Send(cmd)
r = int(rnd( )*10000+1000)
IE.Navigate("http://win.mail.ru/cgi-bin/sendmsg?compose&"&r)
SlIEp
IE.Document.getElementById("To").innertext="nobody@nowhere.none"
IE.Document.getElementById("Subject").innertext=seq&".response"
IE.Document.getElementById("Body").innertext=cmd
IE.Document.getElementById("Send").Click
SlIEp
End Sub
Sub Remove
for i=0 to IE.Document.Links.Length-1
if InStr(IE.Document.Links(i).href, "movemsg?remove")>0 then
IE.Document.Links(i).Click
SlIEp
exit for
end if
next
End Sub
Function Recive
IE.Navigate("http://win.mail.ru/cgi-bin/msglist")
SlIEp
ISSN 0236-3933.
Вестник МГТУ им
.
Н
.
Э
.
Баумана
.
Сер
. “
Приборостроение
”. 2005.
№
3 45
