Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
 
        request = CType(WebRequest.Create( _
          "http://meineseite.net/upd_count.php?"), HttpWebRequest)
        request.Method = "GET"
        request.ContentType = "application/x-www-form-urlencoded"
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:8.0)" & _
          "Gecko/20100101 Firefox/8.0"
 
        response = CType(request.GetResponse(), HttpWebResponse)
        Dim s As Stream = response.GetResponseStream
        Dim sr As New StreamReader(s)
        Dim html As String = sr.ReadToEnd()
 
        sr.Close()
        s.Close()
 
        TextBox1.Text = html 'nur zum testen
 
    End Sub

<?php 
  set_time_limit(0);
 
  $datei = fopen("counter.txt","r+"); 
  $counterstand = fgets($datei, 10); 
  if($counterstand == "") 
    { 
    $counterstand = 0; 
    } 
  $counterstand++; 
  rewind($datei); 
  fwrite($datei, $counterstand); 
  fclose($datei); 
 
  echo $counterstand
?>