twitcam viewer problem, need help - 22/11/10 03:51 AM
Indeed is not a problem in my script, but I was thinking, why this socket take a long time to retrieve the data...
somebody can check my code, and check if the problem is on my script...
It takes almost 10 minutes to open the window, if I close prematurely the socket, I've got the wrong data, get the previous info of the script.
I'm using Windows 7 32Bit - mirc 7.15
this happens with mirc 7.14 too.
Thats I remembering on version 7.1, works fine!
somebody can check my code, and check if the problem is on my script...
Code:
#################################### ### TWITCAM IRC VIEWER by Unfor ### #################################### alias twtc { if (http isin $1) { set %twt $remove($1,http://twitcam.livestream.com,http://twitcam.com,http://www.twitcam.com) sockclose twtc sockopen twtc twitcam.livestream.com 80 } else { set %twt $remove($1,www.twitcam.livestream.com,http://twitcam.com) sockclose twtc sockopen twtc twitcam.livestream.com 80 } } on *:sockopen:twtc:{ sockwrite -nt $sockname GET %twt HTTP/1.1 sockwrite -nt $sockname Host: twitcam.livestream.com sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; pt-BR; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8 sockwrite -nt $sockname $crlf } on *:sockread:twtc:{ if ($sockerr) { echo 4 -a ERRRROOOOOO! } else { sockread %twtc if (<p>Recorded Live by isin %twtc) || (<h1> Live Stream by isin %twtc) { echo 4 -a $nohtml(%twtc) | set %twtuser $remove($nohtml(%twtc),Live Stream by) } if ("video_src" isin %twtc) && (id="video-share-embed" !isin %twtc) { set %twtc.url $remove(%twtc,<link rel="video_src" href=","/>) set %twtc.url $right(%twtc.url,$calc($len(%twtc.url)-3)) } } } on *:sockclose:twtc:{ twtcw | echo -s $time } alias twtcw { var %tcn = 1 :loop if ($window(@Twtcam $+ %tnc)) { inc %tnc goto loop } else { addurl ; window -dok0w3z @Twtcam $+ %tnc 343 102 344 311 window -dok0w3z @Twtcam $+ %tnc 343 102 379 326 titlebar @Twtcam $+ %tnc - %twt - %twtuser /dll nHTMLn_2.95.dll attach $window(@Twtcam $+ %tnc).hwnd ; /dll nHTMLn_2.95.dll navigate %twtc.url /dll nHTMLn_2.95.dll navigate $scriptdirtwitcam.html } unset %tnc } alias addurl { .remove twitcam.html write twitcam.html <html> write twitcam.html <body bgcolor="black"> ;write twitcam.html <object id="twitcamPlayer" width="320" height="265" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"><param name="movie" value="http://static.livestream.com/chromelessPlayer/wrappers/TwitcamPlayer.swf?hash= $+ $remove(%twt,/) $+ "/><param name="allowScriptAccess" value="always"/><param name="allowFullScreen" value="true"/><param name="wmode" value="window"/> <embed name="twitcamPlayer" src="http://static.livestream.com/chromelessPlayer/wrappers/TwitcamPlayer.swf?hash= $+ $remove(%twt,/) $+ " allowFullScreen="true" allowScriptAccess="always" type="application/x-shockwave-flash" bgcolor="#ffffff" width="320" height="265" wmode="window" ></embed></object> write twitcam.html <object id="twitcamPlayer" width="320" height="265" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"><param name="movie" value="http://static.livestream.com/grid/LSPlayer.swf?hash=2r6e9"/><param name="allowScriptAccess" value="always"/><param name="allowFullScreen" value="true"/><param name="wmode" value="window"/> <embed name="twitcamPlayer" src="http://static.livestream.com/grid/LSPlayer.swf?hash= $+ $+ $remove(%twt,/) $+ " allowFullScreen="true" allowScriptAccess="always" type="application/x-shockwave-flash" bgcolor="#ffffff" width="320" height="265" wmode="window" ></embed></object> write twitcam.html </body> write twitcam.html </html> }
It takes almost 10 minutes to open the window, if I close prematurely the socket, I've got the wrong data, get the previous info of the script.
I'm using Windows 7 32Bit - mirc 7.15
this happens with mirc 7.14 too.
Thats I remembering on version 7.1, works fine!