1,IAM--------------------------------------- AWSサービス:Amazon EC2 アクション :StartInstances Amazonリソースネーム(ARN):* --------------------------------------- 2,プログラム仕様●入力パラメータ ・IAMユーザの”アクセスキーID”と”・シークレットアクセスキー” ・インスタンスID ●処理内容 指定したインスタンスIDのサーバを起動する ●エラー処理 停止中以外のステータスの場合メッセージ表示 3,画面構成4,プログラム 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 | 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 _InstanceID As String = TextBox3.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 reQ = New Amazon.EC2.Model.StartInstancesRequest
reQ.InstanceIds.Add(_InstanceID)
Dim Res As Amazon.EC2.Model.StartInstancesResponse
Res = ec2client.StartInstances(reQ)
If Res.StartingInstances(0).CurrentState.Code <> 0 Then
MsgBox("サーバは停止中ではありません。")
End If
End Sub |
5,解説 |
|