diff --git a/Licence.md b/Licence.md index 3ce53d6..832692f 100644 --- a/Licence.md +++ b/Licence.md @@ -1,6 +1,6 @@ # Allgemein / Common: -### Licence +## Licence Copyright © 2019 RSBasic.de The DLL files are free of charge and may be used both privately and commercially. @@ -17,6 +17,7 @@ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. --- +# Zusätzliches / Additional: ## PB.Ex PDF Copyright (c) 2005-2014 empira Software GmbH, Troisdorf (Germany) @@ -56,3 +57,27 @@ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +## PB.Ex MTP +https://github.com/Bassman2/MediaDevices + +MIT License + +Copyright (c) 2017 - 2018 Ralf Beckers + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. \ No newline at end of file diff --git a/PB.Ex_IIS/License.txt b/PB.Ex_IIS/License.txt new file mode 100644 index 0000000..c69cdc1 --- /dev/null +++ b/PB.Ex_IIS/License.txt @@ -0,0 +1 @@ +Copyright © 2019 RSBasic.de diff --git a/PB.Ex_IIS/PB.Ex_IIS.pb b/PB.Ex_IIS/PB.Ex_IIS.pb new file mode 100644 index 0000000..9f8ecf8 --- /dev/null +++ b/PB.Ex_IIS/PB.Ex_IIS.pb @@ -0,0 +1,109 @@ +EnableExplicit + +Global PBEx_IIS + +#PBEx_IIS_Protocol_HTTP = 0 +#PBEx_IIS_Protocol_HTTPS = 1 +#PBEx_IIS_Attribute_Site_ApplicationPool = 1 +#PBEx_IIS_Attribute_Site_Path = 2 +#PBEx_IIS_Attribute_Site_ConnectionTimeout = 3 +#PBEx_IIS_Attribute_Site_MaxBandwidth = 4 +#PBEx_IIS_Attribute_Site_MaxConnections = 5 +#PBEx_IIS_Attribute_Site_MaxUrlSegments = 6 +#PBEx_IIS_Attribute_ApplicationPool_AutoStart = 1 +#PBEx_IIS_Attribute_ApplicationPool_Enable32BitAppOnWin64 = 2 +#PBEx_IIS_Attribute_ApplicationPool_ManagedPipelineMode = 3 +#PBEx_IIS_Attribute_ApplicationPool_ManagedRuntimeVersion = 4 +#PBEx_IIS_Attribute_ApplicationPool_QueueLength = 5 +#PBEx_IIS_Attribute_ApplicationPool_StartMode = 6 + +CompilerIf #PB_Compiler_Processor = #PB_Processor_x86 + PBEx_IIS = OpenLibrary(#PB_Any, "PB.Ex_IIS_x86.dll") +CompilerElseIf #PB_Compiler_Processor = #PB_Processor_x64 + PBEx_IIS = OpenLibrary(#PB_Any, "PB.Ex_IIS_x64.dll") +CompilerEndIf + +If PBEx_IIS + Prototype CreateIISSite(SiteName.p-Unicode, Protocol, IPAddress.p-Unicode, Port, Domain.p-Unicode, Path.p-Unicode, ApplicationPool.p-Unicode, ErrorOutput) + Global CreateIISSite.CreateIISSite = GetFunction(PBEx_IIS, "CreateIISSite") + Prototype DeleteIISSite(SiteName.p-Unicode, ErrorOutput) + Global DeleteIISSite.DeleteIISSite = GetFunction(PBEx_IIS, "DeleteIISSite") + Prototype StartIISSite(SiteName.p-Unicode, ErrorOutput) + Global StartIISSite.StartIISSite = GetFunction(PBEx_IIS, "StartIISSite") + Prototype StopIISSite(SiteName.p-Unicode, ErrorOutput) + Global StopIISSite.StopIISSite = GetFunction(PBEx_IIS, "StopIISSite") + Prototype ExamineIISSite(ErrorOutput) + Global ExamineIISSite.ExamineIISSite = GetFunction(PBEx_IIS, "ExamineIISSite") + Prototype NextIISSiteEntry(ErrorOutput) + Global NextIISSiteEntry.NextIISSiteEntry = GetFunction(PBEx_IIS, "NextIISSiteEntry") + Prototype IISSiteEntryName(Output, ErrorOutput) + Global IISSiteEntryName.IISSiteEntryName = GetFunction(PBEx_IIS, "IISSiteEntryName") + Prototype FinishIISSite(ErrorOutput) + Global FinishIISSite.FinishIISSite = GetFunction(PBEx_IIS, "FinishIISSite") + Prototype CreateIISApplicationPool(ApplicationPoolName.p-Unicode, ErrorOutput) + Global CreateIISApplicationPool.CreateIISApplicationPool = GetFunction(PBEx_IIS, "CreateIISApplicationPool") + Prototype DeleteIISApplicationPool(ApplicationPoolName.p-Unicode, ErrorOutput) + Global DeleteIISApplicationPool.DeleteIISApplicationPool = GetFunction(PBEx_IIS, "DeleteIISApplicationPool") + Prototype StartIISApplicationPool(ApplicationPoolName.p-Unicode, ErrorOutput) + Global StartIISApplicationPool.StartIISApplicationPool = GetFunction(PBEx_IIS, "StartIISApplicationPool") + Prototype StopIISApplicationPool(ApplicationPoolName.p-Unicode, ErrorOutput) + Global StopIISApplicationPool.StopIISApplicationPool = GetFunction(PBEx_IIS, "StopIISApplicationPool") + Prototype ExamineIISApplicationPool(ErrorOutput) + Global ExamineIISApplicationPool.ExamineIISApplicationPool = GetFunction(PBEx_IIS, "ExamineIISApplicationPool") + Prototype NextIISApplicationPoolEntry(ErrorOutput) + Global NextIISApplicationPoolEntry.NextIISApplicationPoolEntry = GetFunction(PBEx_IIS, "NextIISApplicationPoolEntry") + Prototype IISApplicationPoolEntryName(Output, ErrorOutput) + Global IISApplicationPoolEntryName.IISApplicationPoolEntryName = GetFunction(PBEx_IIS, "IISApplicationPoolEntryName") + Prototype FinishIISApplicationPool(ErrorOutput) + Global FinishIISApplicationPool.FinishIISApplicationPool = GetFunction(PBEx_IIS, "FinishIISApplicationPool") + Prototype SetIISSiteAttribute(SiteName.p-Unicode, Attribute, Value.p-Unicode, ErrorOutput) + Global SetIISSiteAttribute.SetIISSiteAttribute = GetFunction(PBEx_IIS, "SetIISSiteAttribute") + Prototype GetIISSiteAttribute(SiteName.p-Unicode, Attribute, Output, ErrorOutput) + Global GetIISSiteAttribute.GetIISSiteAttribute = GetFunction(PBEx_IIS, "GetIISSiteAttribute") + Prototype SetIISApplicationPoolAttribute(ApplicationPoolName.p-Unicode, Attribute, Value.p-Unicode, ErrorOutput) + Global SetIISApplicationPoolAttribute.SetIISApplicationPoolAttribute = GetFunction(PBEx_IIS, "SetIISApplicationPoolAttribute") + Prototype GetIISApplicationPoolAttribute(ApplicationPoolName.p-Unicode, Attribute, Output, ErrorOutput) + Global GetIISApplicationPoolAttribute.GetIISApplicationPoolAttribute = GetFunction(PBEx_IIS, "GetIISApplicationPoolAttribute") + +EndIf + +Global Output$ = Space(1024) +Global ErrorOutput$ = Space(128) + +;CreateIISApplicationPool("MyOwnAppPool", @ErrorOutput$) +;DeleteIISApplicationPool("MyOwnAppPool", @ErrorOutput$) + +;CreateIISSite("MyOwnSite", #PBEx_IIS_Protocol_HTTPS, "", 81, "localhost", "D:\ht-docs\", "DefaultAppPool", @ErrorOutput$) +;DeleteIISSite("MyOwnSite", @ErrorOutput$) + +;List all application pool +Debug "Application pools:" +If ExamineIISApplicationPool(@ErrorOutput$) + While NextIISApplicationPoolEntry(@ErrorOutput$) + IISApplicationPoolEntryName(@Output$, @ErrorOutput$) + Debug Output$ + Wend +EndIf + +;List all web sites +Debug "Web sites:" +If ExamineIISSite(@ErrorOutput$) + While NextIISSiteEntry(@ErrorOutput$) + IISSiteEntryName(@Output$, @ErrorOutput$) + Debug Output$ + Wend +EndIf + + +CloseLibrary(PBEx_IIS) + +; IDE Options = PureBasic 5.60 (Windows - x64) +; CursorPosition = 72 +; FirstLine = 36 +; EnableXP +; EnableAdmin +; Executable = PB.Ex_MSSQL.exe +; CompileSourceDirectory +; EnableCompileCount = 948 +; EnableBuildCount = 7 +; EnableUnicode \ No newline at end of file diff --git a/PB.Ex_IIS/PB.Ex_IIS.pbi b/PB.Ex_IIS/PB.Ex_IIS.pbi new file mode 100644 index 0000000..6ed4456 --- /dev/null +++ b/PB.Ex_IIS/PB.Ex_IIS.pbi @@ -0,0 +1,78 @@ +EnableExplicit + +Global PBEx_IIS + +#PBEx_IIS_Protocol_HTTP = 0 +#PBEx_IIS_Protocol_HTTPS = 1 +#PBEx_IIS_Attribute_Site_ApplicationPool = 1 +#PBEx_IIS_Attribute_Site_Path = 2 +#PBEx_IIS_Attribute_Site_ConnectionTimeout = 3 +#PBEx_IIS_Attribute_Site_MaxBandwidth = 4 +#PBEx_IIS_Attribute_Site_MaxConnections = 5 +#PBEx_IIS_Attribute_Site_MaxUrlSegments = 6 +#PBEx_IIS_Attribute_ApplicationPool_AutoStart = 1 +#PBEx_IIS_Attribute_ApplicationPool_Enable32BitAppOnWin64 = 2 +#PBEx_IIS_Attribute_ApplicationPool_ManagedPipelineMode = 3 +#PBEx_IIS_Attribute_ApplicationPool_ManagedRuntimeVersion = 4 +#PBEx_IIS_Attribute_ApplicationPool_QueueLength = 5 +#PBEx_IIS_Attribute_ApplicationPool_StartMode = 6 + +CompilerIf #PB_Compiler_Processor = #PB_Processor_x86 + PBEx_IIS = OpenLibrary(#PB_Any, "PB.Ex_IIS_x86.dll") +CompilerElseIf #PB_Compiler_Processor = #PB_Processor_x64 + PBEx_IIS = OpenLibrary(#PB_Any, "PB.Ex_IIS_x64.dll") +CompilerEndIf + +If PBEx_IIS + Prototype CreateIISSite(SiteName.p-Unicode, Protocol, IPAddress.p-Unicode, Port, Domain.p-Unicode, Path.p-Unicode, ApplicationPool.p-Unicode, ErrorOutput) + Global CreateIISSite.CreateIISSite = GetFunction(PBEx_IIS, "CreateIISSite") + Prototype DeleteIISSite(SiteName.p-Unicode, ErrorOutput) + Global DeleteIISSite.DeleteIISSite = GetFunction(PBEx_IIS, "DeleteIISSite") + Prototype StartIISSite(SiteName.p-Unicode, ErrorOutput) + Global StartIISSite.StartIISSite = GetFunction(PBEx_IIS, "StartIISSite") + Prototype StopIISSite(SiteName.p-Unicode, ErrorOutput) + Global StopIISSite.StopIISSite = GetFunction(PBEx_IIS, "StopIISSite") + Prototype ExamineIISSite(ErrorOutput) + Global ExamineIISSite.ExamineIISSite = GetFunction(PBEx_IIS, "ExamineIISSite") + Prototype NextIISSiteEntry(ErrorOutput) + Global NextIISSiteEntry.NextIISSiteEntry = GetFunction(PBEx_IIS, "NextIISSiteEntry") + Prototype IISSiteEntryName(Output, ErrorOutput) + Global IISSiteEntryName.IISSiteEntryName = GetFunction(PBEx_IIS, "IISSiteEntryName") + Prototype FinishIISSite(ErrorOutput) + Global FinishIISSite.FinishIISSite = GetFunction(PBEx_IIS, "FinishIISSite") + Prototype CreateIISApplicationPool(ApplicationPoolName.p-Unicode, ErrorOutput) + Global CreateIISApplicationPool.CreateIISApplicationPool = GetFunction(PBEx_IIS, "CreateIISApplicationPool") + Prototype DeleteIISApplicationPool(ApplicationPoolName.p-Unicode, ErrorOutput) + Global DeleteIISApplicationPool.DeleteIISApplicationPool = GetFunction(PBEx_IIS, "DeleteIISApplicationPool") + Prototype StartIISApplicationPool(ApplicationPoolName.p-Unicode, ErrorOutput) + Global StartIISApplicationPool.StartIISApplicationPool = GetFunction(PBEx_IIS, "StartIISApplicationPool") + Prototype StopIISApplicationPool(ApplicationPoolName.p-Unicode, ErrorOutput) + Global StopIISApplicationPool.StopIISApplicationPool = GetFunction(PBEx_IIS, "StopIISApplicationPool") + Prototype ExamineIISApplicationPool(ErrorOutput) + Global ExamineIISApplicationPool.ExamineIISApplicationPool = GetFunction(PBEx_IIS, "ExamineIISApplicationPool") + Prototype NextIISApplicationPoolEntry(ErrorOutput) + Global NextIISApplicationPoolEntry.NextIISApplicationPoolEntry = GetFunction(PBEx_IIS, "NextIISApplicationPoolEntry") + Prototype IISApplicationPoolEntryName(Output, ErrorOutput) + Global IISApplicationPoolEntryName.IISApplicationPoolEntryName = GetFunction(PBEx_IIS, "IISApplicationPoolEntryName") + Prototype FinishIISApplicationPool(ErrorOutput) + Global FinishIISApplicationPool.FinishIISApplicationPool = GetFunction(PBEx_IIS, "FinishIISApplicationPool") + Prototype SetIISSiteAttribute(SiteName.p-Unicode, Attribute, Value.p-Unicode, ErrorOutput) + Global SetIISSiteAttribute.SetIISSiteAttribute = GetFunction(PBEx_IIS, "SetIISSiteAttribute") + Prototype GetIISSiteAttribute(SiteName.p-Unicode, Attribute, Output, ErrorOutput) + Global GetIISSiteAttribute.GetIISSiteAttribute = GetFunction(PBEx_IIS, "GetIISSiteAttribute") + Prototype SetIISApplicationPoolAttribute(ApplicationPoolName.p-Unicode, Attribute, Value.p-Unicode, ErrorOutput) + Global SetIISApplicationPoolAttribute.SetIISApplicationPoolAttribute = GetFunction(PBEx_IIS, "SetIISApplicationPoolAttribute") + Prototype GetIISApplicationPoolAttribute(ApplicationPoolName.p-Unicode, Attribute, Output, ErrorOutput) + Global GetIISApplicationPoolAttribute.GetIISApplicationPoolAttribute = GetFunction(PBEx_IIS, "GetIISApplicationPoolAttribute") + +EndIf +; IDE Options = PureBasic 5.60 (Windows - x64) +; CursorPosition = 67 +; FirstLine = 7 +; EnableXP +; EnableUser +; Executable = PB.Ex_MSSQL.exe +; CompileSourceDirectory +; EnableCompileCount = 450 +; EnableBuildCount = 7 +; EnableUnicode \ No newline at end of file diff --git a/PB.Ex_IIS/PB.Ex_IIS_x64.dll b/PB.Ex_IIS/PB.Ex_IIS_x64.dll new file mode 100644 index 0000000..4414121 Binary files /dev/null and b/PB.Ex_IIS/PB.Ex_IIS_x64.dll differ diff --git a/PB.Ex_IIS/PB.Ex_IIS_x86.dll b/PB.Ex_IIS/PB.Ex_IIS_x86.dll new file mode 100644 index 0000000..0f59cd1 Binary files /dev/null and b/PB.Ex_IIS/PB.Ex_IIS_x86.dll differ diff --git a/README.md b/README.md index 8095542..fe57d11 100644 --- a/README.md +++ b/README.md @@ -21,6 +21,7 @@ Spenden / Donations bitte direkt an RSBasic |Math|https://www.purebasic.fr/german/viewtopic.php?t=31452| |ICMP|https://www.purebasic.fr/german/viewtopic.php?t=31459| |MTP|https://www.purebasic.fr/german/viewtopic.php?t=31465| +|IIS|https://www.purebasic.fr/german/viewtopic.php?t=31472| [Wunschliste](https://www.purebasic.fr/german/viewtopic.php?t=30740) @@ -39,5 +40,6 @@ Spenden / Donations bitte direkt an RSBasic |Math|https://www.purebasic.fr/english/viewtopic.php?t=72761| |ICMP|https://www.purebasic.fr/english/viewtopic.php?t=72783| |MTP|https://www.purebasic.fr/english/viewtopic.php?t=72815| +|IIS|https://www.purebasic.fr/english/viewtopic.php?t=72826| [Wishlist](https://www.purebasic.fr/english/viewtopic.php?t=70476)