John
How to use sockets? October 17, 2008 06:45PM |
BLS
Re: How to use sockets? October 18, 2008 03:07AM |
//Port Number : 43 sDomain is string = "pcsoft.fr" sNIC is string = "whois.nic.fr" IF SocketConnect ("WHOIS", 43, sNIC) THEN //CRLF = \r\n SocketChangeTransmissionMode("WHOIS",SocketEndTagBuffer,CRLF) SocketWrite("WHOIS", sDomain) s is string = SocketRead("WHOIS") Trace(s) WHILE s <> "" s = SocketRead("WHOIS") Trace(s) END SocketClose("WHOIS") END
John
Re: How to use sockets? October 18, 2008 05:38PM |
BLS
Re: How to use sockets? October 18, 2008 07:04PM |
PROCEDURE WhoIs_Domain( LOCAL domain is string = "" ) response is string = "" extension is string pos is int size is int domain = NoSpace(domain) IF domain = "" THEN RESULT "" // extract domain extension size = Length(domain) pos = Position(domain, ".", size, FromEnd) IF pos = 0 THEN RESULT "" extension = domain[[pos +1 TO size]] // connect to extension + .whois-servers.net IF SocketConnect( "WHOIS_DOMAIN", WHOIS_PORT, extension + ".whois-servers.net" ) THEN // change transmission mode IF SocketChangeTransmissionMode( "WHOIS_DOMAIN", SocketEndTagBuffer, CRLF ) THEN // send request IF SocketWrite( "WHOIS_DOMAIN", domain ) // get response response = SocketRead( "WHOIS_DOMAIN" , False ) END END SocketClose("WHOIS_DOMAIN") END RESULT response
//PHP // $matches=array(); // preg_match('@^ReferralServer: whois://(.*)$@Um',$response,$matches);I've some problems to translate this php code into Windev..
John
Re: How to use sockets? October 20, 2008 05:59AM |
Mehwesh
How to download video? November 10, 2008 07:45AM |