易语言修改IE协议头留言手机版网页

本文将介绍易语言如何修改IE协议头，从而实现留言手机版网页功能。

首先，我们需要了解一下什么是协议头。

协议头是指在进行HTTP通信时，客户端（一般是浏览器）向服务器发起请求时，其中包含的一些信息，常见的如User-Agent、Referer、Cookie等。其中，User-Agent是指浏览器的类型和版本信息，Referer是指请求来源的页面地址，Cookie是指所带的用户登录认证信息等。

而对于网站的开发者而言，通过修改协议头可以实现很多功能，比如识别具体是哪个浏览器访问网站，或者是对请求来源进行统计等。

下面我们来看看如何通过易语言修改IE协议头。

1. 打开易语言，新建一个工程，命名为"修改IE协议头"。

2. 在主界面中添加一个按钮，并将其命名为"提交留言"。

3. 右键按钮，在弹出的菜单中选择"添加事件"，选择"单击事件"。

4. 在事件编辑器中输入以下代码：

Function OnBtnClick()  
    '创建IE对象  
    Dim IE: set IE=CreateObject("InternetExplorer.Application")  
    '打开需要留言的网页  
    IE.Navigate("http://www.xxx.com/留言页面")  
    '等待页面加载完成  
    While IE.ReadyState<>4: Sleep(10): Wend  
    '设置协议头  
    IE.document.parentWindow.execScript("function setHeader(){var xhr=new XMLHttpRequest();xhr.open('POST','http://www.xxx.com/submit.php',true);xhr.setRequestHeader('Referer','http://www.xxx.com/留言页面');xhr.setRequestHeader('User-Agent','Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.3、6');xhr.setRequestHeader('Content-Type','application/x-www-form-urlencoded');xhr.send('message='+encodeURIComponent(document.getElementById('message').value));} setHeader();")  
    '等待留言提交  
    While IE.ReadyState<>4: Sleep(10): Wend  
    '关闭IE  
    IE.Quit  
    MsgBox "留言提交成功！"  
End Function  

5. 代码解析：

- 创建IE对象：使用易语言自带的CreateObject函数创建IE浏览器对象。

- 打开需要留言的网页：使用IE对象的Navigate方法打开需要留言的网页。

- 等待页面加载完成：使用While循环和Sleep函数等待页面加载完成。

- 设置协议头：使用IE对象的document对象和parentWindow对象调用JavaScript代码，在请求中添加Referer和User-Agent等协议头信息。

- 等待留言提交：同样使用While循环和Sleep函数等待留言提交完成。

- 关闭IE：使用IE对象的Quit方法关闭IE浏览器。

- 提示留言提交成功：使用MsgBox函数提示留言提交成功信息。

6. 最后，点击"F5"或"运行"按钮，启动程序并进行测试。

总结：

本文介绍了易语言修改IE协议头实现留言手机版网页功能的方法，希望对大家有所帮助。通过修改协议头可以实现很多诸如用户统计、防盗链等功能，希望大家能够善加利用。