Visual Basic

Identifying the end of an event?

27-Feb-13 18:15

Re-wording and posting the same thing again does not help. Avoid reposts.

I already replied above:
You would need to create a setup that creates/deploy database along with your application install.

Have a look at these:
Creating setup With support for database creation Using VS.NET[^]
Create database during installation of a .NET application [^]
Deploy your Application and Database[^]

Sandeep Mewara
Microsoft ASP.NET MVP 2012 & 2013

[My Blog]: Sandeep Mewara's Tech Journal!
[My Latest Article]: HTML5 Quick Start Web Application

jonatasbm26-Feb-13 6:10

jonatasbm

26-Feb-13 6:10

Is there any way to identify an event that came to an end,
that the event arrived at the End Sub?

Sorry for the misspelled because I can not speak English and used a translator to help me
Thank you

Jonatas Marques

Dave Kreskowiak26-Feb-13 7:08

26-Feb-13 7:08

Only if you put code in the end of the Sub that signals this in some way.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

jonatasbm26-Feb-13 7:42

jonatasbm

26-Feb-13 7:42

What I need to do is something like this

Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click

Here runs a function that checks if the btn.Click comes to an end and shoot another routine but this routine can only be triggered when the event comes to an end btn.Click Ex: after the end Sub

End Sub

Dave Kreskowiak26-Feb-13 9:08

26-Feb-13 9:08

Soooooo, in a single threaded environment, this is incredibly easy. Just call the method as the last line of your Click handler. That's a horrible button name, by the way.

Private Sub btn_Click(blah, blah) Handles btn.Click
    ...some code...
    MyOtherMethod()
End Sub

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

jonatasbm27-Feb-13 0:10

jonatasbm

27-Feb-13 0:10

Ok kkkk promise to fix the name of Button.
But I still have doubts is like MyOtherMethod () to do the check when Private Sub btn_Click (blah, blah) Handles btn.Click end its process

I'm trying to do is this

1 - click on the button
2 - click on the button triggers the event Private Sub btn_Click (blah, blah) Handles btn.Click
3 - The btn.Click event triggers the routine MyOtherMethod () the btn.Click however, have to continue running the remaining code
4 - MyOtherMethod () loop is waiting for the end of btn.Click
5 - When the event finished btn.Click, MyOtherMethod () loop that identifies that event ended btn.Click and runs a code that is out of the loop and ends

What i am not able to do is, call event btn.Click MyOtherMethod () and continue running the rest of the code, which waits btn.Click MyOtherMethod () finish to continue

and also I am not able to make the MyOtherMethod () identifies which ended btn.Click

thank you
Jonatas Marques

Dave Kreskowiak27-Feb-13 1:18

Web interface to access application

27-Feb-13 1:18

OK, you didn't get it. There is NO other code after the call to MyOtherMethod. That is the last thing that happens inside the event handler.

I serisouly doubt you need to go call some method, then have it wait on the rest of the code in the handler to finish. It WILL NOT ever finish until the method you called finishes itself.

It sounds as though you need to restructure what you're doing, synchronously, to avoid this situation. When you make a method call, the code that does the calling does NOT continue to run while the method is executing. The calling code completely stops and waits for the method called to return. This is called a "blocking call".

Also, event handlers should return inside of about 250 milliseconds. While your event handler code is exectuing, your UI is copmletely hung waiting for it. The user cannot click on anything in your app until the handler returns.

But, in any case, the ONLY way to do what you describe to is use threading and a WaitHandle to signal the other thread. So, your event handler gets called, and in it you kick off another thread.

What are you doing that you think you need to do this??

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

waner michaud25-Feb-13 7:16

25-Feb-13 7:16

Hello everyone:

I need guidance on how to start with this small project.
I need to implement a web interface that will access applications that developed in vb.net with sql back end.

What I mean is the following:
I have two small applications, one is fire arms registration and the other is logistic.
Both apps reside on the same sql server.
I want to have a web interface that will point to each one base on the user access.
that is if the user is from fire arm than fire arm registration app will launch and so on..

of course this can for a number of applications.

The general purpose of this, is to have access to these applications via the web.

what best solution to use in order to accomplish this task.

I would like to know what i need to consider first in all aspect of this task.

Thanks in advance for your guidance and help.

Sandeep Mewara25-Feb-13 18:08

25-Feb-13 18:08

waner michaud wrote:
I need to implement a web interface that will access applications that developed in vb.net with sql back end.

What do you mean 'access applications'? You want to give a WEB UI to it or launch an exe? If launch then, since it's a web interface, exe needs to be downloaded to client system and then launched. If you do a process.start on server, it will not be on client system and they will now see/know.

Sandeep Mewara
Microsoft ASP.NET MVP 2012 & 2013

[My Blog]: Sandeep Mewara's Tech Journal!
[My Latest Article]: HTML5 Quick Start Web Application

waner michaud26-Feb-13 3:13

26-Feb-13 3:13

Thanks for reply:
I want to give a WEB UI to it. All the user ought to do is to simply log in through a web interface.

Be mindful the application is an executable, it can be installed on a client machine.

For the WEB UI, it will be installed on the server.
The application can be accessed directly on the server or through the WEB UI.

I do not want to user to download anything. Simply login and based on his/her login ID will determine which application that will launch.

Once again thank you.

Sandeep Mewara26-Feb-13 3:16

26-Feb-13 3:16

waner michaud wrote:
will determine which application that will launch.

Launch where? On client or server?

If server, what's the use?
If client, you understand that it has to be downloaded on client system and then installed to be used.

Sandeep Mewara
Microsoft ASP.NET MVP 2012 & 2013

[My Blog]: Sandeep Mewara's Tech Journal!
[My Latest Article]: HTML5 Quick Start Web Application

waner michaud26-Feb-13 3:19

26-Feb-13 3:19

Thanks again

On the server

waner michaud26-Feb-13 5:40

26-Feb-13 5:40

hi your feedback will be appreciated.
thanks

Sandeep Mewara26-Feb-13 5:52

26-Feb-13 5:52

Well, I was waiting for your full response.

I did asked this too: If server, what's the use?
Can you share the expected workflow from logging in to returning back something to user.

I get that one executable needs to be picked, what after that, what role does it play and how does client come to know/use it. Since it will not be downloaded and will be launched on server side, what are you trying achieve?

Sandeep Mewara
Microsoft ASP.NET MVP 2012 & 2013

[My Blog]: Sandeep Mewara's Tech Journal!
[My Latest Article]: HTML5 Quick Start Web Application

waner michaud26-Feb-13 6:54

26-Feb-13 6:54

Thanks again,
This is what I want to accomplish:

Let's say I have two applications developed in vb.net with sql as database namely fire arms registration and vehicle registration respectively.

these two applications centrally reside on the same server. i want to allow authorized user to access these application through a WEB UI.

For example, if I am way from the office location and I need to use any one of these apps, I can simply login to a web interface and perform any operation i so desire as long I have access privilege.

These applications are executable. it can be installed on a client machine as they are being deployed right now.

there is a need to have these apps available through an URL...

I hope that I am a little clearer now and you can have an idea of my train of thought and process.

Thanks a lot.

Listbox String to RichTextbox. Help Please!

Eddy Vluggen26-Feb-13 9:25

Eddy Vluggen

26-Feb-13 9:25

waner michaud wrote:
what best solution to use in order to accomplish this task.

ASP.NET

Still sounds like a trick-question. You'd have to write a Web-UI.

Or use something like Citrix.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Gray_Ang3l22-Feb-13 17:14

Gray_Ang3l

22-Feb-13 17:14

I am Creating a Client that uses email to send and recieve text messages. I only have to problems when i recieve the mail from the server it goes into my listbox but how do i make that listbox string, when selected, open the body of the message in a richtextbox. Here is my code so far.

Also here is a picture of the GUI so you can see the problem a little more clearly.
Click Here For GUI Picture

The messages are put into the Inbox i just cant display the body of the message in the richtext box when selected from the listbox. Any Help will be greatly appreciated! Thanks!

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    'variable declaration
    Dim strMailServer, strUsername, strPassword, strFrom, strSubject, strToo, strBody, strMailContent As String
    Dim popConn As Text_Me_Now.POP3
    Dim mailMess As Text_Me_Now.EmailMessage
    Dim intMessCnt, i As Integer

    'set the variables to the input boxes
    strMailServer = "pop.gmx.com"
    strUsername = "xxxxxxx@gmx.com"
    strPassword = "xxxxxxx"



    'Disable the button when proccessing
    Button2.Enabled = False

    'create the objects
    popConn = New Text_Me_Now.POP3
    mailMess = New Text_Me_Now.EmailMessage

    'if we have got to this point, try and connect to the server
    popConn.POPConnect(strMailServer, strUsername, strPassword)

    'now we have a connection, see if there are any mails on the server
    intMessCnt = popConn.GetMailStat()

    'now, see if we have returned any messages
    If intMessCnt > 0 Then

        'clear contents of the list and add the heading
        ListBox1.Items.Clear()

        'if we returned some messages, loop through each one and get the details
        For i = 1 To intMessCnt

            'load the entire content of the mail into a string
            strMailContent = popConn.GetMailMessage(i)

            'call the functions to get the various parts out of the email
            strFrom = mailMess.ParseEmail(strMailContent, "From:")
            strSubject = mailMess.ParseEmail(strMailContent, "Subject:")
            strToo = mailMess.ParseEmail(strMailContent, "To:")
            strBody = mailMess.ParseBody()

            'add email details to the list box
            ListBox1.Items.Add(strFrom & ", " & strSubject)

            'un-comment to display full details of the email in a message box
            'MsgBox("From: " & strFrom & vbNewLine & "Too: " & strToo & vbNewLine & "Subject: " & strSubject & _
            'vbNewLine & "Body: " & strBody)

            'call close method to delete the emails.
        Next i
    End If
    'Quit the connection to the server
    popConn.CloseConn()

    Button2.Enabled = True

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object,
End Sub

Re: Listbox String to RichTextbox. Help Please!

Richard MacCutchan22-Feb-13 23:21

Richard MacCutchan

22-Feb-13 23:21

Take a look at POP3 Email Client with full MIME Support (.NET 2.0)[^], although the code is C# it should be fairly easy to convert.

Re: Listbox String to RichTextbox. Help Please!

Flintstone-Fred24-Feb-13 13:24

Flintstone-Fred

24-Feb-13 13:24

You appear to have extracted all the relevant information for the message, but the only thing you are storing in the ListBox items collection is the from and and subject parts as a single string.

ListBox1.Items.Add(strFrom & ", " & strSubject)

I would suggest that instead of storing this string, that you instead define a class to hold the relevant information.

Something like this:

Public Class MessageItem
   Public From As String
   Public Body As String
   Public Subject As String
   Public Sub New(ByVal From As String, ByVal Subject As String, ByVal Body As String)
      Me.From = From
      Me.Body = Body
      Me.Subject = Subject
   End Sub
      Public Overrides Function ToString() As String
         Return From & ", " & Subject
      End Function
End Class

Instead of adding items directly to the ListBox, you bind the ListBox to a List(of MessageItem). Define this list at the form level like this:

Private Messages As New List(Of MessageItem)

In the FormLoad event handler, place this statement:

ListBox1.DataSource = Messages

The ToString Function defined in the class will provide the text displayed for the item in the ListBox.

Now in your button_click handler, replace this code:

'call the functions to get the various parts out of the email
strFrom = mailMess.ParseEmail(strMailContent, "From:")
strSubject = mailMess.ParseEmail(strMailContent, "Subject:")
strToo = mailMess.ParseEmail(strMailContent, "To:")
strBody = mailMess.ParseBody()

'add email details to the list box
ListBox1.Items.Add(strFrom & ", " & strSubject)

with this:

Dim msg As New MessageItem(mailMess.ParseEmail(strMailContent, "From:"), _
                           mailMess.ParseEmail(strMailContent, "Subject:"), _
                           mailMess.ParseBody())

Messages.Add(msg)

Also replace ListBox1.Items.Clear() with Messages.Clear()

Now in your ListBox1_SelectedIndexChanged method you can set the textbox text with something like this:

RichTextBox1.Text = CType(ListBox1.SelectedItem, MessageItem).Body

Re: Listbox String to RichTextbox. Help Please!

Gray_Ang3l24-Feb-13 13:29

Gray_Ang3l

24-Feb-13 13:29

Thanks!

Message Removed

22-Feb-13 11:13

DougsSoftware

22-Feb-13 11:13

Message Removed

Active Directory Users OU

dsj4122-Feb-13 8:14

dsj41

22-Feb-13 8:14

I'm trying to move disabled accounts in my active directory users OU. I'm getting a error message that says

Error: There is no such object on the server
Code: 80040E37
Source: Active Directory

I created a Test OU on the same level in active directory and I'm not having the same problem. Things work fine.
Error says it's from this line:

Set objRecordset = ObjCommand.Execute

Here's the code I'm using.

*************CODE*************
' Set Flag to enable the disabling and moving of unused accounts otherwise create
' log of accounts affected
' 1 - Will Disable and move accounts
' 0 - Will create ouput log only
bDisable=1

' Accounts that haven't been logged in for this amount of days are selected
iLogonDays=60

' LDAP Location of OUs to search for accounts
' LDAP location format eg: "OU=Users,OU=Test"
strSearchOU="OU=Users"

' Search depth to find users
' Use "OneLevel" for the specified OU only or "Subtree" to search all child OUs as well.
strSearchDepth="OneLevel"

' Location of new OU to move disabled user accounts to
' eg: "OU=Disabled_Accounts,OU=Test"
strNewOU="OU=Disabled_Accounts"

' Log file and error log file path
strLogPath=".\logs\"
' Error log file name appended with date and .err extension)
strErrorLog="DisabledAccounts_"
' Output log file name with date and .log extension)
strOutputLog="DisabledAccounts_"

sDate = Year(Now()) & Right("0" & Month(Now()), 2) & Right("0" & Day(Now()), 2)
Set oFSO=CreateObject("Scripting.FileSystemObject")
If Not oFSO.FolderExists(strLogPath) Then CreateFolder(strLogPath)
Set output=oFSO.CreateTextFile(strLogPath & strOutputLog & sDate & ".log")
Set errlog=oFSO.CreateTextFile(strLogPath & strErrorLog & sDate & ".err")
output.WriteLine "Sam Account Name" &vbTab& "LDAP Path" &vbTab& "Last Logon Date" &vbTab& _
"Date Created" &vbTab& "Home Directory"
errlog.WriteLine "Sam Account Name" &vbTab& "LDAP Path" &vbTab& "Problem" &vbTab& "Error"

Set rootDSE = GetObject("LDAP://rootDSE")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set ObjCommand = CreateObject("ADODB.Command")
ObjCommand.ActiveConnection = objConnection
ObjCommand.Properties("Page Size") = 10
DSEroot=rootDSE.Get("DefaultNamingContext")

Set objNewOU = GetObject("LDAP://" & strNewOU & "," & DSEroot)
ObjCommand.CommandText = "<ldap: "="" &="" strsearchou="" ","="" dseroot="" _
"="">;(&(objectClass=User)(objectcategory=Person));adspath;" & strSearchDepth

Set objRecordset = ObjCommand.Execute

On Error Resume Next

While Not objRecordset.EOF
LastLogon = Null
intLogonTime = Null

Set objUser=GetObject(objRecordset.fields("adspath"))

If DateDiff("d",objUser.WhenCreated,Now) > iLogonDays Then
Set objLogon=objUser.Get("lastlogontimestamp")
If Err.Number <> 0 Then
WriteError objUser, "Get LastLogon Failed"
DisableAccount objUser, "Never"
Else
intLogonTime = objLogon.HighPart * (2^32) + objLogon.LowPart
intLogonTime = intLogonTime / (60 * 10000000)
intLogonTime = intLogonTime / 1440
LastLogon=intLogonTime+#1/1/1601#

If DateDiff("d",LastLogon,Now) > iLogonDays Then
DisableAccount objUser, LastLogon
End If
End If
End If
WriteError objUser, "Unknown Error"
objRecordset.MoveNext
Wend

Sub CreateFolder( strPath )
If Not oFSO.FolderExists( oFSO.GetParentFolderName(strPath) ) Then Call _
CreateFolder( oFSO.GetParentFolderName(strPath) )
oFSO.CreateFolder( strPath )
End Sub

Sub DisableAccount( objUser, lastLogon )
On Error Resume Next
If bDisable <> 0 Then
If objUser.accountdisabled=False Then
objUser.accountdisabled=True
objUser.SetInfo
WriteError objUser, "Disable Account Failed"
objNewOU.MoveHere objUser.adspath, "CN="&objUser.CN
WriteError objUser, "Account Move Failed"
Else
Err.Raise 1,,"Account already disabled. User not moved."
WriteError objUser, "Disable Account Failed"
End If
End If
output.WriteLine objUser.samaccountname &vbTab& objUser.adspath &vbTab& lastLogon &vbTab& _
objUser.whencreated &vbTab& objUser.homedirectory
End Sub

Sub WriteError( objUser, strProblem )
If Err.Number <> 0 Then
errlog.WriteLine objUser.samaccountname &vbTab& objUser.adspath &vbTab& strProblem &vbTab& _
Replace(Err.Description,vbCrlf,"")
Err.Clear
End If
End Sub
*********END CODE**********

Re: Active Directory Users OU

Dave Kreskowiak22-Feb-13 8:45