Creo que mejor te buscas algun code sobre esto, hay cosas que ni entiendo porque las haces, primero porque usas HttpOpenRequest y cosas asi? Para conectarte y eso solo necesitas sockets =/
Segundo, esto que quiere decir:
RemoteHost y RepotePort "login.Pass...." estas mal, te recomiendo que mejor leas bastante y busques algun code si no entiendes y en la parte de la contraseña y eso existen modulos para eso.
Segundo, esto que quiere decir:
Código [Seleccionar]
Case "USR"
strTmp = Split(datos, " ") 'Se guardan los parametros
ParamAuth = strTmp(4) 'para usarlos mas adelante
Login.RemoteHost = "login.passport.com"
Login.RemotePort = "login.passport.com"
Login.Connect
RemoteHost y RepotePort "login.Pass...." estas mal, te recomiendo que mejor leas bastante y busques algun code si no entiendes y en la parte de la contraseña y eso existen modulos para eso.