Visual Basic

Re: Possible to pass a string to a Function as name of an array?

9-Sep-09 7:19

Thanks for reply Dave,

But I can accept only first part of your help.

For second part, I let you know that I decided to not use a collection of Arrays because rarely I need to use more than 1 Array and I found this solution the more convenient(and efficent)for me.
I understand what you want say, but I not agree with you when you write that latest concepts of VB.NET are better than older concepts of Basic.
Often old concepts of Basic are better and more efficent than latest.
It's not a case that Microsoft mantained the compatibility of "Old Basic" in VB.NET
And it's for these reasons that when possible (and convenient)I prefer to use the "OLD concepts".
I not uderstand where in the code you see something that remember to you "Very old concept of Basic".
If you refer to the GoTo instruction, do you really think that changing it the code is improved (or made more efficent)?

Ignazio

Christian Graus9-Sep-09 9:26

Christian Graus

9-Sep-09 9:26

Hurricane3000 wrote:
but I not agree with you when you write that latest concepts of VB.NET are better than older concepts of Basic.
Often old concepts of Basic are better and more efficent than latest.

Well, you should ponder this:

1 - A Microsoft team worked to clean up and improve VB, do you think you know better than them ?
2 - In fact MS wanted to stop VB users from being able to use old VB6 concepts completely, because they are that bad, however, a bunch of luddite MVPs howled about it and so they changed it at the last minute.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Re: Possible to pass a string to a Function as name of an array?

Dave Kreskowiak9-Sep-09 11:16

Dave Kreskowiak

9-Sep-09 11:16

Hurricane3000 wrote:
but I not agree with you when you write that latest concepts of VB.NET are better than older concepts of Basic.

Considering your having problems with code written in the Dark Ages and could be far better resolved with modern OOP code, I think you're wrong.

You've got legacy concepts all over that code snippet you posted. From the colons to the Goto to the non-terminated If statements and then some, you've got legacy concepts written all over this.

I haven't used a Goto statement in, let's see..., oh! 9 years now.

The more you use the old concepts, the deeper the hole you're digging yourself. If you want to maintain an ancient relic of a skill set, go ahead. You're only limiting your own abilities to keep a job.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Re: Possible to pass a string to a Function as name of an array?

dan!sh 9-Sep-09 6:26

dan!sh

9-Sep-09 6:26

You are passing a string as a parameter. It will not behave as an array. You will need to pass the array as a method parameter. I would second Dave's recommendation to getting a book.

It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD

Re: Possible to pass a string to a Function as name of an array? [modified]

Hurricane30009-Sep-09 7:30

Re: Possible to pass a string to a Function as name of an array?

9-Sep-09 7:30

Thanks for help,

I think I'will follow your guideline.
But I don't think will be necessary to buy and read a book.

Ignazio

modified on Wednesday, September 9, 2009 3:40 PM

EliottA9-Sep-09 8:52

EliottA

9-Sep-09 8:52

d@nish is saying you need to purchase a book and read it.

That is what Dave said as well, in fact all replies are suggesting you need to learn vb.net.

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

Re: Possible to pass a string to a Function as name of an array?

Christian Graus9-Sep-09 9:28

Christian Graus

9-Sep-09 9:28

I disagree with the others. Your code is perfect. It's a masterpiece of obsfucation. I'm sure when you're trying to maintain it, that the extra time you take will go right onto your hourly rate, and I'm sure that writing code this hard to read means that the client will never find anyone else willing to work on it.

Seriously, when professionals tell you that you need to update your skillset, your options are to accept their advice, or assume that everyone is an idiot except for you. People I've known who do the latter, tend to end up unemployed.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Re: Possible to pass a string to a Function as name of an array?

Hurricane30009-Sep-09 11:03

Re: Possible to pass a string to a Function as name of an array?

9-Sep-09 11:03

Hi,

I agree with you when say that my code is a masterpiece of obsfucation, but this is my "unwanted" style.
The advantage is that it is a "natural obsfucation".
I ensure that it works, and it is to selectively read fields contained in text-records (lines) stored in an Array. Fields (of each record) are separated by commas. The record is selected in a comboBox.

Absolutely it's not true that when professionals tell me that I need to update my skillset, my options are to accept their advice, or assume that everyone is an idiot except for me!
For me doesn't exist the second of yours options.
For me the possible options are 3: Accept, Consider, Not accept.
But in no case Not accept can means to consider others idiot, of course!
I find strange if you consider only the 2 options, you written.

