Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+152.9
program CDPower;
uses windows,mmsystem;
{$R *.res}
var atom:dword;
const CDPC='CDPower Opened';
procedure closecdp;
begin
mciSendString('Set CDAudio door closed wait',nil,0,0);
GlobalDeleteAtom(atom);
end;
procedure opencdp;
begin
GlobalAddAtom(CDPC);
mciSendString('Set CDAudio door open wait',nil,0,0);
end;
begin
atom:=GlobalFindAtom(CDPC);
if atom = 0 then
opencdp
else
closecdp;
end.
Программа при запуске со значка с рабочего стола открывает лоток СD/DVD привода и закрывает.
Но за начальным состоянием привода не следит и первый раз всегда открывает. :D
А у меня дома два DVD. Ыыы.))
Говногость,
13 Марта 2010
+152.9
procedure tplayext.play(iname:string);
begin
cd:=false;
try
form1.MediaPlayer1.Close;
form1.MediaPlayer1.filename:=iname;
form1.label10.Caption:=iname;
form1.MediaPlayer1.Open;
form1.MediaPlayer1.play;
except
next;
cd:=true;
end;
end;
procedure tplayext.init(iext:string);
begin
name:='';
paused:=false;
allplayed:=false;
ext:=iext;
TRY
io:=findfirst(ext,faanyfile,f);
EXCEPT
END;
if io<>0 then
begin
done;
exit;
end;
name:=f.Name;
play(name);
end;
procedure tplayext.playplease;
begin
if stoped then next;
end;
procedure tplayext.next;
begin
TRY
io:=findnext(f);
EXCEPT
END;
if io <>0 then
begin
done;
exit;
end;
name:=f.Name;
play(name);
end;
procedure tplayext.done;
begin
TRY
form1.MediaPlayer1.close;
findclose(f);
EXCEPT
END;
allplayed:=true;
end;
Особенно прикалывает вызов метода play в методе next и вызов метода next в методе play.
Рекурсия!!!!!1111
Говногость,
13 Марта 2010
+71
String ID = httpServletRequest.getParameter("id");
ChannelData data = new ChannelData();
int pointPos = ID.indexOf(';');
while(pointPos >= 0) {
String CurrentID = ID.substring(0, pointPos);
data.setId(new Integer(CurrentID));
ChannelData channel = (ChannelData) channelDao.Get(Integer.valueOf(CurrentID));
channelService.delete(data);
ID = ID.substring(pointPos + 1, ID.length());
pointPos = ID.indexOf(';');
}
if(ID.length() > 0) {
ChannelData channel = (ChannelData) channelDao.Get(Integer.valueOf(ID));
data.setId(new Integer(ID));
channelService.delete(data);
}
prop,
11 Марта 2010
+73.8
List<SomeObj> list = getTodayObjects();
.....
int i = list.size() - 1;
for (; i >= 0; i--) {
SomeObj oldState = list.get(i);
if (currentObj.getTimestamp() - oldState.getTimestamp() >= 5 * MINUTE) {
value5MinAgo = oldState.getValue();
break;
}
}
for (; i >= 0; i--) {
SomeObj oldState = list.get(i);
if (currentObj.getTimestamp() - oldState.getTimestamp() >= 15 * MINUTE) {
value15MinAgo = oldState.getValue();
break;
}
}
for (; i >= 0; i--) {
SomeObj oldState = list.get(i);
if (currentObj.getTimestamp() - oldState.getTimestamp() >= 30 * MINUTE) {
value30MinAgo = oldState.getValue();
break;
}
}
for (; i >= 0; i--) {
SomeObj oldState = list.get(i);
if (currentObj.getTimestamp() - oldState.getTimestamp() >= 60 * MINUTE) {
value60MinAgo = oldState.getValue();
break;
}
}
.....фанданго, не иначе
Anonimous,
04 Марта 2010
+133.4
<form method="post" name="badlink" id="f6F9kL" style="margin: 0pt;" onsubmit="fun6F9kL();return false;">
<script type="text/javascript">
$.post('/index/', {
f1: '[email protected]',
f2: 0,
f3: 'Нерабочая ссылка!' ,
sbm: 0,
id: 0,
a: 0,
o: 0
</form>
<script type="text/javascript">var sblmb1=0;function fun6F9kL(){try {var tr=checksubmit();if(!tr){return false;}}catch(e){}if (sblmb1==1){return false;}sblmb1=1;};document.badlink.f5.value=document.location.href;</script>
<a href="javascript://" onClick="if (confirm('Вы уверены, что ссылка нерабочая?')){document.badlink.sbm.click();};return false;"><b>Сообщить о нерабочей ссылке</b></a>"Жалоба на нерабочую ссылку". Взято отсюда http://megasoft.3dn.ru/forum/16-146235-1145387-16-1267290351
Infamous,
27 Февраля 2010
+161.7
function payForFiles(){
var hid,tak,elems,num,pat,j,i;
hid = document.getElementById("hidden");
tak = new Array();
elems = document.getElementsByTagName('A');
num = elems.length;
pat = new RegExp("(^|\\b)(takru)(\\b|$)");
j = 0;
for (i=0;i<num;i++){
if(pat.test(elems[i].className)){
elems[i].setAttribute('target','_blank');
if (elems[i].addEventListener)
elems[i].addEventListener("click", function(){hid.style.display = ""}, false);
else if (elems[i].attachEvent)
elems[i].attachEvent("onclick", function(){hid.style.display = ""});
else elems[i].onclick = function(){hid.style.display = ""};
j++;}
}
};Типа "скачивание после клика на рекламу". Было найдено здесь — http://troiua-alfa.3dn.ru/publ/ucoz_skript_skachivanie_posle_nazhatija_ na_reklamu/27-1-0-99
Infamous,
27 Февраля 2010
+153.6
var xmlhttp
var dlid;
function showHint(id)
{
xmlhttp=GetXmlHttpObject();
if (xmlhttp==null)
{
alert ("Your browser does not support XMLHTTP!");
return;
}
dlid="dl"+id;
var url="download.php";
xmlhttp.onreadystatechange=stateChanged;
xmlhttp.open("GET",url+"?update="+id,false);
xmlhttp.send(null);
window.location=url+"?id="+id;
}
function stateChanged()
{
if (xmlhttp.readyState==4)
{
document.getElementById(dlid).innerHTML=xmlhttp.responseText;
}
}
function GetXmlHttpObject()
{
if (window.XMLHttpRequest)
{
// code for IE7+, Firefox, Chrome, Opera, Safari
return new XMLHttpRequest();
}
if (window.ActiveXObject)
{
// code for IE6, IE5
return new ActiveXObject("Microsoft.XMLHTTP");
}
return null;
}Разбираюсь с AJAX
ko4epblzka,
12 Февраля 2010
+132.9
$html .= "\n" . '<script type="text/javascript">' . "\n";
// mootools js that highlights the cells
for ($row = 0; $row < 5; $row++){
for ($col = 0; $col < 5; $col++){
$box_num = ($col*5) + $row + 1;
if (!in_array($box_num, $strength_boxes)){
$html .= '
var fx_strength_'.$box_num.' = new Fx.Morph($(\'colorbox_'.$box_num.'\'), {duration:200, wait:false});
$(\'strengths\').addEvent(\'mouseenter\', function(){
fx_strength_'.$box_num.'.start({
\'opacity\': 0.25
});
});
$(\'strengths\').addEvent(\'mouseleave\', function(){
fx_strength_'.$box_num.'.start({
\'opacity\': 1.0
});
});
';
}
if (!in_array($box_num, $weakness_boxes)){
$html .= '
var fx_weakness_'.$box_num.' = new Fx.Morph($(\'colorbox_'.$box_num.'\'), {duration:200, wait:false});
$(\'weaknesses\').addEvent(\'mouseenter\', function(){
fx_weakness_'.$box_num.'.start({
\'opacity\': 0.25
});
});
$(\'weaknesses\').addEvent(\'mouseleave\', function(){
fx_weakness_'.$box_num.'.start({
\'opacity\': 1.0
});
});
';
}
}
}
html.
Формируется эффект подсвечивания для неких ячеек в таблице. Расставить классы и написать пять строк - не судьба :)
karevn,
11 Февраля 2010
+151.1
dA.cookie = {}
dA.cookie.add = function (name, value, days) {
if (days) {
var date = new Date();
date.setTime(date.getTime() + (days * 24 * 60 * 60 * 1000));
var expires = "; expires=" + date.toGMTString();
}
else var expires = "";
document.cookie = name + "=" + value + expires + "; path=/";
}
dA.cookie.read = function (name) {
var nameEQ = name + "=";
var ca = document.cookie.split(';');
for (var i = 0; i < ca.length; i++) {
var c = ca[i];
while (c.charAt(0) == ' ') c = c.substring(1, c.length);
if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length, c.length);
}
return null;
}
dA.cookie.remove = function (name) {
dA.cookie.add(name, "", -1);
}
JDVU,
11 Февраля 2010
−184.6
return lib.formatters.__dict__[id].format(txt)Мы же не ищем легких путей, правда? В модуле formatters определен словарь, к которому мы таким образом обращаемся.
Gukl,
10 Февраля 2010
Follow us!