Support Forums
Computer Information - Program Made By Me - Printable Version

+- Support Forums (https://www.supportforums.net)
+-- Forum: Categories (https://www.supportforums.net/forumdisplay.php?fid=87)
+--- Forum: Coding Support Forums (https://www.supportforums.net/forumdisplay.php?fid=18)
+---- Forum: Visual Basic and the .NET Framework (https://www.supportforums.net/forumdisplay.php?fid=19)
+---- Thread: Computer Information - Program Made By Me (/showthread.php?tid=23212)

Pages: 1 2 3

Computer Information - Program Made By Me - BreShiE - 11-12-2011

[Image: YzwzC.png]

I've just made a quick program, which pulls your computer information.
  • Computer Username
  • Computer Name
  • Internal IP Address
  • External IP Address

Picture
Spoiler (Click to View)


Download Link:
http://www.mediafire.com/?8apiua7slvf2om4

You can scan it yourself, I can't be bothered to do it.

RE: Computer Information - Program Made By Me - iRtehLeet - 11-12-2011

It's just 1 line of code per line..

RE: Computer Information - Program Made By Me - BreShiE - 11-12-2011

Are you dumb? I have around 30-50 lines of code in the source.

RE: Computer Information - Program Made By Me - iRtehLeet - 11-12-2011

(11-12-2011, 06:41 PM)BreShiE Wrote: Are you dumb? I have around 30-50 lines of code in the source.

Code:
Dim Name As String = (My.User.Name)
Dim User As String = Name.Split("\").GetValue(0)
Dim CompName As String = Name.Split("\").GetValue(1)
Dim WC As New WebClient
Dim IP As String = WC.DownloadString("http://www.whatismyip.org/")
Dim LocalIP As String = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0).ToString()
MsgBox(CompName & vbNewLine & User & vbNewLine & IP & vbNewLine & LocalIP)

Nono

RE: Computer Information - Program Made By Me - BreShiE - 11-13-2011

(11-12-2011, 07:24 PM)iRtehLeet Wrote:
Code:
Dim Name As String = (My.User.Name)
Dim User As String = Name.Split("\").GetValue(0)
Dim CompName As String = Name.Split("\").GetValue(1)
Dim WC As New WebClient
Dim IP As String = WC.DownloadString("http://www.whatismyip.org/")
Dim LocalIP As String = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0).ToString()
MsgBox(CompName & vbNewLine & User & vbNewLine & IP & vbNewLine & LocalIP)

Nono


Not how I've done it, now stay away from my threads, thanks.

RE: Computer Information - Program Made By Me - iRtehLeet - 11-14-2011

(11-13-2011, 06:22 PM)BreShiE Wrote: Not how I've done it, now stay away from my threads, thanks.

Its only like 5 lines of code don't see why your releasing it lol Confused

RE: Computer Information - Program Made By Me - BreShiE - 11-14-2011

(11-14-2011, 12:20 PM)iRtehLeet Wrote: Its only like 5 lines of code don't see why your releasing it lol Confused


You don't know how I code, nor do you know how I've coded this. Now please, do not reply again.

RE: Computer Information - Program Made By Me - iRtehLeet - 11-14-2011

(11-14-2011, 12:38 PM)BreShiE Wrote: You don't know how I code, nor do you know how I've coded this. Now please, do not reply again.

Coders always want less code = better

I just showed you how to do it in 5 lines, if you really took 50-60 then your doing it wrong.

RE: Computer Information - Program Made By Me - BreShiE - 11-14-2011

(11-14-2011, 03:30 PM)iRtehLeet Wrote: Coders always want less code = better

I just showed you how to do it in 5 lines, if you really took 50-60 then your doing it wrong.

It's more like 10-15, but still. The way you did it is retarded, too simple for my liking.

Rather than spamming this forum, if you wish to contact me regarding this matter further, please AIM me. ibreshie.

RE: Computer Information - Program Made By Me - RDCA - 11-14-2011

Not to flame, but he is right. The way he did it is more professional. Shorter code doesn't always mean a better program but most times it does. As it will actually be faster most times.