vb6.0 傳參數到 bat批次檔內

使用vb6.0做UI  傳送參數 到批次檔內

批次檔執行 tracert 命令

並且在 vb的UI 做顯示

解決一般中文亂碼問題(在批次檔內將所有中文去除，並竟那些中文很多餘)

以下是全部程式，紅色部分是檔案的路徑，要依自己情況做修改

——————————————battracert.bat—————————————————

@setlocal
@echo off
set server=%1
tracert %server% > tracerlog.txt
find tracerlog.txt “:" > tracerlog2.txt
for /f “tokens=2,3″ %%i in (tracerlog2.txt) do set a=%%i,%%j
echo %a%%b% > tracerlog2.txt
find tracerlog.txt “ms" >> tracerlog2.txt
find tracerlog2.txt /v “TRACERLOG.TXT" > tracerlog.txt
del tracerlog2.txt
@endlocal

——————————————vb6.0—————————————————

Dim tracerta As String

tracera = Text1.Text
Shell “C:\Users\LIOU\Desktop\VBTracert\battracert.bat " & tracera, vbHide
Open “C:\Users\LIOU\Desktop\VBTracert\tracerlog.txt" For Input As #1
Text2.Text = Input(LOF(1), 1)
Close #1

簡易版 定時器 鬧鐘 功能 batch

也可以用Windows底下的 AT指令 也不錯。

這裡純粹無聊所以用比較麻煩的方式寫，裡面還有些地方可以濃縮，可以自己看一下。

裡面做到的有

1.批次檔 產生 批次檔

2.定時開起/關閉某項應用程式

3.定時關機或重開機

ps.Windows XP 可能沒有 choice這一個個東東，所以可能無沒正常執行

解決的方法用if去改也可以。

———————————-下面是程式—————————————-

@echo off
echo *********************************************************
echo *                                                                                           *
echo *            時間一到會執行你所選擇的選項                       *
echo *      A關機  B重開機  C關閉某程式  D開起某音樂         *
echo *                                                                                            *
echo *     如果要開起某音樂，請把音樂跟此程式放在一起  *
echo *            音樂播放器使用Media Player                             *
echo *           要取消的話關閉此程式就可以了。                      *
echo *********************************************************
@setlocal
rem ======================================
echo @echo off > timess.bat
echo set /a x=%%1+0 >> timess.bat
echo set /a xa=%%x%%/(60*60*24) >> timess.bat
echo set /a x=%%x%%%%%%(60*60*24) >> timess.bat
echo set /a xb=%%x%%/(60*60) >> timess.bat
echo set /a x=%%x%%%%%%(60*60) >> timess.bat
echo set /a xc=%%x%%/(60) >> timess.bat
echo set /a xd=%%x%%%%%%(60) >> timess.bat
echo echo 將在 %%xa%%天  %%xb%%小時  %%xc%%分鐘  %%xd%%秒 後執行命令 >> timess.bat
echo echo 開始時間為: ^& date /t ^& time /t >> timess.bat
echo echo 執行中… >> timess.bat
rem ======================================
set othera=%~dp0
choice /c abcd
if errorlevel 4 goto ddd
if errorlevel 3 goto ccc
if errorlevel 2 goto bbb
if errorlevel 1 goto aaa
rem ======================================
:aaa
rem ———————————-
set /p atimeset=你要在幾秒後^<關機^>:
call timess.bat %atimeset%

ping 127.0.0.1 -n %atimeset% >nul
shutdown /s
rem ———————————-
goto endq
rem ======================================
:bbb
rem ———————————-
set /p atimeset=你要在幾秒後^<重開機^>:
call timess.bat %atimeset%

ping 127.0.0.1 -n %atimeset% >nul
shutdown /r
rem ———————————-
goto endq
rem ======================================
:ccc
rem ———————————-
set /p atimeset=你要在幾秒後^<關閉某程式^>:
set /p cnameset=要關閉的程式名稱是什麼:
call timess.bat %atimeset%

