Red de conocimiento informático - Espacio del host - Si conoces vb, hazme un favor.

Si conoces vb, hazme un favor.

/cs.txt es el contenido del archivo de prueba que subí

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

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