Advertisement
CivReborn

For Brad DropDownList

May 12th, 2017
325
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #SingleInstance, Force
  2. Input_List:= "Admin|bwsr|crs|deed|dnr|dhs|doc|dvs|exec"
  3. Output_List:= "address-family ipv4 vrf vpn-admin autonomous-system 100{enter}*address-family ipv4 vrf vpn-bwsr autonomous-system 1300 {enter}*address-family ipv4 vrf vpn-crs autonomous-system 400 {enter}*address-family ipv4 vrf vpn-deed-remote autonomous-system 700{enter}*address-family ipv4 vrf vpn-dnr autonomous-system 500{enter}*address-family ipv4 vrf vpn-rtc autonomous-system 900{enter}*address-family ipv4 vrf vpn-doc autonomous-system 600{enter}*address-family ipv4 vrf vpn-dvs autonomous-system 1000{enter}*address-family ipv4 vrf vpn-mnit-exec autonomous-system 1200{enter}"
  4. ::891e::
  5. WingetTitle,Active_Window,A
  6. Gui, Color, Black
  7. Gui, Add, DropDownList, x10 ym w180 r10 AltSubmit vInput gSubmit_Input ,% Input_List
  8. Gui, Add, Edit,cWhite x10 w480 r1 ReadOnly vOutput,
  9. Gui, Add, Button, x200 w100 h30 gStuff,Do Something
  10. Gui, Show, w500 ,For Brad #2
  11. return
  12. Submit_Input:
  13.     Gui,Submit,Nohide
  14.     Loop, Parse, Output_List, *
  15.         {
  16.             if(A_Index=Input)
  17.                 Output:= A_LoopField
  18.         }
  19.     GuiControl,,Output,%Output%
  20.     return
  21. Stuff:
  22.     Gui,Destroy
  23.     WinActivate,Active_Window
  24.     SendInput, conf t {enter}
  25.     SendInput, router eigrp 1 {enter}
  26.     SendInput, %Output%
  27.     SendInput, default-metric 100000 1000 254 1 1500 {enter}
  28.     SendInput, redistribute static metric 100000 1000 254 1 1500 {enter}
  29.     SendInput, redistribute connected {enter}
  30.     SendInput, exit-address-family {enter}
  31.     return
  32. esc::ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement