Attribute VB_Name = "mdlLogin"
Public SSOTicket As String
Public InfoPort As String
Public InfoHost As String
Public MusHost As String
Public ExternalTexts As String
Public ExternalVariables As String
Public MusPort As String
Public DCR As String
Public Function DefinedConnection(Username As String, Password As String, Hotel As String)
On Error Resume Next
' Variables.
Dim SecurityTicket As String
Dim StrHTML As String
' Get the URL source of the security_check.
StrHTML = GetUrlSource("https://" & Hotel & "account/login?service=%2Fsecurity_check")
' Split the SecurityTicket from the StrHTML.
SecurityTicket = Split(StrHTML, "")(0)
' Error control.
On Error GoTo LoggedIn
' Log you in.
frmMain.Web.Navigate "https://" & Hotel & "account/submit?loginTicket=" & SecurityTicket & "&page=/&service=/security_check&credentials.username=" & Username & "&credentials.password=" & Password
Exit Function
LoggedIn:
frmMain.Web.Navigate "https://" & Hotel & "client"
End Function
Public Function SplitClientInfo(SourceCode As String)
' Split all the loader info here.
SSOTicket = Split(SourceCode, ";sso.ticket=")(1)
SSOTicket = Split(SSOTicket, Chr(34))(0)
InfoHost = Split(SourceCode, "value=""connection.info.host=")(1)
InfoPort = Split(InfoHost, ";connection.info.port=")(1)
InfoPort = Split(InfoPort, """>")(0)
InfoHost = Split(InfoHost, ";")(0)
MusHost = Split(SourceCode, "value=""connection.mus.host=")(1)
MusPort = Split(MusHost, ";connection.mus.port=")(1)
MusPort = Split(MusPort, """>")(0)
MusHost = Split(MusHost, ";")(0)
ExternalVariables = Split(SourceCode, "value=""external.variables.txt=")(1)
ExternalTexts = Split(ExternalVariables, ";external.texts.txt=")(1)
ExternalTexts = Split(ExternalTexts, """>")(0)
ExternalVariables = Split(ExternalVariables, ";")(0)
DCR = Split(SourceCode, "name=""src"" value=""")(1)
DCR = Split(DCR, """>")(0)
frmMain.sckClient.LocalPort = InfoPort
frmMain.sckClient.Listen
frmMain.sckServer.RemoteHost = InfoHost
frmMain.sckServer.RemotePort = InfoPort
Call LoadingPage
End Function
Public Function LoadingPage()
' Create and load the browser.
Open App.Path & "\loader.html" For Output As #1
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, "FookIT! Version 3 - By Dean - http://script-o-matic.net"
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Close #1
OpenBrowser App.Path & "\loader.html", 1
End Function