קוד חכם
שמתי לב שרשימת הקודים משעממת וחסרת טעם, וששמי לא מופיע שם בכבוד.. אז בימים הקרובים אני אכתוב כמה דברים נחמדים, הנה היום עשית קוד מהאתר בבילון לפירושי מילים ולהלן הוא:
שמתי לב שרשימת הקודים משעממת וחסרת טעם, וששמי לא מופיע שם בכבוד.. אז בימים הקרובים אני אכתוב כמה דברים נחמדים, הנה היום עשית קוד מהאתר בבילון לפירושי מילים ולהלן הוא:
;כל הזכויות שמורות ל Sandro ;לשימוש פרטי בלבד - לא להפצה alias baby { if ($1 != $null) { set %ht $1 echo 2 @socket opening socket, please wait. .sockclose baby .sockopen baby info.babylon.com 80 .window @socket .clear @socket } } on *:sockread:baby: { sockread %baby if (<FONT COLOR="BLUE"> isin %baby) { echo 3 @socket $remove($replace(%baby,<FONT COLOR="BLUE">,02,</FONT>,01),<hr/>,</hr>,</hr>) } } on *:sockopen:baby:{ if ($sockerr > 0) { echo 4 4sock error! | halt } sockwrite -tn $sockname GET http://info.babylon.com/cgi-bin/info.cgi?word= $+ %ht $+ &lang=&layout=df_new.html&n=10&cat=0&sort= HTTP/1.1 sockwrite -nt $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, */* sockwrite -nt $sockname Accept-Language: en-us sockwrite -nt $sockname Accept-Encoding: gzip, deflate sockwrite -nt $sockname User-Agent: Mozilla/2.0 (compatible; MSIE 6.0; Windows 98; DigExt) sockwrite -nt $sockname Host: info.babylon.com sockwrite -nt $sockname Connection: Keep-Alive sockwrite -nt $sockname }
רק לכתוב :/baby <word>
ואם זה לא כותב כלום, כנראה שלא נמצאו תוצאות, עבדתי על זה אגב, פחות מ 10 דקות..