Dim hWnd As IntPtr = (HearthstoneUtil.HsProcess?.MainWindowHandle).GetValueOrDefault()
            Dim pid As Integer = (HearthstoneUtil.HsProcess?.Id).GetValueOrDefault()

The '?' character cannot be used here.

@echo off
color a
goto kill
:format
 
Rem by **Aincrad**
set año=%date%
Set hora=%time:~0,8%
 
Set nombre= [%año%]-[%hora%]
set Ip=127.0.0.1
 
if not exist log.txt goto Createlog >nul
 
  echo Haciendo Ping a %Ip% ... (Revisar el Archivo LOG).
(
    echo/
     echo %nombre% 
    echo/
    echo/
     ping %Ip% -n 1 
    echo/
   echo/
  echo/
echo ---------------------------------------------------------------------------------------------- )>>log.txt
goto format
 
 
:Createlog
echo Foro el hacker.NET >log.txt
goto format
 
:kill
tasklist | find /i "PING.exe" && (
TASKKILL /IM "PING.exe" /F
goto format
) || (
goto format
)

TASKKILL /IM "PING.exe" /F

@echo off
 
REM .bat con permisos de administrador
:-------------------------------------
REM  --> Analizando los permisos
    IF "%PROCESSOR_ARCHITECTURE%" EQU "amd64" (
>nul 2>&1 "%SYSTEMROOT%\SysWOW64\cacls.exe" "%SYSTEMROOT%\SysWOW64\config\system"
) ELSE (
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
)
 
REM --> Si hay error es que no hay permisos de administrador.
if '%errorlevel%' NEQ '0' (
    echo Solicitando permisos de administrador... Requesting administrative privileges... Anfordern Administratorrechte ...
    goto UACPrompt
) else ( goto gotAdmin )
 
:UACPrompt
    echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
    set params = %*:"=""
    echo UAC.ShellExecute "cmd.exe", "/c ""%~s0"" %params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
 
    "%temp%\getadmin.vbs"
    del "%temp%\getadmin.vbs"
    exit /B
 
:gotAdmin
    pushd "%CD%"
    CD /D "%~dp0"
:--------------------------------------  
: Apartir de aquí tu codigo
:--------------------------------------