将参数传递给 Main()

Question

我是新手，在理解如何将参数正确传递给下面代码中的 Main() sub 时遇到一些困难。我以前传递过参数，但从未使用过数组，而且我无法找到有用的搜索结果。有人介意给我指明正确的方向吗？

link 更容易阅读。 https://github.com/freshdesk/fresh-samples/blob/master/vb.net_samples/CreateTicketWithAttachment.vb

Imports System.IO
Imports System.Net
Imports System.Text
Namespace FreshdeskTest
Class CreateTicketWithAttachment

Private Const _APIKey As String = "Api_key"
Private Const _Url As String = "http://domain.freshdesk.com/helpdesk/tickets.json"

' verify if you have to use http or https for your account
Private Shared Sub writeCRLF(o As Stream)
  Dim crLf As Byte() = Encoding.ASCII.GetBytes(vbCr & vbLf)
  o.Write(crLf, 0, crLf.Length)
End Sub

Private Shared Sub writeBoundaryBytes(o As Stream, b As String)
   Dim d As Byte() = Encoding.ASCII.GetBytes("--" & b & vbCr & vbLf)
   o.Write(d, 0, d.Length)
End Sub

Private Shared Sub writeContentDispositionFormDataHeader(o As Stream, name As String)
   Dim data As String = "Content-Disposition: form-data; name=""" & name & """" & vbCr & vbLf & vbCr & vbLf
   Dim b As Byte() = Encoding.ASCII.GetBytes(data)
   o.Write(b, 0, b.Length)
End Sub

Private Shared Sub writeContentDispositionFileHeader(o As Stream, name As String, fileName As String, contentType As String)
   Dim data As String = "Content-Disposition: form-data; name=""" & name & """; filename=""" & fileName & """" & vbCr & vbLf
   data += "Content-Type: " & contentType & vbCr & vbLf & vbCr & vbLf
   Dim b As Byte() = Encoding.ASCII.GetBytes(data)
   o.Write(b, 0, b.Length)
End Sub

Private Shared Sub writeString(o As Stream, data As String)
   Dim b As Byte() = Encoding.ASCII.GetBytes(data)
   o.Write(b, 0, b.Length)
End Sub

Public Shared Sub Main(args As String())
   Console.WriteLine("Application starting...")
   ' Define boundary:
   Dim boundary As String = "----------------------------" & DateTime.Now.Ticks.ToString("x")
   ' Web Request:
   Dim wr As HttpWebRequest = DirectCast(WebRequest.Create(_Url), HttpWebRequest)
   wr.Headers.Clear()
   ' Method and headers:
   wr.ContentType = "multipart/form-data; boundary=" & boundary
   wr.Method = "POST"
   wr.KeepAlive = True
' Basic auth:
   Dim login As String = _APIKey & ":X"
   Dim credentials As String = Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(login))
   wr.Headers(HttpRequestHeader.Authorization) = "Basic " & credentials

' Body:
   Using rs As Stream = wr.GetRequestStream()

' Email:
   writeBoundaryBytes(rs, boundary)
   writeContentDispositionFormDataHeader(rs, "helpdesk_ticket[email]")
   writeString(rs, "example@example.com")
   writeCRLF(rs)

' Subject:
   writeBoundaryBytes(rs, boundary)
   writeContentDispositionFormDataHeader(rs, "helpdesk_ticket[subject]")
   writeString(rs, "Ticket Title")
   writeCRLF(rs)

' Description:
   writeBoundaryBytes(rs, boundary)
   writeContentDispositionFormDataHeader(rs, "helpdesk_ticket[description]")
   writeString(rs, "Ticket description.")
   writeCRLF(rs)

' Attachment:
   writeBoundaryBytes(rs, boundary)
   writeContentDispositionFileHeader(rs, "helpdesk_ticket[attachments][][resource]", "x.txt", "text/plain")
   Dim fs As New FileStream("x.txt", FileMode.Open, FileAccess.Read)
   Dim data As Byte() = New Byte(fs.Length - 1) {}
   fs.Read(data, 0, data.Length)
   fs.Close()
   rs.Write(data, 0, data.Length)
   writeCRLF(rs)

' End marker:
  writeBoundaryBytes(rs, boundary)
   rs.Close()
End Using

' Response processing:
Try
   Console.WriteLine("Submitting Request")
   Dim response = DirectCast(wr.GetResponse(), HttpWebResponse)
   Dim resStream As Stream = response.GetResponseStream()
   Dim resJson As String = New StreamReader(resStream, Encoding.ASCII).ReadToEnd()
   Console.WriteLine(resJson)
Catch ex As Exception
   Console.WriteLine("ERROR")
   Console.WriteLine(ex.Message)
Finally
   Console.WriteLine(Environment.NewLine)
   Console.WriteLine(Environment.NewLine)
End Try
End Sub
End Class
End Namespace

Answer 1

由于此代码位于 class 而不是模块中，因此 Main 不会被视为您的应用程序的启动点。虽然，代码很容易让人联想到启动点。也许您是从某处复制的？

要回答关于如何传递数组的问题，您首先需要创建一个数组来传递给它。

Dim x(2) as string 'This creates 3 items in the array, 0 based
x(0) = "Test1"
x(1) = "Test2"
x(2) = "Test3"

然后，由于这是在 class 中，您必须有一个 class:

的实例

dim MyClass as new CreateTicketWithAttachment

然后调用子

MyClass.Main(x)

将参数传递给 Main()

Passing Arguments to Main()

vb.net