Auto-restart and then continue the Sub in VB.NET

问题

Well I have some subs like:

Private Sub somesub() 'Processses that reach 900 mb in 1 hour and an half End Sub

I want to restart the app, dispose memory and then return to where I was.

Exactly, I have an app that adds contacts and well It reach 900mb when 2000 contacts are added... I want to stop every 200 contacts, and do that I have said, and the code that I have no tested:

Imports SKYPE4COMLib

Public Class frmMain

Dim pUser As SKYPE4COMLib.User
        Dim contactos As Integer

        If contactos < 200 Then
            For Each oUser In ListBox1.Items

                pUser = oSkype.User(oUser)
                pUser.BuddyStatus = SKYPE4COMLib.TBuddyStatus.budPendingAuthorization
                oSkype.Friends.Add(pUser)
                contactos += 1
            Next
        Else
            'System.Windows.Forms.Application.Restart()
            'I need a code that continues where I was, here...
        End If
End Sub

End Class

What can I do? Thanks!

回答1:

I have written some code below that may solve your problem. It certainly should save your position to a file and then when the file runs again, it would reload that position.

A couple of points.

I moved your declaration of pUser, and set it to nothing when I was done. This way the object is marked for disposal immediately.. you might get more than 200 revolutions out of this with that structure change.. but it might be a tad slower.
You will need some sort of reload for your listbox. I assume that you did not include it as part of your sample for brevity.
I changed your foreach loop to a for loop structure. This allows you to track your position within the list .. as a result I had to create a new oUser since you were iterating that in the foreach and did not list its type, you will need to fix that part of the code.
Obviously I have not compiled the below code, but it should give you a decent start on what your trying to do.

Be careful of the Process.Start, as you can set the current process to start another process and wait for that process to exit before exiting the current one and that would be very very very very bad and really cause an OutOfMemoryException quickly. You need to let the current process start the next instance and then without checking to see if it was successful at starting it .. exit. Or if you have used the restart command in your comments use that. The process spawning method might do what your wanting more effectively because your starting a new process on the computer and letting the old one be garbage collected (thus releasing the resources it was using.

Imports SKYPE4COMLib

Public Class frmMain

        'Put code here to load position from the file
        Dim startingPosition as Integer = 0
        If IO.File.Exists("c:\filename.txt")
            Using sr as New IO.StreamReader("c:\filename.txt")
                sr.Read
                StartingPosition = Convert.ToInteger(sr.ReadToEnd)
                sr.Close
            End Using
        End If
        'Probably needs some code somewhere to reload your listbox
        Dim contactos As Integer
        Dim CurrentPosition as Integer = 0
        If contactos < 200 and StartingPosition < ListBox1.Items.Count Then
            For x as integer = StartingPosition to ListBox1.Items.Count - 1
                Dim oUser as <YOURTYPEHERE> = Ctype(ListBox1.Items(x), <YOURTYPEHERE>)
                Dim pUser As SKYPE4COMLib.User
                pUser = oSkype.User(oUser)
                pUser.BuddyStatus = SKYPE4COMLib.TBuddyStatus.budPendingAuthorization
                oSkype.Friends.Add(pUser)
                contactos += 1
                pUser = Nothing  'set the garbage collection to collect this.
                CurrentPosition = x
            Next
        Else
            'Save Your place to an external File, all your doing here is opening a file
            'and saving the index of where you are in the listbox.
            Using sw as New IO.StreamWriter("c:\filename.txt")
                 sw.Write(CurrentPosition)
                 sw.Close
            End Using
            'use the process namespace to have this app start the next copy of your app
            'be careful not to use WaitForExit or you will have two copies in memory...
            Process.Start("exename")
            'or if the command below exists.. use that.. I never have.
            'System.Windows.Forms.Application.Restart()
            'I need a code that continues where I was, here...
        End If
    End Sub
End Class

来源：https://stackoverflow.com/questions/17869249/auto-restart-and-then-continue-the-sub-in-vb-net

标签

vb.net

restart

skype4com