Mensajes

Con respecto a un autoupdater, lo que yo haría es lo siguiente:

dentro de un .ini, .txt o algo así y luego:

PathArchivoServer:PathArchivoCliente:hash/md5/etc

ej: \Host\mapas.mps:\Juego\Mapas\mapas.mps:m81asd823hf12 (blabla)

Así no tendría que ver por versiones, sinó por el archivo actualizado , éste es mi parecer pero es solo un ejemplo de como yo lo pensaría, saludos!

Buenos días a todos, encontré un código por el cual puedo enviar mails teniendo el outlook instalado, pero utiliza la cuenta actual (configurada), lo que quería lograr era usar una cuenta hotmail pero no encuentro la manera de loguearla.

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
sendOutlookEmail
End Sub

Sub sendOutlookEmail()
Dim oApp As Outlook.Application
Dim oMail As MailItem

Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(olMailItem)

oMail.Body = "Body of the email"
oMail.Subject = "Subject"
oMail.To = "" 'A email
oMail.CC = "" 'Copia a emails
oMail.Attachments.Add "C:\archivo.txt"
oMail.Send

Set oMail = Nothing
Set oApp = Nothing
End Sub



Alguno tiene idea de como podría ser?

Saludos.

Código (cpp) [Seleccionar] Expandir


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.

Código (cpp) [Seleccionar] Expandir


#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:

Código (vb) [Seleccionar] Expandir


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


HOLA!!!

Soporta Unicode?

P.D: muy buen aporte!

GRACIAS POR LEER!!!

Gracias (Y)

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

descifro*

el foro está forzado para que la gente use la palabra correcta XD

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í.

Código (vb) [Seleccionar] Expandir


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


Código (vb) [Seleccionar] Expandir


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


El FitPos es para el enter o ;

Archivo:

Código (ini) [Seleccionar] Expandir


[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