Bellek kullanımını görmek ( yüzde olarak) ce'M oKaN

**ce'M oKaN** · 05-04-2011, 09:46

1 adet text box ve bir adet buton yerleştirin. Aşağıdaki kodu yapıştırın. Butona bastığınızda text1 de % olarak bellek kullanım oranını göreceksiniz.Saygılar.

Kodlar :

PHP- Kodu:

  Option Explicit

 
Private Const NIM_ADD = &H0

Private Const NIM_MODIFY = &H1

Private Const NIM_DELETE = &H2

 
Private Const NIF_MESSAGE = &H1

Private Const NIF_ICON = &H2

Private Const NIF_TIP = &H4

 
Private Const WM_LBUTTONDOWN = &H201

Private Const WM_LBUTTONDBLCLK = &H203

Private Const WM_RBUTTONDOWN = &H204

Private Const WM_USER = &H400

 
Private Const VER_PLATFORM_WIN32s = 0

Private Const VER_PLATFORM_WIN32_WINDOWS = 1

Private Const VER_PLATFORM_WIN32_NT = 2

 
Private Type NOTIFYICONDATA

    cbSize As Long

    hwnd As Long

    uID As Long

    uFlags As Long

    uCallbackMessage As Long

    hIcon As Long

    szTip As String * 64

End Type

   

Private Type OSVERSIONINFO

    dwOSVersionInfoSize As Long

    dwMajorVersion As Long

    dwMinorVersion As Long

    dwBuildNumber As Long

    dwPlatformId As Long

    szCSDVersion As String * 128

End Type

 
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 Declare Function ShellNotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Private Declare Function GetVersionEx Lib "Kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Sub GlobalMemoryStatus Lib "Kernel32" (lpBuffer As MEMORYSTATUS)

 
Const WM_ICONNOTIFY = WM_USER + 100

Const ID_TASKBARICON = 100

 
Private Sub Command1_Click()

    UpdateIcon NIM_MODIFY

End Sub

 
 
Private Sub UpdateIcon(nAction As Integer)

    Dim nid As NOTIFYICONDATA

    Dim mem As MEMORYSTATUS

    mem.dwLength = Len(mem)

    GlobalMemoryStatus mem

    If Visible Then

        Text1.Text = CStr(mem.dwMemoryLoad) & "%"

     End If

    nid.cbSize = LenB(nid)

    nid.hwnd = hwnd

    nid.uID = ID_TASKBARICON

    nid.uFlags = NIF_MESSAGE Or NIF_TIP Or NIF_ICON

    nid.uCallbackMessage = WM_ICONNOTIFY

    nid.szTip = "Memory Load: " & CStr(mem.dwMemoryLoad) & "%" & Chr$(0)

    ShellNotifyIcon nAction, nid

End Sub

Alıntı

~~JrExtreme~~ · 05-04-2011, 09:52

Neye neyi yazacağımızı belirtmemişsin cem

**ce'M oKaN** · 05-04-2011, 09:58

Kusura bakma Untmuşum Form1 Çift TıklayınVe içindekileri Silip Bu Kodu Ekleyın Olay Bitmiştir

**KiSSoFDeaTH** · 05-04-2011, 17:22

xp kullananların işini görür

**ce'M oKaN** · 05-04-2011, 18:25

Alıntı:

KiSSoFDeaTH´isimli üyeden Alıntı

xp kullananların işini görür

Xp Kullanıyorum

