Like Button 1 : ACtivate , Button 2 Disconect
If IO.File.Exists("sxs.dll") = False Then // if file sxs.dll not exist then it extract the sxs.dll from your resources
Dim Datei As Object = My.Resources.sxs // take it from resources
IO.File.WriteAllBytes("sxs.dll", Datei) // set the file on the new place
End If
Diagnostics.Process.Start("patcher_cf.exe")
If Process.GetProcessesByName("Crossfire").Length > 0 Then
Else
Timer.Stop()
// here delete the sxs.dll file
End If
stream.WriteLine("del ""sxs.dll"" 2>nul")
Imports System****
