中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: JAVA程序助手 上一主题 | 下一主题
yaohaixu
初级用户





积分 30
发帖 10
注册 2007-11-19
状态 离线
『楼 主』:  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

2008-4-15 19:52
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
happysoul
初级用户




积分 29
发帖 15
注册 2008-4-14
状态 离线
『第 2 楼』:  

貌似不能使用呢!?提示 vb的 53行 少 )
但是我没有找到!
再有就是用 记事本做什么?

2008-4-16 18:51
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: