vb proje

[Rapsodi]

vb de bazı bilgiler almam gerekiyor yarım ederseniz sevinirim
1-bios bilgileri
2-bellek bilgileri
3-çalışan processler
4-network kartı özellikleri
5-paralel seri port özellikleri
bu konulardan biri veya birkaçı hakkında bilgisi olan arkadaş varsa forma gönderirse sevinirim

[RaiST]

pscode.com

[hmustak]

@raps
Delphi bitti ve beni terk ettin demek...
:)

[muharrem_tac]

VB'de sistem özellikleri hakkında bilgileri WinAPI ile alabiliriz.Tüm WinAPI'lerini birarada görmek için Program Files\Microsoft Visual Studio\Common\Tools\Winapi\WIN32API.TXT dosyasında gerekli bilgiler yazar.Bu Dosyayı ayrıntılı olarak görmek ve nasıl kullanıldıkları hakkında bilgi için Program Files\Microsoft Visual Studio\Common\Tools\Winapi\APILOAD.EXE programı kullanılabilir.Bu programda herbir API için nasıl bir kullanım yapılabileceği listelenir.

API'ler ve bulundukları dosyaları hatırlayalım:

Advapi32.dll : Şifre ve Kayıt dosyası işemleri için gerekli API'ler
Comdlg32.dll : Diyalog pencereleri API'leri
Gdi32.dll : Grafik
Kernel32.dll : Çekirdek Windows API'leri
Lz32.dll : 32 Bit sıkıştırma API'leri
Mpr.dll : Multiple Provider Router API'leri
Netapi32.dll : 32 bit Network API'leri
Shell32.dll : 32 bit Shell API'leri
User32.dll : Kullanıcı arabirimi API'leri
Version.dll : Versiyon işlemleri API'leri
Winspool.drv Print spooler API'leri

Bu API'lerin nasıl kullanıldıklarına bakalım.Misal Ram hakkında bilgi istiyoruz.Formumuza RAM değişimlerini dinamik olarak göstermek için bir Timer ekliyoruz ve bunun interval özelliğini 1000 yapıyoruz.


Option Explicit
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Cls
Dim m As MEMORYSTATUS
GlobalMemoryStatus m
Print "Bellek kullanımı % :" & m.dwMemoryLoad
Print "Toplam takas alanı :" & m.dwTotalPageFile / 1024 / 1024; "MB"
Print "Boş takas alanı :" & m.dwAvailPageFile / 1024 / 1024 & "MB"
Print "Boş bellek boyutu :" & m.dwAvailPhys / 1024 / 1024 & "MB"
Print "Toplam bellek boyutu :" & m.dwTotalPhys / 1024 / 1024 & "MB"
End Sub


(İhsan KARAGÜLLE ve Zeydin PALA' nın "VB 6.0 Pro" Kitabından yararlanılmıştır.)

[Ansugo]

Orjinal mesajı gönderen muharrem_tac
(İhsan KARAGÜLLE ve Zeydin PALA' nın "VB 6.0 Pro" Kitabından yararlanılmıştır.)

( Konuyu bolmek gibi olmasin ama )

Tüüüh! Ben bu iki kisinin Delphi kitabini almis idim. Alirken de "Memik Yanik turu fabrikasyon kitap yazmiyor galiba hic duymadim" dedim. Meger ki fabrikasyon kitap yaziyorlarmis bu duruma gore. Zira Delphi kitabinda Pascal'in syntax'i neden anlatilmaz halen anlamis degilim. Syntax bu yahu, isin eti ve kemigi.

Tabi sonucta bilgi bilgidir, hele bilgisini yazana sevgimiz coktur.

( Umarim konuyu bolmemisimdir )

[Rapsodi]

@_aciklama
oda arkadasim ya da onun arkadasi kullandigim bilgisayardan nete girdigi icin cevize direkt benim isimle mesaj gelmis,kusura bakmayin yoksa bozar bizi VB
:D

[muharrem_tac]

VB kimseyi bozmaz da yöneticilerin şifrelerini başkalarıyla paylaşması bozabilir.
:D

[Rapsodi]

sanirim yukaridaki mesajim tam algilanmamis?:(
sifre paylasimi degil forum ayarlarimdan cookie lerin aktif olmasi olayi ki bu da cok normaldir herhalde,neyse :sus:

[muharrem_tac]

Problem yok.Böyle şeyler olabiliyor.:)

[Revlis]

paralel ve seri port için INPOUT32.DLL dosyasını kullanman gerekiyor.bunların kullanım bilgilerini için -> www.elektronikhobi.com e bakabilirsin. e bakabilirsin.