• Home
 · 
• Miscellaneous
 · 
• This code allows you to send command lines to your program, either when you first start it, or when

This code allows you to send command lines to your program, either when you first start it, or when

This code allows you to send command lines to your program, either when you first start it, or when it is already running. This is quite a

Rate This code allows you to send command lines to your program, either when you first start it, or when

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'all their names as the defaults. Then place the following code in the general 
'section, and compile it to an exe. When you enter some commands in the command 
'line, if it is this first copy of the program, it will use those, otherwise, 
'it will close, and send them to the first copy you opened. Enter commands in 
'the format (command name,first value,second value,etc), with the only spaces 
'being between the commands, not between the values.

'Here is a list of the commands I have put in the program as an example:
'caption (This just changes the title of the form, e.g caption,Test.)
'colour (This just changes the colour of the form, e.g colour,255,0,255.)
'exit (This just exits the program, e.g exit.)
'msg (This just shows a msgbox, e.g msg,Hello.)

'E.g "C:\Yourprog.exe caption,Adder colour,0,0,255 msg,Ready"

'To change them, just add a case statement, making sure the the command is 
'typed in lower case, as thats what the program changes the commands to before 
'checking them against the case statments. Then use CmdItm to find the options 
'they have used with them, e.g CmdItm(1) will be the first thing they put in 
'after the comma.

'None of the commands are case sensitve.
'Also, you can set the timer interval lower, but I found this made some 
'clipboard errors, so I made it a bit higher, and it seemed to help a bit.
'You may use the code in anyway you like, and I hope you find it useful.


'Code:

Private Sub Form_Load()
Dim TmpText As String

Timer1.Enabled=False

TmpText = Command$

If App.PrevInstance = True Then
If TmpText <> "" Then Clipboard.SetText ("**ComDat** " & TmpText)
End
Else
If TmpText <> "" Then Call CmdHandler(" " & TmpText)
End If

Timer1.Enabled = True
Timer1.Interval = 200
End Sub

Public Function CmdHandler(CmdText As String)
On Error GoTo CmdError

Dim CmdCnt As Byte
Dim CmdItms As Variant
Dim CmdItm As Variant

Clipboard.Clear

CmdItms = Split(CmdText, " ")

For CmdCnt = 1 To UBound(CmdItms)
CmdItm = LCase$(CmdItms(CmdCnt))
CmdItm = Split(CmdItm, ",")
Select Case CmdItm(0)
Case "caption"
Me.Caption = CmdItm(1)
Case "colour"
Me.BackColor = RGB(CmdItm(1), CmdItm(2), CmdItm(3))
Case "exit"
End
Case "msg"
MsgBox (CmdItm(1))
Case Else
MsgBox "Sorry, the command '" & CmdItm(0) & "' is not a valid command." & vbCr & "Please check your spelling, and that the command exists.", vbCritical + vbOKOnly, "Unknown Command"
End Select
Next CmdCnt

Text1.Text = "Your commands have been processed."

Exit Function

CmdError:
MsgBox "Sorry, there was an error while reading the command line." & vbCr & "Please check your formating, and try again.", vbCritical + vbOKOnly, "Processing Error"
Resume Next
End Function

Private Sub Timer1_Timer()
Dim TmpText As String

TmpText = Clipboard.GetText

Text1.Text = TmpText

If (TmpText Like "*ComDat*") And (Mid$(TmpText, 11, 1) = " ") Then
Timer1.Enabled = False
Call CmdHandler(TmpText)
Timer1.Enabled = True
End If
End Sub