本帖最后由 1291500406 于 2020-1-15 19:25 编辑
;;实例一 选择获取一个文件路径全称 (defun $bb_getfile ( / bb cc)(setq bb(vlax-invoke-method (vlax-create-object "WScript.Shell")'exec"mshta vbscript:\"<html>
<input type=file id=path><script>path.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(path.value);close
();resizeTo(0,0);</script></html>\""))(if (/=(setq cc(vl-string-right-trim"\r\n"(vlax-invoke (vlax-get bb 'StdOut) 'ReadAll)))"")cc nil))
($bb_getfile) "C:\\Python27amd64\\python.exe"
;;实例二 提示信息 打开网站
(defun c:bb nil
(startapp"mshta vbscript:\"
<html style=background:buttonface><HEAD><title>必强工具箱</title>
<script> function showBox1()
{ alert('欢迎来到必强编程空间'); }
</script>
<script>
function openUrl() {
var url = 'http://www.mjtd.com/?7327106';
window.open(url);
window.location.href = url; }
</script> </HEAD> <BODY > <a target='_blank' onclick= showBox1()><button>欢迎来到必强空间</button></a>
</br>
<input type= button name= btn value= 必强明经空间 onclick= openUrl() />
</BODY></HTML>
\"")(princ))
;;实例三 弹出多文本行
(defun c:bb nil
(startapp "mshta vbscript:\"
<html style=background:buttonface><HEAD><title>必强工具箱</title>
</HEAD> <BODY >
<textarea name='我爱你' id='questionBankName' rows='45' cols='195' class='text'></textarea>
<br/>
<script language=javascript>
var textobj=document.getElementById('questionBankName');
textobj.innerHTML=textobj.name;
</script>
</BODY></HTML>
\"")
(princ)
)
| 
发表于 2018-12-14 17:10:32
置顶卡
变色卡
显身卡
楼主
