{"id":2294,"date":"2010-10-25T01:43:33","date_gmt":"2010-10-25T07:43:33","guid":{"rendered":"http:\/\/gregsowell.com\/?p=2294"},"modified":"2010-10-23T07:07:40","modified_gmt":"2010-10-23T13:07:40","slug":"launch-menu-for-the-dude","status":"publish","type":"post","link":"https:\/\/gregsowell.com\/?p=2294","title":{"rendered":"Launch Menu For The Dude"},"content":{"rendered":"

As a consultant I use the dude a lot. I connect to a myriad of dude servers on a regular basis, which can be somewhat cumbersome. Why is this cumbersome…because you don’t have the ability to save multiple sets of connection information in the dude. Sooooo, I wrote a little menu system so you can enter as many dude systems as you want, each with their own sets of credentials and IP information. All you have to do is choose the server from the list you want to connect to and click launch \ud83d\ude42<\/p>\n

Binary is here:

\n\n\tDude-Menu\t(1945 downloads\t)\n<\/a>\n<\/div>\n<\/p>\n

\"\"<\/p>\n

Here’s the code for all of my basement dwelling friends:<\/p>\n

#include <Array.au3>\r\n#include <file.au3>\r\n\r\n;check for config file's existance\r\nif not FileExists(@ScriptDir & "\\config.txt") then\r\n\t;file isn't here, generate it\r\n\t$fConfig = FileOpen(@ScriptDir & "\\config.txt", 1)\r\n\r\n\t; Check if file opened for writing OK\r\n\tIf $fConfig = -1 Then\r\n\t\tMsgBox(0, "Error", "Unable to open file.")\r\n\t\tExit\r\n\tEndIf\r\n\r\n\tFileWriteLine($fConfig, "C:\\Program Files\\Dude\\dude.exe" & @CRLF)\r\n\tFileWriteLine($fConfig, "delete me,username,password,Secure,1.1.1.1,2211")\r\n\r\n\tFileClose($fConfig)\r\nEndIf\r\n\r\nDim $aConfig\r\nIf Not _FileReadToArray(@ScriptDir & "\\config.txt",$aConfig) Then\r\n   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)\r\n   Exit\r\nEndIf\r\n\r\n\r\n;#############################\r\n\r\n#include <ButtonConstants.au3>\r\n#include <ComboConstants.au3>\r\n#include <EditConstants.au3>\r\n#include <GUIConstantsEx.au3>\r\n#include <GUIListBox.au3>\r\n#include <StaticConstants.au3>\r\n#include <WindowsConstants.au3>\r\n#Region ### START Koda GUI section ### Form=C:\\Documents and Settings\\greg\\Desktop\\autoit\\dude menu\\dudemenu.kxf\r\n$Form1_1 = GUICreate("Dude Menu - GregSowell.com MikrotikUniversity.com", 325, 448, 192, 114)\r\n$InDesc = GUICtrlCreateInput("", 72, 232, 225, 21)\r\n$InUser = GUICtrlCreateInput("", 72, 277, 225, 21)\r\n$InPassword = GUICtrlCreateInput("", 72, 301, 225, 21)\r\n$Combo1 = GUICtrlCreateCombo("Secure", 72, 328, 225, 25)\r\nGUICtrlSetData(-1, "Remote")\r\n$InIP = GUICtrlCreateInput("", 72, 358, 225, 21)\r\n$InPort = GUICtrlCreateInput("", 72, 389, 225, 21)\r\n$List1 = GUICtrlCreateList("", 16, 8, 289, 201)\r\n$Label1 = GUICtrlCreateLabel("Description", 8, 232, 57, 17)\r\n$Label2 = GUICtrlCreateLabel("Username", 8, 271, 52, 17)\r\n$Label3 = GUICtrlCreateLabel("Password", 8, 298, 50, 17)\r\n$Label4 = GUICtrlCreateLabel("Type", 8, 327, 28, 17)\r\n$Label5 = GUICtrlCreateLabel("IP Address", 8, 359, 55, 17)\r\n$Label6 = GUICtrlCreateLabel("Port", 8, 388, 23, 17)\r\n$BtnLaunch = GUICtrlCreateButton("Launch", 48, 416, 65, 25, $WS_GROUP)\r\n$BtnAdd = GUICtrlCreateButton("Add\/Edit", 130, 416, 65, 25, $WS_GROUP)\r\n$BtnDelete = GUICtrlCreateButton("Delete", 211, 416, 65, 25, $WS_GROUP)\r\nGUISetState(@SW_SHOW)\r\n#EndRegion ### END Koda GUI section ###\r\n\r\n;fill in the listbox\r\n_LoadConfig()\r\n$ListLocation = 1\r\n\r\nWhile 1\r\n\t$nMsg = GUIGetMsg()\r\n\tSwitch $nMsg\r\n\tCase $GUI_EVENT_CLOSE\r\n\t\tExit\r\n\r\n\tcase $GUI_EVENT_PRIMARYUP\r\n\t\t;mouse was pressed, lets check to see if they choose a new item in list\r\n\t\t;check which list item is highlighted\r\n\t\t$tempList = GUICtrlRead($List1)\r\n\t\t;see if this is new item chosen or just a click somewhere on the prog\r\n\t\tif $tempList <> $ListLocation and $tempList <> "" Then\r\n\t\t\t;change, update everything\r\n\t\t\t;set list location to the temp value\r\n\t\t\t$ListLocation = $tempList\r\n\t\t\t;set all our gui values\r\n\r\n\t\t\tGUICtrlSetData($InDesc,stringleft($ListLocation,StringInStr($ListLocation,",") - 1))\r\n\t\t\tGUICtrlSetData($InUser, StringMid($ListLocation, StringInStr($ListLocation,",") + 1, StringInStr($ListLocation,",", 0, 2) - StringInStr($ListLocation,",") - 1))\r\n\t\t\tGUICtrlSetData($InPassword, StringMid($ListLocation, StringInStr($ListLocation,",", 0, 2) + 1, StringInStr($ListLocation,",", 0, 3) - StringInStr($ListLocation,",", 0, 2) - 1))\r\n\t\t\tGUICtrlSetData($Combo1, StringMid($ListLocation, StringInStr($ListLocation,",", 0, 3) + 1, StringInStr($ListLocation,",", 0, 4) - StringInStr($ListLocation,",", 0, 3) - 1))\r\n\t\t\tGUICtrlSetData($InIP, StringMid($ListLocation, StringInStr($ListLocation,",", 0, 4) + 1, StringInStr($ListLocation,",", 0, 5) - StringInStr($ListLocation,",", 0, 4) - 1))\r\n\t\t\tGUICtrlSetData($InPort, StringMid($ListLocation, StringInStr($ListLocation,",", 0, 5) + 1))\r\n\t\tEndIf\r\n\r\n\t\tCase $BtnAdd\r\n\t\t\t;update existing or commit the new one\r\n\t\t\t\t;lets rock it\r\n\t\t\t\t$new = 1\r\n\t\t\t\t;where in the loop are we\r\n\t\t\t\t$updateNum = 0\r\n\t\t\t\t;check to see if it exists\r\n\t\t\t\tfor $y = 2 to $aConfig[0]\r\n\t\t\t\t\t;check if the IP exists\r\n\t\t\t\t\tif StringInStr($aConfig[$y], GUICtrlRead($InIP)) > 0 Then\r\n\t\t\t\t\t\t;we have a match\r\n\t\t\t\t\t\t$new = 0\r\n\t\t\t\t\t\t$updateNum = $y\r\n\t\t\t\t\tEndIf\r\n\t\t\t\tNext\r\n\t\t\t\t;ready to rock, save it\r\n\t\t\t\tif $new = 1 Then\r\n\t\t\t\t\t;new one\r\n\t\t\t\t\t;add to end of the array\r\n\t\t\t\t\t_ArrayAdd($aConfig, GUICtrlRead($InDesc) & "," & GUICtrlRead($InUser) & "," & GUICtrlRead($InPassword) & "," & GUICtrlRead($Combo1) & "," & GUICtrlRead($InIP) & "," & GUICtrlRead($InPort))\r\n\t\t\t\t\t;sort our array\r\n\t\t\t\t\t_ArraySort($aConfig,0,2)\r\n\t\t\t\t\t;write the file\r\n\t\t\t\t\t_FileWriteFromArray(@ScriptDir & "\\config.txt",$aConfig,1)\r\n\t\t\t\t\t;run plink to accept cert\r\n\t\t\t\t\t;Run(@ComSpec & " \/c " & FileGetShortName(@ScriptDir) & '\\plink.exe -ssh ' & GUICtrlRead($IPAddress1))\r\n\t\t\t\t\t;load the list again\r\n\t\t\t\t\t_LoadConfig()\r\n\t\t\t\tElse\r\n\t\t\t\t\t;update\r\n\t\t\t\t\t;set existing value\r\n\t\t\t\t\t$aConfig[$updateNum] = GUICtrlRead($InDesc) & "," & GUICtrlRead($InUser) & "," & GUICtrlRead($InPassword) & "," & GUICtrlRead($Combo1) & "," & GUICtrlRead($InIP) & "," & GUICtrlRead($InPort)\r\n\t\t\t\t\t;sort array\r\n\t\t\t\t\t_ArraySort($aConfig,0,2)\r\n\t\t\t\t\t;write the array to file\r\n\t\t\t\t\t_FileWriteFromArray(@ScriptDir & "\\config.txt",$aConfig,1)\r\n\t\t\t\t\t;reload list\r\n\t\t\t\t\t_LoadConfig()\r\n\t\t\t\tEndIf\r\n\r\n\t\tCase $BtnDelete\r\n\t\t\t;delete an existing entry\r\n\t\t\t$sure = MsgBox(4, "Delete Record?", "Are you sure you want to delete " & GUICtrlRead($InDesc) & "?")\r\n\t\t\tif $sure == 6 Then\r\n\t\t\t\t;delete it\r\n\t\t\t\t$updateNum = 0\r\n\t\t\t\t;find the array #\r\n\t\t\t\tfor $y = 1 to $aConfig[0]\r\n\t\t\t\t\t;check if the IP exists\r\n\t\t\t\t\tif StringInStr($aConfig[$y], GUICtrlRead($InIP)) > 0 Then\r\n\t\t\t\t\t\t;we have a match\r\n\t\t\t\t\t\t$updateNum = $y\r\n\t\t\t\t\tEndIf\r\n\t\t\t\tNext\r\n\t\t\t\t;delete the entry\r\n\t\t\t\t_ArrayDelete($aConfig,$updateNum)\r\n\t\t\t\t;write it to file\r\n\t\t\t\t_FileWriteFromArray(@ScriptDir & "\\config.txt",$aConfig,1)\r\n\t\t\t\t;reload list\r\n\t\t\t\t_LoadConfig()\r\n\t\t\tEndIf\r\n\r\n\t\tCase $BtnLaunch\r\n\t\t\t;launch it\r\n\t\t\trun($aConfig[1])\r\n\t\t\t;wait for the dude to start\r\n\t\t\t$pie = 1\r\n\t\t\t;loop while waiting for dude to start\r\n\t\t\twhile 1 == $pie\r\n\t\t\t\tIf ProcessExists("dude.exe") Then\r\n\t\t\t\t\t$pie = 2\r\n\t\t\t\tEndIf\r\n\t\t\t\tsleep(1000)\r\n\t\t\tWEnd\r\n\t\t\t;activate the connect screen\r\n\t\t\t$pie = 1\r\n\t\t\t;loop while waiting for dude to start\r\n\t\t\twhile 1 == $pie\r\n\t\t\t\tWinActivate("Connect")\r\n\t\t\t\tif winactive("Connect") Then\r\n\t\t\t\t\t$pie = 2\r\n\t\t\t\tEndIf\r\n\t\t\t\tsleep(200)\r\n\t\t\tWEnd\r\n\t\t\t;fill in the blanks and hit enter\r\n\t\t\tSend("{TAB}")\r\n\t\t\tSleep(200)\r\n\t\t\tSend("{TAB}")\r\n\t\t\tSleep(200)\r\n\t\t\tif guictrlread($Combo1) == "Secure" Then\r\n\t\t\t\tSend("s")\r\n\t\t\tElse\r\n\t\t\t\tSend("r")\r\n\t\t\tEndIf\r\n\t\t\tSleep(200)\r\n\t\t\tSend("{TAB}")\r\n\t\t\tSleep(200)\r\n\t\t\tSend(guictrlread($InUser))\r\n\t\t\tSleep(200)\r\n\t\t\tSend("{TAB}")\r\n\t\t\tSleep(200)\r\n\t\t\tSend(guictrlread($InPassword))\r\n\t\t\tSleep(200)\r\n\t\t\tSend("{TAB}")\r\n\t\t\tSleep(200)\r\n\t\t\tSend("{TAB}")\r\n\t\t\tSleep(200)\r\n\t\t\tSend("{TAB}")\r\n\t\t\tSleep(200)\r\n\t\t\tSend(guictrlread($InIP))\r\n\t\t\tSleep(200)\r\n\t\t\tSend("{TAB}")\r\n\t\t\tSleep(200)\r\n\t\t\tSend(guictrlread($InPort))\r\n\t\t\tSleep(200)\r\n\t\t\tSend("{TAB}")\r\n\t\t\tSleep(200)\r\n\t\t\tSend("{ENTER}")\r\n\t\t\t;Exit\r\n\t\t\tGUISetState(@SW_MINIMIZE)\r\n\r\nEndSwitch\r\nWEnd\r\n\r\nFunc _LoadConfig()\r\n\r\ngUICtrlSetData($List1, "")\r\n\r\nDim $aConfig\r\nIf Not _FileReadToArray(@ScriptDir & "\\config.txt",$aConfig) Then\r\n   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)\r\n   Exit\r\nEndIf\r\n\r\nFor $x = 2 to $aConfig[0]\r\n    guictrlsetdata($List1,$aConfig[$x])\r\nNext\r\n\r\nEndFunc<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"
As a consultant I use the dude a lot. I connect to a myriad of dude servers on a regular basis, which can be\u2026<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12,37,6,7,35],"tags":[],"class_list":["post-2294","post","type-post","status-publish","format-standard","hentry","category-autoit","category-dude","category-mikrotik","category-programmingscripting","category-script"],"_links":{"self":[{"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/posts\/2294","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/gregsowell.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2294"}],"version-history":[{"count":4,"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/posts\/2294\/revisions"}],"predecessor-version":[{"id":2299,"href":"https:\/\/gregsowell.com\/index.php?rest_route=\/wp\/v2\/posts\/2294\/revisions\/2299"}],"wp:attachment":[{"href":"https:\/\/gregsowell.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2294"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/gregsowell.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2294"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/gregsowell.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2294"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}