Keskustelu: Ohjelmointikysymykset: VB6: Sendkeys ongelmia

Tässä on pienen ohjelman koodi joka näyttääipn ja vapauttaa sen ja tekee uuden:

Private Sub Command1_Click()
Shell "cmd.exe", vbNormalFocus
SendKeys "ipconfig"
SendKeys "{ENTER}"
SendKeys "ipconfig /release"
SendKeys "{ENTER}"
SendKeys "ipconfig /renew"
SendKeys "{ENTER}"
End Sub

Ja ainoa vika on se, kun ohjelma avaa 35 kommentoriviä ja kirjoittaa komennon johonkin niistä ?
Eikö tuon pitäisi avata vain yksi ?

Hei Thugcln!

Tsekkaa tää...josko olisi apua ongelmaan

Private Declare Function ShellExecute Lib _
"shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute 0&, vbNullString, "cmd.exe", vbNullString, _
vbNullString, vbNormalFocus
SendKeys " ipconfig | ipconfig /release| ipconfig /renew"
SendKeys "{ENTER}", True

End Sub