SQLitening Support Forum

Please login or register.

Login with username, password and session length
Advanced search  

News:

Welcome to the SQLitening support forums!

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

cj

  • Master Geek
  • ****
  • Posts: 656
    • 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 »
Logged
CJ

Fredrick Ughimi

  • Master Geek
  • ****
  • Posts: 564
    • 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?
Logged
Fredrick O. Ughimi

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