Tzu3D

Light_Speed_Array_faster_than_any_dotnet_array

VB

Imports System.Runtime.CompilerServices
Namespace Tzu3D.Tool
    Friend Class TZArrayThread(Of T)
        Private Structure Struct_Data
            Friend mList As T()
            Friend mItemCount As Integer
            Friend mLock As Object
        End Structure

Private mDatas() As Struct_Data
        Private mThreadCount As Integer
        Private mRedimScale As Integer = 10
        Private mInitialSize As Integer

Friend Sub New(Size As Integer)
            Me.New(Size, 8I, 10I)
        End Sub

Friend Sub New(Size As Integer, ThreadCount As Integer)
            Me.New(Size, ThreadCount, 10I)
        End Sub

<MethodImpl(MethodImplOptions.AggressiveInlining)>
        Friend Sub New(Size As Integer, ThreadCount As Integer, Redim_Scale As Integer)
            mThreadCount = ThreadCount
            mRedimScale = Redim_Scale
            mInitialSize = Size
            ReDim mDatas(mThreadCount - 1)

For i As Integer = 0 To mThreadCount - 1
                With mDatas(i)
                    ReDim .mList(mInitialSize)
                    .mItemCount = 0
                    .mLock = New Object
                End With
            Next
        End Sub

<MethodImpl(MethodImplOptions.AggressiveInlining)>
        Friend Sub Add(item As T)

With mDatas(Get_ID_Thread())
                SyncLock .mLock
                    If .mItemCount = .mList.Count Then
                        ReDim Preserve .mList(.mItemCount + mRedimScale)
                    End If
                    .mList(.mItemCount) = item
                    .mItemCount += 1
                End SyncLock
            End With

End Sub

<MethodImpl(MethodImplOptions.AggressiveInlining)>
        Private Function Get_ID_Thread() As Integer
            If Task.CurrentId Is Nothing Then Return 0
            Return CInt(Task.CurrentId) Mod mThreadCount
        End Function

<MethodImpl(MethodImplOptions.AggressiveInlining)>
        Friend Sub Clear()
            For i As Integer = 0 To mThreadCount - 1
                mDatas(i).mItemCount = 0
            Next
        End Sub

<MethodImpl(MethodImplOptions.AggressiveInlining)>
        Friend Sub TrueClear()
            For i As Integer = 0 To mThreadCount - 1
                With mDatas(i)
                    ReDim .mList(mInitialSize)
                    .mItemCount = 0
                End With
            Next
        End Sub

<MethodImpl(MethodImplOptions.AggressiveInlining)>
        Friend Function Item(index As Integer) As T
            Dim totalItemCount As Integer
            For i As Integer = 0 To mThreadCount - 1
                totalItemCount += mDatas(i).mItemCount
                If index < totalItemCount Then
                    Return mDatas(i).mList(index - (totalItemCount - mDatas(i).mItemCount))
                End If
            Next
        End Function

Friend Function Count() As Integer
            Dim totalItem As Integer
            For i As Integer = 0 To mThreadCount - 1
                totalItem += mDatas(i).mItemCount
            Next
            Return totalItem
        End Function
    End Class
End Namespace

tex_or_tex

JS

Link

shadding

JS

Link

struct LightStruct
{
    vec4 Diffuse;
    float Falloff;
    vec4 Specular;
    float InnerConeAngle;
    vec2 Position;
    float OuterConeAngle;
    vec2 Direction;
    float Range;
    uint Type; // 1 = point light, 2 = Spot Light
    float Intensity;
    bool Enable;
};
StructuredBuffer<LightStruct> GlobalLights;

float4 COLOR_AMBIENT;
uint LIGHTCOUNT;

float4 ComputeLight(vec3 position, vec3 ViewDir, vec3 normal, vec3 albedo, float specular, float shininess, int lightID)
{
	LightStruct Light = GlobalLights[lightID];
	vec4 result = vec4(0.0f, 0.0f, 0.0f, 1.0f);
	if (Light.Enable == false) return result;
	
	vec3 lightVector = Light.Position - position;
    float attenuation = smoothstep(Light.Range, 0.0f, length(lightVector));
	lightVector = normalize(lightVector);
	
	float SdL = (Light.Type == 2) ? dot(Light.Direction, -lightVector) : 0;
    float spotIntensity = (Light.Type == 2) ? 0.0f : 1.0f;
    float ACosSdL = (Light.Type == 2) ? acos(SdL) : 0;
    float OutCone = Light.OuterConeAngle * 0.5f;
    float InCone = Light.InnerConeAngle * 0.5f;
	
	//if it's a spot light
	if ((Light.Type == 2) && (ACosSdL < OutCone))
        spotIntensity = saturate(pow(abs((ACosSdL - OutCone) / (InCone - OutCone)), Light.Falloff));
	
    attenuation *= spotIntensity;
	
	vec3 specularLight = { 0.0f, 0.0f, 0.0f };
    if (shininess > 0.0f)
    {
        float dotRV = dot(normal, normalize(lightVector + ViewDir));
        float specLighting = pow(saturate(dotRV), shininess);
        specularLight = specular * (Light.Specular * specLighting);
    }
	
	float dotNL = dot(normal, lightVector);     
    float diffuseLighting = saturate(dotNL);
    float shadowing = 1.0f; //if you add shadows, play with this value
    result = vec4(attenuation * (albedo * diffuseLighting * Light.Diffuse * Light.Intensity * shadowing + specularLight * Light.Intensity * shadowing), 1.0f);
   
    return result;
}

vec4 pixelShader(...)
{
	vec4 Albedo = texelFetch ...
	vec3 Position = vec3(texPos.x, texPos.y, 1.0f) // your pixel position
	vec3 Normal = vec3(0,0, 1); //I'm not sure, it depent of you axes
	vec3 ViewDir = normalize(CAMERA_POSITION - Position);
	float shininess = 40; //play with this value
	vec4 shading = { 0.0f, 0.0f, 0.0f, 1.0f };
	for (uint l = 0; l < LIGHTCOUNT; l++)
	{
		shading += ComputeLight(Position, ViewDir, Normal, AlbedoData.rgb, AlbedoData.a, shininess, l);
	}
	
	vec4 final = saturate(shading + COLOR_AMBIENT * AlbedoData);
}

Distance

JS

Link

Fit_Image

VB

Link

camera_follow

JS

Link

Superpowers get corner world space

JS

Link

Goto target behavior

JS

Link

interface Goto {
	isStopped: boolean;
	speedFactor: number;
	remainDistance: number;
	vectorCurrent: Sup.Math.Vector3;
}

