deployk

This is simple registry code generator for autoit script. Screenshot for example RegistryCodeGenerator.au3 #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GuiStatusBar.au3> #include <WindowsConstants.au3> #include<File.au3> #NoTrayIcon #RequireAdmin $file = "RegistryFile.au3" If Not FileExists("RegistryFile.au3") Then _FileCreate($file) EndIf $open = FileOpen("RegistryFile.au3", 1) #Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\desktop\koda_1.7.3.0\forms\form1.kxf $Form1 = GUICreate("Registry Code Generator", 658, 251, -1, -1) $Group1 = GUICtrlCreateGroup("Registry Code Genertator", 8, 16, 641, 145) $Checkbox1 = GUICtrlCreateCheckbox("RegWrite", 24, 48, 73, 17) $Input1 = GUICtrlCreateInput("", 104, 48, 240, 21) GUICtrlSetTip(-1, "Insert your keyname: Example: HKEY_CURRENT_USER\Software\Test") GUICtrlSetState(-1, $GUI_DISABLE) $Input2 = GUICtrlCreateInput("", 346, 48, 90, 21) GUICtrlSetTip(-1, "Valuename [optional]: Example: TestKey") GUICtrlSetState(-1, $GUI_DISABLE) $Combo1 = GUICtrlCreateCombo("", 438, 48, 105, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetTip(-1, "[optional] Type of key to write: Example: REG_SZ") GUICtrlSetData(-1, "||REG_BINARY|REG_SZ|REG_MULTI_SZ|REG_EXPAND_SZ|REG_QWORD|REG_DWORD") GUICtrlSetState(-1, $GUI_DISABLE) $Input3 = GUICtrlCreateInput("", 545, 48, 90, 21) GUICtrlSetTip(-1, "[optional] The value to write: Example: Hello this is a test") GUICtrlSetState(-1, $GUI_DISABLE) $Checkbox2 = GUICtrlCreateCheckbox("RegRead", 24, 80, 73, 17) $Input4 = GUICtrlCreateInput("", 104, 80, 439, 21) GUICtrlSetTip(-1, "The registry key to read: Example: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion") GUICtrlSetState(-1, $GUI_DISABLE) $Input5 = GUICtrlCreateInput("", 545, 80, 90, 21) GUICtrlSetTip(-1, "The value to read: Example: ProgramFilesDir") GUICtrlSetState(-1, $GUI_DISABLE) $Checkbox3 = GUICtrlCreateCheckbox("RegDelete", 24, 112, 73, 17) $Input6 = GUICtrlCreateInput("", 104, 112, 439, 21) GUICtrlSetTip(-1, "The registry key to delete: Example: HKEY_CURRENT_USER\Software\Test") GUICtrlSetState(-1, $GUI_DISABLE) $Input7 = GUICtrlCreateInput("", 545, 112, 90, 21) GUICtrlSetTip(-1, "[optional] The valuename to delete: Example: TestKey") GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Control", 8, 168, 641, 57) $Button1 = GUICtrlCreateButton("Save", 480, 188, 75, 25) GUICtrlSetTip(-1, "Save...") $Button2 = GUICtrlCreateButton("Exit", 560, 188, 75, 25) GUICtrlSetTip(-1, "Exit...") $Button3 = GUICtrlCreateButton("Show", 24, 188, 75, 25) GUICtrlSetTip(-1, "Open file") $Button4 = GUICtrlCreateButton("Registry Editor", 105, 188, 90, 25) GUICtrlSetTip(-1, "Open Registry") GUICtrlCreateGroup("", -99, -99, 1, 1) $StatusBar1 = _GUICtrlStatusBar_Create($Form1) GUISetState() #EndRegion ### END Koda GUI section ### While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE FileClose($open) Exit Case $Checkbox1 check1() Case $Checkbox2 check2() Case $Checkbox3 check3() Case $Button1 OK() Case $Button2 Close() Case $Button3 Show_data() Case $Button4 registry() EndSwitch WEnd Func check1() If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then GUICtrlSetState($Input1, $GUI_ENABLE) GUICtrlSetData($Input1, "") GUICtrlSetState($Input2, $GUI_ENABLE) GUICtrlSetData($Input2, "") GUICtrlSetState($Combo1, $GUI_ENABLE) ;GUICtrlSetData($Combo1, "") GUICtrlSetState($Input3, $GUI_ENABLE) GUICtrlSetData($Input3, "") Else GUICtrlSetState($Input1, $GUI_DISABLE) GUICtrlSetData($Input1, "") GUICtrlSetState($Input2, $GUI_DISABLE) GUICtrlSetData($Input2, "") GUICtrlSetState($Combo1, $GUI_DISABLE) ;GUICtrlSetData($Combo1, "") GUICtrlSetState($Input3, $GUI_DISABLE) GUICtrlSetData($Input3, "") EndIf EndFunc Func check2() If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then GUICtrlSetState($Input4, $GUI_ENABLE) GUICtrlSetData($Input4, "") GUICtrlSetState($Input5, $GUI_ENABLE) GUICtrlSetData($Input5, "") Else GUICtrlSetState($Input4, $GUI_DISABLE) GUICtrlSetData($Input4, "") GUICtrlSetState($Input5, $GUI_DISABLE) GUICtrlSetData($Input5, "") EndIf EndFunc Func check3() If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then GUICtrlSetState($Input6, $GUI_ENABLE) GUICtrlSetData($Input6, "") GUICtrlSetState($Input7, $GUI_ENABLE) GUICtrlSetData($Input7, "") Else GUICtrlSetState($Input6, $GUI_DISABLE) GUICtrlSetData($Input6, "") GUICtrlSetState($Input7, $GUI_DISABLE) GUICtrlSetData($Input7, "") EndIf EndFunc Func OK() If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $value1 = ";Script Created by Registry Code Generator" & @CRLF & _ "RegWrite" & '("' & GUICtrlRead($Input1) & '" , ' & '"' & GUICtrlRead($Input2) & '", ' & '"' & GUICtrlRead($Combo1) & '", ' & '"' & GUICtrlRead($Input3) & '")' & @CRLF FileWrite($open, $value1 & @CRLF) GUICtrlSetData($Input1, "") GUICtrlSetData($Input2, "") GUICtrlSetData($Input3, "") EndIf ;------------------------------------------------------------------------------------------------ If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then $value2 = ";Script Created by Registry Code Generator" & @CRLF & _ "RegRead" & '("' & GUICtrlRead($Input4) & '" , ' & '"' & GUICtrlRead($Input5) & '")' & @CRLF FileWrite($open, $value2 & @CRLF) GUICtrlSetData($Input4, "") GUICtrlSetData($Input5, "") EndIf ;----------------------------------------------------------------------- If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then $value3 = ";Script Created by Registry Code Generator" & @CRLF & _ "RegDelete" & '("' & GUICtrlRead($Input6) & '" , ' & '"' & GUICtrlRead($Input7) & '")' & @CRLF FileWrite($open, $value3 & @CRLF) GUICtrlSetData($Input6, "") GUICtrlSetData($Input7, "") EndIf EndFunc Func Close() FileClose($open) Exit EndFunc Func Show_data() ShellExecute($file) EndFunc Func registry() ShellExecute("regedit.exe") EndFunc

