sixdegrees.vb
来自「asp.net技术内幕的书配源码」· VB 代码 · 共 55 行
VB
55 行
'------------------------------------------------------------------------------
' <autogenerated>
' This code was generated by a tool.
' Runtime Version: 1.0.2914.16
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
'
'This source code was auto-generated by wsdl, Version=1.0.2914.16.
'
Public Class SixDegrees
Inherits System.Web.Services.Protocols.HttpGetClientProtocol
<System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New
Me.Url = "http://localhost"
End Sub
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.Web.Services.Protocols.HttpMethodAttribute(GetType(System.Web.Services.Protocols.TextReturnReader), GetType(System.Web.Services.Protocols.UrlParameterWriter))> _
Public Function GetLinks() As GetLinksMatches
Return CType(Me.Invoke("GetLinks", (Me.Url + "/"), New Object(-1) {}),GetLinksMatches)
End Function
<System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Function BeginGetLinks(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("GetLinks", (Me.Url + "/"), New Object(-1) {}, callback, asyncState)
End Function
<System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Function EndGetLinks(ByVal asyncResult As System.IAsyncResult) As GetLinksMatches
Return CType(Me.EndInvoke(asyncResult),GetLinksMatches)
End Function
End Class
Public Class GetLinksMatches
<System.Web.Services.Protocols.MatchAttribute("""(http://.*?)[""|/]", MaxRepeats:=10)> _
Public Links() As String
End Class
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?