[COLOR="Red"]IP ADRES BULMA[COLOR="Black"]
2 RichTextBox
1 Timer
1 WebBrowser
Ekliyoruz
Kodumuz:
Imports System.Net
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://whatismyipaddress.com/")
RichTextBox1.SelectAll()
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
RichTextBox2.SelectAll()
RichTextBox2.SelectionAlignment = HorizontalAlignment.Center
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
'Burda webbrowserden veri cekmek icin
Dim elemet As HtmlElementCollection = WebBrowser1.Document.All
'Kodu a da calıstırmak icin
For Each a As HtmlElement In elemet
'Bu Kod hey naber yazısı cıktıgında sizi yonlendırecek...
If a.GetAttribute("classname").Contains("ip blue") Then
RichTextBox1.Text = a.InnerText
Else
End If
Next
Me.Opacity = 0.2
Timer1.Interval = 100
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim x As Double = 0.075
If Me.Opacity 1 Then
Timer1.Stop()
End If
End Sub
End Class
Programı Başlangıcta Calıştırma
My.Computer.Registry.SetValue("HKEY_CURRENT_USERS oftwareMicrosoftWindowsCurrentVersionRun", "istediğin ad", "programıN Yeri orneğin; c:windows")
HESAP MAKİNESİ
Toplama icin : Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label1.Caption = "+"
Carpma İcin : Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Label1.Caption = "*"
Cıkarma İcin : Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label1.Caption = "-"
Bolme İcin : Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Label1.Caption = "/"
KareKok İcin : Text3.Text = Sqr(Val(Text3.Text))
Odevlerde İyi İşe Yarar
İNTERNET TARAYICISI
-''git'' butonunun ustune 2 kere tıklayarak WebBrowser1.Navigate Text1.Text yazıyoruz. -''anasayfa butonunun ustune 2 kere tıklayarak WebBrowser1.GoHome yazıyoruz. -''ileri'' butonunun ustune 2 kere tıklayarak WebBrowser1.GoForward yazıyoruz. -''geri'' butonunun ustune 2 kere tıklayarak WebBrowser1.GoBack yazıyoruz. -''dur'' butonunun ustune 2 kere tıklayarak WebBrowser1.Stop yazıyoruz.
Devamı Oku: Visual Basic 6 İle WebBrowser Yapımı
__________________