ping 127.0.0.1 -n %atimeset% >nul
taskkill /f /im %cnameset%
rem ———————————-
goto endq
rem ======================================
:ddd
rem ———————————-
set /p atimeset=你要在幾秒後^<開起某音樂^>:
set /p dnameset=要開啟的音樂名稱是什麼:
call timess.bat %atimeset%

ping 127.0.0.1 -n %atimeset% >nul
“C:\Program Files\Windows Media Player\wmplayer.exe" %othera%%dnameset%
rem ———————————-
goto endq
rem ======================================
:endq
del timess.bat
echo 已經執行完畢
@endlocal
pause
exit

batch (網站掛了沒)

幫你檢查該網站掛了沒。

不過請先確定你自己的網路沒斷…

webpingx後面的網址依自己的情況設定

下面有兩個空白的地方，可以讓您自由發揮~

1.在這區塊內打對方SERVER正常時要用的命令

2.在這區塊內打對方SERVER掛了時要用的命令

範例腳本程式2是真冊一個web網站哪時復活用的，復活時會播放一首音樂

並且還有復活的時間記錄檔

—————————-下面是腳本程式——————————

@setlocal
rem —————————
rem webpingx是對方地址
rem —————————
set webpingx=www.yahoo.com.tw
ping %webpingx%>pingtxt.txt
for /f “tokens=3 delims= " %%a in (pingtxt.txt) do (set ppq=%%a)
echo %ppq%
if %ppq%==could goto ss
rem —————————
rem 在這區塊內打對方SERVER正常時要用的命令
rem —————————
goto endd
:ss
rem —————————
rem 在這區塊內打對方SERVER掛了時要用的命令
rem —————————
:endd
del pingtxt.txt
pause
@endlocal

—————————-下面範例腳本程式2——————————

@setlocal
rem ———————————————————————————
:yayaya
rem —————————
rem webpingx是對方地址
rem —————————
:yayaya
set webpingx=www.yahoo.com.tw
ping %webpingx%>pingtxt.txt
For /f “tokens=1-3 delims=/ " %%a in (‘date /t’) do (set date=%%a-%%b-%%c)
For /f “tokens=1-3 delims=: " %%a in (‘time /t’) do (set time=%%a %%b:%%c)
for /f “tokens=3 delims= " %%a in (pingtxt.txt) do (set ppq=%%a)
echo %ppq%
if %ppq%==could goto ss
rem —————————
rem 在這區塊內打對方SERVER正常時要用的命令
“C:\Program Files\Windows Media Player\wmplayer.exe" C:\Lavigne.mp3
echo OK %date% %time% >> log-%date%.txt
goto endd
rem —————————
:ss
rem —————————
rem 在這區塊內打對方SERVER掛了時要用的命令
echo ERROR %date% %time% >> log-%date%.txt
ping -n 5 127.0.0.1 >nul
goto yayaya
rem —————————
:endd
del pingtxt.txt
rem ———————————————————————————
@endlocal

學校ftp空間 bat vbs c++ 搭起來，很鳥但是很有趣

這個程式是為了繳交c++期末作業用的

REM 因為是批次檔區所以要用REM來註解

REM 不曉得老師心裡會不會OS:叫你寫C++你寫批次腳本…

REM 承認啦C++的確沒寫幾行，期末作品分數要是很低也就認了。

由於我不太會拉用bcb的元件，就突發奇想，寫了這個東西。

他的功能比較像 留言板 也有點像 聊天室

資料會全部備份在每個人的ftp空間

————————————————————————————-

bat控制 (一切都靠他了

vbs下載 (有些防毒軟體會以為是惡意程式qq

c++做介面 (介面要用java、vb、php…之類的都可以反正只當介面用

ftp當備分空間 (備份我們的資料用

做起來有點像 留言版 也有點像 聊天程式

總之…很鳥，詳請請看看我畫的架構圖唄