線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1874
推到 Plurk!
推到 Facebook!

利用ShellExecuteEx Call bat檔

尚未結案
aries0616
一般會員


發表:2
回覆:0
積分:0
註冊:2011-07-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-07-02 13:55:26 IP:118.166.xxx.xxx 訂閱

Bat檔內容如下
echo set sh=WScript.CreateObject("WScript.Shell") >telnet_tmp.vbs echo sh.SendKeys "XXXX{ENTER}" >>telnet_tmp.vbs echo sh.SendKeys "YYYY{ENTER}">>telnet_tmp.vbs start C:\Windows\System32\telnet localhost del telnet_tmp.vbs


[code delphi]
ZeroMemory(@ExecInfo,SizeOf(ExecInfo));
with ExecInfo do begin cbSize := SizeOf(ExecInfo);
fMask := SEE_MASK_NOCLOSEPROCESS;
lpVerb := 'open';
lpFile := PWideChar(path);
Wnd := self.Handle; nShow := SW_SHOWNORMAL;
end;
ShellExecuteEx(@ExecInfo);
WaitForSingleObject(ExecInfo.hProcess, INFINITE);
DeleteFile(path);

[/code]
編輯記錄
aries0616 重新編輯於 2011-07-02 09:48:53, 註解 無‧

herbert2
尊榮會員


發表:58
回覆:632
積分:878
註冊:2004-04-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-07-02 22:31:43 IP:202.39.xxx.xxx 訂閱
由於本論壇程式問題,很多關鍵字會被改成『forbidden』顯示而讓人無法看懂。
請點選『修改』,將其中一個字母改成全型字或改顏色(非程式碼區之內文區方有效),通常便可解決。
mitchellhu
一般會員


發表:22
回覆:51
積分:14
註冊:2007-06-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-07-22 10:18:51 IP:123.204.xxx.xxx 訂閱
請試用看看,我之前也是遇上你類以的問題,後來改用
WinExec(PAnsiChar(AnsiString(xxxx.exe)),SW_SHOWNORMAL);
blue
中階會員


發表:113
回覆:99
積分:52
註冊:2002-04-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-11-09 14:39:43 IP:122.146.xxx.xxx 訂閱
Hi,不知您的環境是否使用Win 2008,
以前遇過一個問題是明明有安裝Telnet,
但卻無法從DOS去執行Telnet,
會出現找不到Telnet,
有時又可以執行,
應該是環境變數的問題,
先用其他的執行檔試試看,
謝謝!
系統時間:2017-10-22 1:27:49
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!