Option Explicit

Private Sub Form_Load()

WebBrowser1.Navigate "http://game1-softnyx.ktics.co.kr/GIS/full/GunBound_GIS_WC_091208_Ver837.exe"
While WebBrowser1.ReadyState <> 4: DoEvents: Wend
End

End Sub

Option Explicit

Private Sub Form_Load()

  Dim cadena As String: cadena = "1234567890"

  MsgBox cadena, , "cadena"

  MsgBox Mid(cadena, 4, 2), , "Mid funcion =  Mid(cadena, 4, 2)"

  If Mid(cadena, 4, 2) = "45" Then Mid(cadena, 4, 2) = "xx"
  
  MsgBox cadena, , "Mid sentencia  = Mid(cadena, 4, 2) = ""xx"""
  
  End

End Sub  

Private Sub Text1_Change()
  Text1 = Replace(Text1, ",", ".")
End Sub

Private Sub Text2_Change()
Text2 = Replace(Text2, ",", ".")
End Sub

Option Explicit

Private Sub Form_Load()
Me.AutoRedraw = True: Me.Height = 6045: Me.Width = 4300
LoadControl
End Sub

Sub LoadControl()
  If WMI_disponible() Then
    'Me.Print "TU SISTEMA TIENE WMI", vbOKOnly + vbInformation, "WMI"
    getWMI_Info
  Else
    Me.Print "TU SISTEMA NO TIENE WMI", vbOKOnly + vbExclamation, "WMI"
  End If
End Sub

Public Function WMI_disponible() As Boolean
Dim WMI As Object
On Error Resume Next
Set WMI = GetObject("winmgmts:")
WMI_disponible = (Err.Number = 0)
End Function

Private Sub getWMI_Info()

Dim oAdapters As Object
Dim oAdapter As Object
On Error GoTo Fehler_WMI

Me.Print "----------------------------------------------------------------------------------------------"

Set oAdapters = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

Dim ctlip1 As String: Dim ctlip2 As String

For Each oAdapter In oAdapters
  With oAdapter
    'Me.Cls '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If Join(.IPAddress) <> ctlip1 Then
        Me.Print "NOMBRE:" & vbTab & vbTab & vbTab & Environ$("computername")
        Me.Print "DIRECCION IP:" & vbTab & vbTab & vbTab & Join(.IPAddress)
        Me.Print "MASCARA DE SUBRED:" & vbTab & Join(.IPSubnet)
        'If Not IsNull(.DefaultIPGateway) Then
            Me.Print "PUERTA DE ENLACE:" & vbTab & vbTab & Join(.DefaultIPGateway)
        'End If
        Me.Print "DIRECCION MAC:" & vbTab & vbTab & .MACAddress
        Me.Print "DNS:" & vbTab & vbTab & vbTab & vbTab & .DNSHostName
        'If .WINSPrimaryServer <> "" Then
            Me.Print "WINS 1:" & vbTab & vbTab & vbTab & .WINSPrimaryServer
        'End If
        'If .WINSSecondaryServer <> "" Then
            Me.Print "WINS 2:" & vbTab & vbTab & vbTab & .WINSSecondaryServer
        'End If
        Me.Print ":---------------------------------------------------------------------------------------------"
        ctlip1 = Join(.IPAddress)
    End If
  End With
Next

On Error GoTo 0
Exit Sub

Fehler_WMI:
MsgBox "Error: " & Err.Number & vbTab & Err.Description, vbCritical
Resume Next
End Sub

If Not Spanish Then
  Suck it and continue sucking   
End if