Useful LUAPlayer Networking Functions

[joreofiorio35]

Hey everyone. I have noticed a couple of errors with the current LUAPlayer.

1. The Wlan.getIPAddress() function does not work
2. When you try to connect to a server using the DNS, or Host name or whatever, it will not work, it has to be an IP Address.

So I have made a function that returns the PSP'S IP Address and a function that converts a DNS name into an IP Address string so you can connect to it w/Socket.connect. These connect to websites that actually do it for you and then it just finds the string of wherever it displays that information and returns it:

function GETIPADDRESS()
	thestr = {}
	IP = ""
	a=1
	b=1
	ipgetsock, error = Socket.connect("216.99.213.74", 80)
	while not ipgetsock:isConnected() do System.sleep(100) end
	bytesSent = ipgetsock:send("GET /ipaddress.html HTTP/1.0\r\n")
	bytesSent = ipgetsock:send("host: ww1.nia-nia.com\r\n\r\n")
	System.sleep(100)
	while true do
		thestr[a] = ipgetsock:recv()
		if placefound == nil then placefound = string.find(thestr[a], "REMOTE_ADDR=") end
		if placefound then placefound=placefound+12
			while true do
		 	if string.sub(thestr[a], placefound, placefound) == "R" then IP=string.sub(IP, 1, string.len(IP)-1) return IP end
				IP=IP..string.sub(thestr[a], placefound, placefound)
				placefound=placefound+1
			end
		end
		placefound=nil
		if Controls.read():start() then break end
		screen.waitVblankStart()
		a=a+1
	end
	return -1
end

function GETIPFROMDNS(thedns)
	IP = ""
	a=1
	b=1
	ipgetsock2 = Socket.connect("207.44.246.79", 80)
	while not ipgetsock2:isConnected() do System.sleep(100) end
	bytesSent = ipgetsock2:send("GET /modperl/dnslookup.cgi?domain="..thedns.." HTTP/1.0\r\n")
	bytesSent = ipgetsock2:send("host: www.grsites.com\r\n\r\n")
	thestr=""
	while true do
		thestr = thestr..ipgetsock2:recv()
		if placefound == nil or placefound < 0 then placefound = string.find(thestr, ": <b>") end
		if placefound then placefound=placefound+5
			while true do
		 	if string.sub(thestr, placefound, placefound) == "<" then if IP ~= nil then return IP end end
				IP=IP..string.sub(thestr, placefound, placefound)
				placefound=placefound+1
				if Controls.read():start() then break end
				screen.waitVblankStart()
			end
		end
		a=a+1
		placefound=nil
		screen.waitVblankStart()
	end
	return -1
end

Thanks,
Josh.

[z357x]

souns cool, I don't now any programing yet though. too bad wifi still won't work in 2.0

[simmcity]

you should report this to shine and nevyn so they can fix the problem

[Neodudeman]

what could possibly be done with these networking functions?

[joreofiorio35]

Yes, I acutally have told Shine a while back and pointed out the problem to him. He fixed it right away and said he would release a new release soon.

EDIT: You can do a lot of things with these functions. What if you wanted to connect to your PSP testing a program, but you dont know its IP?? This will display its IP for you. Also for the DNS one, if you wanted to connect to a server, but you only know its dns, then you can connect to it with this function. I have used both of these in my soon to be released PSP CHAT program, and I find them very useful. I just posted these because I thought they might come in handy for some people. :icon_smil