Ignazio

Christian Graus9-Sep-09 11:20

Christian Graus

9-Sep-09 11:20

Hurricane3000 wrote:
For me the possible options are 3: Accept, Consider, Not accept.

Well, you need a reason to not accept. Either we're all stupid, or we're right.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Re: Possible to pass a string to a Function as name of an array?

Hurricane300010-Sep-09 4:27

Re: [Solved] Possible to pass a string to a Function as name of an array?

10-Sep-09 4:27

If your last want be a question, I think that it will remains an "unaswered question" because yours is a "wrong question".
Boolean matematich says that for each element(bit) added to a binary word, possible combinations are doubled.
For example:
If a binary word have only 1 bit, possible combinatins are 2.
If a binary word have 4 bit, possible combinatins are 16.
If a binary word have 8 bit, possible combinatins are 256.
In your question you not specified the word "All" how many bits have.
If "All" have more than 1 element(bit), the minimum possibilities to consider are 4.
Example: 00,01,10,11 (not only 00 or 11).

More, if words are minimum 2, to these can be applied following operators:
And, Nand, Or, Nor, XOr, Not-XOr, with a lot of further possibilities.

Hurricane300010-Sep-09 6:28

sending Email Attachments

10-Sep-09 6:28

Hi all,

I solved the problem simply changing the first line of code (definition of function)

Public Function ReadField(ByVal NameArray As String, ByVal Field As Integer) As String

With this one:

Public Function ReadField(ByRef NameArray() As String, ByVal Field As Integer) As String

Thanks fo help

Ignazio

Bob Beaubien9-Sep-09 4:30

Re: sending Email Attachments [modified]

9-Sep-09 4:30

Hello All I am having a hard time sending some email attcahments i looked all over google and youtube and i this ways of doing it and thay dont work for me i click the button and it just sits thare and do noting i take out the attachment line and it sends me a email no problem
can any one help
Thanks

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyMailMessage As New MailMessage
        Try
            MyMailMessage.From = New MailAddress("FromEmail@gmail.com", "To Display Name")
            MyMailMessage.To.Add("ToEmail@hotmail.com")
            MyMailMessage.Subject = ("Status for " & TextBox1.Text)
            MyMailMessage.Body = ("System status for " & TextBox1.Text & " save and open with Excel")
            MyMailMessage.Attachments.Add(New Attachment("C:\Data.xls"))
            
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("FromEmail@Gmail.com", "Password")
            SMTP.Send(MyMailMessage)
            MsgBox("msg sent")
        Catch ex As Exception

and i also tryed it like this i see now it is pretty much the same thing

Dim Data As New Attachment("c:\date.xls")
            MyMailMessage.Attachments.Add(Data)

Thanks in advnace every one

Nuri Ismail9-Sep-09 5:32

9-Sep-09 5:32

I'm using something like the code below and it works fine for me.

' Create the mail message
Dim mail As New MailMessage() 
  
' Set the addresses
mail.From = New MailAddress("FromEmail@gmail.com") 
mail.To.Add("ToEmail@hotmail.com") 

' Set the content
mail.Subject = "The subject..."
mail.Body = "The message body..."

' Add an attachment
mail.Attachments.Add(New Attachment("Path to attachment")) 

' Send the message
Dim smtp As New SmtpClient("smtp.gmail.com") 
smtp.Credentials = New System.Net.NetworkCredential("username", "password") 
smtp.EnableSsl = True

Try
  smtp.Send(mail)
Catch e As Exception
  ......
Finally
  mail.Dispose()
  smtp = Nothing
End Try

Regards
Nuri Ismail

modified on Wednesday, September 9, 2009 11:55 AM

Bob Beaubien9-Sep-09 9:20

9-Sep-09 9:20

Still not working for me i take the attatchem line out and it send the mail i put it back then i get noting

