I am rolling my own registration thing for my program
But I am running into some problems as explained below...
Brian
I have this in the open event of my splash window
Dim f as FolderItem
Dim stream as TextOutputStream
f=PreferencesFolder.child ("MacZip Pro Preferences")
if f.exists=true then
serialn.visible=false
statictext9.visible=false
splash.close
else
serialn.visible=true
statictext9.visible=true
splash.show
end if
I have this in my OK button in my splash screen
Dim f as FolderItem
Dim stream as TextOutputStream
if f <> Nil Then
f=PreferencesFolder.child ("MacZip Pro Preferences")
if f.exists=true then
splash.close
end if
if f.exists=false then
stream=f.CreateTextFile
f.MacCreator="ttxt"
if serialn.text = "MZP-01-2006-1012RMW-100" then
Stream.WriteLine ("MZP-01-2006-1012RMW-100")
Stream.Close
splash.close
ElseIf serialn.text = "MZP-02-2006-1012RMW-101" then
Stream.WriteLine ("MZP-02-2006-1013RMW-101")
Stream.Close
splash.close
Elseif serialn.text = "MZP-02-2006-1012RMW-102" then
stream.writeline ("MZP-02-2006-10142RMW-102")
stream.close
splash.close
Elseif serialn.text = "MZP-02-2006-1012RMW-103" then
stream.writeline ("MZP-02-2006-1012RMW-103")
stream.close
splash.close
Elseif serialn.text = "MZP-02-2006-1012RMW-104" then
stream.writeline ("MZP-02-2006-1012RMW-104")
stream.close
splash.close
Elseif serialn.text = "MZP-02-2006-1012RMW-105" then
stream.writeline ("MZP-02-2006-1012RMW-105")
stream.close
splash.close
Elseif serialn.text = "MZP-02-2006-1012RMW-106" then
stream.writeline ("MZP-02-2006-1012RMW-106")
stream.close
splash.close
Elseif serialn.text = "MPZ-02-2006-1012RMW-107" then
stream.writeline ("MZP-02-2006-1012RMW-107")
stream.close
splash.close
Elseif serialn.text = "MPZ-02-2006-1012RMW-108" then
stream.writeline ("MZP-02-2006-1012RMW-108")
stream.close
splash.close
Elseif serialn.text = "MPZ-02-2006-1012RMW-109" then
stream.writeline ("MZP-02-2006-1012RMW-109")
stream.close
splash.close
Elseif serialn.text = "MPZ-02-2006-1012RMW-110" then
stream.writeline ("MPZ-02-2006-1012RMW-110")
splash.close
elseif serialn.text <> "MPZ-02-2006-1012RMW-110" and
serialn.text <> "MPZ-02-2006-1012RMW-109" and serialn.text <>
"MPZ-02-2006-1012RMW-108" and serialn.text <>
"MPZ-02-2006-1012RMW-107" and serialn.text <>
"MPZ-02-2006-1012RMW-107" and serialn.text <>
"MZP-02-2006-1012RMW-106" and serialn.text <>
"MPZ-02-2006-1012RMW-105" and serialn.text <>
"MPZ-02-2006-1012RMW-104" then
MSGBOX "Invalid Serial Number. Please try again!"
splash.show
end if
end if
end if
I am trying to get it to recognize some serial numbers and then if
a file is present do not show the startup screen if a file is not
present then show the startup screen
Dim f as FolderItem
Dim stream as TextOutputStream
f=PreferencesFolder.child ("MacZip Pro Preferences")
if f.exists=true then
serialn.visible=false
statictext9.visible=false
splash.close
else
serialn.visible=true
statictext9.visible=true
splash.show
end if
But it isn't working the OK button isn't doing anything so the window
doesn't go away when I enter a serial number.
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
