Arkadaşlar vb6dan kodları .nete cevirmeye calışıyorum ama olmuyor. Yardımınız gerekli. WebBrowser ile calışma yapmaktayım hataalıyorum surekli. Hatalı yerleri cizdim zaten. WebBrowser name'i a olarak ayarladım.

Private Sub a_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles a.DocumentCompleted
If a.LocationURL = Label1.Text & "key_on.php" Then MsgBox("Yukleme Başarılı" & vbCrLf & "Toplam Gun : " & a.Document.GetElementById("kgun").Value, vbOKOnly, "Reg.")
If a.LocationURL = Label1.Text & "key_off.php" Then MsgBox("Key Gecersiz", vbOKOnly, "Reg.") : Button1.Enabled = True
If a.LocationURL = Label1.Text & "uye_var.php" Then MsgBox("Kullanıcı adı veya email kullanılıyor.", vbOKOnly, "Reg.")
If a.LocationURL = Label1.Text & "uye_ok.php" Then MsgBox("Yeni kayıt başarılı.", vbOKOnly, "Reg.") : Button2.Enabled = False
If a.LocationURL = Label1.Text & "uye_off.php" Then MsgBox("Yeni kayıt başarısız.", vbOKOnly, "Reg.")
If a.LocationURL = Label1.Text & "uye_yok.php" Then MsgBox("Uye bulunamadı.", vbOKOnly, "Reg.")
If a.LocationURL = Label1.Text & "uye_paneli.php" Then
If a.Document.GetElementById("kgun").Value > 0 Then
MsgBox("Giriş Başarılı." & vbCrLf & "Kalan Gun : " & a.Document.GetElementById("kgun").Value, vbOKOnly, "Reg.")
Else
MsgBox("Giriş Başarısız Yukleme Yapınız." & vbCrLf & "Kalan Gun : " & a.Document.GetElementById("kgun").Value, vbOKOnly, "Reg.")
End If
End If
End Sub
__________________