10.000 MyCup Kaffeemaschinen bei ebay zu gewinnen.

wieviele hatteste denn drinne?

Habe einige mit 6 Maschinen gesehen und das fand ich dann doch ein wenig krass

Schnorrer

10 Maschinen. Bin mal gespannt ob Ebay die drin läßt!

Tolles Gewinnspiel, das muß man Ebay schon lassen!

warum solln se die nicht drin lassen?!
ebay verdient doch dran, die werden sich hüten! meiner meinung nach hatten die das doch genau geplant, dass es so läuft

spielverderber: ich hatte vor ein paar tagen das angebot gemacht, dir umsonst eine zu holen, doch du wolltest nicht. also hör nun endlich mal auf hier rumzustänkern!

Zitat

Original geschrieben von pallmall
Sooo gigantisch ist der My Cup Verkauf in Ebay aber auch nicht gerade. Hab grad mal geguckt, so um die 300 bis 500 Maschinen, und die Preislage liegt zwischen 50 und 80 Euro.

Und ein wenig laut ist die tatsächlich, aber eigentlich ist das Geräusch eher ungewöhnlich, daß ist alles.

Muss aber sagen, vom Hocker reisst mich der Geschmack nun auch nicht und wenn ichs mir überleg, ich seh eigentlich garkeinen Vorteil ggü. dem herkömmlichen Kaffeekochsystem. Es ist lediglich teurer (viel teurer) und die Maschine sieht nett aus (falls man jemanden von Schöner Wohnen zu Besuch hat). Alles in allem aber ein Gerät, daß der Kunde nicht wirklich braucht...

So ist es!Mit dem doch recht netten Design sollen beim Konsumenten Gefühle und Emotionen geweckt werden und mit dem Padwahn (auch Senseo!) will die Kaffeeindustrie den seit Jahren am Boden liegenden Kaffeepreis steigern!
Wie meinte letztens ein Boss in der Branche ?
"Zu den jetzigen Preisen am Markt,kann man eigentlich nur Sand abfüllen..."

quelle hat diese maschiene im angebot :top:
die hat nen permanentfilter

you want that script? see it!

ihr denkt 10 mycups sind viel? ich hab 89!

hier habt ihr euer script:
-------

unit Unit1;

// compiled with delphi 5
// dmd.ini in C:\ contains questions+answers - thx to wasimmer.de
// ebay.html in C:\ contains template of answering page

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Psock, NMHttp, IniFiles, Shellapi, ComCtrls, Math;

type
Tform_main = class(TForm)
http: TNMHTTP;
Label1: TLabel;
memo_source: TMemo;
Label2: TLabel;
ed_question: TEdit;
Button3: TButton;
lab_type: TLabel;
lab_qid: TLabel;
Button6: TButton;
lab_same: TLabel;
lab_found: TLabel;
progress: TProgressBar;
Button1: TButton;
stop: TCheckBox;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure httpPacketRecvd(Sender: TObject);
function requestit: Boolean;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
form_main: Tform_main;

implementation

{$R *.DFM}

procedure Tform_main.Button1Click(Sender: TObject);
var
done: Boolean;
begin

repeat
Application.ProcessMessages; //msgs
if stop.Checked then exit;
done := requestit;
until done;

end;

procedure Tform_main.Button3Click(Sender: TObject);
begin

memo_source.Lines.Clear;
button6.Enabled := True;

end;

procedure Tform_main.Button4Click(Sender: TObject);
var
ini: TIniFile;
begin

ini := TIniFile.Create('C:\dmd.ini');
ShowMessage(ini.ReadString(ed_question.Text, 'theanswer', 'NOTFOUND'));

end;

procedure Tform_main.Button5Click(Sender: TObject);
var
htmfile: TStringlist;
begin

htmfile := TStringlist.Create;
htmfile.LoadFromFile('C:\ebay.html');
htmfile.Text := StringReplace(htmfile.Text, '#dmdanswerid#', lab_qid.Caption, [rfIgnoreCase, rfReplaceall]);
htmfile.Text := StringReplace(htmfile.Text, '#theanswer#', 'keine ahnung', [rfIgnoreCase, rfReplaceall]);
htmfile.SaveToFile('C:\ebaysend.html');
htmfile.Free;

end;

procedure Tform_main.Button6Click(Sender: TObject);
var
ini: TIniFile;
a_begin, a_end: Integer;
a_answer: String;
htmfile: TStringlist;
begin

progress.Position := 0;
lab_type.Visible := False;
lab_same.Visible := False;
lab_found.Visible := False;

http.Get('http://deutschlandmachtdurch.ebay.de/main.html');
memo_source.Text := http.Body;
if Pos('erscheint gleich', memo_source.Text) > 0
then begin
lab_type.Caption := 'already answered';
lab_type.Visible := True;
memo_source.Lines.Clear;
exit;
end
else begin
lab_type.Caption := 'VALID';

a_begin := Pos('<span class="boldw">', memo_source.Text);
a_end := Pos('?</span><br>', memo_source.Text);
if ed_question.Text = Copy(memo_source.Text, a_begin+20, a_end-a_begin-19)
then begin
lab_same.Caption := 'same';
lab_same.Visible := True;
exit;
end;