class PlayerBehavior extends Sup.Behavior {
	speed: number = 0.8;
	position: Sup.Math.Vector3 = new Sup.Math.Vector3(); 
	target: Sup.Math.Vector3 = new Sup.Math.Vector3();

is_moving: boolean;
  	is_hit_target: boolean;
	GotoData: Goto;
	awake() {
		this.is_moving = false;
		this.is_hit_target = true;
		this.GotoData =  {isStopped: false, speedFactor: 0, vectorCurrent: new Sup.Math.Vector3(0, 0, 0), remainDistance: 0};
	}

update() {
		if (this.is_moving == true) {
			this.GotoData = this.GoToTarget(this.position, this.target, this.speed, this.GotoData.speedFactor);
			this.actor.setPosition(this.GotoData.vectorCurrent);
			this.is_hit_target = this.GotoData.isStopped;
			this.is_moving = !this.GotoData.isStopped;
			//Sup.log (this.GotoData.remainDistance);
		}
		
		
		if (this.is_hit_target == true) {
			if (Sup.Input.isKeyDown("LEFT") || Sup.Input.isGamepadButtonDown(0, 14)) {
				this.position = this.actor.getPosition().clone();
				this.target = this.actor.getPosition().clone().subtract(16, 0, 0);
				this.is_moving = true;
			}
			if (Sup.Input.isKeyDown("RIGHT") || Sup.Input.isGamepadButtonDown(0, 15)) {
				this.position = this.actor.getPosition().clone();
				this.target = this.actor.getPosition().clone().add(16, 0, 0);
				this.is_moving = true;
			}
			if(Sup.Input.isKeyDown("UP") || Sup.Input.isGamepadButtonDown(0, 12)) {
				this.position = this.actor.getPosition().clone();
				this.target = this.actor.getPosition().clone().add(0, 16, 0);
				this.is_moving = true;
			}
			if(Sup.Input.isKeyDown("DOWN") || Sup.Input.isGamepadButtonDown(0, 12)) {
				this.position = this.actor.getPosition().clone();
				this.target = this.actor.getPosition().clone().subtract(0, 16, 0);
				this.is_moving = true;
			}
		}
	}

GoToTarget(Begin: Sup.Math.Vector3, End: Sup.Math.Vector3, Speed: number, currentFactor: number) {
		let distance =  End.distanceTo(Begin);
		let inc: number = 1 / distance * Speed;
		currentFactor += inc;
		
		let stopped: boolean = false;
		let position : Sup.Math.Vector3;
		
		if (currentFactor > 1) {
			stopped = true;
			currentFactor = 0;
			position = End.clone();
		} else {
			position = Begin.clone().lerp(End, currentFactor);
		}

let result: Goto = {isStopped: stopped, speedFactor: currentFactor, vectorCurrent: position, remainDistance: distance * (1 - currentFactor)};
		
		return result;
	}

}
Sup.registerBehavior(PlayerBehavior);

Superpowers style

CSS

Link

Superpowers index

HTML

Link

escape direction from enemy position

VB

Link

Superpowers arcadeBody2D from tilemap

JS

Link

Superpowers get mouse position

JS

Link

Connect to Twitch

VB

Link

'Coded by ShadowTzu
'Free to use

'Website: http://tzu3d.weebly.com
'Youtube: https://www.youtube.com/user/shadowtzu
'Twitter: https://twitter.com/shadowtzu
'Facebook: https://www.facebook.com/Tzu3d
'Twitch: http://www.twitch.tv/shadowtzu
'my 3D engine, Tzu3D: http://shadowtzu.free.fr

'Example:
' Private mTwitchChat As TwitchChat

' [...]

' mTwitchChat = New TwitchChat("username", "oauth:TOKEN", "#shadowtzu", AddressOf Communicate)
' mTwitchChat.Connect()
'
' [...]
'

' Public Function Communicate(user As String, Message As String) As String
' Console.WriteLine("User '" & user & "' Say: " & Message)

' if you return a string, your bot say it in the chat
' Return String.Empty
' End Function

Imports System.Net
Imports System.Text
Imports System.Net.Sockets

''' <summary>
''' Connecting to Twitch Chat (IRC protocol)
''' </summary>
''' <remarks></remarks>
Public Class TwitchChat
    Private WithEvents mSocket As SocketClient
    Private mNick As String
    Private mPass As String
    Private mPort As Integer
    Private mIp As String
    Private mChannel As String

Private IsWaitingConnected As Boolean = True

Public Structure struct_Message
        Public Who As String
        Public User As String
        Public Code As String
        Public Message As String
    End Structure
    Public Delegate Function User_Message(User As String, Message As String) As String
    Private mCom As User_Message

''' <summary>
    ''' Constructor
    ''' </summary>
    ''' <param name="Nick">username</param>
    ''' <param name="OAuth_token">OAuth token can be get here http://www.twitchapps.com/tmi </param>
    ''' <param name="Channel">channel : #channelname</param>
    ''' <param name="CallBack_Communicate">create a callback function: Public Function Communicate(User As String, Message As String) As String ... End Function and give address: AddressOf Communicate</param>
    ''' <remarks></remarks>
    Public Sub New(Nick As String, OAuth_token As String, Channel As String, CallBack_Communicate As User_Message)
        mIp = "irc.twitch.tv"
        mPort = 6667
        mPass = OAuth_token
        mNick = Nick
        mChannel = Channel
        mCom = CallBack_Communicate
        mSocket = New SocketClient()
    End Sub

Public Sub Connect()
        mSocket.Connect(mIp, mPort)
    End Sub

Public Sub Write(Data As String)
        mSocket.Write(Data & vbCrLf)
    End Sub

Public Sub Say(Message As String)
        If Message = "" Then Exit Sub
        Write(String.Format("PRIVMSG {0} :{1}", mChannel, Message))
    End Sub

Public Sub Quit(Message As String)
        Write(String.Format("QUIT :{0}", Message))
    End Sub

Private Sub Console_WriteLine(Message As String)
        If Not Debug Then Exit Sub
        Console.WriteLine(Message)
    End Sub

Private Sub NetworkCom(Stream As String)
        Dim data() As String = Split(Stream, vbCrLf)
        For i As Integer = 0 To data.Count - 1
            Analyse_Stream(data(i))
        Next
    End Sub

Private Rep As struct_Message
    Private Viewers_list As String = Nothing
    Private End_List_Receive As Boolean = False
    Private Sub Analyse_Stream(stream As String)
        If stream = "" Then Exit Sub
        Rep = Decode(stream)

