inital upload

This commit is contained in:
Paul Black 2023-02-24 18:42:00 -07:00
commit f6d39a9a6d
4 changed files with 197 additions and 0 deletions

54
DL.js Normal file
View file

@ -0,0 +1,54 @@
//
// DL SCRIPT FOR CDK DRIVE
//
var partnum;
bzhao = new ActiveXObject("BZWhll.WhllObj");
bzhao.Connect( "" );
partnum = bzhao.InputBox ("Enter part number (without - or *)", "0");
if (partnum == 0)
{
bzhao.MsgBox("Aborted");
}
else if (partnum != "0") {
if (partnum != "") {
if (partnum != null) {
var PDATM = bzhao.WaitForText("Use Arrow", 1, 1, 0.1);
var PDAT = bzhao.WaitForText("PART NUMBER", 1, 1, 0.1);
var PDA = bzhao.WaitForText("(PDA)", 1, 1, 0.1);
var DL = bzhao.WaitForText("O.H. PART-NO............ BIN...", 1, 1, 0.1);
if (PDATM == 0)
{
bzhao.SendKey( "<F3>" );
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
}
else if (PDAT == 0)
{
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
}
else if (PDA == 0)
{
bzhao.SendKey( "<Enter>" );
}
else if (DL == 0)
{
bzhao.SendKey( "<Enter>" );
}
else if (bzhao.WaitForText("Account: FTL-I", 1, 1, 0.1))
{
bzhao.MsgBox("Please return to home screen");
}
bzhao.WaitForText("Account: FTL-I", 1, 1, 100000);
bzhao.SendKey( "DL" );
bzhao.SendKey( "<Enter>" );
bzhao.WaitForText("O.H. PART-NO............ BIN...", 1, 1, 0.1);
bzhao.SendKey( partnum );
bzhao.SendKey( "<Enter>" );
bzhao.Disconnect();
}
}
}

56
PDA.js Normal file
View file

@ -0,0 +1,56 @@
//
// PDA/T SCRIPT FOR CDK DRIVE
//
var partnum;
bzhao = new ActiveXObject("BZWhll.WhllObj");
bzhao.Connect( "" );
partnum = bzhao.InputBox ("Enter part number (without - or *)", "0");
if (partnum == 0)
{
bzhao.MsgBox("Aborted");
}
else if (partnum != "0") {
if (partnum != "") {
if (partnum != null) {
var PDATM = bzhao.WaitForText("Use Arrow", 1, 1, 0.1);
var PDAT = bzhao.WaitForText("PART NUMBER", 1, 1, 0.1);
var PDA = bzhao.WaitForText("(PDA)", 1, 1, 0.1);
var DL = bzhao.WaitForText("O.H. PART-NO............ BIN...", 1, 1, 0.1);
if (PDATM == 0)
{
bzhao.SendKey( "<F3>" );
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
}
else if (PDAT == 0)
{
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
}
else if (PDA == 0)
{
bzhao.SendKey( "<Enter>" );
}
else if (DL == 0)
{
bzhao.SendKey( "<Enter>" );
}
else if (bzhao.WaitForText("Account: FTL-I", 1, 1, 0.1))
{
bzhao.MsgBox("Please return to home screen");
}
bzhao.WaitForText("Account: FTL-I", 1, 1, 100000);
bzhao.SendKey( "PDA" );
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "T" );
bzhao.SendKey( "<Enter>" );
bzhao.WaitForText("PART NUMBER", 1, 1, 0.1);
bzhao.SendKey( partnum );
bzhao.SendKey( "<Enter>" );
bzhao.Disconnect();
}
}
}

7
README.md Normal file
View file

@ -0,0 +1,7 @@
### Downloading
Choose a script then press "Download File" in the top right.
### Where to put scripts
Put downloaded scripts in Documents/BlueZone/Scripts

80
RPG.js Normal file
View file

@ -0,0 +1,80 @@
//
// RPG - Ford Parts by Basic for CDK Drive
//
var core;
bzhao = new ActiveXObject("BZWhll.WhllObj");
bzhao.Connect( "" );
core = bzhao.InputBox ("Enter core number", "0");
if (core == 0)
{
bzhao.MsgBox("Aborted");
}
else if (core != "0") {
if (core != "") {
if (core != null) {
var PDATM = bzhao.WaitForText("Use Arrow", 1, 1, 0.1);
var PDAT = bzhao.WaitForText("PART NUMBER", 1, 1, 0.1);
var PDA = bzhao.WaitForText("(PDA)", 1, 1, 0.1);
var DL = bzhao.WaitForText("O.H. PART-NO............ BIN...", 1, 1, 0.1);
if (PDATM == 0)
{
bzhao.SendKey( "<F3>" );
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
}
else if (PDAT == 0)
{
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
}
else if (PDA == 0)
{
bzhao.SendKey( "<Enter>" );
}
else if (DL == 0)
{
bzhao.SendKey( "<Enter>" );
}
else if (bzhao.WaitForText("Account: FTL-I", 1, 1, 0.1))
{
bzhao.MsgBox("Please return to home screen");
}
bzhao.WaitForText("Account: FTL-I", 1, 1, 100000);
bzhao.SendKey( "RPG" );
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<CursorRight>" );
bzhao.SendKey( "<CursorRight>" );
bzhao.SendKey( "<CursorRight>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<Enter>" );
bzhao.WaitForText("cols 31");
bzhao.SendKey( "R" );
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
bzhao.WaitForText("Ford Parts by Basic PROMPT # 1", 1, 1, 100000);
bzhao.SendKey( "[" );
bzhao.SendKey( core );
bzhao.SendKey( "]" );
bzhao.SendKey( "<Enter>" );
bzhao.WaitForText("cols 31", 1, 1, 100000);
bzhao.SendKey( "E" );
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
bzhao.Disconnect();
}
}
}