[img]http://gyazo.com/905baaa83827baef3119cb165e68825b.png[/img] [img]http://gyazo.com/c13a6100f58a4eaf4ac2b0a1d022584e.png[/img]
[url=http://rdpgaming.ro/Afla%20Informatiile/Informatii%20PC%20v2.exe]Download![/url]
[url=https://www.virustotal.com/en/file/aff4490faf994d066ad81cb775de844607ce80766ed7c439564d26a95cd9ac5b/analysis/1380624296/]Virustotal![/url]
[b]BOUNS! Cod sursa:[/b]
[code]
Imports System.Net
Imports System.IO
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox3.Clear()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = My.Computer.Name
TextBox2.Text = My.Computer.Info.OSFullName
TextBox3.Text = My.Computer.Info.OSFullName
TextBox5.Text = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList.GetValue(2).ToString
Dim ram As ULong = My.Computer.Info.TotalPhysicalMemory
If RadioButton1.Checked = True Then
TextBox4.Text = ram / 1024 / 1024
End If
If RadioButton2.Checked = True Then
TextBox4.Text = ram
End If
If RadioButton3.Checked = True Then
TextBox4.Text = ram / 1024 / 1024 / 1024
End If
End Sub
End Class
[/code]
Da, inteleg ca l-ai facut in timpul tau liber si de amuzament dar mai bine ti-ai "investi" tot timpul intr-un proiect. Ora si data le vezi in colt stanga (jos) si celelalte cu click dreapta pe my computer si click dreapta pe desktop > rezolutie ecran.
[spoiler]Peace is a lie, there is only passion.
Through passion, I gain strength.
Through strength, I gain power.
Through power, I gain victory.
Through victory, my chains are broken.
The Force shall free me.[/spoiler]