Código fuente de lotería instantánea

1. Primero muestre su declaración, "Copiar el formulario desde el navegador a un documento de texto o al portapapeles".

Después de copiar el formulario, solo se pueden conservar el texto y los datos del documento de estilo. Este formato es un archivo TXT y el sitio web proporciona una función de descarga.

Además, el sitio web también ofrece descargas de tablas EXCEL en formato XLS.

Si sólo necesitas datos de lotería, con lo anterior es suficiente.

2. Utilice VBA para actualizar dinámicamente las tablas de análisis.

Después de leer el código fuente de la página web que proporcionaste, copié este párrafo sobre datos:

& ltdiv class = " kai _ tab " id = " fast _ issues _ content " & gt;

& lttable class = " kuai _ tab fucai _ tab " id = " fastIssueList " & gt

& ltthead & gt

& lttr & gt

& lttd class="kuai_w1 " >Número de período

& lttd class="kuai_w2 " >Número de lotería

& lttd & gtHora de lotería

& lttd & gtCombinación ganadora

& lttd & gt& lt/TD & gt;

& lt/tr & gt;

& lt/ cabeza & gt;

& lttbody & gt

& lt/tbody & gt;

& lt/table & gt;

& lt/div & gt;

& lt/div & gt;

& lt/div & gt;

Y verifiqué la clase y el atributo ID valor se refiere al valor que se llama a la base de datos después del procesamiento de JavaScript, en lugar de una colección de archivos de texto.

Por ejemplo, el archivo de estilo de Shuangseqiu es el siguiente:/getdata/ssq.txt.

Este talento es fácil de manejar, como se muestra a continuación:

Botón de subcomando privado 1_Click()

Rango (" A3:AC3500 "). claro

k3dshijihao = "/getData/ssq.

TXT "

d3s = "WData3D_All "

Cell(2,1) = "Número de emisión de lotería"

Cell(2,2) = " Fecha de lotería "

Celda(2,3) = "Rojo"

Celda(2,4) = "Bola"

Celda(2, 5) = " Grande"

Celda (2, 6) = "Pequeña"

Celda (2, 7) = "Evitar"

Celda (2, 8) = "orden "

Celda (2, 9) = "azul"

Celda (2, 10) = "rojo"

p>

Celdas(2, 11) = "Bola "

Celdas(2,12) = "Fuera "

Celdas(2,13) ​​​​= "Bola "

Celda (2,14) = "Evitar "

Celda(2,15) = "Prefacio"

Celda(2,16 ) = "Apuesta total"

Celda (2, 17) = "Cantidad del premio acumulado"

Celda (2, 18) = "Número de notas de primer nivel"

Celdas(2,19) = " Cantidad de nivel"

Celdas(2,20) = "Símbolo de segundo nivel"

Celdas(2,265,438 +0) = "Cantidad de segundo nivel"

Celdas (2, 22) = "Símbolo de tercer nivel"

Celdas(2, 23) = "Cantidad"

Celdas(2,24) = "Símbolo de cuarto orden"

Celdas(2,25) = "Cantidad"

Celdas(2,26) = "Símbolo de quinto orden" Notación"

Celdas(2,27 ) = "Cantidad"

Celdas(2,28) = "Símbolos de seis niveles"

Celdas (2, 29) = "Cantidad"

cz = k3dshijihao: czmc = d3s

Usar ActiveSheet.Add(Connection:=_

"Text ;"& ampcz, Destino:=Range("A3 "))

. Nombre = czmc

. Nombres de campo = Verdadero

. Número de fila = Falso

. Verdadero

. actualizar estilo = xlInsertDeleteCells

. guardarContraseña=Falso

. GuardarDatos = Verdadero

. AjustarAnchoColumna = Verdadero

. Período de actualización = 0

. TextFilePromptOnRefresh = Falso

. TextFilePlatform = xlWindows

. textfilestararrow = 1

. TextFileParseType = xlDelimitado

. TextFileTextQualifier = xlTextQualifierDoubleQuote

. TextFileConsecutiveDelimiter = Verdadero

. TextFileTabDelimiter = Falso

. TextFileSemicolonDelimiter = Falso

.

TextFileCommaDelimiter = Falso

. TextFileSpaceDelimiter = Verdadero

. Tipos de datos de columna de archivo de texto = Array(1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1 , 1, 1, 1

. textfiletrailinminusnumbers = True

Actualizar consulta en segundo plano:=False

Terminó con...

. Rango(" A " & amp(Apply. Count(Range(" a1:a3000 ")))) Seleccionar

Fin

Conector final

Convertir). lo anterior Pegue el código en VBA, agregue un botón para especificarlo y pruebe el resultado, si este es el resultado que desea.

Puede cambiar el /getdata/ssq.txt al que se hace referencia en su sitio web. Descargue la ruta del archivo txt y luego realice las modificaciones pertinentes de VBA y ¡listo!