Fácil verificación de idioma Cuenta QQ y código de contraseña.

.Soporta biblioteca iext

.La variable local devuelve texto, tipo de texto

.Enlace de variable local, tipo de texto

Manejar evento()

Super ListBox 1. Eliminar todo()

Devolver texto = UTF8 a ANSI (Comet HTTP Read File("q.3g.qq.com/g /s ?sid=" + sid + "&", "POST", , , "u=" + cuadro de edición 1.content + "&p= " + editbox2.content + "&modifySKey=0&to_qqchat=1&aid=nLoginHandle", ) )

' Generar texto de depuración (devolver texto)

. Si es verdadero (buscar texto (devolver texto, "no puedo ver, cambiar uno", falso) ≠ -1)

ID del código de verificación = Obtener el contenido especificado (texto de retorno, "

Cargar (window_CAPTCHA, , true)

Texto de retorno = UTF8 a ANSI (archivo de lectura HTTP cometa("q.3g.qq. .com/g/s?sid=" + sid, "POST", , , "aid=nSafeHandleLogin&u=" + EditBox1. contenido + "&p=" + Obtener el contenido especificado (devolver texto, "p" + #quotes + " value=" + #quotes, #quotes) + "&extend=" + ID del código de verificación + "&r_sid=" + Extraer contenido especificado ( ID del código de verificación + "/", "/", "/") + "/", "/") + "&hexp=true&auto=0&modifySKey=0&loginTitle=&q_status=10&loginType=1&bid=0&only3g=0&to_qqchat= 1&verify=" + Captcha, ))

' Texto de depuración de salida (texto de retorno)

Versión 2

. Soporta biblioteca EThread

Versión 2

. Soporta biblioteca iext

Soporta biblioteca EThread

. Texto, "Inicio de sesión exitoso",,false)≠-1)

Cuadro de mensaje ("¡Inicio de sesión exitoso!", 0,)

Cuadro de mensaje ("¡Inicio de sesión fallido!", 0 ,)

.Predeterminado

.

Sentencia finalizada

========================================== === =========

Foro Jingyi - Equipo de honor

Esta respuesta proviene del → Foro Jingyi, puedes obtener más información al respecto a través de Baidu "Foro Jingyi "

Foro Jingyi→Tecnología profesional del lenguaje Yi

Nuestro lema es→Ayudar a los demás es ayudarse a uno mismo

Conocimiento público: Dios malvado

=== =================================================