Add IIS

Signed-off-by: Imhotheb <Info@Imhotheb.de>

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.

PB.Ex_IIS/License.txt

@@ -0,0 +1 @@
+Copyright © 2019 RSBasic.de

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

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

PB.Ex_Mail/PB.Ex_Mail.pb

@@ -10,6 +10,11 @@ Global PBEx_Mail
 #PBEx_Mail_Event_NewMail = 0
 #PBEx_Mail_Attribute_Unseen = 0
 #PBEx_Mail_Attribute_Seen = 32
+#PBEx_Mail_SeenType_AllMails = 0
+#PBEx_Mail_SeenType_OnlySeenMails = 1
+#PBEx_Mail_SeenType_OnlyUnseenMails = 2
+#PBEx_Mail_FetchType_AllData = 0
+#PBEx_Mail_FetchType_OnlyHeaderData = 1
 
 CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
   PBEx_Mail = OpenLibrary(#PB_Any, "PB.Ex_Mail_x86.dll")
@@ -26,7 +31,7 @@ If PBEx_Mail
   Global ExamineMailDirectoryEx.ExamineMailDirectoryEx = GetFunction(PBEx_Mail, "ExamineMailDirectoryEx")
   Prototype MailDirectoryEntryNameEx(ID, Output, ErrorOutput)
   Global MailDirectoryEntryNameEx.MailDirectoryEntryNameEx = GetFunction(PBEx_Mail, "MailDirectoryEntryNameEx")
-  Prototype ExamineMailEx(ID, ErrorOutput)
+  Prototype ExamineMailEx(ID, SeenType, FetchType, SortByNew, ErrorOutput)
   Global ExamineMailEx.ExamineMailEx = GetFunction(PBEx_Mail, "ExamineMailEx")
   Prototype MailEntrySubjectEx(ID, Output, ErrorOutput)
   Global MailEntrySubjectEx.MailEntrySubjectEx = GetFunction(PBEx_Mail, "MailEntrySubjectEx")
@@ -188,7 +193,7 @@ If OpenMailEx(1, #PBEx_Mail_Protocol_IMAP, "imap.gmail.com", 993, "yourmailaddre
   ;Determine all mail from inbox
   ;Or from any directory
   ;SetMailDirectoryEx(1, "Downloadportale/Chip", @ErrorOutput$)
-  If ExamineMailEx(1, @ErrorOutput$)
+  If ExamineMailEx(1, #PBEx_Mail_SeenType_AllMails, #PBEx_Mail_FetchType_AllData, 0, @ErrorOutput$)
     While NextMailEntryEx(1, @ErrorOutput$)
       MailEntrySubjectEx(1, @Output$, @ErrorOutput$)
       Debug "Subject: " + Output$
@@ -220,14 +225,14 @@ EndIf
 
 CloseLibrary(PBEx_Mail)
 
-; IDE Options = PureBasic 5.70 LTS (Windows - x64)
-; CursorPosition = 188
-; FirstLine = 152
+; IDE Options = PureBasic 5.60 (Windows - x64)
+; CursorPosition = 201
+; FirstLine = 167
 ; Folding = -
 ; EnableXP
 ; EnableUser
 ; Executable = PB.Ex_MSSQL.exe
 ; CompileSourceDirectory
-; EnableCompileCount = 780
+; EnableCompileCount = 782
 ; EnableBuildCount = 7
 ; EnableUnicode

PB.Ex_Mail/PB.Ex_Mail.pbi

@@ -10,6 +10,11 @@ Global PBEx_Mail
 #PBEx_Mail_Event_NewMail = 0
 #PBEx_Mail_Attribute_Unseen = 0
 #PBEx_Mail_Attribute_Seen = 32
+#PBEx_Mail_SeenType_AllMails = 0
+#PBEx_Mail_SeenType_OnlySeenMails = 1
+#PBEx_Mail_SeenType_OnlyUnseenMails = 2
+#PBEx_Mail_FetchType_AllData = 0
+#PBEx_Mail_FetchType_OnlyHeaderData = 1
 
 CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
   PBEx_Mail = OpenLibrary(#PB_Any, "PB.Ex_Mail_x86.dll")
@@ -26,7 +31,7 @@ If PBEx_Mail
   Global ExamineMailDirectoryEx.ExamineMailDirectoryEx = GetFunction(PBEx_Mail, "ExamineMailDirectoryEx")
   Prototype MailDirectoryEntryNameEx(ID, Output, ErrorOutput)
   Global MailDirectoryEntryNameEx.MailDirectoryEntryNameEx = GetFunction(PBEx_Mail, "MailDirectoryEntryNameEx")
-  Prototype ExamineMailEx(ID, ErrorOutput)
+  Prototype ExamineMailEx(ID, SeenType, FetchType, SortByNew, ErrorOutput)
   Global ExamineMailEx.ExamineMailEx = GetFunction(PBEx_Mail, "ExamineMailEx")
   Prototype MailEntrySubjectEx(ID, Output, ErrorOutput)
   Global MailEntrySubjectEx.MailEntrySubjectEx = GetFunction(PBEx_Mail, "MailEntrySubjectEx")
@@ -144,10 +149,9 @@ If PBEx_Mail
   Global GetMailAttributeEx.GetMailAttributeEx = GetFunction(PBEx_Mail, "GetMailAttributeEx")
   
 EndIf
-
-; IDE Options = PureBasic 5.70 LTS (Windows - x64)
-; CursorPosition = 146
-; FirstLine = 87
+; IDE Options = PureBasic 5.60 (Windows - x64)
+; CursorPosition = 150
+; FirstLine = 91
 ; EnableXP
 ; EnableUser
 ; Executable = PB.Ex_MSSQL.exe

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)