Imports System
Imports System.Collections.Generic
Imports SilkTest.Ntf
Imports SilkTest.Ntf.XBrowser
Imports Lune_Automation_Unite
Imports System.Diagnostics
Public Module Main
    Public login As String
    Public senha As String
    Private master As Lune_Automation_Unite.Lune_Basic_Module = New Lune_Automation_Unite.Lune_Basic_Module
    Public Sub Main()
        KillProcess("Excel")
        ssSasRessarcimento(login, senha, "BAU_SUSRE_1840_P_Ressarcimento/BAU_SUSRE_1840_P_Ressarcimento/02 - Concepção/")
        Dim sprint7 As Sprint_7 = New Sprint_7
        sprint7.Main()
         csSasRessarcimento(login, senha, "BAU_SUSRE_1840_P_Ressarcimento/BAU_SUSRE_1840_P_Ressarcimento/02 - Concepção/")
    End Sub
    Sub KillProcess(element As String)
        Dim Processos() As Process = System.Diagnostics.Process.GetProcessesByName(element)
        For Each x As Process In Processos
            x.Kill()
        Next
    End Sub

    Sub ssSasRessarcimento(login As String, senha As String, path As String)
        KillProcess("iexplore")
        'Process.Start(String.Format("cmd", "/k co -p ""everis01:@s01apl08:49201/BAU_SUSRE_1840_P_Ressarcimento/BAU_SUSRE_1840_P_Ressarcimento/02 - Concepção/"" -is"))
        Process.Start("cmd.exe", "/C stcmd ci -p """ + login + ":@s01apl08:49201/" + path + """ -is")
        System.Threading.Thread.Sleep(2000)
        System.Windows.Forms.SendKeys.SendWait(senha + "{ENTER}")
        System.Threading.Thread.Sleep(20000)
        KillProcess("cmd")
        Process.Start("iexplore")
    End Sub

    Sub csSasRessarcimento(login As String, senha As String, path As String)
        'Process.Start(String.Format("cmd", "/k co -p ""everis01:@s01apl08:49201/BAU_SUSRE_1840_P_Ressarcimento/BAU_SUSRE_1840_P_Ressarcimento/02 - Concepção/"" -is"))
        Process.Start("cmd.exe", "/C stcmd co -p """ + login + ":@s01apl08:49201/" + path + """ -is")
        System.Threading.Thread.Sleep(2000)
        System.Windows.Forms.SendKeys.SendWait(senha + "{ENTER}")
        System.Threading.Thread.Sleep(20000)
        KillProcess("cmd")
        KillProcess("iexplore")
    End Sub
End Module