' Quick Command Creator Inline-Function for VoiceAttack - List All Actions for Editing
' by SemlerPDX Jun2020
' VETERANS-GAMING.COM
Imports Microsoft.VisualBasic
Imports System
Imports System.Text
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Drawing
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Linq
Imports System.Xml.Linq
Imports System.Threading.Tasks
Public Class VAInline
dim cmdIndex as Int32 = 1
dim cmdStep as string = ""
dim cmdSteps as string = ""
Public Sub Main()
if ((VA.GetText("~avcs_qcc_phrase")) IsNot nothing)
dim profileName as string = VA.GetText("~avcs_qcc_phrase")
VA.WriteToLog("AVCS QCC - When I say: " + (VA.GetText("~avcs_qcc_phrase")).ToString(),"orange")
end if
VA.WriteToLog("AVCS QCC - Execute the following VoiceAttack Action Steps:","orange")
while ((VA.GetText("~avcs_qcc_step_" + cmdIndex.ToString())) IsNot nothing)
cmdStep = VA.GetText("~avcs_qcc_step_" + cmdIndex.ToString())
cmdSteps = cmdSteps + cmdIndex.ToString() + ". " + cmdStep + ";"
VA.WriteToLog(cmdIndex.ToString() + ". " + cmdStep.ToString(),"grey")
cmdIndex += 1
end while
cmdIndex -= 1
VA.SetText("~avcs_qcc_actions_list", cmdSteps)
VA.SetInt("~avcs_qcc_step_count", cmdIndex.ToString())
End Sub
End Class
Comments
0 B
|0 👍
/0 👎
0 B
|👍
/👎