求转换为TC代码。

求页游教程

Dim objShell, objShortcut, shortcutPath, targetPath
Set objShell = CreateObject("WScript.Shell")
shortcutPath = "C:\Path\To\Your\Shortcut.lnk" '
Set objShortcut = objShell.CreateShortcut(shortcutPath)
targetPath = objShortcut.TargetPath
WScript.Echo "路径: " & targetPath

怎么转换为TC代码？
var objShell = com("WScript.Shell")
var shortcutPath = "c:\\123.lnk"
var objShortcut = objShell.CreateShortcut(shortcutPath)
var targetPath = objShortcut.TargetPath  //这段代码TC会报错，错误的表达式语句，怎么转成TC的代码？求教

yuzhiboqianyuan

你如何向实现一个创建快捷方式的功能的话，建议直接写原生代码，
参考这篇帖子里面的内容。
http://52tc.info/thread-51086-1-1.html

求页游教程

yuzhiboqianyuan 发表于 2025-2-7 09:44
你如何向实现一个创建快捷方式的功能的话，建议直接写原生代码，
参考这篇帖子里面的内容。
http://52tc.in ...

不是创建快捷方式，是从快捷方式获取路径

剑仙十号

不用转换，TC的脚本引擎，可以执行VBS代码。
.
//VBS引擎。调用VBS发邮件
var hThread, path
功能 执行()
var SendFrom = "发件账号@163.com"
messagebox("请录入自己的邮箱密码.")
var Password = "请录入自己的邮箱密码."
var SendTo = "收件账号@163.com"
var MailTopic = "主题"
var MailBody = "内容"
var MailAttachment = "d:\\dll\\脚本.bmp"
var text = ""
text = SendFrom & "||" & Password & "||" & SendTo & "||" & MailTopic & "||" & MailAttachment
var ret = SendMail(text, MailBody)
traceprint("发送报告:" & ret)
结束
//
功能 SendMail(text, MailBody)
var str = 数组()
str[0] = "Function SendMail(text,MailBody) :"
str[1] = " Dim arr,ret:"
str[2] = " arr = Split(text, \"||\"):"
str[3] = " Dim SendFrom, Password, SendTo, MailTopic, MailAttachment:"
str[4] = " SendFrom = arr(0):"
str[5] = " Password = arr(1):"
str[6] = " SendTo = arr(2):"
str[7] = " MailTopic = arr(3):"
str[8] = " MailAttachment = arr(4):"
str[9] = " MS_Space = \"http://schemas.microsoft.com/cdo/configuration/\":"
str[10] = " Set Email = CreateObject(\"CDO.Message\"):"
str[11] = " Email.From = SendFrom:"
str[12] = " Email.To = SendTo:"
str[13] = " Email.Subject = MailTopic:"
str[14] = " Email.Htmlbody = MailBody:"
str[15] = "If MailAttachment <> \"\" Then:"
str[16] = "For i=0 to Ubound(Split(MailAttachment,\";\")):"
str[17] = "Email.AddAttachment Split(MailAttachment,\";\")(i):"
str[18] = "Next:"
str[19] = "End If:"
str[20] = " With Email.Configuration.Fields:"
str[21] = "  .Item(MS_Space&\"sendusing\") = 2:"
str[22] = "  .Item(MS_Space&\"smtpserver\") = \"smtp.\"&Split(SendFrom,\"@\",-1, vbTextCompare)(1):"
str[23] = "  .Item(MS_Space&\"smtpserverport\") = 25:"
str[24] = "  .Item(MS_Space&\"smtpauthenticate\") = 1:"
str[25] = "  .Item(MS_Space&\"sendusername\") =Split(SendFrom,\"@\",-1,vbTextCompare)(0):"
str[26] = "  .Item(MS_Space&\"sendpassword\") = Password:"
str[27] = "  .Update:"
str[28] = " End With:"
str[29] = " Err.clear:"
str[30] = " Email.Send:"
str[31] = " If Err.number<>0 Then:"
str[32] = "  SendMail=False:"
str[33] = "  ret = \"发送失败\":"
str[34] = " Else:"
str[35] = "  SendMail=True:"
str[36] = "  ret = \"发送成功\":"
str[37] = " End If:"
str[38] = " Set Email=Nothing:"
str[38] = " SendMail = ret:"
str[39] = "End Function"
var Code = ""
for(var i = 0; i < 数组大小(str); i++)
  Code = Code & str[i]
end
var 脚本引擎 = com("ScriptControl")
脚本引擎.language = "VBScript"
脚本引擎.addcode(Code)
return 脚本引擎.run("SendMail", text, MailBody)

结束

求页游教程

剑仙十号 发表于 2025-2-11 16:08
不用转换，TC的脚本引擎，可以执行VBS代码。
.
//VBS引擎。调用VBS发邮件

哥，不会VBS，代码也是网上找的，你能把我发的那几段代码用TC执行VBS吗？感谢啊

moyo

学习