中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-08 03:29
48,041 主题排行 / 350,128 发帖 / 今日 3 篇 / 48,253 会员排行
DOS批处理 & 脚本技术(批处理室) » JAVA程序助手
可打印版本  868 / 1
第1楼 yaohaixu 发表于 2008-04-15 19:52
初级用户 发帖 10 积分 30
JAVA程序助手
这个是我在学JAVA 的时候,写的。
也 不是很好, 有些功能就没能更好地实现,
相对地来说要方便一些




@echo off
setlocal enabledelayedexpansion
title JAVA程序助手HJI
mode con:cols=80 lines=25
color 5f


:start
cls
echo set wshshell=wscript.createobject("wscript.shell">hji.vbs
echo wscript.sleep 500 >>hji.vbs
echo wshshell.sendkeys "+{PGUP}" >>hji.vbs
echo wscript.sleep 500 >>hji.vbs
echo wshshell.sendkeys "HJIlease edit your file." >>hji.vbs
echo wscript.sleep 1200 >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
echo wshshell.sendkeys "{BACKSPACE}" >>hji.vbs
start notepad.exe
call hji.vbs
ping -2 127.0.0.1>nul
@del /s /q hji.vbs
cls
echo. %date% %time%
echo. **********************************
echo. JAVA程序助手
echo.
echo. ¤请将JAVA源程序文件拖动到¤
echo. ¤此窗口中¤
echo.
echo. H-JI如枫
echo. **********************************
echo. 按ENTER键退出 QQ:116386459
echo.
set /p fin=
for %%a in (%fin%) do (
set hji=%%a
)
if "!hji!" equ "" exit
for %%b in (%fin%) do (

set fname=%%~n%b

)
javac !fname!.java
java !fname!
echo.
echo. **********按任意键退出***********
pause>nul
exit
goto start
第2楼 happysoul 发表于 2008-04-16 18:51
初级用户 发帖 15 积分 29
貌似不能使用呢!?提示 vb的 53行 少 )
但是我没有找到!
再有就是用 记事本做什么?
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023