1,set proxy 10.100.1.76 :8888
httpc:set_options([{proxy,{{"10.100.1.76",8888},[]}}]).
2,set cookie enabled
> httpc:set_options([{cookies,enabled}]).
ok
3,login and create team
1 application:start(inets). 2 httpc:set_options([{cookies,enabled}]). 3 httpc:request("http://1.1.13.4/user/login"). 4 httpc:request(post,{"post url --remember add v2",[],"application/x-www-form-urlencoded", lists:concat(["post string curl use -d"])},[],[]). 5 httpc:request(post,{"post url",[],"application/x-www-form-urlencoded", lists:concat(["post string curl use -d "])},[],[]). 6 7 httpc:which_cookies(). 8 [{session_cookies,[{http_cookie,"1.1.13.4",true, 9 "JSESSIONID","aaa6JQwGALt04aTzzID1u",undefined,session,"/", 10 false,false,"0"}, 11 {http_cookie,"1.1.13.4",true,"X-XX-SESS-ID", %% u know what XX is 12 "f9vl028l6seblbh7v9i03ico02",undefined,session,"/",false, 13 false,"0"}, 14 {http_cookie,"1.1.13.4",true,"language","zh",undefined, 15 session,"/",false,false,"0"}]}]
4,e.z test case
1 File Edit Options Buffers Tools Help 2 -module(tt). 3 -export([max/1]). 4 5 6 max(N)-> 7 Max=erlang:system_info(process_limit), 8 io:format("Maximum allowd processes:~p~n",[Max]), 9 statistics(runtime), 10 statistics(wall_clock), 11 L=for(1,N,fun()-> spawn(fun()->wait() end) end), 12 {_,Time1}=statistics(runtime), 13 {_,Time2}=statistics(wall_clock), 14 lists:foreach(fun(Pid)->Pid ! die end, L), 15 U1=Time1 * 1000 / N , 16 U2=Time2 * 1000 / N , 17 io:format("Process spawn time=~p(~p) microseconds~n", 18 [U1,U2]). 19 20 21 wait()-> 22 receive 23 die -> httpc:request("http://192.168.1.51") 24 end. 25 for(N,N,F)->[F()]; 26 for(I,N,F)->[F()|for(I+1,N,F)].