Cifre, nu ÅŸi caractere

[Muzet]

Titlul nu este prea sugestiv dar nu mi-a trecut altceva prin minte. De curând m-am apucat să mă joc print AutoIt şi am nevoie de ajutor.
Atunci când execuţi programul trebuie să introduci o cifră care va face o modificare în regiştrii dar problema este că în căsuţa apărută poţi scrie şi litere şi simboluri ş.a.m.d, aş vrea să accepte doar numere, dacă este posibil aş vrea să ştiu cum.
A doua întrebare este cât de cât asemănătoare, dacă nu completezi căsuţa îţi apare mesajul care apare şi atunci când introduci o cifră sau o literă, este vorba despre acelaţi program. Ca şi concluzie vreau ca atunci când dă pe Cancel să nu mai apară mesajul sau să apară ceva în care să spună că nu a introdus numărul.
Pricepuţii în AutoIt în rog să mă ajute, nu cred că este nevoie de codul sursă, care este foarte uşor.
Mersi anticipat.

[DarkByte]

Daca in AutoIT poti folosi Windows API (si probabil ca se poate), this might help (cu modificarile de rigoare, evident).

Bafta

[Muzet]

Este un progrămel mai ciudat pentru mine, de fapt este un multi messenger care modifică prin regiştrii, are 3 linii de cod şi modificările din subiectul pe care mi l-ai dat nu cred că îşi au locul

Cod:

$v=inputbox ( "Yahoo Multi Messenger" , "Tasteaza numarul de ferestre maxim pe care il poti deschide" )
    regWrite ( "HKEY_CURRENT_USER\Software\yahoo\pager\Test" , "Plural", "REG_DWORD" , $v )
    MsgBox( 0 , "Yahoo Multi Messenger" , "Acum puteti folosi Yahoo Multi Messenger. ")

[DarkByte]

Eh, nu cred ca m-ai inteles. Din API-ul de Windows poti controla ce anume (in cazul tau, doar cifre) sa poata fi tastate intr-o casuta text. Pur si simplu, ii trimiti modifici stilul casutei respective, adaugand valoarea ES_NUMBER.

Daca citeai pana la capat postul al carei adresa ti-am dat-o, vedeai asta:

Pentru a folosi Edit ca o casuta de editare numerica, se va folosi ES_NUMBER.

So, asta ar fi raspunsul la prima ta intrebare, daca gasesti pe cineva care sa "traduca" in AutoIT.

Cu toate acestea, partial ai dreptate. Nu cred ca e posibil sa modifici stilul InputBox-ului, dar daca ai face acelasi lucru cu o casuta de editare normala, atunci ce am spus eu devine valid.

La a doua intrebare, cred ca e vorba doar de verificarea inputului de la user.

Spor la treaba & suit yourself.

[Smash]

Cod:

Do
$v = InputBox("Yahoo Multi Messenger", "Tasteaza numarul de ferestre maxim pe care il poti deschide")
Until StringIsDigit($v)
RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager\Test", "Plural", "REG_DWORD", $v)
MsgBox(0, "Yahoo Multi Messenger", "Acum puteti folosi Yahoo Multi Messenger.")

[Muzet]

Cod:

Do
$v = InputBox("Yahoo Multi Messenger", "Tasteaza numarul de ferestre maxim pe care il poti deschide")
Until StringIsDigit($v)
RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager\Test", "Plural", "REG_DWORD", $v)
MsgBox(0, "Yahoo Multi Messenger", "Acum puteti folosi Yahoo Multi Messenger.")

Mulţumesc Smash, am rezolvat problema dar acum în schimb a intervenit altceva, atunci când apăs pe Cancel programul nu se închide, mă obligă să tastez un număr. Dacă îl folosesc doar pentru a-mi face o părerea sunt nevoit să tastez ceva acolo ca programul să se închidă. Dacă aveţi sugestii le aştept.

[Smash]

Cod:

Do
    $v = InputBox("Yahoo Multi Messenger", "Tasteaza numarul de ferestre maxim pe care il poti deschide")
If @error Then Exit
Until StringIsDigit($v)
RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager\Test", "Plural", "REG_DWORD", $v)
MsgBox(0, "Yahoo Multi Messenger", "Acum puteti folosi Yahoo Multi Messenger.")

[Muzet]

Mulţumesc Smash, e exact ceea ce voiam.
Imediat fac şi executabilul, dacă doreşte cineva poate să îl descarce.



Download: Yahoo Multi Messenger.exe

[SkullAds]