中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-08 02:29
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » JAVA程序助手 查看 867 回复 1
楼 主 JAVA程序助手 发表于 2008-04-15 19:52 ·  中国 四川 自贡 联通
初级用户
积分 30
发帖 10
注册 2007-11-19 23:42
18年会员
UID 103177
性别 男
状态 离线
这个是我在学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 发表于 2008-04-16 18:51 ·  中国 天津 联通
初级用户
积分 29
发帖 15
注册 2008-04-14 19:20
18年会员
UID 115892
性别 男
状态 离线
貌似不能使用呢!?提示 vb的 53行 少 )
但是我没有找到!
再有就是用 记事本做什么?
论坛跳转: