偷懒系列--自动登录网站脚本_JAVA_编程开发_程序员俱乐部

背景

最近需要频繁的登录4A系统，可是移动效率如此低下，申请个账号好几个月了还不行。

过程

class="java">public class Modify4ATempMobile{
	private static HttpClient client = null;
	public static void main(String[] args) throws Exception {
		String loginURL = "http://4aportal.bmcc.com.cn/userset/pwdmanage.do?method=getPwdProtectBeforeLoginForTempMobile";
		String checkURL = "http://4aportal.bmcc.com.cn/userset/pwdmanage.do?method=checkPwdProtectBeforeLoginForTempMobile";
		String updateURL = "http://4aportal.bmcc.com.cn/userset/pwdmanage.do?method=setTempMobile";
		Map<String, String> param = new HashMap<String, String>();
		param.put("userId", "crm_xxx");
		param.put("authCode", "xxx12345");
		System.out.println(doPost(loginURL, param));
		param.clear();
		param.put("question", "xx");
		param.put("answer", "xx");
		System.out.println(doPost(checkURL, param));
		param.clear();
		param.put("tempmobile", "13814027174");
		System.out.println(doPost(updateURL, param));
	}
	
	public static String doPost(String url, Map<String, String> parameters) throws IOException {
		//使用同一个client，保持session
		if(client == null){
			client = getHttpClient();
		}
		PostMethod method = new PostMethod(url);
    	if(parameters != null && !parameters.isEmpty()){
    		NameValuePair[] list = new NameValuePair[parameters.size()];
            int i = 0;
            Entry<String, String> entry = null;
            for(Iterator<Entry<String, String>> iterator = parameters.entrySet().iterator(); iterator.hasNext(); ){
            	entry = (Entry<String, String>) iterator.next();
             	list[i++] = new NameValuePair(entry.getKey(), entry.getValue());
            }
 			method.setRequestBody(list);
         }
		client.executeMethod(method);
		return method.getResponseBodyAsString();
	}
	
	public static HttpClient getHttpClient(){
		HttpClient client = new HttpClient();
		
		//代理设置，不用可以去掉
		client.getHostConfiguration().setProxy("proxy.bmcc.com.cn", 8080);    
		client.getParams().setAuthenticationPreemptive(true);    
		//如果代理需要密码验证，这里设置用户名密码    
		client.getState().setProxyCredentials(AuthScope.ANY, new UsernamePasswordCredentials("ngcrm_xxx","xxx"));  
		//end 代理
		
		client.getHttpConnectionManager().getParams().setConnectionTimeout(0);
		client.getHttpConnectionManager().getParams().setSoTimeout(0);
		return client;
	}
}

@echo off
setlocal enabledelayedexpansion
set work_path=D:\Work-bj\crm_bj\lib
d:
cd %work_path%
for %%F in (%work_path%\apache\*.jar) do call :addcp %%F

for %%F in (%work_path%\appframe\*.jar) do call :addcp %%F

for %%F in (%work_path%\other\*.jar) do call :addcp %%F

for %%F in (%work_path%\runtime\*.jar) do call :addcp %%F

set classpath= .;D:/Work-bj/crm_bj/html/WEB-INF/classes;%CLASSPATH%

java com.asiainfo.test.Modify4ATempMobile

pause

:addcp
echo %1
SET CLASSPATH=%CLASSPATH%;%1

Const userId="crm_xxx"
Const passwd="xxx12345"
Const question="xxx"
Const answer="xxx"
Const tempmobile="13814027174"

Dim http
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "POST", "http://4aportal.bmcc.com.cn/userset/pwdmanage.do?method=getPwdProtectBeforeLoginForTempMobile", False
http.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
http.send "authCode=" & passwd & "&userId=" & userId

http.open "POST", "http://4aportal.bmcc.com.cn/userset/pwdmanage.do?method=checkPwdProtectBeforeLoginForTempMobile", False
http.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
http.send "question=" & question & "&answer=" & answer

http.open "POST", "http://4aportal.bmcc.com.cn/userset/pwdmanage.do?method=setTempMobile", False
http.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
http.send "tempmobile=" & tempmobile

Set ie = CreateObject("InternetExplorer.Application")
ie.visible=true
ie.Navigate "http://4aportal.bmcc.com.cn/"
do until 4=ie.readyState
	do until 4=ie.readyState
	waittime  = waittime + 200
    if waittime > 15000 then exit do
	Loop
Loop

if 4<>ie.readyState then
    ie.quit
    WScript.quit
end if

set dom = ie.document
set form = dom.getElementById("logonForm")
form.all("name").value = userId
form.all("pwd").value = passwd
'短信登录
'form.all("button4").click()
'语音登录
form.all("button5").click()

'请修改信息为需要的信息。

'用户名
Const userId = "crm_xxx"
'密码
Const passwd = "xxx12345"
'密保问题
Const question = "xxx"
'密保答案
Const answer = "xxx"
'临时手机号 
Const tempmobile = "13814027174"
'短信登录:1 语音登录:2
Const logintype = 2

' 如果打开默认的ie呢 	
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = true
ie.Top = 0
ie.Left = 0
ie.Navigate "http://4aportal.bmcc.com.cn/iam/belogin/login_findpwdproduct_tempmobile.jsp"

wait4ieready()

'发送alt+空格+x最大化
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "%+(' 'x)"

ie.document.getelementByid("userId").value = userId
ie.document.getelementByid("authCode").value = passwd
ie.document.getelementByid("confirm").click()

wait4ieready()

ie.document.getElementById("answer").value = answer
ie.document.getElementById("confirm").click()

wait4ieready()

ie.document.getElementById("tempmobile").value = tempmobile
ie.document.getElementById("confirm").click()

wait4ieready()

ie.document.getElementById("skip").click()

wait4ieready()

ie.document.getElementById("name").value = userId
ie.document.getElementById("pwd").value = passwd

if logintype = 1 then
	'短信登录
	form.all("button4").click()
else
	'语音登录
	ie.document.getElementById("button5").click()
end if

sub wait4ieready()
	do while ie.ReadyState <> 4 or ie.busy   
		wscript.sleep 200                  
	loop
end sub