Snippets

A collection of  LiveCode snippets collected from various sources

Files

Auto Save

Auto saves a stack every 10 mins

on openstack
dosave
end openstack
on dosave
save this stack
send dosave to me in 600 seconds
end dosave

Load Image From Stack Sub Directory

on mouseUp
local tMyPath
local tFile
set the itemDelimiter to "/"
put (item 1 to -2 of the effective fileName of this stack) & "/images/" into tMyPath
-- tMyPath now contains the path to your stack and sub folder images
put tMyPath & "myImage.jpg" into tFile
-- tFile contains the full path to your image
put  Url ("binfile:" & tFile) into image "Image1"
-- "binfile:" tell the stack that it is expecting data in binary format
end mouseUp

Network

Get Network PC Names

put shell("net view")

Get User ID

put shell("net user")

Get Current User Name

set the itemDel to "\"
put item 3 of line 2 of shell("net user") into fld "FldUser"

Get IP Address

on mouseUp
answer "IP Address is" && ip.address()
end mouseUp
function ip.address
local pos, temp
put URL "http://whatismyipaddress.com/" into temp
replace space with empty in temp
put offset("script-->",temp) into pos
delete char 1 to pos + 9 in temp
put offset("<!--",temp) into pos
delete char pos to 9999 in temp
replace cr with empty in temp
replace "&#46;" with "." in temp
return temp
end ip.address

Hardware

Get Active System HD Serial Number

on mouseUp
put $systemdrive into tSysDrive
//string for the shell command
put "vol " & tSySDrive into tDriveInfo
//the last word of the returned info is the ACTIVE  SYSTEM HD Serial
set the hideConsoleWindows to true
put the last word of shell(tDriveInfo) into tHDSerial
answer "HD Serial is  " && tHDSerial with "OK"
end mouseUp

Get all Win System info

set the hideConsoleWindows to true
put shell ("systeminfo")

Get Total Memory

set the hideConsoleWindows to true
put shell ("systeminfo | find " & quote& "Total Physical Memory"& quote)

Get Available Memory

set the hideConsoleWindows to true
put shell ("systeminfo | find " & quote& "Available Physical Memory"& quote)

Fields

Drag lines in field

on mouseDown
--setup colors for hilited text
put "black" into tOrigCol
put "red" into tHiLiteCol

put word 2 of the clickLine into tClickLine
if line tClickLine of me is empty then
exit mousedown
end if

put item 2 of the mouseLoc into tStartLIne
put the effective textHeight of me into tHt

repeat while the mouse is down

--down
if item 2 of the mouseLoc - tStartLIne > (tHt/2) then
lock screen
put cr & line tClickLine of me after line tClickLine + 1 of me
delete line tClickLine of me
add 1 to tClickLine
set the textcolor of line tClickLine of me to tHiLiteCol
add tHt to tStartLIne
unlock screen

--up
else if tStartLIne - item 2 of the mouseLoc > (tHt/2) then
lock screen
put line tClickLine of me & cr before line tClickLine - 1 of me
delete line tClickLine + 1 of me
subtract 1 from tClickLine
set the textcolor of line tClickLine of me to tHiLiteCol
subtract tHt from tStartLIne
unlock screen
end if

end repeat

--protect against empty lines being inserted
filter lines of me without empty

--make sure all lines are reset to original text color
put the number of lines of me into tNoLines
repeat with tC = 1 to tNoLines
set the textcolor of line tC of me to tOrigCol
end repeat

end mouseDown