|
| |
Visual-Basic Einsteiger| Re: Internet-Check | |  | | Autor: sCareIO | | Datum: 27.04.04 16:48 |
| hier der code...
server-url (der teil sollte reichen)
Const sURL = "http://people.freenet.de/"
z.B heißt mein Prog., wie vorhin als Beispiel Tool
habe die *.exe-Dat so als Tool.version hochgeldaden und folgenden Code benutzt
Public Function isCurrentVersion() As Integer
Dim sVersion As String ' komplette Versionsnummer
Dim nMajor As Long ' Hauptversionsnummer
Dim nMinor As Long ' Subversionsnummer
' Konfigurieren des Inet-Controls
With Inet1
.AccessType = icDirect ' Direkte Verbindung
.Protocol = icHTTP ' HTTP-Protokoll verwenden
' Inhalt der Versionsdatei in Varibale speichern!
sVersion = .OpenURL(sURL & LCase$(App.ProductName) & ".version", _
icString)
If Len(sVersion) > 50 Or Len(sVersion) = 0 Then
' Fehler! Evtl. konnte die Datei auf dem Server
' nicht gefunden werden!
isCurrentVersion = 2
Else
' Ggf. abschließenden Zeilenumbruch entfernen
If InStr(sVersion, Chr$(13)) > 0 Then _
sVersion = Left$(sVersion, InStr(sVersion, Chr$(13)) - 1)
' Versionsteile extrahieren
nMajor = Val(Left$(sVersion, InStr(sVersion, ".") - 1))
nMinor = Val(Mid$(sVersion, InStr(sVersion, ".") + 1))
' Prüfen!
isCurrentVersion = IIf((App.Major < nMajor) Or _
(App.Major = nMajor And App.Minor < nMinor), 0, 1)
End If
End With
End Function
Private Sub Command1_Click()
Dim nResult As Integer
nResult = isCurrentVersion()
If nResult = 1 Then
MsgBox "Sie arbeiten bereits mit der neuesten Version.", vbInformation, "Update-Info"
ElseIf nResult = 2 Then
MsgBox "Fehler!", vbExclamation, "Update-Info"
Else
MsgBox "Es steht eine neuere Version zum Download bereit.", vbInformation, "Update-Info"
Call ShellExecute(hWnd, "Open", _
"www.people.freenet.de/vb-programmerzone/UM_updates.htm", "", "", 1)
End If
End Sub
--------------------------------------------------------------------------------------------------------------
Const sURL = "http://people.freenet.de/"
wie müsste ich dann die url, hinter dem obrigen server, vervollständigen | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere Infos
|
| |
|
Copyright ©2000-2025 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
|
|
Sie sind aktuell nicht angemeldet.
