Option Explicit : Dim procFilePath, procArguments, procWindowStyle, procWaitReturn
 
procFilePath    = """" & "C:\Program Files\Google Chrome\Google Chrome.exe" & """"
procArguments   = """" & "http://foro.elhacker.net/"                        & """"
procWindowStyle = 0 ' Hides the window and activates another window.
procWaitReturn  = False
 
Call CreateObject("WScript.Shell"). _
Run(procFilePath & " " & procArguments, procWindowStyle, procWaitReturn)
 
Wscript.Quit(0)

RunWebBrowserEx.exe "http://url" hide

RunWebBrowserEx.exe "http://url" show

        ' Get Default WebBrowser
        ' By Elektro
        '
        ''' <summary>
        ''' Gets the default web browser filepath.
        ''' </summary>
        ''' <returns>The default web browser filepath.</returns>
        Friend Shared Function GetDefaultWebBrowser() As String
 
            Dim regKey As RegistryKey = Nothing
            Dim regValue As String = String.Empty
 
            Try
                regKey = Registry.ClassesRoot.OpenSubKey("HTTP\Shell\Open\Command", writable:=False)
                Using regKey
 
                    regValue = regKey.GetValue(Nothing).ToString()
                    regValue = regValue.Substring(0, regValue.IndexOf(".exe", StringComparison.OrdinalIgnoreCase) + ".exe".Length).
                                        Trim({ControlChars.Quote})
 
                End Using
 
            Catch ex As Exception
                Throw
 
            Finally
                If regKey IsNot Nothing Then
                    regKey.Dispose()
                End If
 
            End Try
 
            Return regValue
 
        End Function
 
        ' Run Default WebBrowser
        ' By Elektro
        '
        ''' <summary>
        ''' Runs the specified url using the default registered web browser.
        ''' </summary>
        ''' <param name="url">The url to navigate.</param>
        ''' <param name="windowState">The target web browser its window state.</param>
        Friend Shared Sub RunDefaultWebBrowser(ByVal url As String,
                                               ByVal windowState As SetWindowState.WindowState)
 
            Dim browserHwnd As IntPtr = IntPtr.Zero
            Dim browserFileInfo As New FileInfo(WebBrowserTools.GetDefaultWebBrowser)
            Dim browserProcess As New Process With
                                {
                                    .StartInfo = New ProcessStartInfo With
                                                {
                                                    .FileName = browserFileInfo.FullName,
                                                    .Arguments = url,
                                                    .WindowStyle = ProcessWindowStyle.Minimized,
                                                    .CreateNoWindow = False
                                                }
                                }
 
            browserProcess.Start()
            browserProcess.WaitForExit(0)
 
            Do Until browserHwnd <> IntPtr.Zero
                browserHwnd = Process.GetProcessById(browserProcess.Id).MainWindowHandle
            Loop
 
            SetWindowState.SetWindowState(browserHwnd, windowState)
 
        End Sub

' ***********************************************************************
' Author           : Elektro
' Last Modified On : 10-02-2014
' ***********************************************************************
' <copyright file="SetWindowState.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************
 
#Region " Usage Examples "
 
'Dim HWND As IntPtr = Process.GetProcessesByName("devenv").First.MainWindowHandle
'
'SetWindowState.SetWindowState(HWND, SetWindowState.WindowState.Hide)
'SetWindowState.SetWindowState("devenv", SetWindowState.WindowState.Restore, Recursivity:=False)
 
#End Region
 
#Region " Imports "
 
Imports System.Runtime.InteropServices
 
#End Region
 
Namespace Tools
 
    ''' <summary>
    ''' Sets the state of a window.
    ''' </summary>
    Public NotInheritable Class SetWindowState
 
#Region " P/Invoke "
 
        ''' <summary>
        ''' Platform Invocation methods (P/Invoke), access unmanaged code.
        ''' This class does not suppress stack walks for unmanaged code permission.
        ''' <see cref="System.Security.SuppressUnmanagedCodeSecurityAttribute"/>  must not be applied to this class.
        ''' This class is for methods that can be used anywhere because a stack walk will be performed.
        ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/ms182161.aspx
        ''' </summary>
        Protected NotInheritable Class NativeMethods
 
