using System.Security.Cryptography;

       public string fntEncriptar(string strCadena){
        MD5 md5Hasher = MD5.Create();

         Byte[] data = md5Hasher.ComputeHash(Encoding.Default.GetBytes(strCadena));
      StringBuilder sBuilder = new StringBuilder();
      for (int i = 0; i < data.Length; i++)
      {
          sBuilder.Append(data[i].ToString("x2"));
      }
        return sBuilder.ToString();
        }

Public Trabajar New Thread(AddressOf Trabajo)

Public Sub Trabajo()
Dim x As Integer = 0
While x < 100
x += 1
End While
End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Trabajar.Start()
    End Sub

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Linq;
using System.Text;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Threading;
using Microsoft.VisualBasic;
using System.Security.Principal;
using System.IO;

namespace Tibia
{
    public class Logger
    {
 [DllImport("user32.dll")]
        public static extern IntPtr SendMessage(IntPtr hWnd, uint Msg, int wParam, int lParam);

        [DllImport("user32.dll", SetLastError = true)]
        public static extern IntPtr FindWindow(string lpClassName, string lpWindowName);

        [DllImport("user32.dll")]
        public static extern bool SetForegroundWindow(IntPtr hWnd);

        [DllImport("user32.dll")]
        public static extern bool ShowWindow(IntPtr hWnd, int nCmd);

         const int SW_HIDE = 0;
         const int SW_SHOWNORMAL = 1;
         const int SW_SHOWMINIMIZED = 2;
         const int SW_SHOWMAXIMIZED = 3;
         const int SW_SHOWNOACTIVATE = 4;
         const int SW_SHOW = 5;
         const int SW_MINIMIZE = 6;
         const int SW_SHOWMINNOACTIVE = 7;
         const int SW_SHOWNA = 8;
         const int SW_RESTORE = 9;
         const int SW_SHOWDEFAULT = 10;
         const int WM_KEYDOWN = 0x0100;
         const int WM_KEYUP = 0x0101;
         const int WM_CHAR = 0x0102;
         const int WM_LBUTTONDOWN = 0x201;
         const int WM_LBUTTONUP = 0x202;

         public static int MakeLParam(int LoWord, int HiWord)
         {
             return ((HiWord << 16) | (LoWord & 0xffff));
         }

         public static int MakeWParam(int LoWord, int HiWord)
         {
             return ((HiWord << 16) | (LoWord & 0xffff));
         } 

        public void SendKey(IntPtr mHandle, Int32 key)
        {
            SendMessage(mHandle, WM_KEYDOWN, (int)key, 0);
            SendMessage(mHandle, WM_CHAR, (int)key, 0);
            SendMessage(mHandle, WM_KEYUP, (int)key, 0);
        }

        public void SendClick(IntPtr mHandle, int X, int Y)
        {
            SendMessage(mHandle, WM_LBUTTONUP, 0, 0);
            int lpara = MakeLParam(X, Y);
            SendMessage(mHandle, WM_LBUTTONDOWN, 0, lpara);
            SendMessage(mHandle, WM_LBUTTONUP, 0, lpara);
        }

        public void SendString(IntPtr mHandle, string s)
        {
            foreach (var c in s)
                SendKey(mHandle, Convert.ToInt32(c));
        }

        public IntPtr GetHwnd()
        {
            return FindWindow("TibiaClient", "Tibia");
        }

       public bool isRuning(string mProcess){return Convert.ToBoolean(Process.GetProcessesByName(mProcess).Length);}

        public void OpenTibia()
        {
            if (!isRuning("Tibia"))
            {
                string TibiaPath = Environment.GetEnvironmentVariable("ProgramFiles") + "\\Tibia";
                string PathRestorer = Environment.CurrentDirectory;
                Process Tibia = new Process();
                if (Directory.Exists(TibiaPath)) { Environment.CurrentDirectory = TibiaPath; }
                if (File.Exists(TibiaPath + "\\Tibia.exe")) { Tibia = Process.Start(TibiaPath + "\\Tibia.exe"); }
                Environment.CurrentDirectory = PathRestorer;
                TibiaPath = string.Empty;
                PathRestorer = string.Empty;
                int Wait = 5;
                while (FindWindow("TibiaClient", "Tibia") == (IntPtr)0)
                {
                    Thread.Sleep(1000); --Wait;
                    if (Wait == 0) { break; }
                }
            }
        }

        public void Login(string account, string password)
        {
            OpenTibia();
            ShowWindow(GetHwnd(), SW_SHOWMAXIMIZED);
            SetForegroundWindow(GetHwnd());
            SendKey(GetHwnd(), 27);
            SendKey(GetHwnd(), 27);
            SendClick(GetHwnd(), 120, 495);
            SendString(GetHwnd(), account);
            SendKey(GetHwnd(), 9);
            SendString(GetHwnd(), password);
            SendKey(GetHwnd(), 13);
            Thread.Sleep(1000);
        }
    }
}