giv

Programul este destul de vechi si cred ca daca modifici functia de validare a licentei sa intoarca mereu True restul verificarilor sunt fara sens. Il aveam pe undeva gata spart pentru o interfata de Dacia/Renault dar nu mai gasesc momentan.

Un mic utilitar pentru codare/decodare string in format AES. Codat de mine. http://www14.zippyshare.com/v/ed1yTq7f/file.html

Din ce vad faci o greseala de incepator. Prima data incapsuleaza blocul de date din buton in try/catch. Daca iti arunca eroare vezi care este intr-un MsgBox. try ....fa ceva aici catch ex as exception MsgBox(ex.ToString) end try Din cate vad trimiti catre functie un parametru nul. Interfata iti spune sa initializezi o noua instanta folosind paramentrul "new". Tu ai: Private Function ReadMemoryInt(ByVal baseAddress As Integer, ByVal size As Integer) As Integer Deci iti trebuie adresa si numarul de biti cititi. Apoi poti folosi Cint(rezultat) sa convertesti in intreg rezultatul. Tie iti intoarce eroare ca si cand nu poate citi de acolo. Trebuie sa verifici prima data daca e ceva acolo sau nu. http://stackoverflow.com/questions/6417902/checking-if-an-object-is-null-in-c-sharp Ca idee vezi ca structura acestui API este un pic diferita. Uite un exemplu aici despre cum ar trebui sa faci. Adapteaza-l. http://stackoverflow.com/questions/28189255/vb-net-readprocessmemory-string Inca un lucru. Vad ca vrei sa faci nu stiu ce cheat pentru acel executabil. Ia-o metodic. Prima data citeste adresa de memorie la care are baza . Exemplu in C# aici: http://stackoverflow.com/questions/19847107/using-base-pointers-with-offset-to-read-process-memory In XP toate se incarca la 0x400000 dar in versiunile ulterioare au adresa de baza dinamica. Apoi pune imagebase intr-o variabila. La aceasta variabila adauga RVA si ajungi la datele care te intereseaza in orice OS. Foloseste aceste variabile la gasirea datelor in loc de o adresa fixa.

Salut. In general China = proasta calitate, ieftin = prost.

Eu cred ca Win 10 este cel mai bun. Am cumparat o licenta retail la 10 home (560 lei pe cel.ro...acum vad ca 530). Ca idee am o matrice RAID 0 din 2 SSD. Pe XP aveam 100 MB/s cu HDtune read speed, Win 8.1 250 MB/s iar pe 10 am 525 MB/s read/write speed. Aceleasi echpamente, aceleasi drivere. Deci parerea mea ca este mult mai optimizat pentru echipamente 10 decat restul. Am introdus azi un adaptor bluetooth vechi de peste 10 ani si nu mi-a cerut niciun driver si merge brici iar pe vechiul XP instalam 10 minute la softuri ca ca il fac sa mearga. Eu unul optez pentru 10. In cazul tau cred ca trebuie sa scapi de acel HDD de 1TB si sa iti iei un SSD. Am avut aceiasi problema cu un I7 pe un laptop. Aveam HDD de 1Tb. Win 10 se incarca in ~25 sec. Dupa ce i-am pus SSD Win10 se incarca in maxim 5.

Subscriu la antevorbitor. Autoritatea competenta se poate gasi la:

