Ipercube

Imports System.IO
Imports System.Text.UTF8Encoding
 
Module Module1
 
    Sub Main()
 
        'UTF-8 with BOM (Byte order mark) header
        File.WriteAllText("C:\test_file.txt", "File content", UTF8)
 
        'UTF-8 without BOM header
        Dim utf8WithoutBom As New System.Text.UTF8Encoding(False)
        File.WriteAllText("C:\test_file.txt", "File content", utf8WithoutBom)
 
    End Sub
 
End Module

Imports System.Net
 
Module Module1
 
    Sub Main()
 
        Dim oService As New Service.ServiceOdiInvoke
 
        Dim oCredential As New NetworkCredential
        oCredential.Domain = "my_domain"             'If required
        oCredential.UserName = "my_proxy_user"
        oCredential.Password = "my_proxy_password"
 
        Dim oProxy = New WebProxy
        oProxy.Address = New Uri("http://my_proxy:8080")
        oProxy.Credentials = oCredential
 
        oService.Proxy = oProxy
 
        'Call Service (example)
        oService.invoke("Param1", "Param2", "Param3")
    End Sub
 
End Module