Private Sub tmrProc_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrProc.Tick second = second + 1 If second = 2 Then CekInternet() End If If second = 4 Then If rCek = True Then 'cek ke server lblPesan.Text = "Menghubungkan ke server...." Dim Thread1 As New System.Threading.Thread( _ AddressOf LoginServ) Thread1.Start() Else End If End If End Sub
Private Sub LoginServ() iLogin = Server.Login(Server.ServerAddress) Select Case iLogin Case 0 lblPesan.Text = "Sukses terkoneksi dengan server...." lblPesan.ForeColor = Drawing.Color.Lime Case 1 lblPesan.Text = "Mengaktifkan offline mode" lblPesan.ForeColor = Drawing.Color.White Case 2 lblPesan.Text = "Mengaktifkan offline mode" lblPesan.ForeColor = Drawing.Color.White End Select End Sub
lblPesan.Text = "Menghubungkan ke server...."
LoginServ()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)