Cómo publicar Weibo en Weibo en Easy Language PC

Comando .DLL timeGetTime, entero largo, "winmm.dll", "timeGetTime"

Comando .DLL GetLocalTime, "kernel32", "GetLocalTime"

Formato de hora del comando .DLL, hora del sistema_

Tabla de variables globales. Parámetros formato de hora, hora del sistema_

Tabla de variables globales. Versión 2

. Escaneo de variables globales, tipo de texto

. Ticket de variable global, tipo de texto

Variable global r, tipo de texto

Variable global tid, texto

Tabla de datos constantes. Versión 2

. Constante constante 1, "", , window.QRLogin.code = 200; window.QRLogin.uuid = "

. Constante constante 2, "", , BaseRequest:{DeviceID: "x",Sid: "xx",Skey:"xxx", Uin:"xxxx",}

.Constante constante 3, "", , {"BaseRequest":{"Uin":"UIN", "Sid" : "SID", "Skey": "SKEY", "DeviceID": "E"}}

Tabla de tipos de datos personalizados

Tipo de datos SYSTEMTIME_, , SYSTEMTIME<. /p>

Año del miembro, entero corto, wAño

Mes del miembro, entero corto, wMes

Semana del miembro, entero corto, wDayOfWeek. >

día del miembro, entero corto, wDay

hora del miembro, entero corto, wHour

minuto del miembro, wMinute.

Miembros en segundos, entero corto, , , wSecond

Milisegundos de miembro, entero corto, , wMillisegundos

Versión 2

. /p>

Tiempo de subrutina, tipo de texto

Variable local Hora b, hora del sistema_

GetLocalTime(hora b)

Retorno (obtener texto). (hora b.año) + "-" + obtener texto (hora b.mes) + "-" + obtener texto (hora b.día) + " " + tomar texto a la derecha (a texto (hora b.día de la semana + 100), 2) + " " + a texto (tiempo b.hora) + ":" + a texto (tiempo b. minutos) + ":" + a texto (tiempo b. segundos) + "."+ a texto (tiempo b.milisegundos))

Código de inicio de sesión de PC WeChat

Esta función requiere cargar la versión 5.6.2 del módulo Lean

Biblioteca de Internet de soporte

Biblioteca de especificaciones de soporte

Biblioteca de soporte EThread

.

Ventana de ensamblaje Assembly_LaunchWindow

Variable de ensamblaje oferta, texto

Cookies de variable de ensamblaje, tipo de texto

. .Variable de programa sid, tipo de texto

.Variable de programa uin, tipo de texto

.Fuente de variable de programa, tipo de texto

Variable de ensamblaje new_source, formato de texto<. /p>

. Variable de ensamblaje pass_ticket, tipo de texto

. URL de variable de ensamblaje, tipo de texto

. Subrutina __startup_window_created

tid = "/jslogin? appid=wx782c26e4c19acffb&redirect_uri=%2Fcgi-bin%2Fmmwebwx-in%2Fwebwxnew%". 2Fwebwxnewloginpage&fun=new&lang=zh_CN"

Fuente = Page_VisitS (tid)

bid = Text_Remove_Intermediate_Text (fuente, #constant1, #quote)

Image_Box1.HTTP leer archivo ("/qrcode/" + oferta)

clock1.clock period = 1000

Evento de subrutina _clock1_cycle

. p>

.Texto de variable local, tipo de texto

Código de estado de variable local, tipo de texto

identificador de variable local, entero

corazón = web_accessS. ("/cgi-bin/mmwebwx-bin/login?uuid=" + oferta + "&tip=1&_= " + tiempo (), , , , Cookies)

Texto=texto_Quita el texto del medio( corazón, "code=", ";")

.

Si es verdadero (text = "201")

Código de estado = text_takeout_intermediate_text (corazón, "code=", ";")

_Launch Window.Title = "Escaneado, no iniciado sesión ! "

.

.Finalizar si es verdadero

.Si es verdadero (texto = "200")

url = text_take_out_intermediate_text (corazón) , #quote, #quote)

ticket = text_takeout_intermediate_text (url, "ticket=", "@")

Ticket = text_takeout_intermediate_text (url, "ticket=", "@" )

."@")

scan = text_take_right (url, "scan=", )

reloj1.clock_period = 0

debug_output (url)

_start_window.Title = "¡Iniciado sesión!"

Cuadro de mensaje ("Prueba exitosa", 0, )

Iniciar hilo (&handle , , manejar)

Si es verdadero, finalice

.

Si es verdadero (text = "408")

tid = "/jslogin?appid=wx782c26e4c19acffb&redirect_uri=%2Fcgi-bin% 2Fmmwebwx-in%2Fwebwxnewloginpage&fun=new&lang=zh_CN"

Fuente = Page_VisitS (tid)

oferta = Text_Take_out_Intermediate_Text (fuente, #constant1, #quote)

Cuadro de imagen 1.imagen = archivo de lectura HTTP ("/qrcode/" + oferta)

.End if true

Salida de depuración (texto)

.Procesamiento de subrutina

.Código fuente de variable local, tipo de texto

.Variable local Fuente1, tipo de texto

.Código de estado de variable local, tipo de texto

.Texto de variable local, tipo de texto

.Variable local e , texto

Código fuente de reemplazo de variable local 2, formato de texto

Reloj 1. Período de reloj = 0

Código fuente = Web_AccessS (url + "&fun =. new&version=v2")

Código de estado = Text_Remove_Intermediate_Text (fuente, "", "")

Código de estado = Text_Remove_Intermediate_Text (fuente, "", "")

Código de estado = Text_Remove_Intermediate_Text (fuente, "", "")

."","")

. Si es verdadero (código de estado = "408" )

Cuadro de mensaje ("¡Error desconocido!", 0, )

.Si es verdadero, final

skey = text_take_out_intermediate_text (código fuente, "", "" )

sid = text_take_out_intermediate_text (código fuente, "", "")

uin = text_take_out_intermediate_text (código fuente, "", "")

pass_ticket = text_take_out_intermediate_text (código fuente, "", "")

r = to text (time_to_timestamp (take_current_time(),))

Salida de depuración (skey, sid, uin, pass_ticket, " " , "")

Salida de depuración (skey, sid, uin, pass_ticket) sid, uin, pass_ticket, r)