VB.Net label not showing

import express from "express";

import cors from "cors";

import mysql from "mysql2/promise";

import bcrypt from "bcrypt";

import jwt, { decode } from "jsonwebtoken";

const app = express();

const pool = mysql.createPool({

"host": "localhost",

"database": "games",

"user": "testing", // "root"

"password": "testing" // ""

});

app.use(express.json());

app.use(cors());

app.post("/register", async (req, res) => {

try {

    /*

        {

            "username": "admin",

            "email": "******@admin.hu",

            "password": "admin"

        }

    */

    const body = req.body;

    // ["username", "email", "password"].length 

    if (Object.keys(body).length !== 3) {

        throw new Error("Invalid body."); // 400

    }

    if (!body.username || typeof body.username !== "string") {

        throw new Error("Invalid username."); // 400

    }

    if (!body.email || typeof body.email !== "string") {

        throw new Error("Invalid email."); // 400

    }

    if (!body.password || typeof body.password !== "string") {

        throw new Error("Invalid password."); // 400

    }

    const secretPassword = await bcrypt.hash(body.password, 12);

    const [insertResult] = await pool.query(

        "INSERT INTO users (username, email, password) VALUES (?, ?, ?)",

        [body.username, body.email, secretPassword]

    );

    if (insertResult.affectedRows === 0) {

        throw new Error("Failed to insert user."); // 500

    }

    res.status(201).json({

        "message": "User registered."

    });

} catch (err) {

    console.log(err);

    if (err.message.includes("Invalid")) {

        res.status(400).json({

            "message": err.message

        });

        return;

    }

    res.status(500).json({

        "message": "Failed to register user."

    });

}

});

Good evening,

Apologies for my poor explanation!

I have actually managed to fix the issue. I had declared a string but not set it to Nothing.

This caused an issue further down the code, but is now resolved.

Really appreciate your assistance.

Thanks
Simon

I have no idea what you are trying to accomplish with this. Here is a starting point,

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim hn As String = Net.Dns.GetHostName()
        Dim he As Net.IPHostEntry = Net.Dns.GetHostEntry(hn)
        Dim s As New System.Text.StringBuilder
        s.AppendFormat("Host: {0} has {1} IP addresses. DNS Hostname: {2}", hn, he.AddressList.Count, he.HostName)
        s.AppendLine()
        s.AppendLine("The addresses are")
        For Each ip As Net.IPAddress In he.AddressList
            s.AppendFormat("{0}  {1}", ip.AddressFamily, ip.ToString)
            s.AppendLine()
        Next
        Debug.WriteLine(s.ToString)
    End Sub

The problem is that Forms timers run on the UI. To fix...

First, make sure Timer1 is enabled and that the Interval is set to 60000. That will take care of the code running once every 60 seconds. Then get rid of all the GoTo's and code labels. The example you posted will look like this then,

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim sString As String

        Dim strIPAddress As String

        Dim strhostname As String

        Dim Prefix As String

        strhostname = System.Net.Dns.GetHostName()

        strIPAddress = System.Net.Dns.GetHostByName(strhostname).AddressList(0).ToString()

        lblIPAddress.Text = "IP Address: " & strIPAddress

        Try

            Prefix = strhostname.Substring(0, 3)

            'Check the IP address of the local machine

            Dim ipArray() As String = Split(strIPAddress, ".")

            If ipArray(1) = "44" And ipArray(2) = "10" Then

                LblStatus.Text = "Your PC is updating, please wait......."

                LblShip.Text = "This PC is in the Office"

                Using sr As New StreamReader("\\bm-filesrv\Timesync$\timezone.ini")

                    sString = sr.ReadToEnd()

                End Using

            Else

                Try

                    LblShip.ForeColor = Color.Red

                    LblStatus.ForeColor = Color.Red

                    LblShip.Text = "Unable to identify  ___location"

                    LblStatus.Text = "check IP address!"

                Catch ex As Exception

                    LblStatus.Text = (ex.Message)

                End Try

            End If
        Catch
        End Try

    End Sub