Author Topic: FreeMyIp.Com very simple free DNS routing  (Read 357 times)

cj

  • Master Geek
  • ****
  • Posts: 616
    • View Profile
FreeMyIp.Com very simple free DNS routing
« on: June 20, 2017, 01:12:11 AM »
http://freemyip.com  Type in a name and it automtically creates a link to your local Ip address
Save the link provided and execute the link anytime to route to your current Ip or edit to go to another IP address.

#INCLUDE "sqlitening.inc"

FUNCTION PBMAIN () AS LONG 'QuickTest2.bas 6/20/17
 slconnect "NameYouUsed.freemyip.com"
 slOpen "sample.db3"
 ViewFile "select rowid,manuf,redref,product from parts limit 20"
 slDisconnect
END FUNCTION

FUNCTION ViewFile(SQL AS STRING) AS LONG
 LOCAL hFile AS LONG, sTempfile, sArray() AS STRING
 IF slSelAry(sql,sArray(),"Q9 E2") THEN EXIT FUNCTION
 sTempFile=GUIDTXT$(GUID$) + ".tmp"
 hFile = FREEFILE
 OPEN sTempFile FOR OUTPUT AS #hFile
 IF ERR THEN ? ERROR$,,FUNCNAME$:EXIT FUNCTION
 PRINT #hFile,"SQLitening Test"
 IF ERR THEN
   ? ERROR$,,"Could not write heading " + FUNCNAME$
   EXIT FUNCTION
 END IF
 PRINT #hFile
 PRINT #hFile, sArray()
 IF ERR THEN ? ERROR$,,FUNCNAME$:EXIT FUNCTION
 CLOSE #hFile
 SHELL "write.exe " + sTempfile
 SLEEP 500
 KILL sTempfile
 IF ERR THEN ? ERROR$,,FUNCNAME$
END FUNCTION


« Last Edit: August 19, 2017, 03:51:34 PM by cj »

Fredrick Ughimi

  • Master Geek
  • ****
  • Posts: 501
    • View Profile
    • Software Development Company
Re: FreeMyIp.Com very simple free DNS routing
« Reply #1 on: August 19, 2017, 08:38:42 AM »
Hello CJ,

I tried running the code above twice and I got error -16 twice. My internet is up and SQLitening Server is running.

Is there something I am missing?
Fredrick O. Ughimi

fughimi@yahoo.com
- Freedom lies in being bold -- Robert Frost, Poet