Thanks Varian , this works #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GuiIPAddress.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #region ### START Koda GUI section ### Form= $Form1 = GUICreate("SSH", 331, 238, 326, 220) $Group1 = GUICtrlCreateGroup(" SSH Login", 8, 8, 313, 217) $IP = GUICtrlCreateLabel("IP", 80, 48, 21, 22) GUICtrlSetFont(-1, 11, 800, 0, "Tahoma") $IPAddress1 = _GUICtrlIpAddress_Create($Form1, 104, 48, 130, 21) _GUICtrlIpAddress_Set($IPAddress1, "212.233.209.73") $User = GUICtrlCreateLabel("User", 64, 96, 39, 22) GUICtrlSetFont(-1, 11, 800, 0, "Tahoma") $Username = GUICtrlCreateInput("", 104, 96, 129, 21) $Password = GUICtrlCreateLabel("Password", 24, 136, 77, 22) GUICtrlSetFont(-1, 11, 800, 0, "Tahoma") $Pass = GUICtrlCreateInput("", 104, 136, 129, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD)) $Login = GUICtrlCreateButton("Login", 104, 176, 107, 25) GUICtrlSetFont(-1, 10, 800, 0, "Tahoma") $Cancel = GUICtrlCreateButton("Cancel", 232, 176, 75, 25) GUICtrlSetFont(-1, 10, 800, 0, "Tahoma") $Label1 = GUICtrlCreateLabel("Port", 240, 48, 36, 22) GUICtrlSetFont(-1, 11, 800, 0, "Tahoma") $Input3 = GUICtrlCreateInput("22", 280, 48, 25, 21) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) #endregion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Cancel Exit Case $Login $IPAddress1 = _GUICtrlIpAddress_Get($IPAddress1) $Username = GUICtrlRead($Username) $Pass = GUICtrlRead($Pass) ExitLoop EndSwitch WEnd GUISetState(@SW_HIDE) RunWait(@ComSpec & " /c putty.exe -ssh -2 -P 22 " & $Username & "@" & $IPAddress1 & " -pw " & $Pass, "", @SW_HIDE)

