Imhotheb
/
PB.Ex
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Browse Source

Add IIS 

Signed-off-by: Imhotheb <Info@Imhotheb.de>
master
Imhotheb 5 years ago
parent
c8284ad249
commit
004ba93ef6
7 changed files with 216 additions and 1 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 27
      Licence.md
  2. 1
      PB.Ex_IIS/License.txt
  3. 109
      PB.Ex_IIS/PB.Ex_IIS.pb
  4. 78
      PB.Ex_IIS/PB.Ex_IIS.pbi
  5. BIN
      PB.Ex_IIS/PB.Ex_IIS_x64.dll
  6. BIN
      PB.Ex_IIS/PB.Ex_IIS_x86.dll
  7. 2
      README.md

27
Licence.md
View File

@ -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.

1
PB.Ex_IIS/License.txt
View File

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

109
PB.Ex_IIS/PB.Ex_IIS.pb
View File

@ -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

78
PB.Ex_IIS/PB.Ex_IIS.pbi
View File

@ -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

BIN
PB.Ex_IIS/PB.Ex_IIS_x64.dll
View File

Binary file not shown.

BIN
PB.Ex_IIS/PB.Ex_IIS_x86.dll
View File

Binary file not shown.

2
README.md
View File

@ -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)

Write Preview
Loading…
Cancel
Save

Impressum | Datenschutz