04-01-2014, 06:07 PM
Bilgisayar Özellik gösterici
Butona tuş atamak (Visual Basic 6
C# Visual basic ile yapılır :)
Kod:
Dim item As ListViewItem = ListView1.Items.Add("OS FullName")
Dim ite As ListViewItem = ListView1.Items.Add("OS Version")
Dim it As ListViewItem = ListView1.Items.Add("OS Platform")
Dim i As ListViewItem = ListView1.Items.Add("Username")
Dim a As ListViewItem = ListView1.Items.Add("Total Physical Memory")
Dim b As ListViewItem = ListView1.Items.Add("Total Virtual Memory")
Dim c As ListViewItem = ListView1.Items.Add("Available Physical Memory")
Dim d As ListViewItem = ListView1.Items.Add("Available Virtual Memory")
Dim h As ListViewItem = ListView1.Items.Add("User Domain Name")
Dim f As ListViewItem = ListView1.Items.Add("UIEffects Enabled")
Dim g As ListViewItem = ListView1.Items.Add("User Interactive")
Dim k As ListViewItem = ListView1.Items.Add("Boot Mode")
Dim l As ListViewItem = ListView1.Items.Add("Computer Name")
Dim m As ListViewItem = ListView1.Items.Add("Dbcs Enabled")
Dim n As ListViewItem = ListView1.Items.Add("Keyboard Delay")
Dim o As ListViewItem = ListView1.Items.Add("Keyboard Speed")
Dim p As ListViewItem = ListView1.Items.Add("Monitor Count")
Dim q As ListViewItem = ListView1.Items.Add("Mouse Speed")
Dim r As ListViewItem = ListView1.Items.Add("Mouse Wheel Present")
Dim s As ListViewItem = ListView1.Items.Add("Network")
Dim t As ListViewItem = ListView1.Items.Add("Pen Windows")
Dim u As ListViewItem = ListView1.Items.Add("Screen Orientation")
Dim v As ListViewItem = ListView1.Items.Add("Current Principal Identity")
Dim w As ListViewItem = ListView1.Items.Add("Screen Devices Name")
Dim x As ListViewItem = ListView1.Items.Add("Screen BitsPerPixel")
Dim y As ListViewItem = ListView1.Items.Add("Local Time")
Dim z As ListViewItem = ListView1.Items.Add("Gmt Time")
Dim bb As ListViewItem = ListView1.Items.Add("Software Assembly Name")
Dim cc As ListViewItem = ListView1.Items.Add("Software Copyright")
Dim dd As ListViewItem = ListView1.Items.Add("Software Description")
Dim ee As ListViewItem = ListView1.Items.Add("Software Directory Path")
Dim ff As ListViewItem = ListView1.Items.Add("Software Trademark")
Dim gg As ListViewItem = ListView1.Items.Add("Software Title")
item.SubItems.Add(My.Computer.Info.OSFullName)
ite.SubItems.Add(My.Computer.Info.OSVersion)
it.SubItems.Add(My.Computer.Info.OSPlatform)
i.SubItems.Add(SystemInformation.UserName)
a.SubItems.Add(My.Computer.Info.TotalPhysicalMemory)
b.SubItems.Add(My.Computer.Info.TotalVirtualMemory)
c.SubItems.Add(My.Computer.Info.AvailablePhysicalMemory)
d.SubItems.Add(My.Computer.Info.AvailableVirtualMemory)
h.SubItems.Add(SystemInformation.UserDomainName)
f.SubItems.Add(SystemInformation.UIEffectsEnabled)
g.SubItems.Add(SystemInformation.UserInteractive)
k.SubItems.Add(SystemInformation.BootMode)
l.SubItems.Add(SystemInformation.ComputerName)
m.SubItems.Add(SystemInformation.DbcsEnabled)
n.SubItems.Add(SystemInformation.KeyboardDelay)
o.SubItems.Add(SystemInformation.KeyboardSpeed)
p.SubItems.Add(SystemInformation.MonitorCount)
q.SubItems.Add(SystemInformation.MouseSpeed)
r.SubItems.Add(SystemInformation.MouseWheelPresent)
s.SubItems.Add(SystemInformation.Network)
t.SubItems.Add(SystemInformation.PenWindows)
u.SubItems.Add(SystemInformation.ScreenOrientation)
v.SubItems.Add(My.User.CurrentPrincipal.Identity.Name)
w.SubItems.Add(My.Computer.Screen.DeviceName)
x.SubItems.Add(My.Computer.Screen.BitsPerPixel)
y.SubItems.Add(My.Computer.Clock.LocalTime)
z.SubItems.Add(My.Computer.Clock.GmtTime)
bb.SubItems.Add(My.Application.Info.AssemblyName)
cc.SubItems.Add(My.Application.Info.Copyright)
dd.SubItems.Add(My.Application.Info.Description)
ee.SubItems.Add(My.Application.Info.DirectoryPath)
ff.SubItems.Add(My.Application.Info.Trademark)
gg.SubItems.Add(My.Application.Info.Title)Butona tuş atamak (Visual Basic 6
Kod:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 50
End Sub
Private Sub Command1_Click()
MsgBox "Harviy" 'Buraya buton ile yapamak istediğiniz
End Sub
Private Sub Timer1_Timer()C# Visual basic ile yapılır :)
Okyanusta batan gemidir yalnızlık,
Çok derinlerdedir gücün yetmez onu oradan çıkarmaya.
Kaybolup gider daha sonra.
Kendi kendine konuşmaktır yalnızlık...
Belkide en iyi tarafıdır bu
Kendini sorgularsın, bir kez olsun çekersin köşeye nefsini hayatı anlamaya çalışırsın.
Çok derinlerdedir gücün yetmez onu oradan çıkarmaya.
Kaybolup gider daha sonra.
Kendi kendine konuşmaktır yalnızlık...
Belkide en iyi tarafıdır bu
Kendini sorgularsın, bir kez olsun çekersin köşeye nefsini hayatı anlamaya çalışırsın.