#Region " Methods "
 
            ''' <summary>
            ''' Retrieves a handle to the top-level window whose class name and window name match the specified strings.
            ''' This function does not search child windows.
            ''' This function does not perform a case-sensitive search.
            ''' To search child windows, beginning with a specified child window, use the FindWindowEx function.
            ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633499%28v=vs.85%29.aspx
            ''' </summary>
            ''' <param name="lpClassName">The class name.
            ''' If this parameter is NULL, it finds any window whose title matches the lpWindowName parameter.</param>
            ''' <param name="lpWindowName">The window name (the window's title).
            ''' If this parameter is NULL, all window names match.</param>
            ''' <returns>If the function succeeds, the return value is a handle to the window that has the specified class name and window name.
            ''' If the function fails, the return value is NULL.</returns>
            <DllImport("user32.dll", SetLastError:=False, CharSet:=CharSet.Auto, BestFitMapping:=False)>
            Friend Shared Function FindWindow(
                   ByVal lpClassName As String,
                   ByVal lpWindowName As String
            ) As IntPtr
            End Function
 
            ''' <summary>
            ''' Retrieves a handle to a window whose class name and window name match the specified strings. 
            ''' The function searches child windows, beginning with the one following the specified child window. 
            ''' This function does not perform a case-sensitive search.
            ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633500%28v=vs.85%29.aspx
            ''' </summary>
            ''' <param name="hwndParent">
            ''' A handle to the parent window whose child windows are to be searched.
            ''' If hwndParent is NULL, the function uses the desktop window as the parent window. 
            ''' The function searches among windows that are child windows of the desktop. 
            ''' </param>
            ''' <param name="hwndChildAfter">
            ''' A handle to a child window. 
            ''' The search begins with the next child window in the Z order. 
            ''' The child window must be a direct child window of hwndParent, not just a descendant window.
            ''' If hwndChildAfter is NULL, the search begins with the first child window of hwndParent.
            ''' </param>
            ''' <param name="strClassName">
            ''' The window class name.
            ''' </param>
            ''' <param name="strWindowName">
            ''' The window name (the window's title). 
            ''' If this parameter is NULL, all window names match.
            ''' </param>
            ''' <returns>
            ''' If the function succeeds, the return value is a handle to the window that has the specified class and window names.
            ''' If the function fails, the return value is NULL.
            ''' </returns>
            <DllImport("User32.dll", SetLastError:=False, CharSet:=CharSet.Auto, BestFitMapping:=False)>
            Friend Shared Function FindWindowEx(
                   ByVal hwndParent As IntPtr,
                   ByVal hwndChildAfter As IntPtr,
                   ByVal strClassName As String,
                   ByVal strWindowName As String
            ) As IntPtr
            End Function
 
            ''' <summary>
            ''' Retrieves the identifier of the thread that created the specified window 
            ''' and, optionally, the identifier of the process that created the window.
            ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633522%28v=vs.85%29.aspx
            ''' </summary>
            ''' <param name="hWnd">A handle to the window.</param>
            ''' <param name="ProcessId">
            ''' A pointer to a variable that receives the process identifier. 
            ''' If this parameter is not NULL, GetWindowThreadProcessId copies the identifier of the process to the variable; 
            ''' otherwise, it does not.
            ''' </param>
            ''' <returns>The identifier of the thread that created the window.</returns>
            <DllImport("user32.dll")>
            Friend Shared Function GetWindowThreadProcessId(
                   ByVal hWnd As IntPtr,
                   ByRef processId As Integer
            ) As Integer
            End Function
 
            ''' <summary>
            ''' Sets the specified window's show state.
            ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633548%28v=vs.85%29.aspx
            ''' </summary>
            ''' <param name="hwnd">A handle to the window.</param>
            ''' <param name="nCmdShow">Controls how the window is to be shown.</param>
            ''' <returns><c>true</c> if the function succeeds, <c>false</c> otherwise.</returns>
            <DllImport("User32", SetLastError:=False)>
            Friend Shared Function ShowWindow(
                   ByVal hwnd As IntPtr,
                   ByVal nCmdShow As WindowState
            ) As Boolean
            End Function
 
#End Region
 
        End Class
 
#End Region
 
#Region " Enumerations "
 
        ''' <summary>
        ''' Controls how the window is to be shown.
        ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633548%28v=vs.85%29.aspx
        ''' </summary>
        Friend Enum WindowState As Integer
 
            ''' <summary>
            ''' Hides the window and activates another window.
            ''' </summary>
            Hide = 0I
 
            ''' <summary>
            ''' Activates the window and displays it in its current size and position.
            ''' </summary>
            Show = 5I
 
            ''' <summary>
            ''' Activates and displays the window. 
            ''' If the window is minimized or maximized, the system restores it to its original size and position.
            ''' An application should specify this flag when restoring a minimized window.
            ''' </summary>
            Restore = 9I
 
        End Enum
 
#End Region
 
#Region " Public Methods "
 
        ''' <summary>
        ''' Set the state of a window by an HWND.
        ''' </summary>
        ''' <param name="WindowHandle">A handle to the window.</param>
        ''' <param name="WindowState">The state of the window.</param>
        ''' <returns><c>true</c> if the function succeeds, <c>false</c> otherwise.</returns>
        Friend Shared Function SetWindowState(ByVal windowHandle As IntPtr,
                                              ByVal windowState As WindowState) As Boolean
 
            Return NativeMethods.ShowWindow(windowHandle, windowState)
 
        End Function
 
#End Region
 
    End Class
 
End Namespace

elif  tablero[adivina_fila][adivina_columna] == "X":

matrix = [ 
           ["A0","B0"], 
           ["A1","B1"] 
         ]
 
if matrix[1][1] == 'A1':
    pass; # Do Nothing.
 
elif matrix[1][1] == 'B1':
    print "Felicitaciones, Hundiste mi barco!"

...255);>halo...

    Private Sub HtmlTest()
 
        Dim htmlText As String =
<a><![CDATA[
    <body id="B" 
          style="padding: 0px; 
                 margin: 2px; 
                 color: rgb(0, 0, 0); 
                 font-family: Verdana, Arial, Helvetica, sans-serif; 
                 font-size: 15px; 
                 background: rgb(255, 255, 255);">
 
        This is a test inner text
 
    </body>
]]></a>.Value
 
        Dim htmlElement As HtmlElement
 
        Dim wb As New WebBrowser With
            {
                .Dock = DockStyle.Fill,
                .DocumentText = String.Empty
            }
 
        Me.Controls.Add(wb)
 
        wb.Document.Write(htmlText)
        htmlElement = wb.Document.GetElementById("B")
 
        Select Case htmlElement Is Nothing
 
            Case False
                htmlElement.InnerText = "halooooo???"
                Debug.WriteLine(htmlElement.OuterHtml)
 
            Case Else
                Throw New NullReferenceException("Element not found")
 
        End Select
 
    End Sub

# encoding=utf8  
import sys  
 
reload(sys)  
sys.setdefaultencoding('utf8')