Visual Basic

Force the user change the password on first login?

15-Oct-09 3:53

That depends on what you mean by "disconnect my account". What you've asked doesn't make any sense.

A guide to posting questions on CodeProject[^]

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

waner michaud14-Oct-09 11:40

waner michaud

14-Oct-09 11:40

Hi,

I have one user table in sqlexpress

UserTable

User_ID
User_name
Password
Last_Name
First_Name
last_update

Login form in vb.net.

I can validate user information on login but what I want to do is to have the user to change his/her password the very first time he uses this password.

How can I achieve this solution?

I like to have some sample code

Thanks for your guidance in advance..

PLEASE HELP

Re: Force the user change the password on first login?

_Damian S_14-Oct-09 15:46

_Damian S_

14-Oct-09 15:46

You have given us fairly limited info here, but one option would be this:

When you create a new user, do not put a date in the last_update field (since you are creating, not updating the user).

Then, in the login form, check for NULL in the last_update field. If it's NULL, trigger the password update screen, setting the new password, and inserting a date into the last_update field.

Done!!

I don't have ADHD, I have ADOS... Attention Deficit oooh SHINY!!

Booger Mobile (n) - A bright green 1964 Ford Falcon - our entry into the Camp Quality esCarpade!!
Do something wonderful - make a donation to Camp Quality today!!

Re: Force the user change the password on first login?

Dave Kreskowiak14-Oct-09 16:26

Re: Force the user change the password on first login?

14-Oct-09 16:26

Better yet, add a field to the table: PasswordExpired

I think you can figure out what to do with it.

A guide to posting questions on CodeProject[^]

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

Ashfield15-Oct-09 1:38

Ashfield

15-Oct-09 1:38

Dave Kreskowiak wrote:
I think you can figure out what to do with it.

Wouldn't put my money on it Smile | :)

Bob
Ashfield Consultants Ltd
Proud to be a 2009 Code Project MVP

Re: Force the user change the password on first login?

Dave Kreskowiak15-Oct-09 4:19

What's wrong with my event handler?

15-Oct-09 4:19

I wouldn't either. Seriously, I weep for the future of software development.

A guide to posting questions on CodeProject[^]

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

Sonhospa14-Oct-09 11:01

Sonhospa

14-Oct-09 11:01

Good evening everyone,

in my project I use a 'frames' class which controls the different images of a film. The frames are stored in a generic list, and every time the index changes I raise an own event called 'FrameChanged'. I might have to tell that it's my first attempt to use selfmade EventArgs... and over and over again I run into a 'TargetParameterCountException' without finding an idea why?

Maybe someone of you experienced guys is able to support me with some advice? Here's what I do:

The event is defined in the frames class with
Public Shared Event FrameChanged(ByVal sender As Object, ByVal e As FrameChangedEventArgs).

The event args are:

Public Class FrameChangedEventArgs
    Inherits EventArgs

    Public Total As Integer
    Public Done As Integer
    Public Index As Integer
    Public File As String
    Public Message As String

    Public Sub New(ByVal TotalFrames As Integer, ByVal FramesSoFar As Integer, ByVal Ind As Integer, ByVal filename As String, ByVal msg As String)
        MyBase.New()
        Total = TotalFrames
        Done = FramesSoFar
        Index = Ind
        File = filename
        Message = msg
    End Sub
End Class

Then the event is raised in the 'Set' part of the index property:
RaiseEvent FrameChanged(Nothing, New FrameChangedEventArgs(Max, value, value, File, String.Empty))

In a form I first define a listener like this:
AddHandler clsFrames.FrameChanged, AddressOf OnFrameChange 'Listener!

And, finally, this is the event handler:

   Public Sub OnFrameChange(ByVal sender As Object, ByVal e As FrameChangedEventArgs)
       Try
           If Me.InvokeRequired Then
               Dim dlg As New UpdateCounterDelegate(AddressOf OnFrameChange)
---->          Me.Invoke(dlg, New FrameChangedEventArgs(e.Total, e.Done, e.Index, e.File, e.Message))
           Else
               UpdateGUI(e.Total, e.Done, e.Index, e.File, e.Message)
           End If
       Catch ex As Exception
           MsgBox("Error in the FrameChanged-Event!")
       End Try
   End Sub

When debugging I find that the error occurs in the marked line above. I'm starting to doubt that I'm able to count to five... Or what else is wrong with my code where this ParameterCount problem might result from?

Thank you in advance,
Michael

p.s. Trying to use 'BeginInvoke' instead results in the same error thrown at the end of the sub, before updating the GUI.

Ian Shlasko14-Oct-09 11:22

Ian Shlasko

14-Oct-09 11:22

The parameter mismatch has nothing to do with the number of arguments in the FrameChangedEventArgs constructor. The compiler would catch that and wouldn't even let you build the executable.

