1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim _AWSID As String = TextBox1.Text
        Dim _AWSPass As String = TextBox2.Text
        Dim _SecGroupID As String = TextBox3.Text
        Dim _Protcol As String = TextBox4.Text
        Dim _PortFrom As String = TextBox5.Text
        Dim _PortTo As String = TextBox6.Text
        Dim _SourceIP As String = TextBox7.Text

        Dim cred As Amazon.Runtime.BasicAWSCredentials
        cred = New Amazon.Runtime.BasicAWSCredentials(_AWSID, _AWSPass)
        Dim ec2client As Amazon.EC2.AmazonEC2Client
        ec2client = New Amazon.EC2.AmazonEC2Client(cred, Amazon.RegionEndpoint.APNortheast1)

        Dim IpP As New Amazon.EC2.Model.IpPermission
        IpP.IpProtocol = _Protcol
        IpP.FromPort = _PortFrom
        IpP.ToPort = _PortTo
        IpP.IpRanges.Add(_SourceIP)

        Dim reQ = New Amazon.EC2.Model.AuthorizeSecurityGroupIngressRequest
        reQ.GroupId = _SecGroupID
        reQ.IpPermissions.Add(IpP)

        Dim Res As Amazon.EC2.Model.AuthorizeSecurityGroupIngressResponse
        Res = ec2client.AuthorizeSecurityGroupIngress(reQ)

    End Sub