PureVBS 1.0 - WindowsLib
Verfasst: 25.06.2008 19:18
Hi,
hier meine erste Lib. Einige Funktionen könnten nützlich sein, einige nicht.
Die Lib benötigt das ScriptControl von TS-Soft, MK-Soft. http://www.purebasic.fr/german/viewtopic.php?t=8761
http://www.free-space.at/elke/PureVBS.zip
Lib und Source sind in der Zip.
Hier die Funktionen.
Einzelne Ergebnisse kann man z.B.: mit Stringfield zerlegen.
Strings in der Zeile sind Tabstopp-getrennt -> Zeile #CRLF$ getrennt.
Sieht man gleich an den Beispielen mit Messagerequester.
Naja, wenn`s wem gefällt, dann nur zu, dann mache ich auch weiter -> perfekt ist`s noch lange nicht.
Danke an MSDN, Google, TS-Soft, MK-Soft, gnozal and ABBKlaus.
lg
Marco
Achja: Die Beschreibung ist in Englisch, da ich`s ja auch im englischen Forum veröffentlichen möchte...Ich hoffe, es ist kein Problem.
hier meine erste Lib. Einige Funktionen könnten nützlich sein, einige nicht.
Die Lib benötigt das ScriptControl von TS-Soft, MK-Soft. http://www.purebasic.fr/german/viewtopic.php?t=8761
http://www.free-space.at/elke/PureVBS.zip
Lib und Source sind in der Zip.
Hier die Funktionen.
VBS_CountODBCDrivers() ; returns the number of installed ODBC Drivers
VBS_ListAllODBCDrivers() ; list of all ODBC-Drivers
VBS_ODBCDrivers(Value.l) ; list ODBC-drivers from 0 to value
VBS_CreateRestorePoint(name.s) ; creates a restorePoint; name of the restorePoint -> return value: #S_OK if ok
VBS_ListAllRestorePoints() ; lists all retorePoints with dates
VBS_AddUrltoFav(url.s) ; adds a website to the favorits -> return value: #S_OK if ok
VBS_AddShortCut(app.s, desc.s="") ; adds a shortcut to the Quick Launch + description -> return value: #S_OK if ok
VBS_DriveName(Driveletter.s) ; displays the name of the drive ; e.g.: VBS_DriveName("d")
VBS_SizeOfRecycleBin() ; returns the size of the RecycleBin in kB
VBS_FolderExist(dir.s) ; return value: #S_OK = folder exist
VBS_EnumPrinters(Value.l)
VBS_ConnectedUSB() ; list of the connected USB devices
VBS_EnumHardware() ; Enums the hardware
VBS_SetScreenSaverTimeout(sek.l) ; Set screensaver Timeout in seconds - needs Windows restart; #S_OK = ok
VBS_installedSoftware() ; list of installed Software + Version + location
VBS_FileVersion(file.s) ; returns the versiion of a file
VBS_Freespace(drive.s) ; returns the free sapce of a drive in bytes
VBS_FreeSpaceOfall() ; returns all HardDisks + freespace in bytes
VBS_IpConfig() ; returns the IP-Config
VBS_Ping(Address.s) ; ping an address
VBS_InternetConnection() ; returns the Internetconnections
VBS_TempInternetPath() ; returns the path of the Temporary Internet Folder
VBS_TempInternetFolder() ; returns all files in Temporary Internet Folder
VBS_GetCompName() ; returns the ComputerName
VBS_OS_Prop() ; returns some OS-Properties: OS SP CountyCode SN Version
VBS_BiosVersion() ; returns the BIOS-Version
VBS_ProcDesc() ; description of the processor
VBS_CompMan() ; returns Computer Manufacturer
VBS_CompModel() ; returns the Computer Model
VBS_TotalPhysicalMemory() ; TotalPhysicalMemory in bytes
VBS_RenameVolume(drive.s, name.s) ; rename a volume
VBS_DriveType(drive.s) ; returns the DriveType: Unknown; Removable; Fixed; Network; CD-ROM; RAM Disk
VBS_DirectX() ; returns the Direct-Version
VBS_CDRom() ; returns the Name of CD-Rom
VBS_FilesOfProgramFiles() ; Files of ProgramFiles
VBS_FilesOfAppData() ; Files of Appdata
VBS_FilesOfDesktop() ; Desktopfiles
VBS_Cookies() ; cookies
VBS_Favorites() ; Favorites
VBS_SetIETitle(title.s) ; Change the Internet Explorer Title Bar; #S_OK = ok
VBS_SetIEStartpage(url.s) ; Set Startpage OF IE
VBS_ReadOutlookCalendar() ; returns the calendar-items of Outlook
VBS_ReadOutlookItems(value.l) ; 3=DeletedItems; 4=Outbox, 5=SentMail; 6=Inbox;
VBS_GetWMINameSpaces() ; returns the WMI-Namespaces
VBS_GetWMIProviders() ; returns the WMI-Providers
VBS_GetEnvVariables() ; List Environment Variables on a Computer
VBS_XPFirewall(value.b) ; 1= enables; 0=disables XPFirewall; #S_OK = OK
VBS_GetIEVersion() ; returns the Version of Internet Explorer is Installed on a Computer
VBS_GetIEProductID() ; returns the ProductID of Internet Explorer is Installed on a Computer
VBS_GetOfficeVersions() ; returns the Versions of installed Office
VBS_GetEventLogEvents() ; List All Events from an Event Log ; may take very long
VBS_GetComponentCategories() ; List Component Categories
VBS_GetStartupCommands() ; Enums all startup commands on a computer
VBS_GetStartupOptions() ; Returns a list of startup options
VBS_GetBootState() ; Returns the boot state
VBS_GetStartUpDelay() ; Returns the startUpdelay
VBS_GetDisplaySettings() ; Returns the display settings: bits per pixel; deviceName; frequency; DriverVersion
VBS_GetIPs() ; Returns the IP + description
VBS_GetFonts() ; Returns the Fonts
VBS_MSSoftwareIds() ; Returns MS Software IDs
VBS_BatteryTime() ; Returns the remaining time
Einzelne Ergebnisse kann man z.B.: mit Stringfield zerlegen.
Strings in der Zeile sind Tabstopp-getrennt -> Zeile #CRLF$ getrennt.
Sieht man gleich an den Beispielen mit Messagerequester.
Naja, wenn`s wem gefällt, dann nur zu, dann mache ich auch weiter -> perfekt ist`s noch lange nicht.
Danke an MSDN, Google, TS-Soft, MK-Soft, gnozal and ABBKlaus.
lg
Marco
Achja: Die Beschreibung ist in Englisch, da ich`s ja auch im englischen Forum veröffentlichen möchte...Ich hoffe, es ist kein Problem.