Select Case Rep.Code.ToUpper
            Case "353"
                Dim Viewers As String = Split(Rep.Message, ":")(1)
                Viewers_list &= Viewers
            Case "366"
                Console_WriteLine("Viewers List: " & Viewers_list)
                End_List_Receive = True
            Case "PING"
                Write("PONG " & Clean_Message(Rep.Message))
            Case "PRIVMSG"
                Say(mCom(Rep.User, Clean_Message(Rep.Message)))
            Case "JOIN"
                If End_List_Receive Then
                    Say("Hello!")
                End If
        End Select
    End Sub

Private Function Decode(line As String) As struct_Message
        Dim Msg As struct_Message = Nothing

If line = "" Then Return Msg
        Dim splitted() As String = Split(line, " ")

Msg.Who = splitted(0)
        Dim EndName As Integer = Msg.Who.IndexOf("!")
        If EndName > -1 Then
            Msg.User = Clean_Message(Msg.Who.Substring(0, EndName))
        End If
        Msg.Code = splitted(1)
        For i As Integer = 2 To splitted.Count - 1
            Msg.Message &= splitted(i)
            If i < splitted.Count - 1 Then Msg.Message &= " "
        Next
        Return Msg
    End Function

Private Function Clean_Message(message As String) As String
        If message.Contains(":") Then
            Return Split(message, ":")(1)
        Else
            Return message
        End If
    End Function

#Region "Event"
    Private Sub mSocket_OnClose() Handles mSocket.OnClose
        Console_WriteLine("Closed!")
    End Sub

Private Sub mSocket_OnCloseFailed(Exception As Exception) Handles mSocket.OnCloseFailed
        Console_WriteLine(Exception.Message)
    End Sub

Private Sub mSocket_OnConnect() Handles mSocket.OnConnect
        Console_WriteLine("Connected!")

mSocket.Write(String.Format("PASS {0} {1}", mPass, vbCrLf))
        mSocket.Write("NICK " & mNick.ToLower & vbCrLf)
        mSocket.Write("JOIN #shadowtzu" & vbCrLf)

IsWaitingConnected = False
    End Sub

Private Sub mSocket_OnConnectFailed(Exception As Exception) Handles mSocket.OnConnectFailed
        Console_WriteLine(Exception.Message)
    End Sub

Private Sub mSocket_OnRead(Stream As String) Handles mSocket.OnRead
        NetworkCom(Stream)
    End Sub

Private Sub mSocket_OnReadFailed(Exception As Exception) Handles mSocket.OnReadFailed
        Console_WriteLine(Exception.Message)
    End Sub

Private Sub mSocket_OnWrite() Handles mSocket.OnWrite
        Console_WriteLine("Send data")
    End Sub

Private Sub mSocket_OnWriteFailed(Exception As Exception) Handles mSocket.OnWriteFailed
        Console_WriteLine(Exception.Message)
    End Sub
#End Region

#Region "Properties"
    Public ReadOnly Property Connected As Boolean
        Get
            Return mSocket.IsConnected Or IsWaitingConnected
        End Get
    End Property

Public Property Debug As Boolean
#End Region
End Class

''' <summary>
''' Socket class, I don't write it, I do not know where I found this code
''' </summary>
''' <remarks></remarks>
Public Class SocketClient
    Implements IDisposable

#Region "Declares"
    Private TcpClient As TcpClient
    Private ReadBuffer(1023) As Byte
    Private SyncInvoke As System.ComponentModel.ISynchronizeInvoke
#End Region

#Region "Events"

Public Event OnConnect()
    Public Event OnConnectFailed(ByVal Exception As Exception)

Public Event OnWrite()
    Public Event OnWriteFailed(ByVal Exception As Exception)

Public Event OnRead(ByVal Stream As String)
    Public Event OnReadFailed(ByVal Exception As Exception)

Public Event OnClose()
    Public Event OnCloseFailed(ByVal Exception As Exception)

#End Region

#Region "Constructors"

Public Sub New(Optional ByVal Sync As System.ComponentModel.ISynchronizeInvoke = Nothing)
        TcpClient = New TcpClient
        SyncInvoke = Sync
    End Sub

Public Sub New(ByVal TcpClient As TcpClient, Optional ByVal Sync As System.ComponentModel.ISynchronizeInvoke = Nothing)
        Me.TcpClient = TcpClient
        SyncInvoke = Sync
        BeginRead()
    End Sub

#End Region

#Region "Functions"

Public Sub Connect(ByVal Ip As String, ByVal Port As Integer)
        BeginConnect(Ip, Port)
    End Sub

Public Sub Write(ByVal Data As String)
        BeginWrite(Data)
    End Sub

Public Sub Close()

If (TcpClient Is Nothing) Then Exit Sub

Try

TcpClient.Close()
            TcpClient = New TcpClient

OnCloseInvoker()

Catch Exception As Exception
            OnCloseFailedInvoker(Exception)
        End Try

End Sub

#End Region

#Region "Begins"

Private Sub BeginConnect(ByVal Ip As String, ByVal Port As Integer)

If (TcpClient Is Nothing) Then Exit Sub

Try

TcpClient.BeginConnect(Ip, Port, AddressOf ConnectCallBack, Nothing)

Catch Exception As Exception
            OnConnectFailedInvoker(Exception)
        End Try

End Sub

Private Sub BeginRead()

If (TcpClient Is Nothing) OrElse (NetworkStream Is Nothing) OrElse (Not IsConnected) OrElse (Not NetworkStream.CanRead) Then Exit Sub

Try

NetworkStream.BeginRead(ReadBuffer, 0, ReadBuffer.Length, AddressOf ReadCallBack, Nothing)

Catch Exception As Exception
            OnReadFailedInvoker(Exception)
        End Try

End Sub

Private Sub BeginWrite(ByVal Data As String)

If (TcpClient Is Nothing) OrElse (NetworkStream Is Nothing) OrElse (Not IsConnected) OrElse (Not NetworkStream.CanWrite) Then Exit Sub

Try

Dim WriteBuffer() As Byte = Encoding.ASCII.GetBytes(Data)
            NetworkStream.BeginWrite(WriteBuffer, 0, WriteBuffer.Length, AddressOf WriteCallBack, Nothing)

Catch Exception As Exception
            OnWriteFailedInvoker(Exception)
        End Try

End Sub

#End Region

#Region "CallBacks"

Private Sub ConnectCallBack(ByVal IAsyncResult As IAsyncResult)

If (TcpClient Is Nothing) OrElse (IAsyncResult Is Nothing) Then Exit Sub

Try

TcpClient.EndConnect(IAsyncResult)
            BeginRead()

OnConnectInvoker()

Catch Exception As Exception
            OnConnectFailedInvoker(Exception)
        End Try

End Sub

