Register Log In

Forums Scripts & Popups Google search script for my mIRC?

Print Thread

Page 2 of 2

1

2

Re: Google search script for my mIRC? #34639 07/07/03 06:52 PM
Joined: May 2003 Posts: 2,265 P pheonix Hoopy frood
pheonix Hoopy frood P Joined: May 2003 Posts: 2,265	alias google.search { var %search $replace($1-,$chr(32),+) sockopen google google.com 80 sockmark google /search?hl=en&ie=UTF-8&oe=UTF-8&q= $+ %search } on 1:SOCKOPEN:GOOGLE:{ sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1 sockwrite -n $sockname Accept: / sockwrite -n $sockname $crlf } on 1:SOCKREAD:GOOGLE:{ if ($sockerr > 0) { return } sockread %s if (www iswm %s) { notice %nick $remove($wildtok(%s,www,1-,32),href=",</a>,<font,font>,<font>,<pre>,<body>,href=,color=#008000>,<,>) } } on :TEXT:!google:#:{ .set %nick $nick $google.search($2-) } new username: tidy_trax

Re: Google search script for my mIRC? #34640 07/07/03 06:58 PM
Joined: Jul 2003 Posts: 21 M Majestic OP Ameglian cow
OP Majestic Ameglian cow M Joined: Jul 2003 Posts: 21	the post comes into the chan window. but not as query. but nearly it is finished

Re: Google search script for my mIRC? #34641 07/07/03 07:00 PM
Joined: Jul 2003 Posts: 21 M Majestic OP Ameglian cow
OP Majestic Ameglian cow M Joined: Jul 2003 Posts: 21	finished i hope! alias google.search { var %search $replace($1-,$chr(32),+) sockopen google google.com 80 sockmark google /search?hl=en&ie=UTF-8&oe=UTF-8&q= $+ %search } on 1:SOCKOPEN:GOOGLE:{ sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1 sockwrite -n $sockname Accept: / sockwrite -n $sockname $crlf } on 1:SOCKREAD:GOOGLE:{ if ($sockerr > 0) { return } sockread %s if (www iswm %s) { msg %nick $remove($wildtok(%s,www,1-,32),href=",</a>,<font,font>,<font>,<pre>,<body>,href=,color=#008000>,<,>) } } on :TEXT:!google:#:{ .set %nick $nick $google.search($2-) }

Re: Google search script for my mIRC? #34642 07/07/03 07:06 PM
Joined: Jul 2003 Posts: 21 M Majestic OP Ameglian cow
OP Majestic Ameglian cow M Joined: Jul 2003 Posts: 21	now is the result as query msg but it comes only 1 time and not again

Re: Google search script for my mIRC? #34643 07/07/03 07:14 PM
Joined: May 2003 Posts: 2,265 P pheonix Hoopy frood
pheonix Hoopy frood P Joined: May 2003 Posts: 2,265	that may be because of your flood settings. also try changing msg %nick to query %nick new username: tidy_trax

Re: Google search script for my mIRC? #34644 09/07/03 02:15 PM
Joined: May 2003 Posts: 2,265 P pheonix Hoopy frood
pheonix Hoopy frood P Joined: May 2003 Posts: 2,265	this removes all html that ive tried so far. on :TEXT:!google:#:{ $google($2-) .set %chan $chan } alias google { set %search $replace($1-,$chr(32),+) sockopen google google.com 80 sockmark google /search?hl=en&ie=UTF-8&oe=UTF-8&q= $+ %search } on :SOCKOPEN:GOOGLE:{ sockwrite -n $sockname GET $sock($sockname).mark sockwrite -n $sockname Accept: /* sockwrite -n $sockname $crlf } on :SOCKREAD:GOOGLE:{ if ($sockerr > 0) { return } sockread %s if (www* iswm %s) && (google !iswm %s) && ($left($remove($htmlfree($wildtok(%s,www,1,32)),href=),3) == htt) \|\| ($left($remove($htmlfree($wildtok(%s,www,1,32)),href=),3) == www) { msg %chan $remove($htmlfree($wildtok(%s,www,1,32)),href=) } } alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]>\|<[^>]>\|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) return %x } new username: tidy_trax

Re: Google search script for my mIRC? #34645 09/07/03 06:02 PM
Joined: Jan 2003 Posts: 3,012 New Hampshire, USA KingTomato Hoopy frood
KingTomato Hoopy frood Joined: Jan 2003 Posts: 3,012 New Hampshire, USA	ur doing that the hard way... Every responce by google begins with "<p class=g>" If you were smart, u'd use a binvar and $bfind >:D -KingTomato

Page 2 of 2

1

2

Link Copied to Clipboard