vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik:    |   VB-Versionen: VB2005, VB2008, VB201002.05.11
Programmaktualität online prüfen (php-Skript)

Überprüfen Sie bequem die Aktualität Ihres Programms online via php-Skript.

Autor:  Robert BrunoldBewertung:     [ Jetzt bewerten ]Views:  1.719 
http://www.hobbycoders.de/System:  Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt 

Sie möchten den User über Updates Ihres Programms in Kenntnis setzen?

Ich habe mir erlaubt den nachfolgenden Tipp ein wenig zu "verfeinern":
 Mit PHP und VB.NET Version checken

Und Ihn auf diesem Tipp für Visual Basic 6.0 aufzubauen:
 Programm-Aktualität online prüfen

Allerdings verzichten wir auf das WebBrowser-Control und verewnden stattdessen die WebClient-Klasse, um den Inhalt einer Webseite direkt als String auszulesen:
 Inhalt eins Web-Files als String downloaden

Was brauchen wir alles?

  • Visual Basic:
  • 1x Button
  • 1x Form
  • und ein paar Fetzen Source

Außerhalb VB:

  • 1 php-fähigen Server
  • 1 Notepad oder ähnlichen Editor

Als erstes ziehen Sie einen Button auf der Form auf und fügen folgenden Code in den Codeteil der Form ein:

Imports System.Net
Imports System.Text
Public Class Form1
 
  Private Function TextDownload(ByVal sUrl As String) As String
    Dim dWeb As New WebClient
 
    With dWeb
      .Encoding = Encoding.Default
      .CachePolicy = New Cache.RequestCachePolicy( _
        Cache.RequestCacheLevel.NoCacheNoStore)
    End With
 
    Try
      Return dWeb.DownloadString(sUrl)
    Catch ex As Exception
      Return "[Error]"
    End Try
  End Function
 
  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
 
    ' Hier die URL eintragen
    Dim sURL As String = "http://forum.hobbycoders.de/version.php?vb_version=3.0.0"
 
    ' Inhalt downloaden und als String zurückgeben
    Dim sContent As String = TextDownload(sURL)
 
    ' Programmversion nicht mehr aktuell?
    If InStr(sContent, "nicht aktuell") > 0 Then
      MsgBox("Ihre Programmversion ist nicht aktuell!" & vbCrLf & _
        "Bitte besuchen Sie unsere Webseite, um die neue Version herunterzuladen!", _
        vbExclamation, "Update verfügbar!")
    Else
      MsgBox("Ihre Programmversion ist aktuell!", vbInformation, "Kein Update verfügbar!")
    End If
  End Sub
 
End Class

Öffnen Sie nun das Windowsnotepad oder einen anderen Editor und fügen Sie folgendes ein:

<?php
//  Hier geben Sie immer die aktuelle Version ein!
$aktuelle_version = "3.0.0";

$vb_version = $_GET["vb_version"];
if($vb_version !== $aktuelle_version)
{
 echo "Programmversion ist nicht aktuell!";
}
if($vb_version == $aktuelle_version)
{
 echo "Programmversion ist aktuell!";
}
?>

Gespeichert wird das Ganze als *.php-Datei (Ich hab Sie einfach naheliegend version.php genannt!) Diese Datei laden Sie nun auf Ihren php-fähigen Webserver. Ich muß Ihnen denke ich nicht erklären wie das funktioniert

Das wars schon! Über einen Besuch auf meiner Webseite würde ich mich selbstverständlich auch freuen.