Dim hWnd As IntPtr = GetForegroundWindow()'hWnd хрома
Dim destControl As Integer = FindWindowEx(hWnd, IntPtr.Zero, "Chrome_RenderWidgetHostHWND", Nothing)
SendMessage(destControl, 256, Keys.Tab, 0)'ошибка

Private Declare Function GetForegroundWindow Lib "user32" () As IntPtr
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer

function getElementByXPath(path, otec) {
	return document.evaluate(path, otec, null, XPathResult.FIRST_ORDERED_NODE_TYPE, null).singleNodeValue;
}
function main(){
	var xxx = getElementByXPath('//html/body/div/div/div/div[2]/main/div/div/div[1]/form/div/div[1]/label/div/div[2]/div/input', document);
	xxx.value = '88005553535';
	xxx = getElementByXPath('//html/body/div/div/div/div[2]/main/div/div/div[1]/form/div/div[2]/label/div/div[2]/div/input', document);
	xxx.value = '111111';
}
main();

cooki = bot.Manage.Cookies

bot2.Manage.AddCookie(cooka.Name, cooka.Value)

bot.Get(httpss)

bot.Refresh()