Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Przykałd z C++ na VB
X.Jeff'erson



Typ: neutral
Postów: 29
Zarejestrowany: Feb 2003
Przykałd z C++ na VB

Hey.. ogólnie znam się tylko na VB , ale potrzebowałem wyciągnąć numer seryjny BIOS. Znalazłem piękny przykład ale niestety napisany w C++ . Gdyby ktoś potrafił to przepisac na VB byłbym bardzo wdzięczny. Oto przykład...

void __fastcall TForm1::FormCreate(TObject *Sender)
{
char S[100];
strcpy(S , (char*)0xFEC71);
Form1->Caption=S;
}



_____________________________________________
Pozery mylą

22-07-2003 16:12
Pokaż profil X.Jeff  Wyślij email do X.Jeff        3013480
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
przekład


void __fastcall TForm1::FormCreate(TObject *Sender)
{
char S[100];  'deklaracja zmiennej tablicowej - typu string w VB
strcpy(S , (char*)0xFEC71); 'kopiowanie wartosci ukrytej pod 0xFEC71 do ww zmiennej
Form1->Caption=S; 'ustawienie tytułu dla formularza
}



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

22-07-2003 17:04
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
X.Jeff'erson



Typ: neutral
Postów: 29
Zarejestrowany: Feb 2003

strcpy(S , (char*)0xFEC71);

Interesuje mnie konkretnie to , czy można coś przenieść na VB??


_____________________________________________
Pozery mylą

22-07-2003 17:25
Pokaż profil X.Jeff  Wyślij email do X.Jeff        3013480
X.Jeff'erson



Typ: neutral
Postów: 29
Zarejestrowany: Feb 2003

Stawiam piwo temu kto to napisze , bo ja jestem początkującym programistą i niestety nie dam rady :  Zapomniełm dodać , że ten programik wyciąga numer seryjny BIOSU .. Z góry dziękuję królowi który tego dokona !!


_____________________________________________
Pozery mylą

25-07-2003 21:05
Pokaż profil X.Jeff  Wyślij email do X.Jeff        3013480
X.Jeff'erson



Typ: neutral
Postów: 29
Zarejestrowany: Feb 2003

strasznie przydało by mi się wyciągnięcie tego numeru seryjnego BIOS, siedze nad tym już dłuższy czas z przerwami ale niestety bez rezultatów, dlatego jeszcze raz zwracam się o pomoc. identycznie działający przykład pod Deplphi

Label4.Caption := String(Pchar(Ptr($FEC71))); // Seria,numer

Niestety na Delphi też się nie znam. Jest dokłądnie tak jajk mówicie trzeba pdczytać informacje z pod adresu FEC71 , problem tkwi w tym , że nie wiem jak to zrobić, znalazłem jakieś funkcje

Copymemory oraz CopyStructFromPtr

jednak nie umiem sobie z nimi poradzić. Z góry dziękuję za pomoc.


_____________________________________________
Pozery mylą

23-08-2003 01:58
Pokaż profil X.Jeff  Wyślij email do X.Jeff        3013480
Skorpion
Arek




Typ: neutral
Postów: 3
Zarejestrowany: Sep 2003
Tłumaczenie z C++ Na VB

Można To przetłumaczyć ja znam 2 sposoby
1. Za pomocą CopyMemory
2. Za pomocą lstrcpy
'--------------------------------------
Private Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function lstrcpy Lib "Kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long

Sposób 1.
Dim S As String * 100
CopyMemory ByVal S, ByVal &HFE071, Len(S)
Label1.Caption = S
Sposób 2.
'---------------------------------------------
Dim S As String * 100
    lstrcpy S, &HFEC71
    label1.Caption = S
'Gdy wywołasz niedozwolony Adres to VB Wyżuci błąd lub Exe
Pozdrowienia
P.S Wrazie dalszych problemów pisz na maila lub GG.

29-09-2003 17:17
Pokaż profil Skorpion  Wyślij email do Skorpion        4151163
X.Jeff'erson



Typ: neutral
Postów: 29
Zarejestrowany: Feb 2003
Dzięki

Odpisałem na mail. Jestem niezmiernie zobowiązany za radę.


_____________________________________________
Pozery mylą

29-09-2003 21:37
Pokaż profil X.Jeff  Wyślij email do X.Jeff        3013480
X.Jeff'erson



Typ: neutral
Postów: 29
Zarejestrowany: Feb 2003
Moje spostrzeżenia..

Ja jestem posiadaczem płyty Gigabyte Ga7zx i zauważyłem , że informacje o moim biosie znajdują się pod adresami
&HFF4ED
&HFF478

Może to komuś na przyszłość pomoże.


_____________________________________________
Pozery mylą

29-09-2003 23:08
Pokaż profil X.Jeff  Wyślij email do X.Jeff        3013480
Wszystkich odpowiedzi: 7 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1