タイトル | : IntenetExplorer |
記事No | : 8842 |
投稿日 | : 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
|