Sammlung aller PureBasic Extensions by RSBasic
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

78 lines
4.5 KiB

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

Impressum | Datenschutz