HIVE-Project

Code: Alles auswählen

10 CLS 
20 CROFF 
30 PRINT "Lade admnet..."
40 REM mount SD Card
50 XBUS (1,0,1,0)
60 REM sdmacct system
70 e=XBUS (1,1,25,1)
80 REM admload admnet.adm
90 XBUS (1,0,96,10,97,100,109,110,101,116,46,97,100,109)
100 PRINT "Starte Netzwerk..."
110 XBUS (1,0,71):REM lanstart
120 PRINT "Verbinde mit Server..."
125 n=0
129 IF n=5 THEN PRINT "Verbindung fehlgeschlagen":END 
130 i=XBUS (1,1,73,146,255,36,1,0,80)
140 IF i=255 THEN PRINT "Kein Socket frei":END 
170 c=XBUS (1,1,75,i,7,208):REM lan_waitconntimeout 2000ms
180 n=n+1
190 PRINT "Connect ";n,c
200 IF c=0 THEN GOTO 129
210 PRINT "Sende Anfrage..."
220 e=XBUS (1,1,79,i,0,0,0,11,71,69,84,32,47,112,108,97,105,110,32)
230 e=XBUS (1,1,79,i,0,0,0,10,72,84,84,80,47,49,46,48,13,10)
240 e=XBUS (1,1,79,i,0,0,0,6,72,111,115,116,58,32)
250 e=XBUS (1,1,79,i,0,0,0,14,105,112,101,99,104,111,46,110,101,116,13,10,13,10)
255 PRINT "Antwort:"
260 b=XBUS (1,1,77,i,10,0)
270 IF b=255 THEN GOTO 295
280 PRINT CHR$ (b);
290 GOTO 260
295 PRINT " "
300 XBUS (1,0,76):REM lan_close

Code: Alles auswählen

220 e=XBUS (1,1,79,i,0,0,0,11,71,69,84,32,47,112,108,97,105,110,32)
230 e=XBUS (1,1,79,i,0,0,0,10,72,84,84,80,47,49,46,48,13,10)
240 e=XBUS (1,1,79,i,0,0,0,6,72,111,115,116,58,32)
250 e=XBUS (1,1,79,i,0,0,0,14,105,112,101,99,104,111,46,110,101,116,13,10,13,10)
255 PRINT "Antwort:"
260 b=XBUS (1,1,77,i,10,0)

Code: Alles auswählen

<?php
  $ip = $_SERVER['REMOTE_ADDR'];
  echo $ip;
?>