[Bot] NHC BOT

SETX EC2_HOME "C:\ec2api"
SETX EC2_KEYPAIR "XXXXX"
SETX EC2_CERT "C:\ec2api\conf\cert.pem"
SETX EC2_PRIVATE_KEY "C:\ec2api\conf\pk.pem"
SETX EC2_URL "https://ec2.eu-west-1.amazonaws.com"
SETX JAVA_HOME "C:\Progra~1\Java\jre7"
SETX INSTANCE_ID "i-XXXXXXX"

Sleep(5 * 60 * 1000) ;w8 5 min after win start for OpenVPN autostart

Run("Restart_after_acc_complete.exe", "", @SW_MAXIMIZE)

$win_title = "PVP.net Patcher Kernel" ;u can delete code after this line (kernel error fixer)
Run("NHC2.exe", "", @SW_MAXIMIZE)
Sleep(1000)
While true
   If WinExists($win_title, "")  Then
	  WinActivate($win_title, "")
	  Sleep(1000)
	  Send("{ENTER}")
	  Sleep(1000)
	  ProcessClose("rads_user_kernel.exe")
	  ProcessClose("NHC2.exe")
	  Sleep(1000)
	  Run("NHC2.exe", "", @SW_MAXIMIZE)
   EndIf
   Sleep(30 * 1000)
WEnd

#include <Array.au3>
#include <Date.au3>

#requireadmin

$aFile="acclogs.txt"
$array=FileGetTime($aFile)
$LastUpdated=$array[5]+60*$array[4]+60*60*$array[3] ;get file time in seconds (hours *3600 + mins * 60 + secs)

While 1
   $array=FileGetTime($aFile)
   $Updated=$array[5]+60*$array[4]+60*60*$array[3]
	If ($Updated <> $LastUpdated) Then ; If new acc was compleated
	  RestartVPN()
	EndIf
    Sleep(10 * 1000)
WEnd

Func RestartVPN()
   ProcessClose("NHC2.exe")
   ProcessClose("Starter.exe")
   RunWait(@ComSpec & " /c " & EnvGet("EC2_HOME") & "\bin\ec2-stop-instances " & EnvGet("INSTANCE_ID"), EnvGet("EC2_HOME"), @SW_MAXIMIZE) ;STOP EC2 instance
   Sleep(60000)
   RunWait(@ComSpec & " /c " & EnvGet("EC2_HOME") & "\bin\ec2-start-instances " & EnvGet("INSTANCE_ID"), EnvGet("EC2_HOME"), @SW_MAXIMIZE) ;START EC2 instance
   Sleep(60000)
   RunWait(@ComSpec & " /c " & EnvGet("EC2_HOME") & "\bin\ec2-describe-instances > " & EnvGet("EC2_HOME") & "\ip.txt", EnvGet("EC2_HOME"), @SW_MAXIMIZE) ;GET NEW IP (with additional crap)
   Sleep(30000)
   RunWait(EnvGet("EC2_HOME") & "\extractIpAndUpdateVpn.exe", EnvGet("EC2_HOME"), @SW_MAXIMIZE) ;Extract IP and update openvpn conf file
   Sleep(15000)
   Shutdown(2) ;reboot
EndFunc

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Text;
using System.Text.RegularExpressions;

namespace extractIpAndUpdateVpn
{
    class Program
    {
        // Edit thease lines
        private static string OPEN_VPN_CONFIG = @"C:\Program Files\OpenVPN\config\client.ovpn";
        private static string IP_FILE = @"C:\ec2api\ip.txt";
        static Regex ipregex = new Regex(@"ec.{0,50}amazonaws.com");
        private static string LOG_FILE = @"C:\ec2api\iplog.txt";

        // Do not touch
        static void Main(string[] args)
        {
            StreamReader streamReader = new StreamReader(IP_FILE);
            string newip = ipregex.Match(streamReader.ReadToEnd()).Value;
            streamReader.Close();
            streamReader = new StreamReader(OPEN_VPN_CONFIG);
            string conf = streamReader.ReadToEnd();
            streamReader.Close();
            string oldip = ipregex.Match(conf).Value;
            if (oldip.Length < 10 || newip.Length < 10)
            {
                throw new Exception("Too short Ip");
            }
            conf = conf.Replace(oldip, newip);
            StreamWriter streamWriter = new StreamWriter(OPEN_VPN_CONFIG, false);
            streamWriter.Write(conf);
            streamWriter.Close();
            File.Delete(IP_FILE);
            streamWriter = new StreamWriter(LOG_FILE, true);
            streamWriter.WriteLine(oldip + "\t->\t" +  newip);
            streamWriter.Close();
        }
    }
}