|
楼主 |
发表于 2011-2-3 10:06:41
|
显示全部楼层
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_outfile=..\..\绑手机令牌辅助程序.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\MyDoc\Form1.kxf
$Form1 = GUICreate("辅助程序", 235, 438, 192, 114)
$Group1 = GUICtrlCreateGroup("VPN", 24, 32, 185, 89)
$Input1 = GUICtrlCreateInput("", 48, 64, 57, 37)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("变更", 128, 64, 57, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("序列号", 24, 184, 185, 113)
$Button2 = GUICtrlCreateButton("copy", 80, 216, 73, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
RunWait(@ComSpec & " /c " & 'Rasphone -h 222.162.143.66')
$c=GUICtrlRead($Input1)
RunWait(@ComSpec & " /c " & 'Rasdial 222.162.143.66 '& $c &'ip7 qazwsx')
Case $Button2
$bak = ClipGet()
RunWait(@ComSpec & " /c " & 'echo '& $bak &' >> D:\UserFile\Desktop\序列号.txt')
EndSwitch
WEnd#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_outfile=..\..\绑手机令牌辅助程序.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\MyDoc\Form1.kxf
$Form1 = GUICreate("辅助程序", 235, 438, 192, 114)
$Group1 = GUICtrlCreateGroup("VPN", 24, 32, 185, 89)
$Input1 = GUICtrlCreateInput("", 48, 64, 57, 37)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("变更", 128, 64, 57, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("序列号", 24, 184, 185, 113)
$Button2 = GUICtrlCreateButton("copy", 80, 216, 73, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
RunWait(@ComSpec & " /c " & 'Rasphone -h 222.162.143.66')
$c=GUICtrlRead($Input1)
RunWait(@ComSpec & " /c " & 'Rasdial 222.162.143.66 '& $c &'ip7 qazwsx')
Case $Button2
$bak = ClipGet()
RunWait(@ComSpec & " /c " & 'echo '& $bak &' >> D:\UserFile\Desktop\序列号.txt')
EndSwitch
WEnd
|
|