我正在使用来自github开源的omegle api。我能够发送接收消息。但现在我想为共同利益添加选项。但我没有发现任何关于常见的喜欢..... 我只有这个...
case question:
String question = ((JSONArray) obj).getString(1);
for(OmegleEventListener listener : listeners) {
listener.question(this, question);
}
break;
case error:
String errorMessage = ((JSONArray) obj).getString(1);
for (OmegleEventListener listener : listeners) {
listener.omegleError(this, errorMessage);
}
break;
case commonLikes:
break;
//Custom events
case messageSent:
for (OmegleEventListener listener : listeners) {
listener.messageSent(this, obj.toString());
}
break;
case disconnected:
for (OmegleEventListener listener : listeners) {
listener.chatDisconnected(this);
}
active = false;
break;
}
以下api我发现类似于我的代码：
# session modes:
# undef: no session
# 0: traditional
# 1: traditional + common likes submitted
# 2: spy mode (you're the spy)
# 3: spy mode (you're spied on)
use warnings;
use strict;
use 5.010;
use HTTP::Async;
use HTTP::Request::Common;
use URI::Escape::XS;
use Furl;
use JSON;
our ($VERSION, $online, $ua, @servers,
$updated, $lastserver, %response) = (3.7, 0, Furl->new);
# New::Omegle->new(%opts)
# creates a new New::Omegle session instance.
sub new {
my ($class, %opts) = @_;
$opts{async} = HTTP::Async->new;
update() if !$updated;
bless \%opts, $class;
}
# $om->start()
# establishes a new omegle session and returns its id.
sub start {
my $om = shift;
$om->{last_time} = time;
$om->{async} ||= HTTP::Async->new;
$om->{server} = &newserver unless $om->{static};
$om->{session} = 0;
my $startopts = '?rcs=1&spid=';
# enable common interests
if ($om->{use_likes}) {
$startopts .= '&topics='.encodeURIComponent($om->{topics});
$om->{stopsearching} = time() + 5;
$om->{session} = 1;
}
# enable question mode
if ($om->{use_question}) {
$startopts .= '&ask='.encodeURIComponent($om->{question});
$om->{session} = 2;
}
# enable answer mode
if ($om->{want_question}) {
$startopts .= '&wantsspy=1';
$om->{session} = 3;
}
# get ID
_post("http://$$om{server}/start$startopts") =~ m/^"(.+)"$/;
$om->{id} = $1;
return $om->{id};
}
# $om->say($msg)
# send a message
sub say {
my ($om, $msg) = @_;
return unless $om->{id};
return if $om->{session} == 2;
$om->post('send', [ msg => $msg ]);
}
# om->type()
# make it appear that you are typing
sub type {
my $om = shift;
return unless $om->{id};
return if $om->{session} == 2;
$om->post('typing');
}
# $om->stoptype()
# make it appear that you have stopped typing
sub stoptype {
my $om = shift;
return unless $om->{id};
return if $om->{session} == 2;
$om->post('stoptyping');
}
# $om->disconnect()
# disconnect from the stranger
sub disconnect {
my $om = shift;
return unless $om->{id};
$om->post('disconnect');
$om->done();
}
# $om->submit_captcha($solution)
# submit recaptcha request
sub submit_captcha {
my ($om, $response) = @_;
$om->post('recaptcha', [
challenge => delete $om->{challenge},
response => $response
]);
}
# $om->go()
# request and handle events: put this in your main loop
sub go {
my $om = shift;
return unless $om->{id};
return if $om->{last_time} >= time;
# stop searching for common likes
if (defined $om->{stopsearching} && $om->{stopsearching} >= time) {
$om->post('stoplookingforcommonlikes');
$om->fire('stopsearching');
delete $om->{stopsearching};
}
# look for new events
foreach my $res ($om->get_next_events) {
next unless $res->[0];
$om->handle_events($res->[0]->content, $res->[1]);
}
# update server list and user count
update() if $updated && $updated + 300 < time;
$om->request_next_event;
$om->{last_time} = time;
}
# $om->request_next_event()
# asks the omegle server for more events. intended for internal use.
sub request_next_event {
my $om = shift;
return unless $om->{id};
$om->post('events');
}
# $om->get_next_events
# returns an array of array references [response, id]
# intended for internal use.
sub get_next_events {
my $om = shift;
my @f = ();
while (my @res = $om->{async}->next_response) { push @f, \@res }
return @f;
}
# $om->handle_json($data, $req_id)
# parse JSON data and interpret it as individual events.
# intended for internal use.
sub handle_events {
my ($om, $data, $req_id) = @_;
# waiting handler
if ($response{$req_id}) {
return unless (delete $response{$req_id})->($data);
}
# array of events must start with [
return unless $data =~ m/^\[/;
# event JSON
my $events = JSON::decode_json($data);
foreach my $event (@$events) {
$om->handle_event(@$event);
}
}
# $om->fire($callback, @args)
# fires callbacks. intended for internal use.
sub fire {
my ($om, $callback, @args) = @_;
if ($om->{"on_$callback"}) {
return $om->{"on_$callback"}($om, @args);
}
return;
}
# $om->handle_event(@event)
# handles a single event from parsed JSON. intended for internal use.
sub handle_event {
my ($om, @event) = @_;
$om->fire('debug', $event[0].'('.join(', ', @event[1..$#event]).')');
given ($event[0]) {
# session established
when ('connected') {
$om->fire('connect');
$om->{connected} = 1;
}
# stranger said something
when ('gotMessage') {
$om->fire('chat', $event[1]);
delete $om->{typing};
}
# stranger disconnected
when ('strangerDisconnected') {
$om->fire('disconnect');
$om->done();
}
# stranger is typing
when ('typing') {
continue if $om->{no_type};
$om->fire('type') unless $om->{typing};
$om->{typing} = 1;
}
# stranger stopped typing
when ('stoppedTyping') {
continue if $om->{no_type};
$om->fire('stoptype') if $om->{typing};
delete $om->{typing};
}
# stranger has similar interests
when ('commonLikes') {
$om->fire('commonlikes', $event[1]);
}
# question is asked
when ('question') {
$om->fire('question', $event[1]);
}
# spyee disconnected
when ('spyDisconnected') {
my $which = $event[1];
$which =~ s/Stranger //;
$om->fire('spydisconnect', $which);
$om->done();
}
# spyee is typing
when ('spyTyping') {
continue if $om->{no_type};
my $which = $event[1];
$which =~ s/Stranger //;
$om->fire('spytype', $which) unless $om->{"typing_$which"};
$om->{"typing_$which"} = 1;
}
# spyee stopped typing
when ('spyStoppedTyping') {
continue if $om->{no_type};
my $which = $event[1];
$which =~ s/Stranger //;
$om->fire('spystoptype', $which);
delete $om->{"typing_$which"};
}
# spyee said something
when ('spyMessage') {
my $which = $event[1];
$which =~ s/Stranger //;
$om->fire('spychat', $which, $event[2]);
delete $om->{"typing_$which"};
}
# number of people online
when ('count') {
$online = $event[1];
$om->fire('count', $event[1]);
}
# an error has occured and the session must end
when ('error') {
$om->fire('error', $event[1]);
$om->done();
}
# captcha was rejected
when ('recaptchaRejected') {
$om->fire('badcaptcha');
continue;
}
# server requests captcha
when (['recaptchaRequired', 'recaptchaRejected']) {
$om->fire('wantcaptcha');
my $data = _get("http://google.com/recaptcha/api/challenge?
以下用于将模式发布到服务器的类：
public OmegleSession openSession(OmegleMode mode, Object... objs)
throws OmegleException {
try {
Map<String, Object> vars = new HashMap<String, Object>();
vars.put("rcs", "1");
//vars.put("firstevents", firstEvents ? "1" : "0");
String str = "horny" ;
vars.put("topics", str);
//vars.put("m","1");
if (mode == OmegleMode.SPY) {
vars.put("wantsspy", "1");
} else if (mode == OmegleMode.SPY_QUESTION) {
if (objs.length > 0) {
if (objs[0] instanceof String) {
vars.put("ask", objs[0].toString());
} else {
throw new OmegleException(
"The question MUST be passed as the first parameter!");
}
} else {
throw new OmegleException(
"You cannot open a spy question session without a question!");
}
}
URL url = new URL(OPEN_URL + "?" + HttpUtil.implode(vars));
JSONObject resp = new JSONObject(HttpUtil.post(url, ""));
if (!resp.has("clientID")) {
throw new OmegleException("Omegle didn't return a client id!");
}
OmegleSession session = new OmegleSession(this,
resp.getString("clientID"));
for (Object obj : objs) {
if (obj instanceof OmegleEventListener) {
session.addListener((OmegleEventListener) obj);
}
}
if (resp.has("events")) {
session.parseEvents(resp.getJSONArray("events"));
}
synchronized (sessions) {
sessions.add(session);
}
return session;
} catch (IOException e) {
throw new OmegleException(e);
} catch (JSONException e) {
throw new OmegleException(e);
}
}