Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
For Dial-up connections the winipcfg.exe program will report the assigned ip address. The IP Address usually changes on each separate connect, making it difficult to have a useful "listener" on a dial-up line.
The LISTENER script
;;;The LISTENER script ; Use CTRL-Break to exit AddExtender("wwwsk34i.dll") quote0="Few women admit their age, few men act it. " quote1="Don't anthropomorphize computers. They hate that. " quote2="ANIMAL LOVER ON BOARD. They're delicious. " quote3="My karma ran over my dogma. " quote4="The gene pool could use a little chlorine. " quote5="Time is what keeps things from happening all at once. " quote6="I didn't fight my way to the top of the food chain to be a vegetarian. " quote7="Women who seek to be equal with men lack ambition. " quote8="Your kid may be an honor student but you're still an idiot! " quote9="If we aren't supposed to eat animals, why are they made with meat? " maxquote=9 BoxOpen("Listener","") listensocket=sOpen() sListen(listensocket,"ftp") ; use ftp port for lack of anything better Served=0 while 1 datasocket=sAccept(listensocket,@TRUE) ; Block for a connection if datasocket gosub ProcessConnect else sClose(listenSocket) msg=wxGetLastErr() Message("Socket Error",msg) exit endif endwhile exit :ProcessConnect Served=Served+1 rqst=sRecvLine(datasocket,20) rqst=strlower(rqst) if rqst=="time" rsp=TimeDate() else if rqst=="quote" mqr=random(maxquote) rsp=quote%mqr% else rsp="Error: Can only respond to TIME and QUOTE" endif endif BoxTitle(strcat("Served:",Served," Last=",wxGetInfo(2,datasocket))) BoxText(strcat(rqst," : ",rsp)) sSendLine(datasocket,rsp) sClose(datasocket) return
The CONNECTER script
AddExtender("wwwsk34i.dll") while 1 what=AskLine("Connecter","Enter TIME or QUOTE to get information from listener","QUOTE") talksocket=sOpen() ret=sConnect(talksocket,"220.127.116.11","ftp") sSendLine(talksocket,what) response=sRecvLine(talksocket,555) sClose(talksocket) Message(what,response) endwhile
Article ID: W16381
File Created: 2017:07:28:12:58:54
Last Updated: 2005:02:18:11:20:08