Private Sub ReadCallBack(ByVal IAsyncResult As IAsyncResult)

If (TcpClient Is Nothing) OrElse (NetworkStream Is Nothing) OrElse (IAsyncResult Is Nothing) OrElse (Not IsConnected) Then Exit Sub

Try

Dim ReadBytes As Integer = NetworkStream.EndRead(IAsyncResult)

If ReadBytes > 0 Then

Dim Stream As String = Encoding.Default.GetString(ReadBuffer).Replace(Chr(0), String.Empty)

Array.Clear(ReadBuffer, 0, ReadBuffer.Length - 1)
                BeginRead()

OnReadInvoker(Stream)

Else
                Close()
            End If

Catch Exception As Exception
            OnReadFailedInvoker(Exception)
        End Try

End Sub

Private Sub WriteCallBack(ByVal IAsyncResult As IAsyncResult)

If (TcpClient Is Nothing) OrElse (NetworkStream Is Nothing) OrElse (IAsyncResult Is Nothing) OrElse (Not IsConnected) Then Exit Sub

Try

NetworkStream.EndWrite(IAsyncResult)
            OnWriteInvoker()

Catch Exception As Exception
            OnWriteFailedInvoker(Exception)
        End Try

End Sub

#End Region

#Region "Inter-Threading"

Private Delegate Sub DelegateOnConnectHandler()
    Private Delegate Sub DelegateOnConnectFailedHandler(ByVal Exception As Exception)

Private Delegate Sub DelegateOnWriteHandler()
    Private Delegate Sub DelegateOnWriteFailedHandler(ByVal Exception As Exception)

Private Delegate Sub DelegateOnReadHandler(ByVal Stream As String)
    Private Delegate Sub DelegateOnReadFailedHandler(ByVal Exception As Exception)

Private Delegate Sub DelegateOnCloseHandler()
    Private Delegate Sub DelegateOnCloseFailedHandler(ByVal Exception As Exception)

Private DelegateOnConnect As New DelegateOnConnectHandler(AddressOf RaiseOnConnectEvent)
    Private DelegateOnConnectFailed As New DelegateOnConnectFailedHandler(AddressOf RaiseOnConnectFailedEvent)

Private DelegateOnWrite As New DelegateOnWriteHandler(AddressOf RaiseOnWriteEvent)
    Private DelegateOnWriteFailed As New DelegateOnWriteFailedHandler(AddressOf RaiseOnWriteFailedEvent)

Private DelegateOnRead As New DelegateOnReadHandler(AddressOf RaiseOnReadEvent)
    Private DelegateOnReadFailed As New DelegateOnReadFailedHandler(AddressOf RaiseOnReadFailedEvent)

Private DelegateOnClose As New DelegateOnCloseHandler(AddressOf RaiseOnCloseEvent)
    Private DelegateOnCloseFailed As New DelegateOnCloseFailedHandler(AddressOf RaiseOnCloseFailedEvent)

Private Sub RaiseOnConnectEvent()
        RaiseEvent OnConnect()
    End Sub

Private Sub RaiseOnConnectFailedEvent(ByVal Exception As Exception)
        RaiseEvent OnConnectFailed(Exception)
    End Sub

Private Sub RaiseOnWriteEvent()
        RaiseEvent OnWrite()
    End Sub

Private Sub RaiseOnWriteFailedEvent(ByVal Exception As Exception)
        RaiseEvent OnWriteFailed(Exception)
    End Sub

Private Sub RaiseOnReadEvent(ByVal Stream As String)
        RaiseEvent OnRead(Stream)
    End Sub

Private Sub RaiseOnReadFailedEvent(ByVal Exception As Exception)
        RaiseEvent OnReadFailed(Exception)
    End Sub

Private Sub RaiseOnCloseEvent()
        RaiseEvent OnClose()
    End Sub

Private Sub RaiseOnCloseFailedEvent(ByVal Exception As Exception)
        RaiseEvent OnCloseFailed(Exception)
    End Sub

Private Sub OnConnectInvoker()

If (Not SyncInvoke Is Nothing) AndAlso SyncInvoke.InvokeRequired Then
            SyncInvoke.BeginInvoke(DelegateOnConnect, Nothing)
        Else
            RaiseOnConnectEvent()
        End If

End Sub

Private Sub OnConnectFailedInvoker(ByVal Exception As Exception)

If (Not SyncInvoke Is Nothing) AndAlso SyncInvoke.InvokeRequired Then
            SyncInvoke.BeginInvoke(DelegateOnConnectFailed, New Object() {Exception})
        Else
            RaiseOnConnectFailedEvent(Exception)
        End If

End Sub

Private Sub OnWriteInvoker()

If (Not SyncInvoke Is Nothing) AndAlso SyncInvoke.InvokeRequired Then
            SyncInvoke.BeginInvoke(DelegateOnWrite, Nothing)
        Else
            RaiseOnWriteEvent()
        End If

End Sub

Private Sub OnWriteFailedInvoker(ByVal Exception As Exception)

If (Not SyncInvoke Is Nothing) AndAlso SyncInvoke.InvokeRequired Then
            SyncInvoke.BeginInvoke(DelegateOnWriteFailed, New Object() {Exception})
        Else
            RaiseOnWriteFailedEvent(Exception)
        End If

End Sub

Private Sub OnReadInvoker(ByVal Stream As String)

If (Not SyncInvoke Is Nothing) AndAlso SyncInvoke.InvokeRequired Then

SyncInvoke.BeginInvoke(DelegateOnRead, New Object() {Stream})
        Else
            RaiseOnReadEvent(Stream)
        End If

End Sub

Private Sub OnReadFailedInvoker(ByVal Exception As Exception)

If (Not SyncInvoke Is Nothing) AndAlso SyncInvoke.InvokeRequired Then
            SyncInvoke.BeginInvoke(DelegateOnReadFailed, New Object() {Exception})
        Else
            RaiseOnReadFailedEvent(Exception)
        End If

End Sub

Private Sub OnCloseInvoker()

If (Not SyncInvoke Is Nothing) AndAlso SyncInvoke.InvokeRequired Then
            SyncInvoke.BeginInvoke(DelegateOnClose, Nothing)
        Else
            RaiseOnCloseEvent()
        End If

End Sub

Private Sub OnCloseFailedInvoker(ByVal Exception As Exception)

If (Not SyncInvoke Is Nothing) AndAlso SyncInvoke.InvokeRequired Then
            SyncInvoke.BeginInvoke(DelegateOnCloseFailed, New Object() {Exception})
        Else
            RaiseOnCloseFailedEvent(Exception)
        End If

End Sub

#End Region

#Region "Properties"

