Imports System
Declare Function GetStdHandle Lib "kernel32" ( ByVal _
nStdHandle As Long) As Long
Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _
( ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _
nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _
lpReserved As Any) As Long
Public Class Test
Public Shared Sub Main( )
Dim hConsole As Long
hConsole = GetStdHandle( STD_OUTPUT_HANDLE)
If hConsole = 0 Then Console.WriteLine ( "0" )
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KRGVjbGFyZSBGdW5jdGlvbiBHZXRTdGRIYW5kbGUgTGliICJrZXJuZWwzMiIgKEJ5VmFsIF8KICAgICAgICAgICBuU3RkSGFuZGxlIEFzIExvbmcpIEFzIExvbmcKRGVjbGFyZSBGdW5jdGlvbiBXcml0ZUNvbnNvbGUgTGliICJrZXJuZWwzMiIgQWxpYXMgIldyaXRlQ29uc29sZUEiIF8KICAgICAgICAgICAoQnlWYWwgaENvbnNvbGVPdXRwdXQgQXMgTG9uZywgbHBCdWZmZXIgQXMgQW55LCBCeVZhbCBfCiAgICAgICAgICAgbk51bWJlck9mQ2hhcnNUb1dyaXRlIEFzIExvbmcsIGxwTnVtYmVyT2ZDaGFyc1dyaXR0ZW4gQXMgTG9uZywgXwogICAgICAgICAgIGxwUmVzZXJ2ZWQgQXMgQW55KSBBcyBMb25nClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gaENvbnNvbGUgQXMgTG9uZwoJCWhDb25zb2xlID0gR2V0U3RkSGFuZGxlKFNURF9PVVRQVVRfSEFORExFKQoJCUlmIGhDb25zb2xlID0gMCBUaGVuIENvbnNvbGUuV3JpdGVMaW5lKCIwIikKCUVuZCBTdWIKRW5kIENsYXNz
compilation info
Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.
/home/Zjfo4h/prog.vb (2,8) : Error VBNC30203: Not valid as identifier.
/home/Zjfo4h/prog.vb (4,8) : Error VBNC30203: Not valid as identifier.
There were 2 errors and 0 warnings.
Compilation took 00:00:00.6484950
stdout