个人工具箱 (autoit3) 工具箱

似水年华

1. 
   
2. include <GUIConstants.au3>
   
3. AutoItSetOption("TrayIconHide", 1)
   
4. AutoItSetOption("RunErrorsFatal", 1)
   
5. $but12 = IniRead("Tools.ini", "Tab1", "but2", "")
   
6. $path12 = IniRead("Tools.ini", "Tab1", "path2", "")
   
7. $but13 = IniRead("Tools.ini", "Tab1", "but3", "")
   
8. $path13 = IniRead("Tools.ini", "Tab1", "path3", "")
   
9. $but14 = IniRead("Tools.ini", "Tab1", "but4", "")
   
10. $path14 = IniRead("Tools.ini", "Tab1", "path4", "")
    
11. $but15 = IniRead("Tools.ini", "Tab1", "but5", "")
    
12. $path15 = IniRead("Tools.ini", "Tab1", "path5", "")
    
13. $but16 = IniRead("Tools.ini", "Tab1", "but6", "")
    
14. $path16 = IniRead("Tools.ini", "Tab1", "path6", "")
    
15. $but17 = IniRead("Tools.ini", "Tab1", "but7", "")
    
16. $path17 = IniRead("Tools.ini", "Tab1", "path7", "")
    
17. $but18 = IniRead("Tools.ini", "Tab1", "but8", "")
    
18. $path18 = IniRead("Tools.ini", "Tab1", "path8", "")
    
19. GUICreate("我的常用工具集 By:AC",350,200,350,200)
    
20. GUISetBkColor(0x00E0FFFF)
    
21. GUISetFont(9, 300)
    
22. $tab=GUICtrlCreateTab (0,0, 350,200)
    
23. GUICtrlSetState(-1,$GUI_SHOW)
    
24. $tab1=GUICtrlCreateTabitem ("    常用工具    ")
    
25. $tab11=GUICtrlCreateButton ("CMD", 20,30,150,30)
    
26. $tab12=GUICtrlCreateButton ($but12, 180,30,150,30)
    
27. $tab13=GUICtrlCreateButton ($but13, 20,65,150,30)
    
28. $tab14=GUICtrlCreateButton ($but14, 180,65,150,30)
    
29. $tab15=GUICtrlCreateButton ($but15, 20,100,150,30)
    
30. $tab16=GUICtrlCreateButton ($but16, 180,100,150,30)
    
31. $tab17=GUICtrlCreateButton ($but17, 20,135,150,30)
    
32. $tab18=GUICtrlCreateButton ($but18, 180,135,150,30)
    
33. $tab2=GUICtrlCreateTabitem ("    远程连接    ")
    
34. $icon = GUICtrlCreateIcon ("shell32.dll",10, 180,30)
    
35. $icon = GUICtrlCreateIcon ("My-com.ico",30, 20,30)
    
36. GUICtrlCreateLabel ("连接远程桌面",60, 40, 80)
    
37. GUICtrlCreateLabel ("映射网络磁盘",220, 40, 80)
    
38. $tab21=GUICtrlCreateButton ("电影服务器", 20,70,150,30)
    
39. $tab22=GUICtrlCreateButton ("游戏服务器", 20,105,150,30)
    
40. $tab23=GUICtrlCreateButton ("无盘服务器", 20,140,150,30)
    
41. $tab24=GUICtrlCreateButton ("netrw", 180,70,150,30)
    
42. $tab25=GUICtrlCreateButton ("game$+game2$+menu$", 180,105,150,30)
    
43. $tab26=GUICtrlCreateButton ("lc", 180,140,150,30)
    
44. GUICtrlCreateTabitem ("")
    
45. $tab3=GUICtrlCreateTabitem ("    DDos测试    ")
    
46. $Tab31 = GUICtrlCreateButton ("DDos之Fping", 20, 40, 180, 30)
    
47. GUISetState ()  
    
48. While 1
    
49.    $msg1 = GUIGetMsg()
    
50.    Select
    
51.        Case $msg1 = $GUI_EVENT_CLOSE
    
52.            Exit
    
53.        Case $msg1 = $tab11
    
54.     $destination = @SystemDir & "\cmd.cmd"
    
55.           FileInstall("cmd.cmd", $destination)
    
56.     FileChangeDir(@SystemDir)
    
57.           Run(""&@SystemDir&"\cmd.cmd")            
    
58.        Case $msg1 = $tab12
    
59.            Run(""&$path12&"")
    
60.        Case $msg1 = $tab13
    
61.            Run(""&$path13&"")
    
62.        Case $msg1 = $tab14
    
63.            Run(""&$path14&"")
    
64.        Case $msg1 = $tab15
    
65.           Run(""&$path15&"")
    
66.        Case $msg1 = $tab16
    
67.           Run(""&$path16&"")
    
68.        Case $msg1 = $tab17
    
69.           Run(""&$path17&"")
    
70.        Case $msg1 = $tab18
    
71.           Run(""&$path18&"")
    
72.        Case $msg1 = $tab21           
    
73.           Runwait(""&@SystemDir&"\mstsc.exe /v 192.168.0.225")
    
74.        Case $msg1 = $tab22
    
75.           $destination = @TempDir & "\putty.exe"
    
76.           FileInstall("putty.exe", $destination)
    
77.           Run(""&$destination&" 192.168.0.252:23")
    
78.        Case $msg1 = $tab23
    
79.           $destination = @TempDir & "\NZWER.EXE"
    
80.           FileInstall("NZWER.EXE", $destination)
    
81.           Run(""&$destination&" 192.168.0.251:1")
    
82.        Case $msg1 = $tab24           
    
83.           $passwd = InputBox("权限核查", "请输入密码：", "", "*",50,50)
    
84.     If @Error = 0 Then Run("net use Z: \\mm\netrw "&$passwd&" /user:110","",@SW_Hide)
    
85.        Case $msg1 = $tab25
    
86.           $passwd = InputBox("权限核查", "请输入密码：", "", "*",50,50)
    
87.           If @Error = 0 Then
    
88.               Run("net use Y: \\ecofe2\game$ "&$passwd&" /user:update","",@SW_Hide)
    
89.               Run("net use X: \\ecofe2\game2$ "&$passwd&" /user:update","",@SW_Hide)
    
90.               Run("net use W: \\ecofe2\menu$ "&$passwd&" /user:update","",@SW_Hide)
    
91.     Endif
    
92.        Case $msg1 = $tab26
    
93.           $passwd = InputBox("权限核查", "请输入密码：", "", "*",50,50)
    
94.           If @Error = 0 Then Run("net use V: \\mm\lc "&$passwd&" /user:110","",@SW_Hide)
    
95.        Case $msg1 = $tab31
    
96.           $destination3 = @TempDir & "\Fping.exe"
    
97.           FileInstall("Fping.exe", $destination3)
    
98.           Run(""&$destination3&"")
    
99.    EndSelect
    
100. Wend

复制代码