Public ReadOnly Property IsConnected As Boolean
        Get

If (TcpClient Is Nothing) Then Return False

Try
                Return TcpClient.Connected
            Catch Exception As Exception
                Return False
            End Try

End Get
    End Property

Public ReadOnly Property Ip As String
        Get

If (TcpClient Is Nothing) Then Return Nothing

Try
                Return CType(TcpClient.Client.RemoteEndPoint, IPEndPoint).Address.ToString
            Catch Exception As Exception
                Return Nothing
            End Try

End Get
    End Property

Public ReadOnly Property Port As Integer
        Get

If (TcpClient Is Nothing) Then Return Nothing

Try
                Return CType(TcpClient.Client.RemoteEndPoint, IPEndPoint).Port
            Catch Exception As Exception
                Return Nothing
            End Try

End Get
    End Property

Private ReadOnly Property NetworkStream As NetworkStream
        Get

If (TcpClient Is Nothing) Then Return Nothing

Try
                Return TcpClient.GetStream
            Catch Exception As Exception
                Return Nothing
            End Try

End Get
    End Property

#End Region

#Region "IDisposable Support"
    Private disposedValue As Boolean
    Protected Overridable Sub Dispose(disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
            End If
            TcpClient.Close()
            TcpClient = Nothing
            Erase ReadBuffer
            ReadBuffer = Nothing
            SyncInvoke = Nothing
        End If
        Me.disposedValue = True
    End Sub

Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class

Class collector dispose every class added with one line

VB

Link

'Coded by ShadowTzu
'Free to use

'my 3D engine, Tzu3D: http://shadowtzu.free.fr
'Youtube: https://www.youtube.com/user/shadowtzu
'Facebook: https://www.facebook.com/Tzu3d
'Twitter: https://twitter.com/shadowtzu
'Twitch: http://www.twitch.tv/shadowtzu
'Website: http://tzu3d.weebly.com

''' <summary>
''' Collect class for dispose every class added with one line
''' one call to ClassCollector.Instance.Dispose and every class added are disposed
''' </summary>
''' <remarks></remarks>
Friend Class ClassCollector
    Implements IDisposable

#Region "Singleton"
    Private Shared _ClassCollector As ClassCollector
    Private Shared ReadOnly mylock As New Object()

Public Shared Function Instance() As ClassCollector
        SyncLock (mylock)
            If _ClassCollector Is Nothing Then
                _ClassCollector = New ClassCollector
            End If
            Return _ClassCollector
        End SyncLock
    End Function

Public Shared Function IsInstanced() As Boolean
        If _ClassCollector Is Nothing Then Return False
        Return True
    End Function
#End Region

Private mClassList As Collection

Private Sub New()
        mClassList = New Collection
    End Sub

Friend Sub Add(ByRef AnyClass As Object)
        mClassList.Add(AnyClass)
    End Sub

#Region "Destructor: Dispose Every class added"
    Private disposedValue As Boolean = False
    Protected Friend Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then

For Each anyclass As IDisposable In mClassList
                    anyclass.Dispose()
                    anyclass = Nothing
                Next

mClassList.Clear()
                mClassList = Nothing
            End If

End If
        Me.disposedValue = True
    End Sub

Friend Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class

Twitch.tv Status

VB

Link

'Coded by ShadowTzu
'Free to use
 
'my 3D engine, Tzu3D: http://shadowtzu.free.fr
'Youtube: https://www.youtube.com/user/shadowtzu
'Facebook: https://www.facebook.com/Tzu3d
'Twitter: https://twitter.com/shadowtzu
'Twitch: http://www.twitch.tv/shadowtzu
'Website: http://tzu3d.weebly.com

Imports System.Net
Public Class Twitch
    Implements IDisposable

Private mDataPage As String
    Private Web As Net.WebClient
    Private Splitted() As String

Public Sub New()
        Web = New WebClient
        Web.Proxy = Nothing
        Web.Encoding = System.Text.Encoding.UTF8
    End Sub

Public Sub Load(user As String)

mDataPage = Web.DownloadString("https://api.twitch.tv/kraken/streams/" & user)
        Splitted = Split(mDataPage, """:")

End Sub

Public ReadOnly Property IsOnline() As Boolean
        Get
            If Splitted(4).StartsWith("null") Then
                Return False
            Else
                Return True
            End If
        End Get
    End Property

Public ReadOnly Property Game() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(6), """")(1)

Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property View() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(7), """")(0).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property Started() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(8), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property Preview() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(14), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property Logo() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(33), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property Title() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(35), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property Banner_Offline() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(38), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property User_ID() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(39), """")(0).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property Created() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(41), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property Updated() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(42), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property Follower() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(44), """")(0).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property User_banner() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(45), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property TotalView() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(47), """")(0).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property

Public ReadOnly Property Language() As String
        Get
            If IsOnline Then
                Dim clean As String = Split(Splitted(48), """")(1).Replace(",", "")
                Return clean
            End If
            Return ""
        End Get
    End Property
#Region "IDisposable Support"
    Private disposedValue As Boolean

Protected Overridable Sub Dispose(disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                Web.Dispose()
                Web = Nothing
            End If

End If
        Me.disposedValue = True
    End Sub

Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class

Bitmap Fast

VB

Link

'Coded by ShadowTzu
'Free to use
 
'my 3D engine, Tzu3D: http://shadowtzu.free.fr
'Youtube: https://www.youtube.com/user/shadowtzu
'Facebook: https://www.facebook.com/Tzu3d
'Twitter: https://twitter.com/shadowtzu
'Twitch: http://www.twitch.tv/shadowtzu
'Website: http://tzu3d.weebly.com

Imports System.IO

Friend Class BitmapFast
    Implements IDisposable

#Region "private"
    Private b() As Byte
    Private i_Width As Integer
    Private i_Height As Integer
    Private m_stride As Integer
    Private mLoad_Failed As Boolean
#End Region

#Region "New"
    Sub New(Width As Integer, Height As Integer)
        Me.i_Width = Width
        Me.i_Height = Height
        ReDim b(Height * Width * 4 - 1)
    End Sub

Sub New(ByVal filename As String)
        Me.New(filename, False, 0)
    End Sub

Public Sub New(ByVal filename As String, Optional ByVal clamp As Boolean = False, Optional ByVal clamp_add As Integer = 0)
        If (filename = "") Or (System.IO.File.Exists(filename) = False) Then
            MsgBox("file '" & filename & "' not found!")
            mLoad_Failed = True
            Exit Sub
        End If

Dim pv_bitmap As System.Drawing.Bitmap = Nothing
        Dim image_width, image_height As Integer

Dim myimage As System.Drawing.Image = System.Drawing.Image.FromFile(filename)
        image_height = myimage.Height

If clamp = True Then
            image_height = clamp_base_two(myimage.Height)
            image_width = clamp_base_two(myimage.Width)
            If clamp_add <> 0 Then
                image_height = CInt(myimage.Height / 2) * 2 + clamp_add
                image_width = CInt(myimage.Width / 2) * 2 + clamp_add
            End If
        Else
            image_height = myimage.Height
            image_width = myimage.Width          
        End If
        pv_bitmap = New System.Drawing.Bitmap(myimage, image_width, image_height)

i_Width = pv_bitmap.Width
        i_Height = pv_bitmap.Height

Dim bounds As System.Drawing.Rectangle = New System.Drawing.Rectangle(0, 0, pv_bitmap.Width, pv_bitmap.Height)
        Dim bitmapData As System.Drawing.Imaging.BitmapData = pv_bitmap.LockBits(bounds, Drawing.Imaging.ImageLockMode.ReadOnly, Drawing.Imaging.PixelFormat.Format32bppArgb)

ReDim b(pv_bitmap.Height * bitmapData.Stride - 1)
        m_stride = bitmapData.Stride
        System.Runtime.InteropServices.Marshal.Copy(bitmapData.Scan0, b, 0, b.Length)

bounds = Nothing
        bitmapData = Nothing
        pv_bitmap.Dispose()
        pv_bitmap = Nothing
    End Sub

Private Function clamp_base_two(ByVal value As Integer) As Integer
        Dim clamp_test(0) As Integer

Dim inc_clamp As Integer = 16
        Dim start_test As Integer = 32

clamp_test(0) = start_test
        Dim inc As Integer
        Do While start_test < 4096
            ReDim Preserve clamp_test(inc)
            clamp_test(inc) = start_test + CInt(start_test / 2)
            start_test += inc_clamp
            inc += 1
        Loop
        For i As Integer = 0 To clamp_test.Length - 1
            If value < clamp_test(i) Then
                value = clamp_test(i) - 16
                Erase clamp_test
                Return value
            End If
        Next
        Erase clamp_test
        Return 4096
    End Function

#End Region

#Region "Function Get/Set Pixel"
    Public Function Getpixel(ByVal x As Integer, ByVal y As Integer) As System.Drawing.Color
        Dim red, green, blue, Alpha As Byte
        If x > Me.i_Width Then x = x Mod i_Width
        If y > Me.i_Height Then y = y Mod i_Height
        If x < 0 Then x = Me.i_Width - (Math.Abs(x) Mod i_Width)
        If y < 0 Then y = Me.i_Height - (Math.Abs(y) Mod i_Height)

red = b((x * 4) + y * m_stride)
        green = b((x * 4 + 1) + y * m_stride)
        blue = b((x * 4 + 2) + y * m_stride)
        Alpha = b((x * 4 + 3) + y * m_stride)

Return System.Drawing.Color.FromArgb(Alpha, red, green, blue)
    End Function

Public Sub Setpixel(ByVal x As Integer, ByVal y As Integer, ByVal color As System.Drawing.Color)
        Dim red, green, blue, Alpha As Byte
        red = color.R : green = color.G : blue = color.B : Alpha = color.A
        b((x * 4) + y * m_stride) = blue
        b((x * 4 + 1) + y * m_stride) = green
        b((x * 4 + 2) + y * m_stride) = red
        b((x * 4 + 3) + y * m_stride) = Alpha
    End Sub

Public Property Pixel(X As Integer, Y As Integer) As System.Drawing.Color
        Get
            Return Getpixel(X, Y)
        End Get
        Set(value As System.Drawing.Color)
            Setpixel(X, Y, value)
        End Set
    End Property

#End Region

#Region "property"
    Public ReadOnly Property Load_Failed As Boolean
        Get
            Return mLoad_Failed
        End Get
    End Property

Public ReadOnly Property Width() As Integer
        Get
            Return i_Width
        End Get
    End Property

Public ReadOnly Property Height() As Integer
        Get
            Return i_Height
        End Get
    End Property

Public Function Get_Bitmap() As System.Drawing.Bitmap

Get_Bitmap = New System.Drawing.Bitmap(i_Width, i_Height, Drawing.Imaging.PixelFormat.Format32bppArgb)

Dim bounds As System.Drawing.Rectangle = New System.Drawing.Rectangle(0, 0, Get_Bitmap.Width, Get_Bitmap.Height)
        Dim bitmapData As System.Drawing.Imaging.BitmapData = Get_Bitmap.LockBits(bounds, Drawing.Imaging.ImageLockMode.ReadOnly, Drawing.Imaging.PixelFormat.Format32bppArgb)

System.Runtime.InteropServices.Marshal.Copy(b, 0, bitmapData.Scan0, b.Length)
        Get_Bitmap.UnlockBits(bitmapData)

End Function
#End Region

#Region "save"
    Public Sub Save(ByVal filename As String, ByVal format As System.Drawing.Imaging.ImageFormat)
        Dim pv_bitmap As System.Drawing.Bitmap = Nothing
        pv_bitmap = New System.Drawing.Bitmap(i_Width, i_Height, Drawing.Imaging.PixelFormat.Format32bppArgb)

Dim bounds As System.Drawing.Rectangle = New System.Drawing.Rectangle(0, 0, pv_bitmap.Width, pv_bitmap.Height)
        Dim bitmapData As System.Drawing.Imaging.BitmapData = pv_bitmap.LockBits(bounds, Drawing.Imaging.ImageLockMode.ReadOnly, Drawing.Imaging.PixelFormat.Format32bppArgb)

System.Runtime.InteropServices.Marshal.Copy(b, 0, bitmapData.Scan0, b.Length)

pv_bitmap.Save(filename, format)
        pv_bitmap.Dispose()
        pv_bitmap = Nothing

End Sub
#End Region

Private disposedValue As Boolean = False

Protected Friend Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then

End If

Erase b
            b = Nothing

End If
        Me.disposedValue = True
    End Sub

#Region " IDisposable Support "
    Friend Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class

Html Extractor

VB

Link

'Coded by ShadowTzu
'Free to use

'my 3D engine, Tzu3D: http://shadowtzu.free.fr
'Youtube: https://www.youtube.com/user/shadowtzu
'Facebook: https://www.facebook.com/Tzu3d
'Twitter: https://twitter.com/shadowtzu
'Twitch: http://www.twitch.tv/shadowtzu
'Website: http://tzu3d.weebly.com

Imports System.Net

Public Class Extractor
    Implements IDisposable

#Region "Structure"
    Public Structure struct_Element
        Friend mtext As String
        Friend mAttributes_Name() As String
        Friend mAttributes_Value() As String
        Public ReadOnly Property InnerText As String
            Get
                Return mtext
            End Get
        End Property
        Public ReadOnly Property Attribut(Name As String) As String
            Get
                If mAttributes_Name Is Nothing Then Return Nothing
                For i As Integer = 0 To mAttributes_Name.Length - 1
                    If mAttributes_Name(i) = Name.ToLower Then Return mAttributes_Value(i)
                Next
                Return Nothing
            End Get
        End Property

Public Function Element(balise As String, Index As Integer) As struct_Element
            Return Create_element(balise, Index, mtext)
        End Function
    End Structure

Private Structure struct_Balise
        Public Name As String
        Public Attributes As String
        Public Value As String
        Public Start As Integer
        Public Length As Integer
    End Structure
#End Region

Private mDataPage As String
    Private Web As Net.WebClient

#Region "Constructeur"
    Public Sub New()
        Web = New WebClient
	Web.Proxy = Nothing
        Web.Encoding = System.Text.Encoding.UTF8

'Example:
        'Dim ExtractData As New Extractor
        'ExtractData.Load("http://www.youtube.com/results?search_query=telemann") 
        'Dim elem As Extractor.struct_Element = ExtractData.Element("ol", 1)
        'Dim elemUrl As Extractor.struct_Element = elem.Element("a", 1)
        'MsgBox("http://www.youtube.com" & elemUrl.Attribut("href") & " = " & elemUrl.InnerText & vbCrLf)
    End Sub
#End Region

#Region "Load"
    Public Sub Load(url As String)
        Try
            mDataPage = Web.DownloadString(url)
        Catch
        End Try
    End Sub

Public Sub Load_FromString(Data As String)
        mDataPage = Data
    End Sub
#End Region

#Region "Public"
    Public Function Element(balise As String, Index As Integer) As struct_Element
        Return Create_element(balise, Index, mDataPage)
    End Function
#End Region

#Region "Private"

''' <summary>
    ''' Cr�� un element � partir des donn�es extraite
    ''' </summary>
    ''' <param name="balise"></param>
    ''' <param name="index"></param>
    ''' <param name="data"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Shared Function Create_element(balise As String, index As Integer, data As String) As struct_Element
        data = data.Replace(""", """")
        Dim myElement As struct_Element = Nothing

Dim start_index As Integer
        Dim myBalise As struct_Balise = Nothing

For i As Integer = 0 To index
            myBalise = Search(balise, start_index, data)
            start_index = myBalise.Start + myBalise.Length
        Next i
        If myBalise.Attributes <> "" Then
            Dim dec_attrib() As String = Split(myBalise.Attributes, """")
            ReDim myElement.mAttributes_Name(dec_attrib.Length \ 2)
            ReDim myElement.mAttributes_Value(myElement.mAttributes_Name.Length - 1)
            Dim t As Integer = 0
            For i As Integer = 0 To myElement.mAttributes_Name.Length - 2
                myElement.mAttributes_Name(i) = ClearString(dec_attrib(t)).Replace("=", "")
                myElement.mAttributes_Value(i) = ClearString(dec_attrib(t + 1))
                t += 2
            Next i
        End If
        myElement.mtext = myBalise.Value

Return myElement
    End Function

''' <summary>
    ''' Recherche une balise et r�cup�re tout ce qu'elle contient
    ''' </summary>
    ''' <param name="Balise"></param>
    ''' <param name="Start_Index"></param>
    ''' <param name="data"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Shared Function Search(Balise As String, Start_Index As Integer, data As String) As struct_Balise
        Dim myBalise As struct_Balise = Extract_Attrib(Balise, data, Start_Index)
        Extract_Value(myBalise, data)
        myBalise.Value = ClearString(myBalise.Value)
        Return myBalise
    End Function

''' <summary>
    ''' extrait les attributs d'une balise
    ''' </summary>
    ''' <param name="balise"></param>
    ''' <param name="data"></param>
    ''' <param name="Start_Index"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Shared Function Extract_Attrib(balise As String, data As String, Start_Index As Integer) As struct_Balise
        Dim Data_start As Integer = data.IndexOf("<" & balise, Start_Index)
        If Data_start = -1 Then Return Nothing
        Dim next_str As String = data.Substring(Data_start + balise.Length + 1, 1)
        Dim IsWord As Boolean

Dim alphabet As String = "abcdefghijklmnopqrstuvwxyz"
        Do While IsWord = False
            IsWord = True
            For j As Integer = 0 To alphabet.Length - 1
                If next_str.ToLower = alphabet(j) Then
                    IsWord = False
                    Data_start = data.IndexOf("<" & balise, Data_start + balise.Length + 1)
                    If Data_start = -1 Then Exit Do
                    next_str = data.Substring(Data_start + balise.Length + 1, 1)
                    Exit For
                End If
            Next
        Loop
        If Data_start = -1 Then Return Nothing

Dim data_end As Integer = data.IndexOf(">", Data_start + balise.Length + 1)
        If data_end = -1 Then Return Nothing

Dim myBalise As struct_Balise = Nothing
        myBalise.Attributes = data.Substring(Data_start + balise.Length + 1, data_end - Data_start - balise.Length - 1)

myBalise.Start = Data_start
        myBalise.Name = balise

Return myBalise
    End Function

''' <summary>
    ''' r�cup�re ce que contient une balise
    ''' </summary>
    ''' <param name="balise"></param>
    ''' <param name="data"></param>
    ''' <remarks></remarks>
    Private Shared Sub Extract_Value(ByRef balise As struct_Balise, data As String)
        If balise.Name = "" Then Exit Sub
        Dim ends As Integer = data.IndexOf(balise.Name & ">", balise.Start + balise.Name.Length + 1 + balise.Attributes.Length + 1)
        Dim sub_start, sub_length As Integer
        sub_start = balise.Start + balise.Name.Length + 1 + balise.Attributes.Length + 1
        sub_length = ends - sub_start
        balise.Value = data.Substring(sub_start, sub_length - 2)
        balise.Length = sub_length
    End Sub

''' <summary>
    ''' enl�ve les retours chariot
    ''' </summary>
    ''' <param name="text"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Shared Function ClearString(text As String) As String
        If text = "" Then Return ""
        Return Trim(text.Replace(vbCrLf, "").Replace(vbLf, ""))
    End Function

#End Region

#Region "Destructeur"
    Private disposedValue As Boolean

' IDisposable
    Protected Overridable Sub Dispose(disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                Me.Web.Dispose()
                Me.Web = Nothing
            End If
            mDataPage = Nothing
        End If
        Me.disposedValue = True
    End Sub

Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class

Regex Search from text or url

VB

Link

Imports System.Text.RegularExpressions
Imports System.Net

Public Class RegexFound
    Implements IDisposable

Private Structure struct_Order
        Public Index As Integer
        Public Group As Integer
        Public Pattern As String
        Public Navigate As Boolean
    End Structure
    Private mOrder_List As List(Of struct_Order)

Private Web As Net.WebClient
    Private mCurrentData As String

Public Sub New()
        mOrder_List = New List(Of struct_Order)
        Web = New WebClient
        Web.Encoding = System.Text.Encoding.UTF8
    End Sub

Public Sub Start(Url As String)
        mCurrentData = Web.DownloadString(Url)
    End Sub
    Public Sub Start_FromText(text As String)
        mCurrentData = text
    End Sub

''' <summary>
    ''' Add regex
    ''' </summary>
    ''' <param name="Index">-1 = every match found or 0=first match, 1=second match, etc...</param>
    ''' <param name="Group">create group with (parenthesis). group 0=no group, 1=first group</param>
    ''' <param name="Pattern">regex pattern</param>
    ''' <param name="Navigate">if the match is url you can download string from it</param>
    ''' <remarks></remarks>
    Public Sub Add(Index As Integer, Group As Integer, Pattern As String, Optional Navigate As Boolean = False)
        Dim mNewOrder As struct_Order
        mNewOrder.Index = Index
        mNewOrder.Pattern = Pattern
        mNewOrder.Navigate = Navigate
        mNewOrder.Group = Group
        mOrder_List.Add(mNewOrder)
    End Sub

Public Sub Clear()
        mOrder_List.Clear()
    End Sub

''' <summary>
    ''' test pattern with the current data without save it to working text
    ''' </summary>
    ''' <param name="Pattern"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function Test(Pattern As String) As String
        Dim Result As MatchCollection

Result = Regex.Matches(mCurrentData, Pattern)
        Dim data As String = Nothing
        For i As Integer = 0 To Result.Count - 1
            data &= i & ": " & Result(i).Value
            If i < Result.Count - 1 Then data &= vbCrLf
        Next
        Return data
    End Function

''' <summary>
    ''' process every regex and return final data
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function Process() As String
        Dim Result As MatchCollection
        For i As Integer = 0 To mOrder_List.Count - 1
            Result = Regex.Matches(mCurrentData, mOrder_List(i).Pattern)
            If mOrder_List(i).Index = -1 Then
                mCurrentData = ""
                For j As Integer = 0 To Result.Count - 1
                    mCurrentData &= Result(j).Groups(mOrder_List(i).Group).Value                 
                    If j < Result.Count - 1 Then mCurrentData &= vbCrLf
                Next
            Else
                mCurrentData = Result(mOrder_List(i).Index).Groups(mOrder_List(i).Group).Value
            End If

If mOrder_List(i).Navigate Then
                mCurrentData = Web.DownloadString(mCurrentData)
            End If
        Next
        Return mCurrentData
    End Function

#Region "IDisposable Support"
    Private disposedValue As Boolean

Protected Overridable Sub Dispose(disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                mOrder_List.Clear()
                mOrder_List = Nothing
                Web.Dispose()
                Web = Nothing
            End If

End If
        Me.disposedValue = True
    End Sub

Public Sub Dispose() Implements IDisposable.Dispose    
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class

Distance and time between two locations

VB

Link

Search on twitter

VB

Link

Imports System.Xml
Imports System.Web

Public Class Form1
    Private Structure struct_Tweet
        Public guid As String
        Public Title As String
        Public link As String
        Public description As String
        Public pubDate As String
        Public enclosure As String
        Public category As String
    End Structure

Private Tweets As List(Of struct_Tweet)

Private mUrl_Search As String = "http://www.queryfeed.net/twitter?q="
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Tweets = New List(Of struct_Tweet)

'Process("shadowtzu")
        Process("#gamedev")
        '100 is maximum 
        If Tweets.Count > 0 Then
            MsgBox("Result Count: " & Tweets.Count & vbCrLf _
                & "Last Tweet: " & vbCrLf _
               & "User: " & Tweets(0).Title & vbCrLf _
                & "Date: " & Tweets(0).pubDate & vbCrLf _
                & "Text: " & Tweets(0).description)
        End If

End Sub

Private Sub Process(Search As String)     
        'Dim SDate As DateTime = Date.Now.AddDays(-1)
      '  Dim Since As String = "since:" & SDate.Year & "-" & SDate.Month & "-" & SDate.Day
        Dim doc As New XmlDocument()
        Dim HasError As Boolean = False
        Do
            Try
                doc.Load(Url_Search(Search)) ' & " " & Since
                HasError = False
            Catch ex As Exception
                HasError = True
            End Try
        Loop While HasError = True

For Each MainNode As XmlNode In doc.ChildNodes
            For Each rss As XmlNode In MainNode
                If rss.Name = "channel" AndAlso rss.HasChildNodes Then
                    For Each Child As XmlNode In rss.ChildNodes
                        If Child.Name = "item" AndAlso Child.HasChildNodes Then
                            Dim NewTweet As struct_Tweet = Nothing
                            With NewTweet
                                If Not Child("guid") Is Nothing Then .guid = Child("guid").InnerText
                                If Not Child("title") Is Nothing Then .Title = Child("title").InnerText
                                If Not Child("link") Is Nothing Then .link = Child("link").InnerText
                                If Not Child("description") Is Nothing Then .description = Child("description").InnerText
                                If Not Child("pubDate") Is Nothing Then .pubDate = Child("pubDate").InnerText
                                If Not Child("enclosure") Is Nothing Then .enclosure = ReadTag(Child("enclosure"), "url")                                
                                If Not Child("category") Is Nothing Then .category = Child("category").InnerText
                            End With
                            Tweets.Add(NewTweet)
                        End If
                    Next
                End If
            Next
        Next

End Sub

Private Function Url_Search(Search As String) As String
        Return mUrl_Search & URLEncode(Search) & "&geocode="
    End Function

Private Function ReadTag(Node As XmlNode, Tag As String, Optional DefaultValue As String = "") As String
        If Not Node.Attributes Is Nothing Then

If Not Node.Attributes(Tag) Is Nothing Then
                Return Node.Attributes(Tag).Value
            Else
                Return DefaultValue
            End If
        Else
            Return DefaultValue
        End If
    End Function

Public Function URLEncode(StringToEncode As String) As String
        Return HttpUtility.UrlEncode(StringToEncode)
    End Function

End Class

Round direction vector from an angle

VB

Link

Camera Lerp

VB

Link