Ahora hay muchos programas de ladrones populares en Internet, incluidos los ladrones de noticias, los ladrones de música y los ladrones de descarga, ¿cómo lo hacen?
(I) Principio
El programa Thief en realidad llama a páginas web en otros sitios web a través del componente XMLHTTP en XML. Por ejemplo, en el programa News Thief, muchas de ellas llaman a las páginas de noticias de Sina, y algunos reemplazos se realizan al HTML en él, y los anuncios también se filtran. Las ventajas de usar un programa de Thief son: no hay necesidad de mantener el sitio web, porque los datos en el programa Thief provienen de otros sitios web, y se actualizarán a medida que el sitio web se actualice; El programa Thief solo tiene unos pocos archivos, y todo el contenido de la página web es de otros sitios web. Las desventajas son: inestables, si el sitio web de destino, el programa también se erradicará, y si el sitio web de destino se actualiza y mantiene, el programa Thief también debe modificarse en consecuencia; En el servidor local.
(Ii) Ejemplo
Aquí hay una breve explicación de la aplicación de XMLHTTP en ASP
| ＜% 'Funciones comunes '1. función gethttppage (URL) Dim http Establecer http = server.CreateObject (msxml2.xmlhttp) Http.open get, url, falso Http.send () Si http.readyState ＜＞ 4 entonces función de salida final si gethttppage = bytestobstr (http.ResponseBody, GB2312) Establecer http = nada Si Err.Number ＜＞ 0 entonces Err.Clear función final '2. Convertir Lanma, llame directamente a una página web con caracteres chinos con xmlhttp, obtendrá Lanma, que se puede convertir a través del componente ADODB.Stream. Función bytestobstr (cuerpo, cset) dim objstream Establecer objstream = server.createObject (ADODB.Stream) objstream.type = 1 objstream.mode = 3 objstream. objstream.write cuerpo objstream.position = 0 objstream.type = 2 objstream.charset = cset Bytestobstr = objstream.readText objstream.close establecer objstream = nada Función final 'Lo siguiente es intentar llamar al contenido HTML de http://www.3doing.com/eartle/ Dim url, html Url = http: //www.3doing.com/eartle/ Html = gethttppage (url) Respuesta.WRITE HTML %＞ |