Dim indice As Integer = ComboBox1.SelectedIndex + 2
Dim comandoindice As String = "{DOWN " & indice.ToString & "}"
Dim provincia As String = ComboBox1.SelectedValue.ToString
Dim percorsoDAT As String = cartella & "\" & provincia & "\" & provincia & "-TAR.dat"
Dim processStartInfo As System.Diagnostics.ProcessStartInfo
processStartInfo = New System.Diagnostics.ProcessStartInfo With {
.FileName = "C:\Docfa4\PGM\Docfa40.exe",
.WorkingDirectory = "C:\Docfa4\PGM",
.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal,
.UseShellExecute = True
}
Dim ProcID As Integer = Diagnostics.Process.Start(processStartInfo).Id
Threading.Thread.Sleep(100)
AppActivate(ProcID)
My.Computer.Keyboard.SendKeys("%", False)
My.Computer.Keyboard.SendKeys("{RIGHT 2}", False)
My.Computer.Keyboard.SendKeys("{DOWN 2}", False)
My.Computer.Keyboard.SendKeys("~", True)
Threading.Thread.Sleep(100)
My.Computer.Keyboard.SendKeys(comandoindice, True)
My.Computer.Keyboard.SendKeys("{TAB}", False)
My.Computer.Keyboard.SendKeys(percorsoDAT, False)
My.Computer.Keyboard.SendKeys("{TAB 2}", False)
My.Computer.Keyboard.SendKeys("~", False)
My.Computer.Keyboard.SendKeys("{TAB}", False)
My.Computer.Keyboard.SendKeys("~", False)
ho un problema con questo codice e sicuramente esiste una soluzione semplice! a naso basterebbe rallentare l'invio dei sendkeys... ho provato sia true che false e questa è la situazione "migliore"
il problema è che COMANDOINDICE deve inviare fino a 104 DOWN e alcuni se li perde per strada!!!
infatti INDICE lo devo correggere aggiungendo 2.... ma non è corretto ne è una costante! oltre i 50 "down" ne perde di più... non c'è comunque una regola!
secondo voi come devo risolvere?
p.s. l'unica che al momento mi è venuta in mente è suddividere tipo di "10 in 10" i down inframezzandoli da sleep per rallentare...
GRAZIE