Hızlı Erişim

Etiket Bulutlar

Arşiv

Vb VisualBasic 6.0 Sleep & Delay Second Example

Private Declare Sub Sleep Lib “kernel32″ (ByVal dwMilliseconds As Long)

‘ add to button1

‘ Command onclick event

Sleep (1000) ” mili second – mili saniye

MsgBox (‘hasan beklemede’)

Vb VisualBasic 6.0 Computer ProcessList Example

Vb VisualBasic 6.0 Computer ProcessList Example Private Sub Command1_Click() ‘ add to listbox1 and button1 Dim colProcessList Dim objprocess Set colProcessList = GetObject(“Winmgmts:”).ExecQuery(“Select * from Win32_Process “) For Each objprocess In colProcessList List1.AddItem “Process Name=” & objprocess.Name List1.AddItem “Caption=” & objprocess.Caption Next Set colProcessList = Nothing Set objprocess = Nothing End Sub Private Sub Command1_Click()’ add to listbox1 and button1Dim colProcessListDim objprocess Set colProcessList = GetObject(“Winmgmts:”).ExecQuery(“Select * from Win32_Process “) For Each objprocess In colProcessList List1.AddItem “Process Name=” & objprocess.Name List1.AddItem “Caption=” & objprocess.CaptionNext Set colProcessList = NothingSet objprocess = NothingEnd Sub

[..]Devamını Oku