Public Declare Sub UrlMkSetSessionOption Lib "urlmon.dll" _
(ByVal dwOption As Long, ByRef pBuffer As Any, _
ByVal dwBufferLength As Long, ByVal dwReserved As Long)

Dim I As Integer
I = UrlMkSetSessionOption(37, "Browser de prueba", Len("Browser de prueba"), 0)
MsgBox I

Private Declare Function UrlMkSetSessionOption Lib "urlmon" (ByVal dwOption As String, ByVal pBuffer As String, ByVal dwBufferLength As Long, ByVal dwReserved As Long) As Long

Dim I As Long
 I = UrlMkSetSessionOption("URLMON_OPTION_USERAGENT", "Browser de prueba", 18, 0)
 MsgBox I

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent

Public Function sAddKBytes(sPath As String, lKb As Integer)
'Autor: Slek
'Objetivo: Añadir Bytes a un Archivo
'Nota, se añaden KiloBytes
'Ej: sAddBytes "C:\Test.exe", 2 '(Añade 2 KiloBytes)
Dim sKbyte As String
Dim i As Integer
Dim FF

FF = FreeFile

sKbyte = String(1024, vbNullChar)

Open sPath For Binary As #FF
For i = 1 To lKb
  Put #FF, LOF(FF) + 1, sKbyte
Next i
Close #FF
End Function

#include <iostream.h>
#include <string.h>
#include <stdlib.h>
int funcion( char * cadena[], int start,int length);



main()
{

char palabra[10]= "Prueba";



cout <<  funcion(palabra,1,3);


	return 0;
}

int funcion( char * cadena[], int start,int length)
{
	char * tmp;

	for (int n = start -1;n<start - length;n++)
	{
	strcat(tmp,cadena[n]);
	}

	return atoi(tmp);
}