int main()
{
	int edad;
 
	cout << "Edad: >" << endl;
 
	cin >> edad;
 
	bool asd = edad < 8 || edad > 11 ? false : true;
 
	if (!asd)
	{
		cout << "Este software no es adecuado para tu edad, para solucionar tu problema ingresa a http://www.spammmmmm.com" << endl;
	}
 
	system("pause");
 
	return 0;
}
 

Ésto repercute en la lógica más que nada, si vos ponés, cuánto es 1 + 1 y como resultado tenés "pepe" patealo, pero ese es el iif de vb6, además, si no sabe escribir un número, de por sí ya es obvio que ese software no es adecuado para su edad, aunque creo que un chico/a entre 8 a 11 entendería mejor la consigna y no querría romper el sistema 

Funcionando para pasar de min a may (me sirve para tenerlo en el foro por si lo busco), ahora veo el tema de los tildes.

#include <iostream>
#include <Windows.h>
 
using namespace std;
 
int main()
{
	//PRUEBAS
	unsigned char asd;
 
	asd = 'a'; //97
	asd = 'ñ'; //241
	asd = 'z'; //122
 
	asd = 'A'; //65
	asd = 'Ñ'; //209
	asd = 'Z'; //90
 
	cout << int(asd) << endl;
	//PRUEBAS
 
	char cad[100];
 
	printf("Frase: ");
	gets(cad);
 
	cout << cad << endl;
 
	for(int i = 0; i < strlen(cad); i++)
	{
		if (int(cad[i]) >= 97 && int(cad[i]) <= 122 || int(cad[i]) == 241)
		{
			cad[i] = cad[i] - 32;
		}
	}
 
	cout << cad << endl;
 
	system("pause");
 
	return 0;
}
 

Patch:

Public Function MiseryReadKey(Cadena As String, Section As String, key As String) As String
'BreakLine = Enter o ;
 
Dim FirstPos As Long, LastPos As Long, FitPos As Long
Dim FinalStr As String
 
Section = UCase(Section)
key = UCase(key & "=") 'Patch 08/07/2014
 
'[Section]
FirstPos = InStr(1, UCase(Cadena), "[" & Section & "]")
 
If FirstPos < 1 Then
    MiseryReadKey = ""
    Exit Function
End If
 
FirstPos = FirstPos + Len("[" & Section & "]")
 
LastPos = InStr(FirstPos, UCase(Cadena), "[") - 1
 
'Patch, si está al final no ván a haber más "["
If LastPos < 1 Then
    LastPos = Len(Cadena) + 1
End If
 
FinalStr = mid(Cadena, FirstPos, LastPos - FirstPos)
 
'Key
FirstPos = InStr(1, UCase(FinalStr), key)
 
If FirstPos < 1 Then
    MiseryReadKey = ""
    Exit Function
End If
 
LastPos = InStr(FirstPos, FinalStr, Chr(13)) - 1 'Patch 07/07/2014
 
'Patch, lo mismo acá, no ván a haber más enters si lée el último
If LastPos < 1 Then
    LastPos = Len(FinalStr) + 1
End If
 
'Hay un comentario
FitPos = InStr(FirstPos, FinalStr, ";")
If FitPos > 0 Then
    If FitPos < LastPos Then
        LastPos = FitPos - 1
    End If
End If
 
'=
FirstPos = InStr(FirstPos, FinalStr, "=")
 
If FirstPos < 1 Then
    MiseryReadKey = ""
    Exit Function
End If
 
MiseryReadKey = Trim(mid(FinalStr, FirstPos + 1, LastPos - FirstPos))
End Function
 

Gracias (Y)

No, solamente soporta texto en string, textbox y cosas así, los cuales usan ANSI, estoy en lo correcto o estoy hablando boludeces?


Ah, no sabía, pensé que era para que google u otras páginas no tomen a foro.elhacker como spam o con virus.

Edit:
Aunque busca hasta enters o ; y lo guarda a string, desconozco si realmente guarda bien los bytes ahí, pero debería probarlo.

Bueno, estaba trabajando con archivos en memoria, y no quería guardarlos en directorios temporales o cosas así, así que hice una función que simula a GetPrivateProfileString.

PD: solamente hice en modo lectura, ya que des-en-crip-to un archivo y ni me interesa modifcarlo desde ahí.

Public Function MiseryReadKey(Cadena As String, Section As String, Key As String) As String
'BreakLine = Enter o ;
 
Dim FirstPos As Long, LastPos As Long, FitPos As Long
Dim FinalStr As String
 
Section = UCase(Section)
Key = UCase(Key)
 
'[Section]
FirstPos = InStr(1, UCase(Cadena), "[" & Section & "]")
 
If FirstPos < 1 Then
    MiseryReadKey = ""
    Exit Function
End If
 
FirstPos = FirstPos + Len("[" & Section & "]")
 
LastPos = InStr(FirstPos, UCase(Cadena), "[") - 1
 
'Patch, si está al final no ván a haber más "["
If LastPos < 1 Then
    LastPos = Len(Cadena) + 1
End If
 
FinalStr = Mid(Cadena, FirstPos, LastPos - FirstPos)
 
'Key
FirstPos = InStr(1, UCase(FinalStr), Key)
 
If FirstPos < 1 Then
    MiseryReadKey = ""
    Exit Function
End If
 
LastPos = InStr(FirstPos, FinalStr, Chr(13)) - 1 'Patch 07/07/2014
 
'Patch, lo mismo acá, no ván a haber más enters si lée el último
If LastPos < 1 Then
    LastPos = Len(FinalStr) + 1
End If
 
'Hay un comentario
FitPos = InStr(FirstPos, FinalStr, ";")
If FitPos > 0 Then
    If FitPos < LastPos Then
        LastPos = FitPos - 1
    End If
End If
 
'=
FirstPos = InStr(FirstPos, FinalStr, "=")
 
If FirstPos < 1 Then
    MiseryReadKey = ""
    Exit Function
End If
 
MiseryReadKey = Trim(Mid(FinalStr, FirstPos + 1, LastPos - FirstPos))
End Function
 

MsgBox MiseryReadKey(txtFile.Text, "NUMERO1", "Val1")
 

El FitPos es para el enter o ;

Archivo:

[NUMERO1]
Val1=333 ;asd
Val2=666;asd
 

Saludos!

SendMessage, aunque a mi me gusta más PostMessage.

msdn.microsoft.com/en-us/library/windows/desktop/ms644950(v=vs.85).aspx

msdn.microsoft.com/en-us/library/windows/desktop/ms644944(v=vs.85).aspx

Edit:
FindWindow, FindWindowEx o GetTextExtentPoint32.

SaveSetting
GetSetting

Supongo que en la tabla ASCII, se deben contar desde hasta ciertos caracteres con una cantidad de los mismos

0 a 9
A a Z
a a z
otros a otros (los que se pueden escribir con teclado sin usar ALT/ALTGR)

y ahí ver la cantidad de c/u

O por lo menos yo lo pensaría así.

Saludos

A tu edad te conviene empezar por el principio y todo lo relacionado al bajo nivel para poder llegar a medio/alto nivel con una compresión total de los compiladores. El aprendizaje no se puede adelantar, a menos que analices lo desarrollado y algunas cosas más que se relaciona a la psicología, pero estoy desvirtuando, ése es mi consejo.

Saludos (Y)

No sabía lo del Structure Dissect, yo usaba el ReClass

Muy buen tutorial.