Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1766540
  • 博文数量: 234
  • 博客积分: 4966
  • 博客等级: 上校
  • 技术积分: 3322
  • 用 户 组: 普通用户
  • 注册时间: 2006-11-13 01:03
文章分类

全部博文(234)

文章存档

2017年(2)

2016年(1)

2015年(8)

2014年(11)

2013年(44)

2012年(27)

2011年(22)

2010年(30)

2009年(37)

2008年(6)

2007年(45)

2006年(1)

分类: WINDOWS

2012-11-06 14:46:14

切换网关的小工具(AutoIT3编写,仅供参考)
    ---记录一下编写过程
1.采用AutoIT3中的工具KODA图形工具编辑需要的图形界面,然后再生成onevent模式(相关模式可参考autoit3帮助文件)的au3脚本
2.在au3脚本中根据事件添加相应事件过程

难点:
1.检查Rodia单选控件是否选中状态,BitAnd(GUICtrlRead($Radio1),$GUI_CHECKED),用此语句就行,同样可用在复选框、Listview 、Treeview 等项目

具体脚本如下:

点击(此处)折叠或打开

  1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
  2. #PRE_icon=C:\windows\syswow64\SHELL32.dll|-136
  3. #PRE_U***64=n
  4. #PRE_Res_requestedExecutionLevel=None
  5. #AutoIt3Wrapper_Run_Debug_Mode=Y
  6. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
  7. #include
  8. #include
  9. #include
  10. Opt("GUIOnEventMode", 1)

  11. Local $Form1_1,$Radio1,$Radio2,$Button1

  12. #Region ### START Koda GUI section ### Form=setroute.kxf
  13. $Form1_1 = GUICreate("网关切换", 195, 114, 192, 124)
  14. GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")
  15. GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1_1Minimize")
  16. GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1_1Maximize")
  17. GUISetOnEvent($GUI_EVENT_RESTORE, "Form1_1Restore")
  18. $Button1 = GUICtrlCreateButton("OK", 112, 80, 75, 25)
  19. GUICtrlSetFont($Button1, 12, 800, 0, "宋体")
  20. GUICtrlSetOnEvent($Button1, "Button1Click")
  21. $Radio1 = GUICtrlCreateRadio("10.1.10.8", 39, 17, 113, 17)
  22. GUICtrlSetState($Radio1, $GUI_CHECKED)
  23. GUICtrlSetFont($Radio1, 12, 800, 0, "宋体")
  24. GUICtrlSetOnEvent($Radio1, "Radio1Click")
  25. $Radio2 = GUICtrlCreateRadio("10.1.10.236", 39, 49, 121, 17)
  26. GUICtrlSetFont($Radio2, 12, 800, 0, "宋体")
  27. GUICtrlSetOnEvent($Radio2, "Radio2Click")
  28. GUISetState(@SW_SHOW)
  29. #EndRegion ### END Koda GUI section ###

  30. While 1
  31. Sleep(100)
  32. WEnd

  33. Func Button1Click()
  34. Run(@ComSpec & ' /c route delete 0.0.0.0',"", @SW_HIDE)
  35. If BitAnd(GUICtrlRead($Radio1),$GUI_CHECKED)=1 Then
  36. Run(@ComSpec & ' /c route add 0.0.0.0 mask 0.0.0.0 10.1.10.8',"", @SW_HIDE)
  37. MsgBox(4096,"网关设置","设置网关8成功")
  38. Else
  39. Run(@ComSpec & ' /c route add 0.0.0.0 mask 0.0.0.0 10.1.10.236',"", @SW_HIDE)
  40. MsgBox(4096,"网关设置","设置网关236成功")
  41. EndIf
  42. EndFunc

  43. Func Radio()

  44. EndFunc

  45. Func Form1_1Close()
  46. Exit
  47. EndFunc
  48. Func Form1_1Maximize()

  49. EndFunc
  50. Func Form1_1Minimize()

  51. EndFunc
  52. Func Form1_1Restore()

  53. EndFunc
  54. Func Radio1Click()
  55. GUICtrlSetState($Radio1,$GUI_CHECKED)
  56. EndFunc
  57. Func Radio2Click()
  58. GUICtrlSetState($Radio2,$GUI_CHECKED)
  59. EndFunc


阅读(3102) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~