Hey
ich habe versucht für meinen bot einen updater zu machen
der code sieht so aus :
leider geht der nicht und ich weis nicht wo der Fehler ist beim load von form1 öffnet sich nichtmal eine msgbox
ich habe versucht für meinen bot einen updater zu machen
der code sieht so aus :
PHP Code:
Imports System.Net, System.Net.NetworkInformation
Public Class Form1
Dim ServerVersion As String
Dim Web As New Net.WebClient
Function TestinternetConnection()
Dim myPing As New Net.NetworkInformation.Ping
Dim buffer As Byte() = New Byte(31) {}
Dim timeout As Integer = 3000
Dim pingOptions As New PingOptions()
Dim hostip1 As String = "www.google.de"
Dim reply_host1 As PingReply = myPing.Send(hostip1, timeout, buffer, pingOptions)
Try
myPing.Send(hostip1)
Catch ex As Exception
'nothing
End Try
If reply_host1.Status = IPStatus.Success Then
Return True
ElseIf reply_host1.Status = IPStatus.TimedOut Then
Return False
ElseIf reply_host1.Status = IPStatus.BadDestination OrElse reply_host1.Status = IPStatus.BadOption Then
Return False
End If
End Function
Function CheckForUpdates()
ServerVersion = Web.DownloadString("https://www.dropbox.com/s/agqpo870dy2r48q/Version.txt?m")
If CInt(ServerVersion) > CInt(lblVersion.Text) Then
Return True
Else : Return False
End If
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
If TestinternetConnection() = True And CheckForUpdates() = True Then
MsgBox("Eine Neue Version ist verfügbar klicken sie auf Download.", MsgBoxStyle.Information, "Newest version = " & ServerVersion & " // Clientversion = " & lblVersion.Text)
End If
End Sub
