在脚本中使用TCIMG

首页后退前进

tcimg的命令可用于各种脚本.

'===========================================================================

' 在VBScripting中调用TCIMG命令的示例

'===========================================================================

Dim WSH

Set WSH = CreateObject("WScript.Shell")

' TCIMG的路径.改变如果不同

TCIMG = "%COMMANDER_PATH%\TCIMG.exe"

' 激活Total Commander窗口

TCIMGRUN("buttn=TTOTAL_CMD||x|$f")

WScript.Sleep 1000

' 调用Total Commander设置窗口

TCIMGRUN("tcimg=$cm490")

WScript.Sleep 1000

If MsgBox("Вызвали окно настроек" & vbNewLine & "Продолжить?", 33, "TCIMG") = 2 Then Quit

' 设置透明度窗口

TCIMGRUN("trans=200||$TDLGCONFIGALL")

WScript.Sleep 1000

If MsgBox("Сделали окно настроек прозрачным" & vbNewLine & "Продолжить?", 33, "TCIMG") = 2 Then Quit

'节省窗口大小

TCIMGRUN("ssize=1||TDLGCONFIGALL")

WScript.Sleep 1000

' 移动窗口

R=200

For i = 0 To 365 Step 50

angle = i * 3.14 / 180

x = Int(R * Cos(angle) + 600)

y = Int(R * Sin(angle) + 400)

TCIMGRUN("wpull=" & x & "," & y & ",,||TDLGCONFIGALL")

WScript.Sleep 400

' 返回窗口大小和不透明度

TCIMGRUN("rsize=1||TDLGCONFIGALL||rdraw<0>")

TCIMGRUN("trans=255||$TDLGCONFIGALL")

WScript.Sleep 1000

If MsgBox("Побегали по кругу 和 вернулись обратно" & vbNewLine & "Продолжить?", 33, "TCIMG") = 2 Then Quit

' 关闭设置的眼睛

TCIMGRUN("buttn=TDLGCONFIGALL||x|$z")

WSH.Popup "Всё!", 1, "Финиш", 64

Quit

Sub TCIMGRUN(LineParamenters)

WSH.Exec("""" &TCIMG & """ """ & LineParamenters & """")

End Sub

Sub Quit

Set WSH = Nothing

WScript.Quit

End Sub

/* =====================================================*/

/* 在JSScripting中调用TCIMG命令的一个例子 */

/* ===================================================== */

var WSH = new ActiveXObject("WScript.Shell");

//"TCIMG"的路径.改变如果不同

var TCIMG = "%COMMANDER_PATH%\\TCIMG.exe";

TCIMG = WSH.ExpandEnvironmentStrings(TCIMG)

//激活Total Commander窗口

TCIMGRUN("buttn=TTOTAL_CMD||x|$f");

//调用Total Commander设置窗口

TCIMGRUN("tcimg=$cm490");

WScript.Sleep(1000);

WScript.Echo("Вызвали окно настроек");

//设置透明度窗口

TCIMGRUN("trans=200||$TDLGCONFIGALL");

WScript.Sleep(1000);

WScript.Echo("Сделали окно настроек прозрачным");

// 节省窗口大小

TCIMGRUN("ssize=1||TDLGCONFIGALL");

WScript.Sleep(1000);

// 移动窗口

var R=200, i, y, angle

for (var i = 0; i < 365; i = i + 50) {

angle = i * 3.14 / 180;

x = Math.ceil(R * Math.cos(angle) + 600);

y = Math.ceil(R * Math.sin(angle) + 400);

TCIMGRUN("wpull=" + x + "," + y + ",,||TDLGCONFIGALL");

WScript.Sleep(400);

}

// 返回窗口大小和不透明度

TCIMGRUN("rsize=1||TDLGCONFIGALL||rdraw<0>");

TCIMGRUN("trans=255||$TDLGCONFIGALL");

WScript.Sleep(1000);

WScript.Echo("Побегали по кругу 和 вернулись обратно");

// 关闭设置的眼睛

TCIMGRUN("buttn=TDLGCONFIGALL||x|$z")

WSH.Popup("Всё!", 1, "Финиш", 64);

function TCIMGRUN(LineParamenters)

{

WSH.Exec('"' + TCIMG + '" "' + LineParamenters + '"');

}