Imports System.Web Imports System.Web.Services Imports System.Web.Services.Protocols <WebService(Namespace:="http://tempuri.org/")> _ <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <System.Web.Script.Services.ScriptService()> _ Public Class MyService Inherits System.Web.Services.WebService <WebMethod()> _ Public Function HelloWorld() As String Return "Hello World" End Function <WebMethod()> _ Public Function GetRandomList(ByVal prefixText As String, _ ByVal count As Int16) As String() Dim S(count - 1) As String Randomize(Now.Ticks) Dim I As Integer For I = 0 To count - 1 S(I) = prefixText & CDec(Rnd() * 100000.0#) Next Return S End Function End Class