tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルIntenetExplorer
記事No8842
投稿日: 2009/03/26(Thu) 05:48
投稿者れお♪
例えばこんなコードのアプリがネット上にあるとします。
で質問です。
{1}
セキュリティ的にインストールできてしまう可能性はありますか?
{2}
インストールできてしまった場合、起動してしまう可能性はありますか?
_____
どうなんだろう?
入門1年なんで、まだまだ下っ端です。
_____
Option Strict On
Public Class Form1
    Private flag As Boolean = False
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Text = "Windows Internet Explorer"

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If flag = True Then
            ComboBox1.Enabled = True
        End If
    End Sub

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Dim size_desu As System.Drawing.Size
        size_desu.Width = Me.ClientSize.Width
        size_desu.Height = Me.ClientSize.Height - WebBrowser1.Location.Y
        WebBrowser1.Size = size_desu
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex = 1 Then
            ComboBox1.Text = "Hhttp://www.ここは秘密.co.jp"
        End If
        Try
            flag = True
            WebBrowser1.Navigate(New Uri(ComboBox1.Text))
        Catch
            flag = False
            ComboBox1.Enabled = True
            MessageBox.Show("表示不可", "Error")
        End Try
    End Sub
End Class

[ツリー表示へ]