VB.Net控制IIS的完整源代码

最新推荐文章于 2026-03-28 02:37:23 发布
原创 最新推荐文章于 2026-03-28 02:37:23 发布 · 3.2k 阅读 · 12 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
标签
#iis #vb.net #server #string #path
#文档
这个博客展示了如何使用VB.Net来控制IIS服务器，包括启动、停止、状态检查以及配置IISWebServer的各种属性。通过`DirectoryEntry`和`DirectoryServices`进行操作，提供了详细的类和方法实现。

 每段都是一个文件，代码如下：

  1. Imports System
  2. Imports System.DirectoryServices
  3. Imports System.Collections
  5. Namespace OPS.Component
  6.     ' IISWebServer的状态 
  7.     Public Enum IISServerState
  8.         Starting = 1
  9.         Started = 2
  10.         Stopping = 3
  11.         Stopped = 4
  12.         Pausing = 5
  13.         Paused = 6
  14.         Continuing = 7
  15.     End Enum
  16. End Namespace

 

  1. Imports System
  2. Imports System.Collections
  3. Imports System.Collections.Generic
  4. Imports System.Text
  6. Imports System.DirectoryServices
  8. Namespace OPS.Component
  9.     'IISWebServer 
  10.     Public Class IISWebServer
  11.         Friend index As Integer = -1
  12.         Public WebVirtualDirs As IISWebVirtualDirCollection
  13.         ''' <summary> 
  14.         ''' 网站说明 
  15.         ''' </summary> 
  16.         Public ServerComment As String = "Way"
  17.         ''' <summary> 
  18.         ''' 脚本支持 
  19.         ''' </summary> 
  20.         Public AccessScript As Boolean = True
  21.         ''' <summary> 
  22.         ''' 读取 
  23.         ''' </summary> 
  24.         Public AccessRead As Boolean = True
  25.         ''' <summary> 
  26.         ''' 物理路径 
  27.         ''' </summary> 
  28.         Public Path As String = "c:/"
  29.         ''' <summary> 
  30.         ''' 端口 
  31.         ''' </summary> 
  32.         Public Port As Integer = 80
  33.         ''' <summary> 
  34.         ''' 目录浏览 
  35.         ''' </summary> 
  36.         Public EnableDirBrowsing As Boolean = False
  37.         ''' <summary> 
  38.         ''' 默认文档 
  39.         ''' </summary> 
  40.         Public DefaultDoc As String = "index.aspx"
  41.         ''' <summary> 
  42.         ''' 使用默认文档 
  43.         ''' </summary> 
  44.         Public EnableDefaultDoc As Boolean = True
  45.         ''' <summary> 
  46.         ''' IISWebServer的状态 
  47.         ''' </summary> 
  48.         Public ReadOnly Property ServerState() As IISServerState
  49.             Get
  50.                 Dim server As DirectoryEntry = IISManagement.returnIISWebserver(Me.index)
  51.                 If server Is Nothing Then
  52.                     Throw (New Exception("找不到此IISWebServer"))
  53.                 End If
  54.                 Select Case server.Properties("ServerState")(0).ToString()
  55.                     Case "2"
  56.                         Return IISServerState.Started
  57.                     Case "4"
  58.                         Return IISServerState.Stopped
  59.                     Case "6"
  60.                         Return IISServerState.Paused
  61.                 End Select
  62.                 Return IISServerState.Stopped
  63.             End Get
  64.         End Property
  66.         ''' <summary> 
  67.         ''' 停止IISWebServer 
  68.         ''' </summary> 
  69.         Public Sub [Stop]()
  70.             Dim Server As DirectoryEntry
  71.             If index = -1 Then
  72.                 Throw (New Exception("在IIS找不到此IISWebServer!"))
  73.             End If
  74.             Try
  75.                 Server = New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC/" + index)
  76.                 If Server IsNot Nothing Then
  77.                     Server.Invoke("stop", New Object(-1) {})
  78.                 Else
  79.                     Throw (New Exception("在IIS找不到此IISWebServer!"))
  80.                 End If
  81.             Catch
  82.                 Throw (New Exception("在IIS找不到此IISWebServer!"))
  83.             End Try
  84.         End Sub
  86.         ''' <summary> 
  87.         ''' 把基本信息的更改更新到IIS 
  88.         ''' </summary> 
  89.         Public Sub CommitChanges()
  90.             IISManagement.EditIISWebServer(Me)
  91.         End Sub
  93.         ''' <summary> 
  94.         ''' 启动IISWebServer 
  95.         ''' </summary> 
  96.         Public Sub Start()
  97.             If index = -1 Then
  98.                 Throw (New Exception("在IIS找不到此IISWebServer!"))
  99.             End If
  101.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
  102.             Dim Server As DirectoryEntry
  103.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
  105.             While ie.MoveNext()
  106.                 Server = DirectCast(ie.Current, DirectoryEntry)
  107.                 If Server.SchemaClassName = "IIsWebServer" Then
  108.                     If Server.Properties("Serverbindings")(0).ToString() = ":" + Me.Port + ":" Then
  109.                         Server.Invoke("stop", New Object(-1) {})
  110.                     End If
  111.                 End If
  112.             End While
  114.             Try
  115.                 Server = New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC/" + index)
  116.                 If Server IsNot Nothing Then
  117.                     Server.Invoke("start", New Object(-1) {})
  118.                 Else
  119.                     Throw (New Exception("在IIS找不到此IISWebServer!"))
  120.                 End If
  121.             Catch
  122.                 Throw (New Exception("在IIS找不到此IISWebServer!"))
  123.             End Try
  124.         End Sub
  126.         Public Sub New()
  127.             WebVirtualDirs = New IISWebVirtualDirCollection(Me)
  128.         End Sub
  129.     End Class
  130. End Namespace

 

 

  1. Imports System
  2. Imports System.Collections
  3. Imports System.Collections.Generic
  4. Imports System.Text
  6. Namespace OPS.Component
  7.     ''' <summary> 
  8.     ''' IISWebServerCollection 
  9.     ''' </summary> 
  10.     Public Class IISWebServerCollection
  11.         Inherits CollectionBase
  12.         Default Public ReadOnly Property Item(ByVal Index As Integer) As IISWebServer
  13.             Get
  14.                 Return DirectCast(Me.List(Index), IISWebServer)
  16.             End Get
  17.         End Property
  19.         Default Public ReadOnly Property Item(ByVal ServerComment As String) As IISWebServer
  20.             Get
  21.                 ServerComment = ServerComment.ToLower().Trim()
  22.                 Dim list As IISWebServer
  23.                 For i As Integer = 0 To Me.List.Count - 1
  24.                     list = DirectCast(Me.List(i), IISWebServer)
  25.                     If list.ServerComment.ToLower().Trim() = ServerComment Then
  26.                         Return list
  27.                     End If
  28.                 Next
  29.                 Return Nothing
  30.             End Get
  31.         End Property
  33.         Friend Sub Add_(ByVal WebServer As IISWebServer)
  34.             Me.List.Add(WebServer)
  35.         End Sub
  36.         Public Sub Add(ByVal WebServer As IISWebServer)
  37.             Try
  38.                 Me.List.Add(WebServer)
  39.                 IISManagement.CreateIISWebServer(WebServer)
  40.             Catch
  41.                 Throw (New Exception("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
  42.             End Try
  44.         End Sub
  46.         ''' <summary> 
  47.         ''' 是否包含指定的网站 
  48.         ''' </summary> 
  49.         ''' <param name="ServerComment"></param> 
  50.         ''' <returns></returns> 
  51.         Public Function Contains(ByVal ServerComment As String) As Boolean
  52.             ServerComment = ServerComment.ToLower().Trim()
  53.             For i As Integer = 0 To Me.List.Count - 1
  54.                 Dim server As IISWebServer = Me(i)
  55.                 If server.ServerComment.ToLower().Trim() = ServerComment Then
  56.                     Return True
  57.                 End If
  58.             Next
  59.             Return False
  60.         End Function
  62.         ''' <summary> 
  63.         ''' 是否包含指定的网站 
  64.         ''' </summary> 
  65.         ''' <param name="index"></param> 
  66.         ''' <returns></returns> 
  67.         Public Function Contains(ByVal index As Integer) As Boolean
  68.             For i As Integer = 0 To Me.List.Count - 1
  69.                 Dim server As IISWebServer = Me(i)
  70.                 If server.index = index Then
  71.                     Return True
  72.                 End If
  73.             Next
  74.             Return False
  75.         End Function
  77.         Public Sub AddRange(ByVal WebServers As IISWebServer())
  78.             For i As Integer = 0 To WebServers.GetUpperBound(0)
  79.                 Add(WebServers(i))
  80.             Next
  81.         End Sub
  83.         Public Sub Remove(ByVal WebServer As IISWebServer)
  84.             For i As Integer = 0 To Me.List.Count - 1
  85.                 If DirectCast(Me.List(i), IISWebServer) = WebServer Then
  86.                     Me.List.RemoveAt(i)
  87.                     Return
  88.                 End If
  89.             Next
  90.             IISManagement.RemoveIISWebServer(WebServer.index)
  91.         End Sub
  92.     End Class
  93. End Namespace

 

 

  1. Imports System
  2. Imports System.Collections.Generic
  3. Imports System.Text
  5. Namespace OPS.Component
  6.     ''' <summary> 
  7.     ''' IISWebVirtualDir 
  8.     ''' </summary> 
  9.     Public Class IISWebVirtualDir
  10.         Public Parent As IISWebServer = Nothing
  11.         ''' <summary> 
  12.         ''' 虚拟目录名称 
  13.         ''' </summary> 
  14.         Public Name As String = "Way"
  15.         ''' <summary> 
  16.         ''' 读取 
  17.         ''' </summary> 
  18.         Public AccessRead As Boolean = True
  19.         ''' <summary> 
  20.         ''' 脚本支持 
  21.         ''' </summary> 
  22.         Public AccessScript As Boolean = True
  23.         ''' <summary> 
  24.         ''' 物理路径 
  25.         ''' </summary> 
  26.         Public Path As String = "c:/"
  27.         ''' <summary> 
  28.         ''' 默认文档 
  29.         ''' </summary> 
  30.         Public DefaultDoc As String = "index.aspx"
  31.         ''' <summary> 
  32.         ''' 使用默认文档 
  33.         ''' </summary> 
  34.         Public EnableDefaultDoc As Boolean = True
  35.         ''' <summary> 
  36.         ''' 所属的网站的网站说明 
  37.         ''' </summary> 
  38.         Public WebServer As String = ""
  39.         Public Sub New(ByVal WebServerName As String)
  40.             If WebServerName.ToString() = "" Then
  41.                 Throw (New Exception("WebServerName不能为空!"))
  42.             End If
  43.             Me.WebServer = WebServerName
  44.         End Sub
  46.         Public Sub New()
  48.         End Sub
  49.     End Class
  50. End Namespace

 

 

  1. Imports System
  2. Imports System.Collections
  3. Imports System.Collections.Generic
  4. Imports System.Text
  6. Namespace OPS.Component
  7.     ''' <summary> 
  8.     ''' IISWebVirtualDirCollection 
  9.     ''' </summary> 
  10.     Public Class IISWebVirtualDirCollection
  11.         Inherits CollectionBase
  13.         Public Parent As IISWebServer = Nothing
  14.         Default Public ReadOnly Property Item(ByVal Index As Integer) As IISWebVirtualDir
  15.             Get
  16.                 Return DirectCast(Me.List(Index), IISWebVirtualDir)
  18.             End Get
  19.         End Property
  21.         Default Public ReadOnly Property Item(ByVal Name As String) As IISWebVirtualDir
  22.             Get
  23.                 Name = Name.ToLower()
  24.                 Dim list As IISWebVirtualDir
  25.                 For i As Integer = 0 To Me.List.Count - 1
  26.                     list = DirectCast(Me.List(i), IISWebVirtualDir)
  27.                     If list.Name.ToLower() = Name Then
  28.                         Return list
  29.                     End If
  30.                 Next
  31.                 Return Nothing
  32.             End Get
  33.         End Property
  35.         Friend Sub Add_(ByVal WebVirtualDir As IISWebVirtualDir)
  36.             Try
  37.                 Me.List.Add(WebVirtualDir)
  38.             Catch
  39.                 Throw (New Exception("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
  40.             End Try
  42.         End Sub
  44.         Public Sub Add(ByVal WebVirtualDir As IISWebVirtualDir)
  45.             WebVirtualDir.Parent = Me.Parent
  46.             Try
  47.                 Me.List.Add(WebVirtualDir)
  49.             Catch
  50.                 Throw (New Exception("发生意外错误，可能是某节点将该节点的上级节点作为它自己的子级插入"))
  51.             End Try
  52.             IISManagement.CreateIISWebVirtualDir(WebVirtualDir, True)
  54.         End Sub
  56.         Public Sub AddRange(ByVal WebVirtualDirs As IISWebVirtualDir())
  57.             For i As Integer = 0 To WebVirtualDirs.GetUpperBound(0)
  58.                 Add(WebVirtualDirs(i))
  59.             Next
  60.         End Sub
  62.         Public Sub Remove(ByVal WebVirtualDir As IISWebVirtualDir)
  63.             For i As Integer = 0 To Me.List.Count - 1
  64.                 If DirectCast(Me.List(i), IISWebVirtualDir) = WebVirtualDir Then
  65.                     Me.List.RemoveAt(i)
  66.                     IISManagement.RemoveIISWebVirtualDir(WebVirtualDir)
  67.                     Return
  68.                 End If
  69.             Next
  70.         End Sub
  72.         Public Sub New(ByVal Parent As IISWebServer)
  73.             Me.Parent = Parent
  74.         End Sub
  75.     End Class
  76. End Namespace

 

 

  1. Imports System
  2. Imports System.Collections
  3. Imports System.Collections.Generic
  4. Imports System.Text
  5. Imports System.DirectoryServices
  7. Namespace OPS.Component
  8.     ''' <summary> 
  9.     ''' IISManagement 的摘要说明。
  10.     ''' </summary> 
  11.     Public Class IISManagement
  12.         Public WebServers As New IISWebServerCollection()
  13.         Friend Shared Machinename As String = "localhost"
  15.         Public Sub New()
  16.             start()
  17.         End Sub
  19.         ''' <param name="MachineName">机器名,默认值为localhost</param> 
  20.         Public Sub New(ByVal MachineName__1 As String)
  21.             If MachineName__1.ToString() <> "" Then
  22.                 Machinename = MachineName__1
  23.             End If
  24.             start()
  25.         End Sub
  27.         Private Sub start()
  28.             Dim Service As New DirectoryEntry("IIS://" + Machinename + "/W3SVC")
  29.             Dim Server As DirectoryEntry
  30.             Dim Root As DirectoryEntry = Nothing
  31.             Dim VirDir As DirectoryEntry
  32.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
  33.             Dim ieRoot As IEnumerator
  34.             Dim item As IISWebServer
  35.             Dim item_virdir As IISWebVirtualDir
  36.             Dim finded As Boolean = False
  37.             While ie.MoveNext()
  38.                 Server = DirectCast(ie.Current, DirectoryEntry)
  39.                 If Server.SchemaClassName = "IIsWebServer" Then
  40.                     item = New IISWebServer()
  41.                     item.index = Convert.ToInt32(Server.Name)
  43.                     item.ServerComment = DirectCast(Server.Properties("ServerComment")(0), String)
  44.                     item.AccessRead = CBool(Server.Properties("AccessRead")(0))
  45.                     item.AccessScript = CBool(Server.Properties("AccessScript")(0))
  46.                     item.DefaultDoc = DirectCast(Server.Properties("DefaultDoc")(0), String)
  47.                     item.EnableDefaultDoc = CBool(Server.Properties("EnableDefaultDoc")(0))
  48.                     item.EnableDirBrowsing = CBool(Server.Properties("EnableDirBrowsing")(0))
  49.                     ieRoot = Server.Children.GetEnumerator()
  51.                     While ieRoot.MoveNext()
  52.                         Root = DirectCast(ieRoot.Current, DirectoryEntry)
  53.                         If Root.SchemaClassName = "IIsWebVirtualDir" Then
  54.                             finded = True
  55.                             Exit While
  56.                         End If
  57.                     End While
  58.                     If finded Then
  59.                         item.Path = Root.Properties("path")(0).ToString()
  60.                     End If
  62.                     item.Port = Convert.ToInt32(DirectCast(Server.Properties("Serverbindings")(0), String).Substring(1, (DirectCast(Server.Properties("Serverbindings")(0), String)).Length - 2))
  63.                     Me.WebServers.Add_(item)
  64.                     ieRoot = Root.Children.GetEnumerator()
  65.                     While ieRoot.MoveNext()
  66.                         VirDir = DirectCast(ieRoot.Current, DirectoryEntry)
  67.                         If VirDir.SchemaClassName <> "IIsWebVirtualDir" AndAlso VirDir.SchemaClassName <> "IIsWebDirectory" Then
  68.                             Continue While
  69.                         End If
  70.                         item_virdir = New IISWebVirtualDir(item.ServerComment)
  71.                         item_virdir.Name = VirDir.Name
  72.                         item_virdir.AccessRead = CBool(VirDir.Properties("AccessRead")(0))
  73.                         item_virdir.AccessScript = CBool(VirDir.Properties("AccessScript")(0))
  74.                         item_virdir.DefaultDoc = DirectCast(VirDir.Properties("DefaultDoc")(0), String)
  75.                         item_virdir.EnableDefaultDoc = CBool(VirDir.Properties("EnableDefaultDoc")(0))
  76.                         If VirDir.SchemaClassName = "IIsWebVirtualDir" Then
  77.                             item_virdir.Path = DirectCast(VirDir.Properties("Path")(0), String)
  78.                         ElseIf VirDir.SchemaClassName = "IIsWebDirectory" Then
  79.                             item_virdir.Path = Root.Properties("Path")(0) + "/" + VirDir.Name
  80.                         End If
  81.                         item.WebVirtualDirs.Add_(item_virdir)
  82.                     End While
  83.                 End If
  84.             End While
  85.         End Sub
  86.         ''' <summary> 
  87.         ''' 创建站点
  88.         ''' </summary> 
  89.         ''' <param name="iisServer"></param> 
  90.         Public Shared Sub CreateIISWebServer(ByVal iisServer As IISWebServer)
  91.             If iisServer.ServerComment.ToString() = "" Then
  92.                 Throw (New Exception("IISWebServer的ServerComment不能为空!"))
  93.             End If
  94.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
  95.             Dim Server As DirectoryEntry
  96.             Dim i As Integer = 0
  97.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
  99.             While ie.MoveNext()
  100.                 Server = DirectCast(ie.Current, DirectoryEntry)
  101.                 If Server.SchemaClassName = "IIsWebServer" Then
  102.                     If Convert.ToInt32(Server.Name) > i Then
  103.                         i = Convert.ToInt32(Server.Name)
  104.                     End If
  105.                 End If
  106.             End While
  108.             i += 1
  110.             Try
  111.                 iisServer.index = i
  112.                 Server = Service.Children.Add(i.ToString(), "IIsWebServer")
  113.                 Server.Properties("ServerComment")(0) = iisServer.ServerComment
  114.                 Server.Properties("Serverbindings").Add(":" + iisServer.Port + ":")
  115.                 Server.Properties("AccessScript")(0) = iisServer.AccessScript
  116.                 Server.Properties("AccessRead")(0) = iisServer.AccessRead
  117.                 Server.Properties("EnableDirBrowsing")(0) = iisServer.EnableDirBrowsing
  118.                 Server.Properties("DefaultDoc")(0) = iisServer.DefaultDoc
  119.                 Server.Properties("EnableDefaultDoc")(0) = iisServer.EnableDefaultDoc
  121.                 Dim root As DirectoryEntry = Server.Children.Add("Root", "IIsWebVirtualDir")
  122.                 root.Properties("path")(0) = iisServer.Path
  125.                 Service.CommitChanges()
  126.                 Server.CommitChanges()
  127.                 root.CommitChanges()
  128.                 root.Invoke("AppCreate2", New Object(0) {2})
  129.                 'Server.Invoke("start",new object[0]); 
  130.             Catch es As Exception
  131.                 Throw (es)
  132.             End Try
  133.         End Sub
  134.         ''' <summary> 
  135.         ''' 删除IISWebServer 
  136.         ''' </summary> 
  137.         Public Shared Sub RemoveIISWebServer(ByVal ServerComment As String)
  138.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
  139.             Dim Server As DirectoryEntry
  140.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
  142.             ServerComment = ServerComment.ToLower()
  143.             While ie.MoveNext()
  144.                 Server = DirectCast(ie.Current, DirectoryEntry)
  145.                 If Server.SchemaClassName = "IIsWebServer" Then
  146.                     If Server.Properties("ServerComment")(0).ToString().ToLower() = ServerComment Then
  147.                         Service.Children.Remove(Server)
  148.                         Service.CommitChanges()
  149.                         Return
  150.                     End If
  151.                 End If
  152.             End While
  153.         End Sub
  154.         ''' <summary> 
  155.         ''' 删除IISWebServer 
  156.         ''' </summary> 
  157.         Public Shared Sub RemoveIISWebServer(ByVal index As Integer)
  158.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
  159.             Try
  160.                 Dim Server As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC/" + index)
  161.                 If Server IsNot Nothing Then
  162.                     Service.Children.Remove(Server)
  163.                     Service.CommitChanges()
  164.                 Else
  165.                     Throw (New Exception("找不到此IISWebServer"))
  166.                 End If
  167.             Catch
  168.                 Throw (New Exception("找不到此IISWebServer"))
  169.             End Try
  170.         End Sub
  171.         ''' <summary> 
  172.         ''' 检查是否存在IISWebServer 
  173.         ''' </summary> 
  174.         ''' <param name="ServerComment">网站说明</param> 
  175.         ''' <returns></returns> 
  176.         Public Shared Function ExistsIISWebServer(ByVal ServerComment As String) As Boolean
  177.             ServerComment = ServerComment.Trim()
  178.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
  179.             Dim Server As DirectoryEntry = Nothing
  180.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
  182.             Dim comment As String
  183.             While ie.MoveNext()
  184.                 Server = DirectCast(ie.Current, DirectoryEntry)
  185.                 If Server.SchemaClassName = "IIsWebServer" Then
  186.                     comment = Server.Properties("ServerComment")(0).ToString().ToLower().Trim()
  187.                     If comment = ServerComment.ToLower() Then
  188.                         Return True
  189.                     End If
  190.                 End If
  191.             End While
  193.             Return False
  194.         End Function
  195.         ''' <summary> 
  196.         ''' 返回指定的IISWebServer 
  197.         ''' </summary> 
  198.         ''' <param name="ServerComment"></param> 
  199.         ''' <returns></returns> 
  200.         Friend Shared Function returnIISWebserver(ByVal ServerComment As String) As DirectoryEntry
  201.             ServerComment = ServerComment.Trim()
  202.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
  203.             Dim Server As DirectoryEntry = Nothing
  204.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
  206.             Dim comment As String
  207.             While ie.MoveNext()
  208.                 Server = DirectCast(ie.Current, DirectoryEntry)
  209.                 If Server.SchemaClassName = "IIsWebServer" Then
  210.                     comment = Server.Properties("ServerComment")(0).ToString().ToLower().Trim()
  211.                     If comment = ServerComment.ToLower() Then
  212.                         Return Server
  213.                     End If
  214.                 End If
  215.             End While
  217.             Return Nothing
  218.         End Function
  219.         ''' <summary> 
  220.         ''' 返回指定的IISWebServer 
  221.         ''' </summary> 
  222.         ''' <param name="index"></param> 
  223.         ''' <returns></returns> 
  224.         Friend Shared Function returnIISWebserver(ByVal index As Integer) As DirectoryEntry
  225.             Dim Server As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC/" + index)
  226.             Try
  227.                 Dim ie As IEnumerator = Server.Children.GetEnumerator()
  228.                 Return Server
  229.             Catch
  230.                 Return Nothing
  231.             End Try
  232.         End Function
  234.         Private Shared Function getRoot(ByVal Server As DirectoryEntry) As DirectoryEntry
  235.             For Each child As DirectoryEntry In Server.Children
  236.                 Dim name As String = child.Name.ToLower()
  237.                 If name = "iiswebvirtualdir" OrElse name = "root" Then
  238.                     Return child
  239.                 End If
  240.             Next
  241.             Return Nothing
  242.         End Function
  243.         ''' <summary> 
  244.         ''' 修改与给定的IISWebServer具有相同网站说明的站点配置
  245.         ''' </summary> 
  246.         ''' <param name="iisServer">给定的IISWebServer</param> 
  247.         Public Shared Sub EditIISWebServer(ByVal iisServer As IISWebServer)
  248.             If iisServer.index = -1 Then
  249.                 Throw (New Exception("找不到给定的站点!"))
  250.             End If
  251.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
  252.             Dim Server As DirectoryEntry
  254.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
  256.             While ie.MoveNext()
  257.                 Server = DirectCast(ie.Current, DirectoryEntry)
  258.                 If Server.SchemaClassName = "IIsWebServer" Then
  259.                     If Server.Properties("Serverbindings")(0).ToString() = ":" + iisServer.Port + ":" Then
  260.                         Server.Invoke("stop", New Object(-1) {})
  261.                     End If
  262.                 End If
  263.             End While
  265.             Server = returnIISWebserver(iisServer.index)
  266.             If Server Is Nothing Then
  267.                 Throw (New Exception("找不到给定的站点!"))
  268.             End If
  270.             Try
  272.                 Server.Properties("ServerComment")(0) = iisServer.ServerComment
  273.                 Server.Properties("Serverbindings")(0) = ":" + iisServer.Port + ":"
  274.                 Server.Properties("AccessScript")(0) = iisServer.AccessScript
  275.                 Server.Properties("AccessRead")(0) = iisServer.AccessRead
  276.                 Server.Properties("EnableDirBrowsing")(0) = iisServer.EnableDirBrowsing
  277.                 Server.Properties("DefaultDoc")(0) = iisServer.DefaultDoc
  278.                 Server.Properties("EnableDefaultDoc")(0) = iisServer.EnableDefaultDoc
  280.                 Dim root As DirectoryEntry = getRoot(Server)
  282.                 Server.CommitChanges()
  283.                 If root IsNot Nothing Then
  284.                     root.Properties("path")(0) = iisServer.Path
  285.                     root.CommitChanges()
  286.                 End If
  288.                 Server.Invoke("start", New Object(-1) {})
  289.             Catch es As Exception
  290.                 Throw (es)
  291.             End Try
  292.         End Sub
  293.         ''' <summary> 
  294.         ''' 返回所有站点的网站说明
  295.         ''' </summary> 
  296.         ''' <returns></returns> 
  297.         Public Shared Function returnIISServerComment() As ArrayList
  298.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
  299.             Dim Server As DirectoryEntry
  301.             Dim list As New ArrayList()
  302.             Dim ie As IEnumerator = Service.Children.GetEnumerator()
  304.             While ie.MoveNext()
  305.                 Server = DirectCast(ie.Current, DirectoryEntry)
  306.                 If Server.SchemaClassName = "IIsWebServer" Then
  307.                     list.Add(Server.Properties("ServerComment")(0))
  308.                 End If
  309.             End While
  311.             Return list
  312.         End Function
  314.         ''' <summary> 
  315.         ''' 创建虚拟目录
  316.         ''' </summary> 
  317.         ''' <param name="iisVir"></param> 
  318.         ''' <param name="deleteIfExist"></param> 
  319.         Public Shared Sub CreateIISWebVirtualDir(ByVal iisVir As IISWebVirtualDir, ByVal deleteIfExist As Boolean)
  320.             If iisVir.Parent Is Nothing Then
  321.                 Throw (New Exception("IISWebVirtualDir没有所属的IISWebServer!"))
  322.             End If
  324.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
  325.             Dim Server As DirectoryEntry = returnIISWebserver(iisVir.Parent.index)
  327.             If Server Is Nothing Then
  328.                 Throw (New Exception("找不到给定的站点!"))
  329.             End If
  331.             Server = getRoot(Server)
  332.             If deleteIfExist Then
  333.                 For Each VirDir As DirectoryEntry In Server.Children
  334.                     If VirDir.Name.ToLower().Trim() = iisVir.Name.ToLower() Then
  335.                         Server.Children.Remove(VirDir)
  336.                         Server.CommitChanges()
  337.                         Exit For
  338.                     End If
  339.                 Next
  340.             End If
  342.             Try
  343.                 Dim vir As DirectoryEntry
  344.                 vir = Server.Children.Add(iisVir.Name, "IIsWebVirtualDir")
  345.                 vir.Properties("Path")(0) = iisVir.Path
  346.                 vir.Properties("DefaultDoc")(0) = iisVir.DefaultDoc
  347.                 vir.Properties("EnableDefaultDoc")(0) = iisVir.EnableDefaultDoc
  348.                 vir.Properties("AccessScript")(0) = iisVir.AccessScript
  349.                 vir.Properties("AccessRead")(0) = iisVir.AccessRead
  350.                 vir.Invoke("AppCreate2", New Object(0) {2})
  352.                 Server.CommitChanges()
  353.                 vir.CommitChanges()
  355.             Catch es As Exception
  356.                 Throw (es)
  357.             End Try
  359.         End Sub
  360.         ''' <summary> 
  361.         ''' 删除虚拟目录
  362.         ''' </summary> 
  363.         ''' <param name="WebServerComment">站点说明</param> 
  364.         ''' <param name="VirtualDir">虚拟目录名称</param> 
  365.         Public Shared Sub RemoveIISWebVirtualDir(ByVal WebServerComment As String, ByVal VirtualDir As String)
  366.             VirtualDir = VirtualDir.ToLower()
  367.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
  368.             Dim Server As DirectoryEntry = returnIISWebserver(WebServerComment)
  370.             If Server Is Nothing Then
  371.                 Throw (New Exception("找不到给定的站点!"))
  372.             End If
  374.             Server = getRoot(Server)
  375.             For Each VirDir As DirectoryEntry In Server.Children
  376.                 If VirDir.Name.ToLower().Trim() = VirtualDir Then
  377.                     Server.Children.Remove(VirDir)
  378.                     Server.CommitChanges()
  379.                     Return
  380.                 End If
  381.             Next
  383.             Throw (New Exception("找不到给定的虚拟目录!"))
  384.         End Sub
  386.         ''' 删除虚拟目录
  387.         Public Shared Sub RemoveIISWebVirtualDir(ByVal iisVir As IISWebVirtualDir)
  388.             Dim Service As New DirectoryEntry("IIS://" + IISManagement.Machinename + "/W3SVC")
  389.             Dim Server As DirectoryEntry = returnIISWebserver(iisVir.Parent.index)
  391.             If Server Is Nothing Then
  392.                 Throw (New Exception("找不到给定的站点!"))
  393.             End If
  395.             Server = getRoot(Server)
  396.             For Each VirDir As DirectoryEntry In Server.Children
  397.                 If VirDir.Name.ToLower().Trim() = iisVir.Name.ToLower() Then
  398.                     Server.Children.Remove(VirDir)
  399.                     Server.CommitChanges()
  400.                     Return
  401.                 End If
  402.             Next
  404.             Throw (New Exception("找不到给定的虚拟目录!"))
  405.         End Sub
  406.     End Class
  408. End Namespace
PS：参考版为C#，来源已无法考证。
vb.net 远程控制计算机
10-26
vb.net 远程控制计算机 ，可以监控其电脑上打开的软件，强制关闭计算机上的程序，发送消息，强制关机，注销，重启。可以用来整人和机房管理(分别有客户端和服务端)。
读取IIS用户名和密码VBS代码
dibodang1423的博客
05-17 227
能读取到iis用户和密码，对跨站或者提权是有帮助的！像星外的虚拟主机。 有时候exe无法运行或者被杀毒软件K的话用VBS试试。挺简单的代码。 代码如下： Set ObjService=GetObject("IIS://LocalHost/W3SVC") For Each obj3w In objservice childObjectName=replace(obj3w.Ad...
利用VB6.0开发基于IIS的应用程序之一(转)
csdn864883的博客
07-08 740
本文介绍了利用VisualBasic开发IIS应用程序的方法和步骤。使用这种开发方法不但大大简化了IIS应用程序的开发过程，而且使我们的Web站点具有更强的功能和更大的灵活性。 　　一、概述 　　大家知道，IIS(Interne...
保姆级教程：用Dify+DeepSeek模型，5分钟搭建你的专属中医问答助手
最新发布
weixin_30399821的博客
03-28 470
本文提供了一份详细的零代码教程，指导用户如何利用Dify和DeepSeek模型快速搭建一个智能中医问答助手。通过模型编排和工作流设计，实现专业级的中医知识检索与诊断辅助，适用于诊所管理、移动端适配等多种场景，提升中医诊疗效率。
vb.net 实现http服务器
ngamgolden的博客
01-18 5627
http://blog.okbase.net/vbfans/archive/819.html 作者：Eugene Popov 下载源代码：http://www.okbase.net/file/item/23112 介绍 在学习.NET编程时，我试图创建一个简单的web服务器。我有许多HTTP服务器在互联网上，但都比较复杂而且不能调用PHP和EXE文件。所以我决定写一
基于IIS的VB.NET Webservice服务和VB6 Webservice客户端代码测试
weixin_45707491的博客
09-04 705
微软为VB6开发了专门的toolkit，直接点安装，封装好的组件就都注册到系统中了，写程序时直接引用。还带了个WSDL Generator，是将VB6的activex转换成webservice外供服务用的。Microsoft Soap Type Library v3.0 中可用的东西挺多的，用红框中的SoadClient30
用vb.net开发的简易服务器
chinaherolts2008的博客
12-11 711
在这里介绍程序主要实现的功能以及流程。 程序在启动后会开启1个线程，1个定时器，一个线程用来接受来自客户端的连接，定时器用来检测当前有多少个客户连接，当有一个客户连接是，会开启一个线程用来与客户传送消息。为了简单起见，服务器发送消息为广播发送。 全局变量： Dim listen_thread As Thread’监听线程 Dim listener As Socket '套接字 Public allDone As New ManualResetEvent(False) Dim Thread_listen As
VB.NET中如何利用ASP.NET进行Web开发
2402_85246552的博客
09-19 1787
在VB.NET中利用ASP.NET进行Web开发是一个常见的做法，特别是在需要构建动态、交互式Web应用程序时。ASP.NET是一个由微软开发的开源Web应用程序框架，它允许开发者使用多种编程语言（包括VB.NET）来创建Web应用程序。
VB.NET 到 C# 代码转换工具：从VB.NET 到 C# 的自动化之旅
weixin_30951515的博客
07-26 1348
在软件开发的历史长河中，语言的进化和平台的演进不断地推动着技术创新。随着.NET平台的成熟，VB.NET和C#作为其中的两种主要编程语言，各自承载着不同的设计哲学和应用场景。然而，在某些情况下，开发者可能需要在两种语言之间转换代码，例如，重构项目、迁移代码库、或是为了利用C#的某些特定语言特性。本章将概述VB.NET与C#代码转换的重要性、挑战以及可能面临的场景。我们将分析两者在语法结构、编译时特性、运行时行为等方面的差异，并简述为何开发者会寻求进行代码转换。
全面掌握ASP.NET与VB.NET：从入门到精通指南
weixin_32445049的博客
08-07 567
ASP.NET 是一个开源的服务器端 Web 应用程序框架，用于构建动态网站、服务和应用程序。它作为.NET Framework的一部分，允许开发者使用.NET语言（如C#和VB.NET）来编写Web应用程序。ASP.NET 提供了一套丰富的控件和类库，旨在简化开发过程，同时提供高性能和可扩展性。在VB.NET中，变量是存储数据的基本单位，而数据类型决定了变量可以存储的数据种类。VB.NET是一种强类型语言，这意味着在声明变量时必须指定其数据类型。
vb.net与C#混用解决方案
颠倒酱的数据研究
09-04 9090
所为混用不是为了能够在一个代码文件中同时书写C#和vb.net语句 而是可以在一个程序中发挥两种语言不同的优势 或者说 更容易发挥码农对不同语言的理解和长处 C/S 下的混合调用不会有任何阻碍 假如你的主项目是vb.net 但是你突然想使用一个C#语法才有的特性 或者写某些语句的时候使用C#更得心应手 简单的在解决方案下创建一个C#的dll项目 代码敲进去 然后被vb.net项目引用就好
VB.NET多线程Socket实现简单HTTP服务
埋vizee的墓
12-08 5240
Imports System.Net Imports System.Net.Sockets Imports System.Threading Module monkeyServer Private Const HttpVersion As String = "HTTP/1.1" Private Const WebTitle As String = "Monkey Server" Priv
在.NET程序中实现HttpServer功能
weixin_30795127的博客
03-20 490
亲爱的下午茶 博客园 首页 新随笔 联系 订阅 管理 随笔-6 文章-0 评论-10 在.NET程序中实现HttpServer功能 最近在实现一个可视化数据解析工具，需要在Wpf程序中实现一个HttpServer，实现RESTfull接口，可以接收客户端（DTU或其他嵌入式设备）发送的请求。这种接口...
Visual Basic .Net中实现HTTP协议
suilam的专栏
11-29 2753
HTTP是Hypertext Transfer Protocol的简称，即：超文本传输协议。在TCP/IP协议簇中的一百多个协议中，HTTP协议可以说是平常接触最多的一种协议了。因为日常浏览网页时所使用的浏览器浏览，其基本的协议类型就是HTTP协议。HTTP协议是一个客户端/服务器协议，这里所说的服务器端是指提供WWW服务的主机，即各类Web站点等。而客户端是指运行各类浏览器（如IE、Netsca
VB6之HTTP服务器的实现
weixin_30772105的博客
07-06 713
之前用VBS写过一个，效率和支持比较low，这次闲着没事用VB重写了一次。 当前的实现版本仅支持静态文件的访问（*.html之类），支持访问方式为GET，HTTP状态支持200和404。 两个文件，一个是定义了常用到的函数的模块tools.bas 1 'tools.bas 2 Private Declare Function GetTickCount Lib "kernel32...
windows 中开启IIS功能，并使用IIS来搭建web服务器，并提供测试源码，验证搭建是否成功
02-12 3231
windows 中开启IIS功能，并使用IIS来搭建web服务器，并提供测试源码，验证搭建是否成功
IIS的站点属性
weixin_30924087的博客
06-12 4365
附：IIS的站点属性（详细内容，请查阅IIS帮助） Read only properties of W3SVC/1/Root: // 只读属性 AppIsolated = 2 属性指出应用程序是在进程内、进程外还是在进程池中运行。值 0 表示应用程序在进程内运行，值 1 表示进程外，值 2 表示进程池。 AppPackageID =...
vb实现http协议
scgyyu的专栏
03-19 3938
vb实现http协议2007-07-01 20:45作者：何道德网名:hedaode网站:www.hedaode.cn/www.wo789.com2007/07/1保持属性值的局部变量Private mvarstrUrl As String 局部复制保持属性值的局部变量Private mvarstrFileFiled As String 局部复制Private
vb web客户端发送请求给winform服务端_服务端渲染（Server Side Render）
weixin_39900830的博客
11-21 287
什么是SSR 这就要从前端发展开始讲起了。 早期受制于浏览器以及技术、兼容性等问题，网页的显示效果非常单一，几乎都是静态页，前端工作非常简单，其实就是编写页面模板，然后让后端负责渲染。在互联网早期，前端通常由后端或者是美工来兼任。当时的网站开发采用后端MVC模式，当用户访问网站时，会向后台发送一个请求，后台接收到请求，生成静态HTML文件，发送到浏览器(这也算一种服务端渲染？)。web1...
评论 6
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值