感激不儘 ~~~

自從6/8開通後 就開始 努力專研~~~

但是找不到 說明~~~

請板大 幫幫忙~~

提供 腳本 或者 ~~~ 製作方法~~~

這功能沒有完整介面,編輯寫語法的門檻很高!
不適合完整介面簡簡單單插入快速完成,這語句太低性了!
手動寫語法需求要努力研究,熟會精通方便寫多了!

因為提供腳本的人是它寫成腳本完成,它不會開放公開腳本分享給大家們,
它是辛苦學會和寫腳本的心血來的...

你自己努力學就好,會寫腳本的人都不會幫你!

我有寫上教學說明可以學習上慢慢第一步學習!
Test = 1
Test = Test + 1
寫好後..你按 Alt + Home 啟動,在 Test 框架可看到變數


PS:
手動寫腳本語法( 功能強大 )
自動插入寫腳本語法 ( 功能不強大 )

可否提供簡單的 功能介紹

好比 裡面每個選項的 基本 說明

讓我好容易入門學習~~~

你的數學有學熟過 = 等於, <> 不等於, < 小於, > 大於, <= 小於等於, >= 大於等於, And 且 , Or 或

示範:
If 條件判斷的數字相比
ElseIf 上面不符合數字相比,接下來再相比
Else 以上不符合數字想比,接下來無條件
End If 結束條件判斷

If 10 = 10   ' 10 等於 10  是不是相比?? 一樣的數字...相比
If 10 = 30   ' 10 等於 30  是不是相比?? 不一樣的數字...不相比

腳本語法
If .....
  Delay 50
Else
  Delay 50
End If
Stop

你學會 If 後,再叫我...下一步教 Select Case

大大有沒有 書阿 ~~ 或是 電子書 之類的

我去購買 看書學習~~~

真的不懂 我在 po文發問~~~

感恩~~ 因為 真的有點難~~~~

//*********************************   說明   *****************************************
//時間格式為24小時制 -- 00：00~23：59
//當不在這個範圍內會報錯並返回讓用戶重新輸入~~ ：）
//*********************************   源代碼   *****************************************
dim Obj,UserName,NowTime,LenS,Num
set Obj = createobject("WScript.Shell")
//調用「Wscript.Shell」
VBS UserName=Obj.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")
// RegRead -- 讀取註冊表
VBS YN=Obj.Popup(UserName&" 你好，是否使用自動定時關機？",0,"關機？",36)
//Popup--彈出對話框
If YN=6
    //標記 輸入時間
    Rem InputTime
    VBSCall SWTime=InputBox ("請輸入關機時間！24小時格式(00:00~23:59之間)！如：2:03 ， 22:35")
    //*********************************** 判斷時間格式 ****************************************************
    VBS LenS=Len(SWTime)
    //Len--獲得字符串的長度
    VBS Num=Instr(SWTime,":")
    //Instr--獲得":"所在字符串中的位置
    If Num=0
        VBS Num=Instr(SWTime,"：")
    EndIf
    If Num=0
        VBSCall Obj.Popup("間隔符錯誤！請用「 : 」或者「 ： 」",5,"時間格式錯誤！",48)
        //跳到 輸入時間
        Goto InputTime
    EndIf
    If left(SWTime,Num-1)>23 or left(SWTime,Num-1)<0
        //left--取字符串左邊Num-1個長度的字符
        VBSCall Obj.Popup("小時格式輸入錯誤！",5,"時間格式錯誤！",48)
        Goto InputTime
    EndIf
    If Right(SWTime,LenS-Num)>59 or Right(SWTime,LenS-Num)<0
        //Right--取字符串右邊LenS-Num個長度的字符
        VBSCall Obj.Popup("分鐘格式輸入錯誤！",5,"時間格式錯誤！",48)
        //跳到 輸入時間
        Goto InputTime
    EndIf
    //*********************************** 判斷時間格式 ****************************************************
    VBSCall Obj.Popup("系統將在"&SWTime&"關機！！",5,"自動關機！",48)
    Rem Start
    VBS NowTime=Time
    //Time -- 獲得當前時間
    If Hour(SWTime)=Hour(NowTime) and Minute(SWTime)=Minute(NowTime)
        //Hour -- 獲得小時， Minute -- 獲得分鐘
        VBS Obj.Run "shutdown /f /s /t 0"
        //調用shutdown命令。 /f--強行關閉應用程序而不提醒， /s--關閉計算機（要重啟的話，請把這改成/r[重啟計算機]），/t time--在time秒後前閉計算機。
    EndIf
    Delay 30000
    Goto Start
EndIf



這是 我在 按鍵精靈上的腳本 無法套用  困擾中~~~ 不過 這腳本 可以設定 電腦自動關機
寫的不錯~~可惜我無法運用在 TGScript

按鍵精靈都要呼叫VBScript執行的
TGScript都要呼叫VB.NET執行的
不一樣嘛!!

Script 腳本

複製內容到剪貼板

代碼:

$時 = 19 ' 0 ~ 23 時
$分 = 17 ' 0 ~ 59 分
If $[ "_WS" ] = 6
  Do Until $時 = Hour(Now) And $分 = Minute(Now)
  Loop
  Test = $[ "_Shut" ] '關機
  Close
End If
Stop

Module 模組

複製內容到剪貼板

代碼:

    Function _WS() As Object
        Dim Obj, UserName
        Obj = CreateObject("WScript.Shell")
        UserName = Obj.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")

        Dim YN As Int32
        YN = Obj.Popup(UserName & " 你好，是否使用自動定時關機？", 0, "關機？", 36)

        Return YN
    End Function

    Sub _Shut()
        Shell("shutdown /f /s /t 0")
    End Sub

[ 本帖最後由 ymlk 於 2008-7-12 15:03 編輯 ]

引用:

原帖由 f1242714 於 2008-6-9 11:50 發表
大大有沒有 書阿 ~~ 或是 電子書 之類的

我去購買 看書學習~~~

真的不懂 我在 po文發問~~~

感恩~~ 因為 真的有點難~~~~

沒有書的...只有網頁教學的.....
有不懂可以在這裡發問,我會教你啦!