This is what i put
Thanks Agine

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Mail As New MailMessage()

        Mail.From = New MailAddress("FromMail@gmail.com", "Display Name")
        Mail.To.Add("ToMail@hotmail.com")
        Mail.Subject = "Status for " & TextBox1.Text
        Mail.Body = "System status for " & TextBox1.Text & " save and open with Excel"


        Mail.Attachments.Add(New Attachment("C:\Data.xls"))

        Dim SMTP As New SmtpClient("smtp.gmail.com")
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential("FromMail@Gmail.com", "Password")

        Try
            SMTP.Send(Mail)
        Catch ex As Exception

        Finally
            Mail.Dispose()
            SMTP = Nothing

        End Try
    End Sub

Nuri Ismail9-Sep-09 10:32

9-Sep-09 10:32

Did you try to send the e-mail without setting the SMTP port to 587? I know that default one (25) is not the best because of security issues but on gmail Problems sending mail[^] page i found this:

If you tried configuring your SMTP server on port 465 (with SSL) and
port 587 (with TLS), but are still having trouble sending mail, try
configuring your SMTP to use port 25 (with SSL).

The size of the attachments could also be a problem:

Also note that with Gmail, you can send and receive messages up to 20 
megabytes (MB) in size.

I think that your problem could be connected with the used port or with the attachment itself. You can check out the above link for another possible reasons.

Regards
Nuri Ismail

Bob Beaubien9-Sep-09 10:56

9-Sep-09 10:56

I try port 25 465 and 587 with and with out ssl and it still dod not work
i dont think the size of the file is a problem it is only 1k

Bob Beaubien9-Sep-09 18:45

Re: Reading bits in VB.net

9-Sep-09 18:45

i got it working now

i have inported this

Imports System.Net.Mail

and then i found on google a guy hade it like this

Imports System.Net.Mail
Imports System.Net.Mime
Imports System.ComponentModel

and it worked

Smile | :)

Thanks for you help man

Reading bits in VB.net

xx77abs9-Sep-09 4:06

xx77abs

9-Sep-09 4:06

Hello, I'm wandering is it possible to read file bit by bit in visual basic ? I know how to ready byte by byte Smile | :)

If it is, please tell me how, or give me link to the page to read something Smile | :)

Thanks

EliottA9-Sep-09 4:13

EliottA

9-Sep-09 4:13

this[^] looks promising.

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

Re: Reading bits in VB.net

xx77abs9-Sep-09 4:17

xx77abs

9-Sep-09 4:17

Thank you very much !! Great link Smile | :)

Get username of a PC [SOLVED]

vijay24829-Sep-09 3:37

vijay2482

9-Sep-09 3:37

Hi all,

I have two queries, which I have solved halfway.
First Query:
I want to find the Username who has logged on to a Computer, the computers IP address and Hostname.
I have written the code to find the Hostname and IP address but not the Username.
I would like all these information on a file, which I have already done except for the Username.
Code sofar:

Private Sub LogOutput_IP(ByVal logFile As String, ByVal msg As String)
        Using sw As StreamWriter = New StreamWriter(logFile, True)
            Dim theDate As Date = Now()
            Dim strHostName As String
            Dim strIPAddress As String

            strHostName = System.Net.Dns.GetHostName()
            strIPAddress = System.Net.Dns.GetHostEntry(strHostName).AddressList(0).ToString()
            Dim sb As StringBuilder = New StringBuilder(theDate.ToString)
            sb.Append(vbTab & msg)
            sb.Append(vbTab & "Host Name: " & strHostName)
            sb.Append(vbTab & " IP Address: " & strIPAddress)
            sw.WriteLine(sb.ToString)
        End Using
    End Sub

I call this sub in a button click event and works fine.
Output obtained:

I want help to write the Username who is currently using the Computer.

Second Query:
As of now The LP.txt file is created in a folder in C drive.
I wish to create this file in a server or another PC(say admins computer), how to achieve this?

Any help will be helpful.
Thanks in Advance.

modified on Tuesday, September 15, 2009 7:54 AM

modified 28-Nov-12 8:01am.

Re: Get username of a PC

Nuri Ismail9-Sep-09 4:01

Re: Get username of a PC [About the second query]

9-Sep-09 4:01

For getting the user name of the logged in user, you can use Environment.UserName Property[^].

Regards
Nuri Ismail

Re: Get username of a PC

vijay24829-Sep-09 4:17

vijay2482

9-Sep-09 4:17

Thanks for you reply.
I had a search on the internet and found a solution to get the username of the logged on user.
GetUserName

I would be happy if I get a solution to solve the second query.

Nuri Ismail9-Sep-09 4:14