Demo - Gordon Sweet presents Links to LB Sites


Home

Maintaining checkbox states
Tidbits from the community
Liberty Basic 4
New Alternate Forum
Using the Tsunami Database
Wizard Framework
Links to LB Sites
Update on 10th Anniversary Contest
Extracting Icons And Saving Them As Bitmaps
Applying Symbolic Logic
QuadClicks
Simple Math For Moving Objects
Event Driven Programming - Part 2
The Beginners Series - Part 1

 

I have been able to concoct the following to allow quick access to all the major LB Web Sites and quick Email to the Group. Perhaps you could show how to replace the [url] routine below to use yours, and invoke the Default Browser for those who do not use Internet Explorer. [Alyce noted that the correct Browser and email clients are being invoked as the code it written. Look for this code called LBSites.bas in the newsletter archive] Any other suggestions welcome from all. Gordon

' PROGRAM TO SPEED UP ACCESS TO LB SITES
' MAKE A LBSITES.TKN THEN RENAME A COPY OF
' RUN.EXE TO LBSITES.EXE AND CREATE A SHORTCUT
nomainwin
WindowWidth = 390 : WindowHeight = 280
UpperLeftX = 200 : UpperLeftY = 100
button #1, "LB Files ", [files], ul 50, 30
button #1, "LB Emails", [messg], ul 150, 30
button #1, "LB Egroup", [egrop], ul 250, 30
button #1, "LB3 Group", [emlb3], ul 50, 80
button #1, "NewsLetrs", [news], ul 150, 80
button #1, "Home Page", [home], ul 250, 80
button #1, " Alyce's ", [Alyc], ul 50, 130
button #1, "All Basic", [ABC], ul 150, 130
button #1, "Dev4 Life", [D4lf], ul 250, 130
button #1, "Pick Site", [site], ul 50, 180
button #1, "PickEmail", [adrs], ul 150, 180
button #1, "* EXIT * ", [quit], ul, 250, 180
open "Liberty Basic Sites" for graphics_nf_nsb as #1
#1 "trapclose [quit]; fill blue; backcolor blue"
#1 "discard; flush"
[hold] wait

[files]
opt$ = "http://groups.yahoo.com/group/libertybasic/files"
goto [url]

[messg]
opt$ = "http://groups.yahoo.com/group/libertybasic/messages"
goto [url]

[egrop]
opt$ = "mailto:libertybasic@egroups.com" : goto [email]

[emlb3]
opt$ = "mailto:lbw3@yahoogroups.com" : goto [email]

[news]
opt$ = "http://groups.yahoo.com/group/lbnews"
goto [url]

[home]
opt$ = "http://libertybasic.com"
goto [url]

[Alyc]
opt$ = "http://iquizme.0catch.com/lb/index.html"
goto [url]

[ABC]
opt$ = "http://www.allbasiccode.com"
goto [url]

[D4lf]
opt$ = "http://www.development4life.net"
goto [url]

[site]
prompt "Enter Web Site"; opt$ 
goto [url]

[adrs]
prompt "Enter Email Address"; opt$ 
goto [email]

[url]
'chr$(43) = quote (")
'the url must be in quotes
run "C:\Program Files\Internet Explorer\IEXPLORE.EXE "+ _
chr$(34)+opt$+chr$(34)
goto [hold]

[email]
CALL RunThis opt$ ,h
goto [hold]
'FOR FULL DETAILS TO INCLUDE THE SUBJECT USE:-
'CALL RunThis "mailto:carlg@l...?Subject=Liberty BASIC" ,h

[quit]
close #1 : end

sub RunThis RunFile$, hWindow
RunFile$=RunFile$+chr$(0)
lpOperation$ = "open" + chr$(0)
lpParameters$ = "" + chr$(0)
lpDirectory$ = "" + chr$(0)
nShowCmd = _SW_SHOWNORMAL

open "shell32" for dll as #shell
calldll #shell, "ShellExecuteA", _
hWindow as long, _ 'parent window
lpOperation$ as ptr, _ 'open or print
RunFile$ as ptr, _ 'file name
lpParameters$ as ptr, _ 'null
lpDirectory$ as ptr, _ 'default directory
nShowCmd as long, _ 'show window flag
result as long
close #shell
if result <= 32 then notice "Error, Address Failure!"
end sub


  

 

Home

Maintaining checkbox states
Tidbits from the community
Liberty Basic 4
New Alternate Forum
Using the Tsunami Database
Wizard Framework
Links to LB Sites
Update on 10th Anniversary Contest
Extracting Icons And Saving Them As Bitmaps
Applying Symbolic Logic
QuadClicks
Simple Math For Moving Objects
Event Driven Programming - Part 2
The Beginners Series - Part 1