OK. Sorry hvis jeg ikke kan forklare mig ordentligt :-(
Det jeg gerne vil er følgende:
Oprette en formular i vba. Det formular har 4 indtastnings felter. Værdierne fra disse felter skal jeg bruger i cmd.exe
Der for vil jeg gerne starte cmd.exe og skrive kommandoer i cmd med værdierne fra vba formen.
Mit problem er at jeg ikke kan finde ud af skrive kommandoer i cmd fra vba. Jeg kan godt starte cmd.exe med en shell kommando. Men kan ikke komme videre derfra.
Jeg vil med andre ord gerne automatisere følgende:
Åbne cmd.exd Skrive telnet i ”cmd linien” Skrive set local_echo ”cmd linien” Open upr1234 ”cmd linien”
roenving: Ja, en lidt "uelegant" metode, men nem og sikker :o) Det er nok ret meget lettere end at skulle til at sende kommandoer til en anden process.. Husk at slet filen bagefter...
Når jeg afvikler min kode starter den MANGE cmd.exe op. Hvis jeg køre den med f8 er der ingen problemer??
Private Sub Command1_Click() Dim ReturnValue As String Dim upr As String Dim wIp1, wIP2, wIP3, wIP4 As String Dim wsm1, wms2, wms3, wms4 As String Dim wGW1, wgw2, wgw3, wgw4 As String
'upr = IBUPR upr = 1212
'wIp1 = IP1 'wIP2 = IP2 'wIP3 = IP3 'wIP4 = IP4
'wsm1 = sm1 'wsm2 = sm2 'wsm3 = sm3 'wsm4 = sm4
'wGW1 = GW1 'wgw2 = GW2 'wgw3 = GW3 'wgw4 = GW4
ReturnValue = Shell("C:\WINNT\system32\CMD.EXE", 2) ' Run CMD. SendKeys " telnet~ set local_echo~ , True" 'SendKeys " telnet~ set local_echo~ open upr" & upr & "~", True
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.