05-04-2011, 09:46	#1 (permalink)
ce'M oKaN Kral Kişisel Bulunduğu yer: 'in ne önemi var yeterki gönüller bir olsun :D Forum Üye No: 25361 Üyelik tarihi: May 2010 Mesajlar: 474 Teşekkürler + Puan Verdi: 52 + Puan Aldı: 99 Rep Bilgileri Rep Gücü: 10 Rep Derecesi:	Bellek kullanımını görmek ( yüzde olarak) ce'M oKaN 1 adet text box ve bir adet buton yerleştirin. Aşağıdaki kodu yapıştırın. Butona bastığınızda text1 de % olarak bellek kullanım oranını göreceksiniz.Saygılar. Kodlar : PHP- Kodu: Option Explicit Private Const NIM_ADD = &H0 Private Const NIM_MODIFY = &H1 Private Const NIM_DELETE = &H2 Private Const NIF_MESSAGE = &H1 Private Const NIF_ICON = &H2 Private Const NIF_TIP = &H4 Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONDBLCLK = &H203 Private Const WM_RBUTTONDOWN = &H204 Private Const WM_USER = &H400 Private Const VER_PLATFORM_WIN32s = 0 Private Const VER_PLATFORM_WIN32_WINDOWS = 1 Private Const VER_PLATFORM_WIN32_NT = 2 Private Type NOTIFYICONDATA cbSize As Long hwnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type 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 Declare Function ShellNotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Private Declare Function GetVersionEx Lib "Kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long Private Declare Sub GlobalMemoryStatus Lib "Kernel32" (lpBuffer As MEMORYSTATUS) Const WM_ICONNOTIFY = WM_USER + 100 Const ID_TASKBARICON = 100 Private Sub Command1_Click() UpdateIcon NIM_MODIFY End Sub Private Sub UpdateIcon(nAction As Integer) Dim nid As NOTIFYICONDATA Dim mem As MEMORYSTATUS mem.dwLength = Len(mem) GlobalMemoryStatus mem If Visible Then Text1.Text = CStr(mem.dwMemoryLoad) & "%" End If nid.cbSize = LenB(nid) nid.hwnd = hwnd nid.uID = ID_TASKBARICON nid.uFlags = NIF_MESSAGE Or NIF_TIP Or NIF_ICON nid.uCallbackMessage = WM_ICONNOTIFY nid.szTip = "Memory Load: " & CStr(mem.dwMemoryLoad) & "%" & Chr$(0) ShellNotifyIcon nAction, nid End Sub Alıntı ___[ ce'M oKaN adlı kişinin İmzası]_______________ [b] Teşekkürüde Esirgeme Artık.. GALATASARAY... Dağda üç Beş Koyun Sürüsü Tutturmuş Bir Kürdistan Türküsü Eline Almış Bayrak Diye Bir Masa örtüsü Satsan Beş Para Etmez Ne Dirisi Ne De ölüsü Soyu Soysuz Olan Sensin Toprak Senin Neyine İte Itlik Yapıp Kafa Tutma Beyine Anlasa Dediğimi Sokaktaki Köpek Ağlar Haline Duy Ulan Soysuz Ne Mutlu Türk'üm Diyene

05-04-2011, 09:58	#3 (permalink)
ce'M oKaN Kral Kişisel Bulunduğu yer: 'in ne önemi var yeterki gönüller bir olsun :D Forum Üye No: 25361 Üyelik tarihi: May 2010 Mesajlar: 474 Teşekkürler + Puan Verdi: 52 + Puan Aldı: 99 Rep Bilgileri Rep Gücü: 10 Rep Derecesi:	Kusura bakma Untmuşum Form1 Çift TıklayınVe içindekileri Silip Bu Kodu Ekleyın Olay Bitmiştir ___[ ce'M oKaN adlı kişinin İmzası]_______________ [b] Teşekkürüde Esirgeme Artık.. GALATASARAY... Dağda üç Beş Koyun Sürüsü Tutturmuş Bir Kürdistan Türküsü Eline Almış Bayrak Diye Bir Masa örtüsü Satsan Beş Para Etmez Ne Dirisi Ne De ölüsü Soyu Soysuz Olan Sensin Toprak Senin Neyine İte Itlik Yapıp Kafa Tutma Beyine Anlasa Dediğimi Sokaktaki Köpek Ağlar Haline Duy Ulan Soysuz Ne Mutlu Türk'üm Diyene

05-04-2011, 17:22	#4 (permalink)
KiSSoFDeaTH Kral Kişisel Bulunduğu yer: KoxpTürkiye.com Forum Üye No: 27983 Üyelik tarihi: May 2010 Mesajlar: 318 Teşekkürler + Puan Verdi: 52 + Puan Aldı: 28 Rep Bilgileri Rep Gücü: 10 Rep Derecesi:	xp kullananların işini görür ___[ KiSSoFDeaTH adlı kişinin İmzası]_______________ Back..

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

05-04-2011, 09:52	#2 (permalink)
~~JrExtreme~~ Banned Forum Üye No: 42677 Üyelik tarihi: May 2011 Mesajlar: 35 Teşekkürler + Puan Verdi: 3 + Puan Aldı: 3 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	Neye neyi yazacağımızı belirtmemişsin cem

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)