The problem is UpdateCounterDelegate. You're passing one parameter to an UpdateCounterDelegate (the FrameChangedEventArgs object). What does that delegate require?

If it's the usual "object as Sender, e as ___EventArgs" format, then you need to add "sender" as an extra parameter in the invoke, before the FrameChangedEventArgs.

Proud to have finally moved to the A-Ark. Which one are you in?
Developer, Author (Guardians of Xen)

Sonhospa15-Oct-09 0:26

Sonhospa

15-Oct-09 0:26

Thank you, Ian, for your constructive support. It works fine now Thumbs Up | :thumbsup:

!

Somehow I had assumed that "dlg" would be the sender, so I was sure to have passed sender as well as the EventArgs.

Regards
Michael

Luc Pattyn14-Oct-09 11:28

Luc Pattyn

14-Oct-09 11:28

Hi Michael,

Control.Invoke takes TWO parameters: a delegate and a parameters array.
(when no delegate parameters are required, there is a single-parameter overload too).

Examples are plenty, see here[^] for instance.

BTW: you really should find that in no time by looking at the documentation[^].

PS: and you'll have the opportunity to use curly brackets in VB!

Smile | :)

Luc Pattyn

I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages

Local announcement (Antwerp region): Lange Wapper? Neen!

ID3 desicion tree coding for my project

Sonhospa15-Oct-09 0:38

Sonhospa

15-Oct-09 0:38

Thank you, Luc, for your answer. It's working fine now after inserting the form ('Me') as the sender Thumbs Up | :thumbsup:

!

My error was to assume that the delegate itself would function as sender i.e. the first parameter. This error occurred despite looking at samples and the documentation.

Regards
Michael

sdeepan414-Oct-09 8:10

sdeepan4

14-Oct-09 8:10

i am in need of ID3 decision tree code in vb.net or java for my project.
send me the link to sdeepan_cse@yahoo.com

Dave Kreskowiak14-Oct-09 8:23

14-Oct-09 8:23

Write it yourself. Noone here is just going to hand over their hard work so you get an easy pass at your own job. If you want examples, what's so hard about typing "ID3 decision tree VB.NET" into Google?

A guide to posting questions on CodeProject[^]

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

sdeepan414-Oct-09 8:32

sdeepan4

14-Oct-09 8:32

i already tried google search for ID3 decision tree source code in vb.net.
but i did not get any link which require for me.

Dave Kreskowiak14-Oct-09 8:51

14-Oct-09 8:51

Well, it looks like the only source code [^]you're going to get is in C#. You'll have to convert whatever code you find to VB.NET. Again, noone is just going to hand over their work to you.

A guide to posting questions on CodeProject[^]

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

SNMP in VB ! Simple GET request please

Ashfield15-Oct-09 1:35

Ashfield

15-Oct-09 1:35

Now you have published your email address I bet you get lots of 'code'.

You are on the wrong site, try rentacoder.com and pay for it - or admit you will fail your course/shouldn't have taken the job (delete as appropriate)

Bob
Ashfield Consultants Ltd
Proud to be a 2009 Code Project MVP

Budykiller14-Oct-09 6:42

Budykiller

14-Oct-09 6:42

Hello,

Wow, it's been 1 week, yes 1 week before i request any help about this nightmare.
It's seems almost impossible to have a simple VB code for what i want.

My goal :
- Query 30 printers with SNMP so i can retrieve their Page Counter.

I made a batch for that with the util "snmpget". So simple, but i would like to perform it all in Excel so it would be better to transfer it in VB.

I tried so many things, third party DLL, API, Winsock, WMI, SNMP... Some codes works but not everything, others simply don't, well...

I would like to work with this bunch of code :

strTargetSnmpDevice = "192.168.1.20"

Set objWmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWmiServices = objWmiLocator.ConnectServer("", "root\snmp\localhost")

Set objWmiNamedValueSet = CreateObject("WbemScripting.SWbemNamedValueSet")
objWmiNamedValueSet.Add "AgentAddress", strTargetSnmpDevice
objWmiNamedValueSet.Add "AgentReadCommunityName", "public"

Set colIfTable = objWmiServices.InstancesOf("SNMP_RFC1213_MIB_ifTable", , _
    objWmiNamedValueSet)