I found this script and try to change it a little.

please deleted

Hello. This script does not work. Where wrong. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GuiIPAddress.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("SSH", 331, 238, 326, 220) $Group1 = GUICtrlCreateGroup(" SSH Login", 8, 8, 313, 217) $IP = GUICtrlCreateLabel("IP", 80, 48, 21, 22) GUICtrlSetFont(-1, 11, 800, 0, "Tahoma") $IPAddress1 = _GUICtrlIpAddress_Create($Form1, 104, 48, 130, 21) _GUICtrlIpAddress_Set($IPAddress1, "212.233.209.73") $User = GUICtrlCreateLabel("User", 64, 96, 39, 22) GUICtrlSetFont(-1, 11, 800, 0, "Tahoma") $Username = GUICtrlCreateInput("", 104, 96, 129, 21) $Password = GUICtrlCreateLabel("Password", 24, 136, 77, 22) GUICtrlSetFont(-1, 11, 800, 0, "Tahoma") $Pass = GUICtrlCreateInput("", 104, 136, 129, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) $Login = GUICtrlCreateButton("Login", 104, 176, 107, 25) GUICtrlSetFont(-1, 10, 800, 0, "Tahoma") $Cancel = GUICtrlCreateButton("Cancel", 232, 176, 75, 25) GUICtrlSetFont(-1, 10, 800, 0, "Tahoma") $Label1 = GUICtrlCreateLabel("Port", 240, 48, 36, 22) GUICtrlSetFont(-1, 11, 800, 0, "Tahoma") $Input3 = GUICtrlCreateInput("22", 280, 48, 25, 21) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $Cancel Exit case $Login $IPAddress1 = GUICtrlRead($IPAddress1) $Username = GUICtrlRead($Username) $Pass = GUICtrlRead($Pass) ExitLoop EndSwitch WEnd Run(@ComSpec & " /c putty.exe -ssh -2 -P 22" & $Username & "@" & $IPAddress1 & "-pw" & $Pass & "", @SW_HIDE)

How to create list with network connection for this script CODE#NoTrayIcon #include <GUIConstants.au3> $IP_address = True $Subnet_mask = True $Default_gateway = True $Preferred_DNSserver = True $Alternate_DNSserver = True ; LAN info $netname = "Local Area Connection" $frmInformation = GUICreate("User information", 330, 295, 320, 280) $lblIP_address = GUICtrlCreateLabel("IP address:", 15, 44, 120, 17) $lblSubnet_mask = GUICtrlCreateLabel("Subnet mask:", 15, 82, 120, 17) $txtIP_address = GUICtrlCreateInput("", 160, 40, 153, 21) $txtSubnet_mask = GUICtrlCreateInput("", 160, 80, 153, 21) $lblDefault_gateway = GUICtrlCreateLabel("Default gateway:", 15, 124, 160, 17) $txtDefault_gateway = GUICtrlCreateInput("", 160, 122, 154, 21) $lblPreferred_DNSserver = GUICtrlCreateLabel("DNS1:", 15, 184, 126, 17) $txtPreferred_DNSserver = GUICtrlCreateInput("", 160, 180, 153, 21) $lblAlternate_DNSserver = GUICtrlCreateLabel("DNS2:", 15, 216, 155, 17) $txtAlternate_DNSserver = GUICtrlCreateInput("", 160,212,153,21) GUICtrlCreateGroup("IP Settings", 5, 25, 320, 130) GUICtrlCreateGroup("DNS Settings", 5, 158, 320, 90) GUICtrlCreateCombo("Select Network adapter", 10, 260, 220, 140) $btnOK = GUICtrlCreateButton("&GO", 238, 258, 75, 20, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $btnOK $IP_address = GUICtrlRead($txtIP_address) $Subnet_mask = GUICtrlRead($txtSubnet_mask) $Default_gateway = GUICtrlRead($txtDefault_gateway) $Preferred_DNSserver = GUICtrlRead($txtPreferred_DNSserver) $Alternate_DNSserver = GUICtrlRead($txtAlternate_DNSserver) ExitLoop Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd GUISetState(@SW_HIDE) runwait ('netsh interface ip set address name=' & '"' & $netname & '" dhcp', "", @SW_HIDE) runwait ('netsh interface ip set address name=' & '"' & $netname & '" static ' & $IP_address & ' '& $Subnet_mask & ' ' & $Default_gateway & ' 1',"",@SW_Hide) runwait ('netsh interface ip set dns name=' & '"' & $netname & '" source=static ' & $Preferred_DNSserver & '',"") runwait ('netsh interface ip add dns name=' & '"' & $netname & '" addr= ' & GUICtrlRead($txtAlternate_DNSserver) & '',"")