lab_same.Visible := False;
ed_question.Text := Copy(memo_source.Text, a_begin+20, a_end-a_begin-19);
a_begin := Pos('name="dmd_answer', memo_source.Text);
a_end := Pos('size="54">', memo_source.Text);
lab_qid.Caption := Copy(memo_source.Text, a_begin+6, a_end-a_begin-17);

ini := TIniFile.Create('C:\dmd.ini');
a_answer := ini.ReadString(ed_question.Text, 'theanswer', 'NOTFOUND');
ini.free;

if not (a_answer = 'NOTFOUND')
then begin
lab_found.Caption := 'NOTFOUND';
lab_found.Visible := True;
htmfile := TStringlist.Create;
htmfile.LoadFromFile('C:\ebay.html');
htmfile.Text := StringReplace(htmfile.Text, '#dmdanswerid#', lab_qid.Caption, [rfIgnoreCase, rfReplaceall]);
htmfile.Text := StringReplace(htmfile.Text, '#theanswer#', a_answer, [rfIgnoreCase, rfReplaceall]);
htmfile.SaveToFile('C:\ebaysend.html');
htmfile.Free;
button6.Enabled := False;
ShellExecute(Application.Handle, 'open', PCHar('C:\ebaysend.html'), nil, nil, SW_ShowNormal);
lab_found.Visible := True; lab_found.Caption := 'FOUND';
end else begin lab_found.Visible := True; lab_found.Caption := 'NOTFOUND'; end;
end;

end;

procedure Tform_main.httpPacketRecvd(Sender: TObject);
var
perc: Extended;
percint: Integer;
begin

perc := (http.BytesRecvd*100)/http.BytesTotal;
percint := Ceil(perc);
if percint > 100 then percint := 100;
if percint < 0 then percint := 0;
progress.Position := percint;

end;

function Tform_main.requestit: Boolean;
var
ini: TIniFile;
a_begin, a_end: Integer;
a_answer: String;
htmfile: TStringlist;
begin

result := False;
progress.Position := 0;

http.Get('http://deutschlandmachtdurch.ebay.de/main.html');
memo_source.Text := http.Body;
if Pos('erscheint gleich', memo_source.Text) > 0
then begin
lab_type.Caption := 'already answered';
lab_type.Visible := True;
lab_same.Visible := False;
lab_found.Visible := False;
memo_source.Lines.Clear;
exit;
end
else begin
lab_type.Caption := 'VALID';
lab_type.Visible := True;
lab_same.Visible := False;
lab_found.Visible := False;

a_begin := Pos('<span class="boldw">', memo_source.Text);
a_end := Pos('?</span><br>', memo_source.Text);
if ed_question.Text = Copy(memo_source.Text, a_begin+20, a_end-a_begin-19)
then begin
lab_same.Caption := 'same';
lab_type.Visible := True;
lab_same.Visible := True;
lab_found.Visible := False;
exit;
end;

lab_same.Visible := False;
ed_question.Text := Copy(memo_source.Text, a_begin+20, a_end-a_begin-19);
a_begin := Pos('name="dmd_answer', memo_source.Text);
a_end := Pos('size="54">', memo_source.Text);
lab_qid.Caption := Copy(memo_source.Text, a_begin+6, a_end-a_begin-17);

ini := TIniFile.Create('C:\dmd.ini');
a_answer := ini.ReadString(ed_question.Text, 'theanswer', 'NOTFOUND');
ini.free;

if not (a_answer = 'NOTFOUND')
then begin
lab_found.Caption := 'NOTFOUND';
lab_type.Visible := True;
lab_same.Visible := True;
lab_found.Visible := True;
htmfile := TStringlist.Create;
htmfile.LoadFromFile('C:\ebay.html');
htmfile.Text := StringReplace(htmfile.Text, '#dmdanswerid#', lab_qid.Caption, [rfIgnoreCase, rfReplaceall]);
htmfile.Text := StringReplace(htmfile.Text, '#theanswer#', a_answer, [rfIgnoreCase, rfReplaceall]);
htmfile.SaveToFile('C:\ebaysend.html');
htmfile.Free;
button6.Enabled := False;
ShellExecute(Application.Handle, 'open', PCHar('C:\ebaysend.html'), nil, nil, SW_ShowNormal);
lab_found.Visible := True; lab_found.Caption := 'FOUND';
result := True;
end
else begin
lab_found.Visible := True; lab_found.Caption := 'NOTFOUND';
lab_type.Visible := True;
lab_same.Visible := True;
lab_found.Visible := True;
end;
end;

end;

end.
----
stay coding baby

Re: you want that script? see it!

Zitat

Original geschrieben von derwixxxer
ihr denkt 10 mycups sind viel? ich hab 89!

Du bist ein Held.

Re: Re: you want that script? see it!

Zitat

Original geschrieben von zendel25
Du bit ein Held.

Naja..., zwar respekt an dem script. Aber, welches ja nachvollziehbar ist, fies gegenüber den anderen...

Re: you want that script? see it!

Zitat

Original geschrieben von derwixxxer
ihr denkt 10 mycups sind viel? ich hab 89!

hier habt ihr euer script:

[...]

Heldenhaft , schade nur, dass es hier niemanden interessiert...

Re: you want that script? see it!

Zitat

Original geschrieben von derwixxxer
ich hab 89!

Tja, wenn Du jetzt auch noch 88 Stück verkaufst und den Erlös einem guten Zweck zur Verfügung stellst, muss ich sagen: Respekt!

Ansonsten schließe ich mich zendel25 an.