Si conoces vb, hazme un favor.
La primera línea es 11212
La segunda línea es 23333
La tercera línea es 34544
La cuarta línea 45456
La quinta línea 54432
Private Sub Form_Load()
'La siguiente es la llamada principal a getHTTPPage, el primer parámetro es la URL, el segundo El primer parámetro es la codificación (gb2312, utf-8)
Dim Read, Str
Randomize 'Número aleatorio de inicialización
Read = Split (getHTTPPage("/cs .txt", " gb2312"), vbCrLf) 'Dividir líneas de archivo
Str = Read(Rnd * UBound(Read)) 'Aleatorizar líneas
Texto1 .Text = Str ' Mostrar resultados
End Sub
Función getHTTPPage(URL, Cset) 'Leer archivos de la red
Dim http
En caso de error, reanudar a continuación
Establecer http = CreateObject("MSXML2.XMLHTTP")
DoEvents
http.Open " GET ", URL, False
DoEvents
http.send
DoEvents
Si Err.Number = -2146697211 Entonces
Si zidong = 1 O zidong = 2 Entonces
Else
MsgBox "La red no está disponible, ¡inténtalo de nuevo después de conectarte!
Finalizar si
Finalizar si
Salir de la función
Finalizar si
Si http.ReadyState <> 4 Entonces
Salir de la función
Finalizar si p>
getHTTPPage = BytesToBstr(http.responseBody, Cset)
Establecer http = Nada
Si Err.Number <> 0 Entonces Err. Borrar
Función final
Función BytesToBstr(body, Cset) 'Leer archivos de la red
Dim objstream
Establecer objstream = CreateObject ("adodb.Type = 2
Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
Establecer objstream = Nada
Función Final