Un mic update. Pentru cei interesati. Am marit la 45 de zile perioada de trial. Kitul de instalare detecteaza si instaleaza daca are nevoie de ceva sau iti spune ce trebuie instalat. Aplicatia este complet functionala in cele 45 de zile. Daca tot am muncit la el o gramada va pun la dispozitie o functie adaptata de mine pentru transformarea cifrelor in litere. Utila la exprimarea automata a unui pret din cifre in cuvinte. Private Shared _ones As String() = {"zero", "una", "doua", "trei", "patru", "cinci", _ "sase", "sapte", "opt", "noua"} Private Shared _teens As String() = {"zece", "unsprezece", "doisprezece", "treisprezece", "paisprezece", "cincisprezece", _ "saisprezece", "saptesprezece", "optsprezece", "nouasprezece"} Private Shared _tens As String() = {"", "zece", "douazeci", "treizeci", "patruzeci", "cincizeci", _ "saizeci", "saptezeci", "optzeci", "nouazeci"} ' US Nnumbering: Private Shared _thousands As String() = {"", "mii", "milion", "miliard", "triliard", "catralion"} Public Shared Function cifrelalitere(ByVal value As Decimal) As String Dim digits As String, temp As String Dim showThousands As Boolean = False Dim allZeros As Boolean = True ' Use StringBuilder to build result Dim builder As New StringBuilder() ' Convert integer portion of value to string digits = CLng(value).ToString() ' Traverse characters in reverse order For i As Integer = digits.Length - 1 To 0 Step -1 Dim ndigit As Integer = CInt(AscW(digits(i))) - CInt(AscW("0"c)) Dim column As Integer = (digits.Length - (i + 1)) ' Determine if ones, tens, or hundreds column Select Case column Mod 3 Case 0 ' Ones position showThousands = True If i = 0 Then ' First digit in number (last in loop) temp = [String].Format("{0} ", _ones(ndigit)) ElseIf digits(i - 1) = "1"c Then ' This digit is part of "teen" value temp = [String].Format("{0} ", _teens(ndigit)) ' Skip tens position i -= 1 ElseIf ndigit <> 0 Then ' Any non-zero digit temp = [String].Format("{0} ", _ones(ndigit)) Else ' This digit is zero. If digit in tens and hundreds ' column are also zero, don't show "thousands" temp = [String].Empty ' Test for non-zero digit in this grouping If digits(i - 1) <> "0"c OrElse (i > 1 AndAlso digits(i - 2) <> "0"c) Then showThousands = True Else showThousands = False End If End If ' Show "thousands" if non-zero in grouping If showThousands Then If column > 0 Then temp = [String].Format("{0}{1}{2}", temp, _thousands(column / 3), If(allZeros, " ", ", ")) End If ' Indicate non-zero digit encountered allZeros = False End If builder.Insert(0, temp) Exit Select Case 1 ' Tens column If ndigit > 0 Then temp = [String].Format("{0}{1}", _tens(ndigit), If((digits(i + 1) <> "0"c), "-", " ")) builder.Insert(0, temp) End If Exit Select Case 2 ' Hundreds column If ndigit > 0 Then temp = [String].Format("{0} sute ", _ones(ndigit)) builder.Insert(0, temp) End If Exit Select End Select Next ' Append fractional portion/cents builder.AppendFormat("si {0:00} zecimi", (value - CLng(value)) * 100) ' Capitalize first letter Return [String].Format("{0}{1}", [Char].ToUpper(builder(0)), builder.ToString(1, builder.Length - 1)) End Function

Stiu dar pana la urma cei "interesati" vor "face rost" de el. Am pus pe site o versiune TRIAL complet functionala pentru o perioada de 30 de zile. Linkul direct este: http://acterapide.ro/AAPRO.zip Cei interesati pot testa programul fara restrictii pentru o perioada de 30 de zile si il pot distribui liber. Inainte de a instala programul trebuie avute in vedere cerintele de sistem: http://www.acterapide.ro/HTML/resurse.html In special trebuie instalat MySql .NET connector 6.9.7 (http://www.acterapide.ro/mysql-connector-net-6.9.7.zip) si .NET framework 4.0 (https://www.microsoft.com/en-us/download/details.aspx?id=17851).

Scuze pentru revive. Pentru cei interesati de acest domeniu. O sa pun pe site saptamana viitoare o versiune TRIAL (complet functionala) a aplicatiei ACTE AUTO PRO pe o perioada de 30 de zile fara restrictii. Revin cu un link.

Din experienta mea de sofer cu detector si statie. Detectorul e sfant. Statia e buna dar te pot minti pe ea.

Short video on how to unpack a X64 simple compressed file. The process is the same as in the old X86 platform just the registers we use have different names. I unpack the PeSpin 1.22 X64 exe file itself. Is nothing special in fact. I just point of the base things we consider in order to unpack a X64 compressed file. Have fun. RO Prezint conceptele de baza ale despachetarii unui fisier X64 compresat.

Incepi de aici: Continua aici: Apoi aici: Apoi aici:

Deci. Scuzati ca intervin. Programul nu este compilat in VB .NET ci este Visual Basic 6. Sunt doua lucruri total diferite. Protejat e mult spus. Este compresat cu AsPack - se decomprima imediat. Restul e o chestiune de rabdare in a lucra cu API VB6.

Dupa modul cum vorbesti nu poti salva pe nimeni. Nu ai capacitatea de a face ceva cu astfel de limbaj. Schimbarea nu se face din ura ci din nevoia de ceva mai bun.