Skills | 27 Ağustos 2009 20:32 | Cevap: Türk Yapımı Web Brovser ;) [Powered By Skills] Cemalizim, benden kaynaklanıyor olabilir doğrudur, haklısın.
Visual basic'ten anliyorsun sanırım sen.
Sorun exe 'de olabilir.
Kodları sana vereyim, Birde sen exe yapıver bakalım sonuç ne olacak?
Bu Bölümde bayağı bir paylaşımında var, Anliyorsundur bu işten. PHP- Kodu: Imports System.IO Imports System.Net Imports System.Text Imports System.Windows.Forms Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow Me.buttonBack = New System.Windows.Forms.Button Me.buttonForward = New System.Windows.Forms.Button Me.buttonStop = New System.Windows.Forms.Button Me.buttonHome = New System.Windows.Forms.Button Me.buttonRefresh = New System.Windows.Forms.Button Me.TextBox1 = New System.Windows.Forms.TextBox Me.buttonSubmit = New System.Windows.Forms.Button Me.WebBrowser1 = New System.Windows.Forms.WebBrowser Me.SuspendLayout() ' 'buttonBack ' Me.buttonBack.Location = New System.Drawing.Point(12, 12) Me.buttonBack.Name = "buttonBack" Me.buttonBack.Size = New System.Drawing.Size(75, 23) Me.buttonBack.TabIndex = 0 Me.buttonBack.Text = "Geri" Me.buttonBack.UseVisualStyleBackColor = True ' 'buttonForward ' Me.buttonForward.Location = New System.Drawing.Point(93, 12) Me.buttonForward.Name = "buttonForward" Me.buttonForward.Size = New System.Drawing.Size(75, 23) Me.buttonForward.TabIndex = 1 Me.buttonForward.Text = "˜leri" Me.buttonForward.UseVisualStyleBackColor = True ' 'buttonStop ' Me.buttonStop.Location = New System.Drawing.Point(174, 12) Me.buttonStop.Name = "buttonStop" Me.buttonStop.Size = New System.Drawing.Size(75, 23) Me.buttonStop.TabIndex = 2 Me.buttonStop.Text = "Durdur" Me.buttonStop.UseVisualStyleBackColor = True ' 'buttonHome ' Me.buttonHome.Location = New System.Drawing.Point(255, 12) Me.buttonHome.Name = "buttonHome" Me.buttonHome.Size = New System.Drawing.Size(75, 23) Me.buttonHome.TabIndex = 3 Me.buttonHome.Text = "GiriŸ" Me.buttonHome.UseVisualStyleBackColor = True ' 'buttonRefresh ' Me.buttonRefresh.Location = New System.Drawing.Point(336, 12) Me.buttonRefresh.Name = "buttonRefresh" Me.buttonRefresh.Size = New System.Drawing.Size(75, 23) Me.buttonRefresh.TabIndex = 4 Me.buttonRefresh.Text = "Yenile" Me.buttonRefresh.UseVisualStyleBackColor = True ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(12, 41) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(399, 20) Me.TextBox1.TabIndex = 5 Me.TextBox1.Text = " Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. style="color: #0000BB">Me.buttonSubmit.Location = New System.Drawing.Point(417, 12) Me.buttonSubmit.Name = "buttonSubmit" Me.buttonSubmit.Size = New System.Drawing.Size(75, 49) Me.buttonSubmit.TabIndex = 6 Me.buttonSubmit.Text = "&Git" Me.buttonSubmit.UseVisualStyleBackColor = True ' 'WebBrowser1 ' Me.WebBrowser1.Location = New System.Drawing.Point(12, 67) Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser1.Name = "WebBrowser1" Me.WebBrowser1.Size = New System.Drawing.Size(655, 427) Me.WebBrowser1.TabIndex = 7 ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(679, 506) Me.Controls.Add(Me.WebBrowser1) Me.Controls.Add(Me.buttonSubmit) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.buttonRefresh) Me.Controls.Add(Me.buttonHome) Me.Controls.Add(Me.buttonStop) Me.Controls.Add(Me.buttonForward) Me.Controls.Add(Me.buttonBack) Me.Name = "Form1" Me.Text = "Powered By SkiLLs" Me.ResumeLayout(False) Me.PerformLayout() buttonBack.Enabled = False buttonForward.Enabled = False buttonStop.Enabled = False End Sub Private Sub buttonBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonBack.Click WebBrowser1.GoBack() TextBox1.Text = WebBrowser1.Url.ToString() End Sub Private Sub buttonForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonForward.Click WebBrowser1.GoForward() TextBox1.Text = WebBrowser1.Url.ToString() End Sub Private Sub buttonStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonStop.Click WebBrowser1.Stop() End Sub Private Sub buttonRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonRefresh.Click WebBrowser1.Refresh() End Sub Private Sub buttonHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonHome.Click WebBrowser1.GoHome() TextBox1.Text = WebBrowser1.Url.ToString() End Sub Private Sub buttonSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonSubmit.Click WebBrowser1.Navigate(TextBox1.Text) End Sub Private Sub WebBrowser1_CanGoBackChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.CanGoBackChanged If WebBrowser1.CanGoBack = True Then buttonBack.Enabled = True Else buttonBack.Enabled = False End If End Sub Private Sub WebBrowser1_CanGoForwardChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.CanGoForwardChanged If WebBrowser1.CanGoForward = True Then buttonForward.Enabled = True Else buttonForward.Enabled = False End If End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted buttonStop.Enabled = False End Sub Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated TextBox1.Text = WebBrowser1.Url.ToString() Me.Text = WebBrowser1.DocumentTitle.ToString() End Sub Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating buttonStop.Enabled = True End Sub Friend WithEvents buttonBack As System.Windows.Forms.Button Friend WithEvents buttonForward As System.Windows.Forms.Button Friend WithEvents buttonStop As System.Windows.Forms.Button Friend WithEvents buttonHome As System.Windows.Forms.Button Friend WithEvents buttonRefresh As System.Windows.Forms.Button Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents buttonSubmit As System.Windows.Forms.Button Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser End Class
Formumdan Aynen Alıp Verdim, herhangi bir hata yok kodlamada. |