vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück
Rubrik: HTML/Internet/Netzwerk · Sonstiges   |   VB-Versionen: VB4, VB5, VB607.10.02
Programm-Aktualität online prüfen

Mit dem WebBrowser-Control und einem kleinen PHP-Skript lässt sich schnell eine Onlineprüfung auf Programm-Aktualität realisieren.

Autor:   Stefan WanitzekBewertung:     [ Jetzt bewerten ]Views:  22.177 
www.thundercloud.infoSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

In diesem Tipp möchte ich Ihnen zeigen wie Sie ganz einfach eine "Kommunikation" zwischen Ihrem Programm und einen Skript im Internet herstellen können.

Solch eine Kommunikation lässt sich immer wieder gebrauchen, sei es um eine Seriennummer zu überprüfen, eine Programm-Registrierung oder einfach eine Überprüfung ob das Programm noch aktuell ist.

Vorweg: Für diesen Tipp sollten Sie schon etwas FTP-Erfahrung haben, da es ansonsten sein könnte, dass der Tipp nicht so funktioniert wie er soll.

Das nachfolgende Beispiel zeigt, wie Sie die "Aktualität" Ihres Programms online überprüfen können.

Fügen Sie die Microsoft Internet Controls (shdocvw.dll) Ihrem Projekt hinzu, (Projekt - Komponenten) und ziehen Sie das WebBrowser Steuerelement auf die Form. Platzieren Sie irgendwo einen CommandButton, über den dann die aktuelle Programmversion an ein PHP-Skript Ihrer Domain geschickt wird.

Private Sub Command1_Click()
  ' aktuelle Programmversion
  Dim strVersion As String
  strVersion = App.Major & "." & App.Minor
 
  ' PHP-Skript aufrufen
  Dim strURL As String
  strURL = "http://www.IhreDomain.de/version.php?v=" & strVersion
  WebBrowser1.Navigate strURL
End Sub

Hiermit ist der Sendevorgang auch schon erledigt. Da das PHP-Skript selbst noch nicht existiert, erstellen wir das jetzt gleich einmal:

Öffnen Sie den Windows-Editor und geben nachfolgenden PHP-Code ein:

<?
// hier immer die aktuelle Version eintragen
$version_aktuell = "1.1";
 
// Versionsvergleich
if($version_aktuell != $v) {
  echo "Programmversion ist nicht aktuell!";
}
else {
  echo "Programmversion ist aktuell!";
}
 
?>

Speichern Sie nun das ganze unter dem Namen version.php ab.

Hinweis: Damit ein solches PHP-Skript ausgeführt werden kann, muss Ihr Provider (Webspace-Anbieter) PHP unterstützten!

Laden Sie die Datei version.php mit einem FTP-Client (z.B  WS_FTP) in das Verzeichnis Ihrer Homepage, das Sie bei WebBrowser1.Naviagate angegeben haben.

So, das Programm kann nun die Versionsnummer an das PHP-Skript senden und das Skript antwortet entsprechend mit "Programmversion ist nicht aktuell" bzw. "Programmversion ist aktuell!". Diese Antwort erhalten Sie als HTML-Seite im WebBrowser-Control angezeigt. Besser wäre aber sicherlich eine Rückmeldung, mit der Sie direkt im Programm "weiterarbeiten" können. Hierzu muss der Inhalt des WebBrowser-Controls ausgelesen werden:

' WebBrowser-Inhalt auslesen
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, _
  URL As Variant)
 
  Dim sContent As String
 
  ' Seitenquelltext
  With WebBrowser1
    sContent = .Document.documentElement.outerHTML
  End With
 
  ' Programmversion nicht mehr aktuell?
  If InStr(sContent, "nicht aktuell") > 0 Then
    MsgBox "Ihre Programmversion ist nicht aktuell." & vbCrLf & _
      "Es wird eine Aktualisierung empfohlen!", vbExclamation
  Else
    MsgBox "Ihre Programmversion ist aktuell.", vbInformation 
  End If
  Exit Sub
End Sub

Wenn Sie jetzt noch das WebBrowser-Control unsichtbar machen (Visible = False) ist's perfekt
 

Anmerkung vb@rchiv:
Und damit Sie das ganze jetzt gleich einmal ausprobieren können, haben wir Ihnen ein funktionsfähiges PHP-Skript auf unserem Server hochgeladen: http://www.vbarchiv.de/test/version.php

Tragen Sie diese URL hier ein:

Private Sub Command1_Click()
  ...
  strURL = "http://www.vbarchiv.net/test/version.php?v=" & strVersion
  ...
End Sub

Dieser Tipp wurde bereits 22.177 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2020 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel