Я давно думал, как бы сделать себя счастливым - встроить себе в башку мп3 плеер, или капсулу с ЛСД зашить.. но в любом случае речь идёт о наслаждениях ума. Которые поглотят и сожрут меня, не являясь постоянным допингом, их действие графично y=x^2 вместо y=n*x.
тем не меннее, всосав бутылку винчика, я могу спокойно пойти пожарить макароны, не торопясь никуда. Это ощущение приятно.
13.10.2008 22:50:24
Дима! Спать клонит... Я не хочу вот так вот тупо сейчас уснуть. Я хочу ПОНЯТЬ. Но нет сил на раскачку психики. Враньё. Да, кофе уже сегодня я попил и не попить его второй раз. Да, выпил литр пива недавно, и вялость ума будет сопровождать меня безвспышечного ещё пару недель. Но есть третий способ, это "сказать себе". Это внимание. Несмотря ни на что. Силы на раскачку психики есть всегда. Внешнее и прошлое не показатель. _Я адекватен._
глаза хотят быть закрытыми. завтра на работу. теряю ещё один тайм-слот, вечер. я по прежнему не понимаю что же нужно сделать чтобы ПОНЯТЬ.
17.10.2008 9:58:28
сёдня играют бисеки. я в вентспилсе. напрашиваться на ночлег ни к кому не буду. кимуха едет к своей, довезёт. надо взять вторые штаны и свитер чтоб не холодно ночью гулять. и рюкзак для всего этого и куртки. но кожанку в рюкзак не запихнуть и танцевать с рюкзаком галимо. а захочется, после биси будет диско 80-х. задумал величайшую для меня по своей безумности авантюру - поехать в штанах и маечке, даже без любимого спайдерфаера. ночью будет +8, гулять по мосту. щас надо ответить себе на один вопрос, смогу ли я физкультурить 6-7 часов до утреннего автобуса. иебааать.
сижу, вчера всосал девять поллитровок. с утра дополз до туалета, наполовину посцал. глотнул воды спод крана, пришлось сесть, чтоб кровь прилила к голове и её прекратило тошнить.
так вот - сижу. жру салат. уговариваю себя поехать куда нихуя не хочется. поехать потому, что надо помнить друзей даже уехав в жепу народа, и потому что по жизни надо развлекаться, устраивая себе необычности.
попутно к вадьке заскочу, звал. есть новости, есть о чём попиздеть - расскажу о работе. остальных повидать не успею, жаль.
блять. я так любил тот год в AQ. Это правильно сказала рыжая деваха из "пятый элемент"-фильма. Вы, люди, странные существа. всё, что вы любите, вы когда-нибудь обязательно разрушаете.
не ныть. я же мечтаю и довольно давно приучить тело к холоду. вспомни, когда устроил физкультуру на обрыве моря у себя в лесу в сторону нефтебазы.
и как поехал к тайке. этого я никогда не забуду. помнишь как уже в автобусе ты пожалел что курточку оставил дома.
ночь, звездатое небо. пляж. спрятаться ЗА будку раздевалку. галька на песке, смотреть на звезду чтоб отключиться и поменьше холод чувствовать.
да, ты слишком зажралсЯ в тепле. пора столкнуть тебя с Природой. Повзрослеешь. Станешь больше ценить простые вещи. Мера вещей это скольжение. Не надо никаких денег. Неудовлетворённость когда не ценишь то что есть, смотришь вдаль.
Размазанная реальность во времени.
(сейчас)мороз по коже, драйвик начался. играет the buckethead - the bomb на повторе. это из хитов 90-х. отвлекает от дневника. королевские звуки.
ничто же со мной не случится. я же не сдохну. сломаться боюсь?
сломаться это взять рейнкот для обогрева и жаться к стенке от ветра. а если не будет ничего, - легче.
ощущение холода когда на тебе одежда вызвано продуванием щелей. грудь в тепле, пояс чуть продувается, разница температур. а когда одежды нет, тогда холодно всему тему, и включается первобытный механизм.
голый философ.
гы.
уболтаешь ведь.
2, 3, но не 7 же часов!
А что со мной будет?
Будет незабываемая ночь. В кои то веки возможно себя встряхнуть. В тощих мирах нету холода. А здесь очень даже есть... будет что вспомнить с чего стебануться, когда будешь уметь всё.
как мать говорила, - иди, герой!..
и без подсрачников ведь не летают....
ты. ииийобнутый... в комнате +22 а мне холодно.
выглянул в окно - мелкая морось и холодючий ветерок. никуда я не поеду. пять минут можно выдержать, но не семь часов. растянувшийся на семь часов момент истины может свести с ума, и мне не надо такого счастья. это слишком сильное переживание, в майке ночью в октябре на +11 на хоолоде. быррр.
рейнкот точно не поможет. водка - тоже. только бег. вспоминаю, как натёрся меновазином перед походом и никуда не пошёл. натёрся, чтобы привыкнуть к холоду и немножко отключить нервные окончания, а заледенило так, что страшно до безумности стало, когда же это закончится.
а если ничего не жрать, энергии ведь больше будет? мучит голод? это потому, что привык есть. пару таблеток ренни от желудочного сока.
тело отказывается идти на холод.
ум понимает полезность авантюры.
дух хочет испытать себя.
может даже, что-то включится, если не сбегу. сбегу ведь раньше, чем успеет что произойти.
кончай индульгировать - надо рассудить.
кстати, сегодня пятница, со вторника непонятно сильная изжога. вторник, среду терпел, в четверг взял на работу аптечку. одна таблетка ренни помогла часика на 4.
итак, ощущение холода будет настолько сильное, что отключится способность думать. как заставить себя не сбежать?
не знаю, - будет очень плохо, дальше предела. я полгода клял себя после той поездочки, и после двух походов, и вообще после много чего другого себя клял, следовательно это не показатель.
18.10.2008 13:22:43
Я не поехал - поддался апатии от позавчерашнего пития и безвольно просидел дома.
Вчера гуляли, пили. Купил универсальный пульт от телека, думал к компу присобачу. WinLIRC и прочие приблуды не умеют работать с портом usb. Книжка Агурова большая и грузовая, у DjVu reader'a ужасное управление. Словом, этот путь слишком сопротивляется, чтобы по нему идти.
Вчера подключил интернет на мобилке (Nokia5140i), irc.lv открывала минут 5.
Можно написать прогу. Только подумать, как задействовать все клавиши телефона, а не только выбор урлы и селект. Телефон это тот же пульт, даже если в нём нету bluetooth.
HFS (HTTP File Server) - программка для обмена файлами по вебу. Ведёт хороший лог. Лог я приведу здесь, он нам понадобится для написания софтинки.
opera:
User-Agent: Opera/9.52 (Windows NT 5.1; U; ru)
Host: 85.158.72.232:8072
Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1
Accept-Language: ru-RU,ru;q=0.9,en;q=0.8
Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1
Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0
Pragma: no-cache
Via: 1.0 prox.skatvis.net:7777 (squid/2.6.STABLE19)
X-Forwarded-For: 85.158.72.232
Cache-Control: no-cache, max-age=259200
Connection: keep-alive
мобилка:
Host: 85.158.72.232:8072
Accept: application/vnd.wap.wmlscriptc, text/vnd.wap.wml, application/vnd.wap.xhtml+xml, application/xhtml+xml, text/html, multipart/mixed, */*, text/vnd.wap.wmlscript
Accept-Charset: *
Accept-Language: ru-RU
Cookie: Bearer-Type=w-TCP;wtls-security-level=none;network-access-type=GPRS;virtual-gateway-name=Default
Cookie2: $Version="1"
User-Agent: Nokia5140i/2.0 (03.90) Profile/MIDP-2.0 Configuration/CLDC-1.1
WAP-Connection: Stack-Type=HTTP
x-wap-profile: "http://nds.nokia.com/uaprof/N5140ir200.xml"
Всё очень понятно, поэтому перейдём к обработке.
18.10.2008 23:30:00
Дописал обработку. Никаких яваскриптов телефон не поддерживает, текстбоксы и кнопки тоже. OnChange и OnSelect на пару с forms[0].submit() не прокатили. Остановился на гиперссылках. Управляю винампом через телефон. Реагирует быстро!
1. глобальные шорткаты в винампе включены
2. скачан модуль sndkey32.pas
http://home.conceptsfa.nl/~gvdvenis/downloads/sndkey32.pas
http://www.google.com/search?client=opera&rls=ru&q=sndkey32.pas&sourceid=opera&ie=utf-8&oe=utf-8
3. написан скрипт-файл странички
4. стартовала утилитка.
скрипт-файл странички:
HTTP/1.1 200 OK
Content-Type: text/html
<html><body>
<form name="act" action="act" method="post">
<a href="strt">start</a>
<a href="prev">prev</a>
<a href="play">play</a>
<a href="paus">pause</a>
<a href="stop">stop</a>
<a href="next">next</a>
</form>
</body></html>
код утилитки, mobirulz_Unit1.pas
unit mobirulz_Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp, winsock, shellapi, clipbrd, ExtCtrls,
ComCtrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Memo1: TMemo;
TabSheet2: TTabSheet;
Memo2: TMemo;
TabSheet3: TTabSheet;
Memo3: TMemo;
Panel1: TPanel;
Label1: TLabel;
start: TButton;
stop: TButton;
addr: TEdit;
port: TEdit;
htfile: TEdit;
serv: TServerSocket;
btnRun: TButton;
btnCopy: TButton;
procedure startClick(Sender: TObject);
procedure stopClick(Sender: TObject);
procedure portChange(Sender: TObject);
procedure servClientRead(Sender: TObject; Socket: TCustomWinSocket);
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnRunClick(Sender: TObject);
procedure btnCopyClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses sndkey32;
function GetLocalIP: string;
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
GetHostName(@s, 128);
p := GetHostByName(@s);
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Result:= (p2);
WSACleanup;
end;
procedure processcmd(cmd:string);
begin
if cmd = 'strt' then sendkeys('^%{F12}' , true);
if cmd = 'prev' then sendkeys('^%{PGUP}' , true);
if cmd = 'play' then sendkeys('^%{INS}' , true);
if cmd = 'paus' then sendkeys('^%{HOME}' , true);
if cmd = 'stop' then sendkeys('^%{END}' , true);
if cmd = 'next' then sendkeys('^%{PGDN}' , true);
end;
{$R *.dfm}
procedure TForm1.startClick(Sender: TObject);
begin
serv.Port:= strtoInt(port.text);
serv.Active:= true;
addr.Text:= GetLocalIP;
end;
procedure TForm1.stopClick(Sender: TObject);
begin
serv.active:= false;
end;
procedure TForm1.portChange(Sender: TObject);
begin
if serv.Active then begin
stop.Click;
start.Click;
end
else serv.Port:= strtoInt(port.text);
end;
procedure TForm1.servClientRead(Sender: TObject; Socket: TCustomWinSocket);
const what = 'GET /';
var BrowserQuestion: string;
fs: tfilestream;
poz:integer;
cmd: string;
begin
// получим запрос
BrowserQuestion:= Socket.ReceiveText;
memo1.text:= memo1.text +BrowserQuestion+#13#10+#13#10+#13#10+#13#10+#13#10;
// отправим ответ - ту же страницу
fs:= tfilestream.Create(htfile.text, fmOpenRead+fmShareDenyNone);
socket.SendStreamThenDrop(fs);
// обработаем запрос
poz:= pos(what,BrowserQuestion);
if poz>0 then cmd:= copy(BrowserQuestion, poz+length(what),4);
memo2.text:= memo2.text+(cmd)+#32;
processcmd(cmd);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if serv.active then stop.click
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
start.click
end;
procedure TForm1.btnRunClick(Sender: TObject);
begin
shellexecute(0,nil,pchar('http://'+addr.text+':'+port.text),nil,nil,0)
end;
procedure TForm1.btnCopyClick(Sender: TObject);
begin
clipboard.AsText:= 'http://'+addr.text+':'+port.text
end;
end.
mobirulz_Unit1.dfm
object Form1: TForm1
Left = 194
Top = 181
AutoScroll = False
Caption = 'mobirulz'
ClientHeight = 386
ClientWidth = 541
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 541
Height = 105
Align = alTop
BevelOuter = bvNone
TabOrder = 1
DesignSize = (
541
105)
object Label1: TLabel
Left = 16
Top = 64
Width = 16
Height = 13
Caption = 'file:'
end
object start: TButton
Left = 72
Top = 16
Width = 49
Height = 25
Caption = 'start'
TabOrder = 0
OnClick = startClick
end
object stop: TButton
Left = 16
Top = 16
Width = 49
Height = 25
Caption = 'stop'
TabOrder = 1
OnClick = stopClick
end
object addr: TEdit
Left = 136
Top = 16
Width = 169
Height = 21
TabOrder = 2
Text = 'addr'
end
object port: TEdit
Left = 312
Top = 16
Width = 57
Height = 21
TabOrder = 3
Text = '5555'
OnChange = portChange
end
object htfile: TEdit
Left = 40
Top = 64
Width = 480
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 4
Text = '_script.txt'
end
object btnRun: TButton
Left = 376
Top = 16
Width = 57
Height = 25
Caption = 'run'
TabOrder = 5
OnClick = btnRunClick
end
object btnCopy: TButton
Left = 440
Top = 16
Width = 57
Height = 25
Caption = 'copy'
TabOrder = 6
OnClick = btnCopyClick
end
end
object PageControl1: TPageControl
Left = 0
Top = 105
Width = 541
Height = 281
ActivePage = TabSheet2
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'raw data'
object Memo1: TMemo
Left = 0
Top = 0
Width = 533
Height = 253
Align = alClient
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
end
end
object TabSheet2: TTabSheet
Caption = 'commands history'
ImageIndex = 1
object Memo2: TMemo
Left = 0
Top = 0
Width = 533
Height = 253
Align = alClient
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
end
end
object TabSheet3: TTabSheet
Caption = 'command script'
ImageIndex = 2
object Memo3: TMemo
Left = 0
Top = 0
Width = 533
Height = 253
Align = alClient
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
end
end
end
object serv: TServerSocket
Active = False
Port = 0
ServerType = stNonBlocking
OnClientRead = servClientRead
Left = 368
Top = 56
end
end
mobirulz.dpr
program mobirulz;
uses
Forms,
mobirulz_Unit1 in 'mobirulz_Unit1.pas' {Form1},
sndkey32 in 'sndkey32.pas';
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Идея проверена. Можно награждать софтину редактором соответствия гиперссылок шорткатам.
Погань, конешно, но неплохо получилось.
код для новых телефонов, поддерживающих javascript:
Content-Type: text/html
<html>
<body onLoad="document.forms[0].a.focus();">
<script language ="JavaScript">
function ch(){
document.forms[0].submit();
}
</script>
<form method="post">
<input name="a" type="text" onkeyup="ch()">
</form>
</body>
</html>
Код так же шлётся телефону сокетом, распознаётся как вебстраница и отсылает нажатия клавиш телефона утилитке, тем самым отпадает необходимость выбора пунктов меню и нажатия на них.
Создаешь профиль устройства (мапятся кнопки на телефоне на кнопки компа), сливаешь на телефон, порубаешься к компу и управляешь )))