Giri G Seku muhdkhokhar

## gist:42776805b42b973e9b791ffaa4caa504
' Add the necessary references to your VBA project:
' - Microsoft XML, v6.0
' - Microsoft Scripting Runtime

Public Function PostJsonWithBearerToken(apiUrl As String, jsonPayload As String, bearerToken As String) As String
    Dim http As Object
    Dim responseText As String

    ' Create the HTTP object
    Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")

## gist:f0ef734e3fd96060011b3323a45422a5
' Add the necessary references to your VBA project:
' - Microsoft XML, v6.0
' - Microsoft Scripting Runtime

Public Function Base64Encode(text As String) As String
    Dim arrData() As Byte
    arrData = StrConv(text, vbFromUnicode)
    Dim objXML As Object
    Set objXML = CreateObject("MSXML2.DOMDocument.6.0")
    Dim objNode As Object

## gist:63496ab1e6cb4fdf2067ecfa1cf9fbfe
import org.springframework.http.HttpEntity;
import org.springframework.http.HttpHeaders;
import org.springframework.http.HttpMethod;
import org.springframework.http.MediaType;
import org.springframework.http.ResponseEntity;
import org.springframework.web.client.RestTemplate;
import com.fasterxml.jackson.databind.JsonNode;
import com.fasterxml.jackson.databind.ObjectMapper;

import java.util.HashMap;

## gist:5090272fb99789c67aa5ea985a53b5d7
import okhttp3.*;
import com.google.gson.JsonObject;
import com.google.gson.JsonParser;
import java.io.IOException;

public class OAuth2TokenGenerator {

    private static final String TOKEN_URL = "https://your-auth-server.com/oauth/token";
    private static final String CLIENT_ID = "your-client-id";
    private static final String CLIENT_SECRET = "your-client-secret";

## gist:b781c975268c9e909bbb136c2c4e0e63
' Add the necessary references to your VBA project:
' - Microsoft XML, v6.0
' - Microsoft Scripting Runtime

Public Function GetOAuth2TokenWithPassword(clientId As String, clientSecret As String, tokenUrl As String, username As String, password As String) As String
    Dim http As Object
    Dim json As Object
    Dim jsonConverter As New JsonConverter
    Dim payload As String
    Dim responseText As String

## gist:47d42812343bb0d25797770fb471fefb
Sub RunJavaScriptUsingIE()
    On Error GoTo ErrorHandler

    ' Create Internet Explorer object
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")

    ' Create an HTML page with JavaScript
    Dim html As String
    html = "<html><head><script type='text/javascript'>" & _

## gist:f25ccedc76a1d8fc7876f0a903e45185
Sub RunJavaScript()
    ' Declare the ScriptControl object
    Dim sc As Object
    Set sc = CreateObject("MSScriptControl.ScriptControl")

    ' Set the language to JavaScript
    sc.Language = "JScript"

    ' Write the JavaScript code you want to execute
    Dim jsCode As String

## gist:3f68886308a7b0e88eb0d3080e6e8b5d
import com.jacob.activeX.ActiveXComponent;
import com.jacob.com.Dispatch;
import com.jacob.com.Variant;

public class UpdateExcel {
    public static void main(String[] args) {
        // Create an instance of the Excel application
        ActiveXComponent excelApp = new ActiveXComponent("Excel.Application");

        try {

## gist:127a01415aa89f5df78c86f050e9e9a0
import java.util.HashSet;
import java.util.Set;
import java.util.regex.Matcher;
import java.util.regex.Pattern;

public class PlaceholderExtractor {
    public static void main(String[] args) {
        String input = "abc %current_uk_time% test %another_one%";

        // Extract placeholders from the input string

## gist:bbc645bb9e2a7c37090c6996868b14c6
import java.util.HashMap;
import java.util.Map;
import java.util.regex.Matcher;
import java.util.regex.Pattern;

public class PlaceholderReplacer {
    public static void main(String[] args) {
        String input = "abc %current_uk_time% test %another_one%";

        // Create a map with placeholder values
	' Add the necessary references to your VBA project:
	' - Microsoft XML, v6.0
	' - Microsoft Scripting Runtime

	Public Function PostJsonWithBearerToken(apiUrl As String, jsonPayload As String, bearerToken As String) As String
	Dim http As Object
	Dim responseText As String

	' Create the HTTP object
	Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
	import org.springframework.http.HttpEntity;
	import org.springframework.http.HttpHeaders;
	import org.springframework.http.HttpMethod;
	import org.springframework.http.MediaType;
	import org.springframework.http.ResponseEntity;
	import org.springframework.web.client.RestTemplate;
	import com.fasterxml.jackson.databind.JsonNode;
	import com.fasterxml.jackson.databind.ObjectMapper;

	import java.util.HashMap;
	import okhttp3.*;
	import com.google.gson.JsonObject;
	import com.google.gson.JsonParser;
	import java.io.IOException;

	public class OAuth2TokenGenerator {

	private static final String TOKEN_URL = "https://your-auth-server.com/oauth/token";
	private static final String CLIENT_ID = "your-client-id";
	private static final String CLIENT_SECRET = "your-client-secret";
	Sub RunJavaScriptUsingIE()
	On Error GoTo ErrorHandler

	' Create Internet Explorer object
	Dim ie As Object
	Set ie = CreateObject("InternetExplorer.Application")

	' Create an HTML page with JavaScript
	Dim html As String
	html = "<html><head><script type='text/javascript'>" & _
	Sub RunJavaScript()
	' Declare the ScriptControl object
	Dim sc As Object
	Set sc = CreateObject("MSScriptControl.ScriptControl")

	' Set the language to JavaScript
	sc.Language = "JScript"

	' Write the JavaScript code you want to execute
	Dim jsCode As String
	import com.jacob.activeX.ActiveXComponent;
	import com.jacob.com.Dispatch;
	import com.jacob.com.Variant;

	public class UpdateExcel {
	public static void main(String[] args) {
	// Create an instance of the Excel application
	ActiveXComponent excelApp = new ActiveXComponent("Excel.Application");

	try {
	import java.util.HashSet;
	import java.util.Set;
	import java.util.regex.Matcher;
	import java.util.regex.Pattern;

	public class PlaceholderExtractor {
	public static void main(String[] args) {
	String input = "abc %current_uk_time% test %another_one%";

	// Extract placeholders from the input string
	import java.util.HashMap;
	import java.util.Map;
	import java.util.regex.Matcher;
	import java.util.regex.Pattern;

	public class PlaceholderReplacer {
	public static void main(String[] args) {
	String input = "abc %current_uk_time% test %another_one%";

	// Create a map with placeholder values