—
本帖被 岁月苍白 执行压帖操作(2015-10-04)
—
GET、POST？This is What?很多朋友或许还不知道这是啥东东，其实就是一种网络发送协议类型，
一般有POST和GET两种，学会了POST技术，简单来说就是可以不用打开网页
都可以进行一些网页操作，小的如签到、发帖（比如某大大的按键论坛自动签到小工具）
代码2—获取某网页板块下的所有内容：复制代码
一般有POST和GET两种，学会了POST技术，简单来说就是可以不用打开网页
都可以进行一些网页操作，小的如签到、发帖（比如某大大的按键论坛自动签到小工具）
大的如淘宝充值平台系统、飞q手机验证码自动接收系统等等，下面小编带大家更深入的了解下
get、post区别
关于get、post的详细介绍可以查看michael3636大大整理的掌控POST(1)、
掌控POST(2)、掌控POST(3)、掌控POST(4)、掌控POST(5)、掌控POST(6)结束篇。
这边稍微做个小总结：
Get是用来从服务器上获得数据，而Post是用来向服务器上传递数据
get url上能看到数据 url上有尾巴 不安全 长度有限 post 看不到数据 url无尾巴 安全 无长度限制 代码2—获取某网页板块下的所有内容：复制代码
- /*
- HttpGet
- 原作者 : BlackGlory
- url : 链接地址
- */
- Function getHttp(url)
- getHttp = download(url)
- End Function
- /*
- HttpPost
- 原作者 : BlackGlory
- url : 链接地址
- parameter : post参数
- */
- Function postHttp(url, parameter)
- Dim xmlHttp, aso
- Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
- url = urlCheck(url)
- xmlHttp.open "post", url, False
- xmlHttp.setrequestheader "content-type", "application/x-www-form-urlencoded"
- xmlHttp.send parameter
- Do
- Loop Until xmlHttp.readyState = 4
- postHttp = xmlHttp.responseText
- Set xmlHttp = Nothing
- End Function
- Function urlCheck(url)
- If Left(url, 7) <> "http://" Then
- url = "http://" & url
- End If
- urlCheck = url
- End Function
飞q实例应用
飞q手机验证码自动接收系统介绍该系统可以实现手动获取各大网站的手机验证码，通过post我们可以不需要打开网址的情况下就能获取到下面是相关整体代码示例：
复制代码- Function postHttp(url, parameter)
- Dim xmlHttp, aso
- Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
- url = urlCheck(url)
- xmlHttp.open "post", url, False
- xmlHttp.setrequestheader "content-type", "application/x-www-form-urlencoded"
- xmlHttp.send parameter
- Do
- Loop Until xmlHttp.readyState = 4
- postHttp = xmlHttp.responseText
- Set xmlHttp = Nothing
- End Function
- Function urlCheck(url)
- If Left(url, 7) <> "http://" Then
- url = "http://" & url
- End If
- urlCheck = url
- End Function
- /*
- 飞Q手机验证平台API
- 功能 : 登录
- 参数 : uid[用户名] pwd[密码]
- 返回 : 成功返回 token，失败返回空字符串 ""
- */
- Function FQ_Login(uid, pwd)
- PostParam = "action=loginIn&uid={$uid}&pwd={$pwd}"
- PostParam = Replace(PostParam, "{$uid}", uid)
- PostParam = Replace(PostParam, "{$pwd}", pwd)
- RetStr = postHttp("http://sms.xudan123.com/do.aspx", PostParam)
- If FQ_IsOK(RetStr) Then
- FQ_Login = Split(RetStr, "|")(1)
- Else
- FQ_Login = ""
- End If
- End Function
- /*
- 飞Q手机验证平台API
- 功能 : 获取号码
- 参数 : pid[项目ID]
- 返回 : 成功返回 手机号，失败返回空字符串 ""
- */
- Function FQ_GetTel(pid)
- PostParam = "action=getMobilenum&pid={$pid}"
- PostParam = Replace(PostParam, "{$pid}", pid)
- RetStr = postHttp("http://sms.xudan123.com/do.aspx", PostParam)
- If FQ_IsOK(RetStr) Then
- TracePrint RetStr
- FQ_GetTel = Split(RetStr, "|")(0)
- Else
- FQ_GetTel = ""
- End If
- End Function
- /*
- 飞Q手机验证平台API
- 功能 : 获取验证码
- 参数 : tel[手机号码] pid[项目ID] uid[开发者用户名(分成用)] del[是否继续使用这个号码]
- 返回 : 成功返回 手机号，失败返回空字符串 ""
- */
- Function FQ_GetVCode(tel, pid, uid, del)
- PostParam = "action={$tpe}&mobile={$tel}{$pid}&author_uid={$uid}"
- If Del Then
- PostParam = Replace(PostParam, "{$tpe}", "getVcodeAndHoldMobilenum")
- PostParam = Replace(PostParam, "{$pid}", "&next_pid=" & pid)
- Else
- PostParam = Replace(PostParam, "{$tpe}", "getVcodeAndReleaseMobile")
- PostParam = Replace(PostParam, "{$pid}", "")
- End If
- PostParam = Replace(PostParam, "{$tel}", tel)
- PostParam = Replace(PostParam, "{$uid}", uid)
- RetStr = postHttp("http://sms.xudan123.com/do.aspx", PostParam)
- If FQ_IsOK(RetStr) Then
- FQ_GetVCode = Split(RetStr, "|")(1)
- Else
- FQ_GetVCode = ""
- End If
- End Function
- /*
- 飞Q手机验证平台API
- 功能 : 通用返回值验证
- 参数 : ies[返回字串]
- 返回 : 成功返回 True ，否则返回 False 并输出错误信息
- 说明 : 内部函数
- */
- Function FQ_IsOK(ies)
- FQ_IsOK = False
- 返回值=split(ies,"|")
- Select Case 返回值(0)
- Case "message"
- TracePrint "账户可使用余额不足,需充值"
- Case "unknow_error"
- TracePrint "未知错误"
- Case "not_login"
- TracePrint "没有登录"
- Case "not_found_project"
- TracePrint "没有找到项目"
- Case "not_found_moblie"
- TracePrint "没有找到手机号"
- Case "login_error"
- TracePrint "登录错误(请检查用户名或密码)"
- Case "mobile_exists"
- TracePrint "手机号己存在"
- Case "not_receive"
- TracePrint "还没有接收到验证码,请让程序等待几秒后再次尝试"
- Case "parameter_error"
- TracePrint "传入参数错误"
- Case "no_data"
- TracePrint "没有数据"
- Case "project_state_error"
- TracePrint "项目状态不对,可能项目还没通过审核"
- Case "mobile_state_error"
- TracePrint "手机号状态不对"
- Case "sms_content_exists"
- TracePrint "短信内容已经提交过,不能重复提交"
- Case "watting_send"
- TracePrint "正在发送短信"
- Case "send_content_error"
- TracePrint "提交要发送的短信内容格式错误"
- Case "max_count_disable"
- TracePrint "已经达到了可以获取手机号的最大数量"
- Case Else
- FQ_IsOK = True
- End Select
- End Function
- //一个简单的调用方法模版：
- token = FQ_Login("xywhsoft", "52161314")
- // 取号码
- phone = FQ_GetTel(21)
- TracePrint phone
- // 手机验证
- Do
- Delay 5000
- 验证码 = FQ_GetVCode(phone, 21, "", False)
- If 验证码 <> "" Then
- 验证码 = Mid(验证码, 9, 6)
- Call Plugin.Web.HtmlInput(验证码, "id:strVcode")
- Exit Do
- End If
- Loop