For Each objInterface In colIfTable
    WScript.Echo "ifIndex [Key]:        " & objInterface.ifIndex  & vbCrLf & _
        "   ifAdminStatus:     " & objInterface.ifAdminStatus     & vbCrLf & _
        "   ifDescr:           " & objInterface.ifDescr           & vbCrLf & _
        "   ifInDiscards:      " & objInterface.ifInDiscards      & vbCrLf & _
        "   ifInErrors:        " & objInterface.ifInErrors        & vbCrLf & _
        "   ifInNUcastPkts:    " & objInterface.ifInNUcastPkts    & vbCrLf & _
        "   ifInOctets:        " & objInterface.ifInOctets        & vbCrLf & _
        "   ifInUcastPkts:     " & objInterface.ifInUcastPkts     & vbCrLf & _
        "   ifInUnknownProtos: " & objInterface.ifInUnknownProtos & vbCrLf & _
        "   ifLastChange:      " & objInterface.ifLastChange      & vbCrLf & _
        "   ifMtu:             " & objInterface.ifMtu             & vbCrLf & _
        "   ifOperStatus:      " & objInterface.ifOperStatus      & vbCrLf & _
        "   ifOutDiscards:     " & objInterface.ifOutDiscards     & vbCrLf & _
        "   ifOutErrors:       " & objInterface.ifOutErrors       & vbCrLf & _
        "   ifOutNUcastPkts:   " & objInterface.ifOutNUcastPkts   & vbCrLf & _
        "   ifOutOctets:       " & objInterface.ifOutOctets       & vbCrLf & _
        "   ifOutQLen:         " & objInterface.ifOutQLen         & vbCrLf & _
        "   ifOutUcastPkts:    " & objInterface.ifOutUcastPkts    & vbCrLf & _
        "   ifPhysAddress:     " & objInterface.ifPhysAddress     & vbCrLf & _
        "   ifSpecific:        " & objInterface.ifSpecific        & vbCrLf & _
        "   ifSpeed:           " & objInterface.ifSpeed           & vbCrLf & _
        "   ifType:            " & objInterface.ifType            & vbCrLf
Next

I have 1 question :

- Set colIfTable = objWmiServices.InstancesOf("SNMP_RFC1213_MIB_ifTable", , _
objWmiNamedValueSet)
This line is driving me crazy. I understand it retrieves all IP configuration.
Straight from the RFC 1759 or the Printer-mib, i want to have THIS oid ! (1.3.6.1.2.1.43.10.2.1.4).
I checked, it's in the "prtMarkerEntry" class.
But how the hell i can specify it ?
Whenever i put Set colIfTable = objWmiServices.InstancesOf("SNMP_RFC1759_MIB_prtmarkerentry", , _
objWmiNamedValueSet)
i have then an error on the "FOR LOOP". ColIfTable is empty. How all this work ?

I read so many things, i'm lost. Do i need to insert any MIB into the WMI repositery ? The famous mof files and all that ?

Thanks in advance everybody.

Re: SNMP in VB ! Simple GET request please

Dave Kreskowiak15-Oct-09 5:16

VBScript <--> Command Line Window

15-Oct-09 5:16

From my very limited research on the topic (good luck finding a "simple" example for this!), it would appear that you're missing the MIB data that describes to the SNMP Provider how to translate between SNMP data and WMI objects.

This would be done using an SNMP information module file and running it through the SMI2SMIR compiler. You would either need to find an SNMP module file for the SNMP output of the printer in question, or write one yourself. Or, better still, if the manufacturer of the printer supplies a MIB file for it, you'd need to import that MIB into the SMIR (SNMP Module Information Repository) by running smi2smir /a <MIB file>.

A guide to posting questions on CodeProject[^]

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

brb18314-Oct-09 6:01

brb183

14-Oct-09 6:01

Hello all,

I have a DOS based program I use to collect sales data from cash registers. I need to close this DOS window in a VBscript I would like to write.

When manually closing out of the window, the program that is open wants the user to type 'y' to quit the program before it will allow the DOS window to close.

Can someone give me some code to

1) Invoke the close method on the DOS window
2) Send the 'y' key to the DOS window?

This is operating on Win95. Laugh | :laugh:

Re: VBScript <--> Command Line Window

Dave Kreskowiak14-Oct-09 6:34

Re: VBScript <--> Command Line Window

14-Oct-09 6:34

If you use the WScript.Shell's Exec method[^] to launch your DOS app, you get an object back that lets you get at the StanardIn and StandardOut streams, giving you the ability to send keyboard input to the DOS app.

A guide to posting questions on CodeProject[^]

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

brb18314-Oct-09 7:08

brb183

14-Oct-09 7:08

Thanks Dave!

That works perfectly...

However the app in question (command line) starts when windows starts. No big deal there, I could make a script to start the prog instead of calling the prog .exe

I actually would like to close the command line program via a scheduler at a certain time of day. So the potential issue here is, if I use the script to start the program, it will be running and running for 23+ hours before it sends the command to quit.

Ideally I would like to come up with a way to run a script from the scheduler that would close the command line window, then send the 'y' key to respond to the program.

Any ideas?

Re: VBScript <--> Command Line Window

Dave Kreskowiak14-Oct-09 8:20