
CODE: [Copy to clipboard][ Last edited by s11ss on 2008-1-29 at 11:53 AM ]while c=""
c=inputbox("请输入数据","","")
if c="" then msgbox "务必输入"
wend
createobject("scripting.filesystemobject").opentextfile("c:\c.txt",8,true).writeline c
CODE: [Copy to clipboard][ Last edited by zh159 on 2008-1-29 at 11:35 AM ]while c=""
c=inputbox("请输入数据","","")
if c="" then msgbox "务必输入"
wend
CreateObject("Wscript.Shell").run "cmd /c >c:\c.txt echo." & c,vbhid
CODE: [Copy to clipboard]while c=""
c=inputbox("请输入数据","","")
if c="" then msgbox "务必输入"
wend
createobject("wscript.shell").run "net send 电脑IP "&c
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |