Public Okręt podwodny LoginMediaCentre (ByVal szUserName Jako Sznurek, ByVal szPassword Sznurek)
Ciemnawy IE Przedmiot
Set IE = CreateObject ("InternetExplorer.Application")
IE.Visible = Prawdziwy
'Żeglować Medialny Serwer.
IE.Navigate "http://mediaserver:49490/login.aspx?ReturnUrl=%2fdefault.aspx"
'Czekać na the strona.
Robić Podczas Gdy IE.Busy Lub IE.ReadyState <> 4
DoEvents
Pętla
'Wchodzić Do username
IE.Document.getElementById ("Login1_UserName"). Wartość = szUserName
'Wchodzić Do hasło
IE.Document.getElementById ("Login1_Password"). Wartość = szPassword
'Przedkładać the znak wewnątrz.
IE.Document.getElementById ("Login1_LoginButton"). Przedkładać
'Niszczyć przedmiot.
Ustawiać IE = Nic
Kończyć Okręt podwodny
Intymny Okręt podwodny Form_Load ()
LoginMediaCentre "mcuser", "hasło"
Rozładowywać
Kończyć Okręt podwodny
|