• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    tweakomatic hta 下载
    复制代码 代码如下:

    html>

    head>

    title>Tweakomatic 1.0/title>

    HTA:APPLICATION 
         ID="objTweakomatic" 
         APPLICATIONNAME="Tweakomatic"
         SCROLL="no"
         SINGLEINSTANCE="yes"
         WINDOWSTATE="maximize"
    >
    /head>

    style>
    BODY
    {
       background-color: buttonface;
       font-family: Helvetica;
       font-size: 8pt;
       margin-top: 10px;
       margin-left: 10px;
       margin-right: 10px;
       margin-bottom: 10px;
    }


    .button
    {
       font-family: Helvetica;
       font-size: 8pt;

    }

    textarea
    {
       font-family: arial;
       font-size: 8pt;
       margin-left: 3px;
    }

    select
    {
       font-family: arial;
       font-size: 8pt;
       width: 450px;
       margin-left: 0px;
    }

    td
    {
       font-family: arial;
       font-size: 10pt;
    }

    /style>



    SCRIPT LANGUAGE="VBScript">

        Const adOpenStatic = 3
        Const adLockOptimistic = 3
        Const adUseClient = 3
        DefaultComputer = "."
        MasterFile = ""
        RetrievalFile = ""
        StartHelp = "To begin, select a manageable component, and then select a category of tasks. When you do so, a set of tasks will be displayed in the Task Area. Click a task and two scripts will automatically be created: one for configuring information, the other for retrieving information."
        Help2 = "Select a category from the list of categories. When you do so, a set of tasks will be displayed in the Task Area. Click a task and two scripts will automatically be created: one for configuring information, the other for retrieving information."
        Help3 = "Click a task and two scripts will automatically be created: one for configuring information, the other for retrieving information."


    Sub Window_Onload
        Set objConnection = CreateObject("ADODB.Connection") 
        objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=tweakomatic.mdb"
        Set objRecordset = CreateObject("ADODB.Recordset")
        objRecordset.CursorLocation = adUseClient
        objRecordset.Open "SELECT DISTINCT Tweaks.Component FROM Tweaks ORDER BY Tweaks.Component" , objConnection,  adOpenStatic, adLockOptimistic
        objRecordSet.MoveFirst
        strHTML = "select style='width: 460' onChange=""GetCategoryInfo()"" name=ComponentList>" 
        strHTML = strHTML  "option value= "  chr(34)  chr(34)  ">"
        Do Until objRecordSet.EOF
            strHTML = strHTML  "option value= "  chr(34)  _
                objRecordSet.Fields.Item("Component")  chr(34)  _
                    ">"  objRecordSet.Fields.Item("Component")
            objRecordSet.MoveNext
        Loop
        strHTML = strHTML  "/select>"
        ComponentArea.InnerHTML = strHTML
        run_button.disabled = True
        run_button2.disabled = True
        save_button.disabled = True
        save_button2.disabled = True    
        change_button.disabled = True
        Master_button.disabled = True
        Master_button2.disabled = True
        show_button.disabled = True
        show_button2.disabled = True
        HelpArea.InnerHTML = StartHelp
    End Sub



    Sub Window_OnUnload
       On Error Resume Next
       Set objFSO = CreateObject("Scripting.FileSystemObject")
       objFSO.DeleteFile "temp_script.sm"
       Set objFSO = Nothing
       self.Close()
    End Sub


    Sub GetCategoryInfo()
        On Error Resume Next
        FilterValue = ComponentList.Value
        Set objConnection = CreateObject("ADODB.Connection") 
        objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=tweakomatic.mdb"
        Set objRecordset = CreateObject("ADODB.Recordset")
        objRecordset.CursorLocation = adUseClient
        objRecordset.Open "SELECT DISTINCT Tweaks.Category FROM Tweaks Where Component = '"  FilterValue  "'ORDER BY Tweaks.Category" , objConnection,  adOpenStatic, adLockOptimistic
        objRecordSet.MoveFirst
        CategoryArea.InnerHTML = ""
        strHTML = "select style='width: 460' onChange=""GetTaskInfo"" name=CategoryList>" 
        strHTML = strHTML  "option value= "  chr(34)  chr(34)  ">"
        Do Until objRecordSet.EOF
            strHTML = strHTML  "option value= "  chr(34) _
                objRecordSet.Fields.Item("Category")  chr(34) _
                    ">"  objRecordSet.Fields.Item("Category")
            objRecordSet.MoveNext
        Loop
        strHTML = strHTML  "/select>"
        CategoryArea.InnerHTML = strHTML
        TaskArea.InnerHTML = "select size='15' name='D2'>"
        HelpArea.InnerHTML= Help2
        ScriptArea.Value = ""
        RetrievalArea.Value = ""
        run_button.disabled = True
        run_button2.disabled = True
        save_button.disabled = True
        save_button2.disabled = True
        change_button.disabled = True
        Master_button.disabled = True
        Master_button2.disabled = True
        objRecordSet.Close
        objConnection.Close
    End Sub


    Sub GetTaskInfo()
        On Error Resume Next
        FilterValue = ComponentList.Value
        FilterValue2 = CategoryList.Value
        Set objConnection = CreateObject("ADODB.Connection") 
        objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=tweakomatic.mdb"
        Set objRecordset = CreateObject("ADODB.Recordset")
        objRecordset.CursorLocation = adUseClient
        objRecordset.Open "SELECT DISTINCT Tweaks.Task FROM Tweaks Where Component = '"  FilterValue  "' AND Category = '"  FilterValue2  "'ORDER BY Tweaks.Task" , objConnection,  adOpenStatic, adLockOptimistic
        objRecordSet.MoveFirst
        TaskArea.InnerHTML = ""
        strHTML = "select size = '15' style='width: 460' onChange=""GetHelpText()"" name=TaskList>" 
        Do Until objRecordSet.EOF
            strHTML = strHTML  "option value= "  chr(34) _
                objRecordSet.Fields.Item("Task")  chr(34) _
                    ">"  objRecordSet.Fields.Item("Task")
            objRecordSet.MoveNext
        Loop
        strHTML = strHTML  "/select>"
        TaskArea.InnerHTML = strHTML
        HelpArea.InnerHTML= Help3
        ScriptArea.Value = ""
        RetrievalArea.Value = ""
        run_button.disabled = True
        run_button2.disabled = True
        save_button.disabled = True
        save_button2.disabled = True
        change_button.disabled = True
        Master_button.disabled = True
        Master_button2.disabled = True
        objRecordSet.Close
        objConnection.Close
    End Sub


    Sub GetHelpText()
        FilterValue = TaskList.Value
        Set objConnection = CreateObject("ADODB.Connection") 
        objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=tweakomatic.mdb"
        Set objRecordset = CreateObject("ADODB.Recordset")
        objRecordset.CursorLocation = adUseClient
        objRecordset.Open "SELECT * FROM Tweaks WHERE Task = '"  FilterValue  "' ORDER BY Tweaks.Task" , objConnection,  adOpenStatic, adLockOptimistic
        objRecordSet.MoveFirst
        Do Until objRecordSet.EOF
            strHTML = objRecordSet.Fields.Item("Help") 
            strText2 = "On Error Resume Next"  vbCrLf
            strLocation  = objRecordSet.Fields.Item("RegistryLocation") 
            If StrLocation = "HKEY_CURRENT_USER" Then
                strText = "HKEY_CURRENT_USER = H80000001"  VbCrLf 
                strText2 = strText2  "HKEY_CURRENT_USER = H80000001"  VbCrLf

                strText = strText  "strComputer = "  chr(34)  DefaultComputer  chr(34)  VbCrLf
                strText2 = strText2  "strComputer = "  chr(34)  DefaultComputer  chr(34)  VbCrLf

                strText = strText  "Set objReg = GetObject("  chr(34)  "winmgmts:\\"  chr(34)
                strText2 = strText2  "Set objReg = GetObject("  chr(34)  "winmgmts:\\"  chr(34)

                strText = strText  "  strComputer  "  chr(34)  "\root\default:StdRegProv"  chr(34)  ")"  VbCrLf
                strText2 = strText2  "  strComputer  "  chr(34)  "\root\default:StdRegProv"  chr(34)  ")"  VbCrLf

                strText = strText  "strKeyPath = "  chr(34)  objRecordSet.Fields.Item("RegKey")  chr(34)  VbCrLf 
                strText2 = strtext2  "strKeyPath = "  chr(34)  objRecordSet.Fields.Item("RegKey")  chr(34)  VbCrLf 

                strText = strText  "objReg.CreateKey "  strLocation  ", strKeyPath"  VbCrLf

                strText = strText  "ValueName = "  chr(34)  objRecordSet.Fields.Item("RegValue")  chr(34)  VbCrLf
                strText2 = strText2  "ValueName = "  chr(34)  objRecordSet.Fields.Item("RegValue")  chr(34)  VbCrLf

            Else
                strText = strText  "HKEY_LOCAL_MACHINE = H80000002"  vbCrLf
                strText2 = strText2  "HKEY_LOCAL_MACHINE = H80000002"  vbCrLf

                strText = strText  "strComputer = "  chr(34)  DefaultComputer  chr(34)  VbCrLf
                strText2 = strText2  "strComputer = "  chr(34)  DefaultComputer  chr(34)  VbCrLf

                strText = strText  "Set objReg = GetObject("  chr(34)  "winmgmts:\\"  chr(34)
                strText2 = strText2  "Set objReg = GetObject("  chr(34)  "winmgmts:\\"  chr(34)

                strText = strText  "  strComputer  "  chr(34)  "\root\default:StdRegProv"  chr(34)  ")"  VbCrLf
                strText2 = strText2  "  strComputer  "  chr(34)  "\root\default:StdRegProv"  chr(34)  ")"  VbCrLf

                strText = strText  "strKeyPath = "  chr(34)  objRecordSet.Fields.Item("RegKey")  chr(34)  VbCrLf 
                strText2 = strText2  "strKeyPath = "  chr(34)  objRecordSet.Fields.Item("RegKey")  chr(34)  VbCrLf

                strText = strText  "objReg.CreateKey "  strLocation  ", strKeyPath"  VbCrLf

                strText = strText  "ValueName = "  chr(34)  objRecordSet.Fields.Item("RegValue")  chr(34)  VbCrLf
                strText2 = strText2  "ValueName = "  chr(34)  objRecordSet.Fields.Item("RegValue")  chr(34)  VbCrLf

            End If

            strValueType = objRecordSet.Fields.Item("DataType")

            If strValueType = "REG_DWORD" Then
                strText = strText  "dwValue = "  objRecordSet.Fields.Item("DefaultValue")  VbCrLf
                strText = strText  "objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue"  VbCrLf

                strText2 = strText2  "objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue"  VbCrLf
                strEcho = "    Wscript.Echo "  chr(34)  FilterValue  ": "  chr(34)  ", dwValue"  vbCrLf

            Else
                strText = strText  "strValue = "  chr(34)  objRecordSet.Fields.Item("DefaultValue")  chr(34)  VbCrLf
                strText = strText  "objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue"  VbCrLf

                strText2 = strText2  "    objReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue"  VbCrLf
                strEcho = "    Wscript.Echo "  chr(34)  FilterValue  ": "  chr(34)  ", strValue"  vbCrLf

            End If



            strText2 = strText2  "If IsNull(strValue) Then"  VbCrLf
            strText2 = strtext2  "    Wscript.Echo "  chr(34)   FilterValue  ":  The value is either Null or could not be found in the registry."  chr(34)  VbCrLf
            strText2 = strText2  "Else"   vbCrLf    
            strText2 = strText2  strEcho

            strText2 = strtext2  "End If" 

            objRecordSet.MoveNext
        Loop
        HelpArea.InnerHTML = strHTML
        ScriptArea.Value = strText
        RetrievalArea.Value = strText2
        run_button.disabled = False
        run_button2.disabled = False
        save_button.disabled = False
        save_button2.disabled = False
        change_button.disabled = False
        Master_button.disabled = False
        Master_button2.disabled = False
    End Sub


    Sub RunConfigurationScript()
       Set objFS = CreateObject("Scripting.FileSystemObject")
       strTmpName = "temp_script.sm"
       Set objScript = objFS.CreateTextFile(strTmpName)
       objScript.Write ScriptArea.Value
       objScript.Close
       Set objShell = CreateObject("WScript.Shell")
       strCmdLine = "wscript.exe //E:VBScript "  strTmpName
       objShell.Run strCmdLine
       strAction = "Configured value for "  TaskList.Value 
       ActionArea.InnerHTML = strAction
    End Sub


    Sub RunRetrievalScript()
       Set objFS = CreateObject("Scripting.FileSystemObject")
       strTmpName = "temp_script.sm"
       Set objScript = objFS.CreateTextFile(strTmpName)
       objScript.Write RetrievalArea.Value
       objScript.Close
       Set objShell = CreateObject("WScript.Shell")
       strCmdLine = "wscript.exe //E:VBScript "  strTmpName
       objShell.Run strCmdLine
       strAction = "Retrieved value for "  TaskList.Value 
       ActionArea.InnerHTML = strAction
    End Sub


    Sub SaveConfigurationScript()
       Set objFSO = CreateObject("Scripting.FileSystemObject")
       strSaveFileName = InputBox("Please enter the complete path where you want to save your script (for example, C:\Scripts\MyScript.vbs).")
       If strSaveFileName = "" Then
          Exit Sub
       End If

       Set objFile = objFSO.CreateTextFile(strSaveFileName)
       objFile.WriteLine ScriptArea.Value
       objFile.Close
       strAction = "Saved "  TaskList.Value  " to "  strSaveFileName
       ActionArea.InnerHTML = strAction
    End Sub


    Sub SaveRetrievalScript()
       Set objFSO = CreateObject("Scripting.FileSystemObject")
       strSaveFileName = InputBox("Please enter the complete path where you want to save your script (for example, C:\Scripts\MyScript.vbs).")
       If strSaveFileName = "" Then
          Exit Sub
       End If
       Set objFile = objFSO.CreateTextFile(strSaveFileName)
       objFile.WriteLine RetrievalArea.Value
       objFile.Close
       strAction = "Saved "  TaskList.Value  " to "  strSaveFileName
       ActionArea.InnerHTML = strAction
    End Sub


    Sub ChangeValue()
        strCurrent = ScriptArea.Value
        NewValue = InputBox("Please enter the new value: ")
        If NewValue = "" Then
            Exit Sub
        End If
        ScriptType = Split(strCurrent, vbCrLf, -1)
        If Left(ScriptType(6),2) = "dw" Then
            If Not IsNumeric(NewValue) Then
                Msgbox "You must enter a number when configuring DWORD registry values."
                Exit Sub
            End If
            ScriptType(6) = "dwValue = "  NewValue
        Else
            ScriptType(6) = "strValue = "  chr(34)  NewValue  chr(34)
        End If
        strReplace = Join(ScriptType, vbcrlf)
        ScriptArea.Value = strReplace
        strAction = "Changed value for "  TaskList.Value  " to "  NewValue
        ActionArea.InnerHTML = strAction
    End Sub


    Sub ChangeMasterFile()
        If MasterFile = "" Then
            strCurrentFile = "Currently you do not have an master script. "
        Else
            strCurrentFile = "Your current master script is "  MasterFile  ". "
        End If
        strMessage = strCurrentFile  "Please enter the path to the new master script: "
        NewValue = InputBox(strMessage)
        If NewValue = "" Then
            Exit Sub
        End If
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        If objFSO.FileExists(NewValue) Then
            MasterFile = NewValue
            show_button.disabled = False
        Else
            CreateFile = Msgbox("This file does not exist. Would you like to create it",4)
            If CreateFile = vbYes Then
                objFSO.CreateTextFile(NewValue)
                MasterFile = NewValue
                show_button.disabled = False
            End If
        End If
        strAction = "Changed name of master script to "  NewValue
        ActionArea.InnerHTML = strAction
    End Sub


    Sub ChangeRetrievalFile()
        If RetrievalFile = "" Then
            strCurrentFile = "Currently you do not have a retrieval master script. "
        Else
            strCurrentFile = "You current retrieval master script is "  RetrievalFile  ". "
        End If
        strMessage = strCurrentFile  "Please enter the path to the new retrieval master script: "
        NewValue = InputBox(strMessage)
        If NewValue = "" Then
            Exit Sub
        End If
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        If objFSO.FileExists(NewValue) Then
            RetrievalFile  = NewValue
            show_button2.disabled = False
        Else
            CreateFile = Msgbox("This file does not exist. Would you like to create it",4)
            If CreateFile = vbYes Then
                objFSO.CreateTextFile(NewValue)
                RetrievalFile  = NewValue
                show_button2.disabled = False
            End If
        End If
        strAction = "Changed name of retrieval master script to "  NewValue
        ActionArea.InnerHTML = strAction
    End Sub



    Sub SetComputerName()
        strMessage = "Curently your scripts are using "  DefaultComputer  " as the default computer name. Please enter the new computer name. To run the script against the local computer, simply type a period (.) for the computer name: "
        NewValue = InputBox(strMessage)
        If NewValue = "" Then
            Exit Sub
        End If
        DefaultComputer = NewValue
        strAction = "Changed default computer name to "  NewValue
        ActionArea.InnerHTML = strAction
    End Sub


    Sub MasterConfigurationScript()
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        If MasterFile = "" Then
            strCurrentFile = "Currently you do not have a master script. "
            strMessage = strCurrentFile  "Please enter the path to the new master script: "
            NewValue = InputBox(strMessage)
            If NewValue = "" Then
                Exit Sub
            End If
                If objFSO.FileExists(NewValue) Then
                MasterFile  = NewValue
                show_button.disabled = False
            Else
                CreateFile = Msgbox("This file does not exist. Would you like to create it",4)
                If CreateFile = vbYes Then
                    objFSO.CreateTextFile(NewValue)
                    MasterFile  = NewValue
                    show_button.disabled = False
                Else
                    Exit Sub
                End If
            End If
        End If
        Set objFile = objFSO.OpenTextFile(MasterFile, 8)
        objFile.WriteLine Chr(39)  "   "  TaskList.Value
        objFile.WriteLine ScriptArea.Value
        objFile.WriteLine vbCrLf  vbCrLf
        objFile.Close
        strAction = "Appended "  TaskList.Value  " to "  MasterFile
        ActionArea.InnerHTML = strAction
    End Sub


    Sub MasterRetrievalScript()
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        If RetrievalFile = "" Then
            strCurrentFile = "Currently you do not have a retrieval master script. "
            strMessage = strCurrentFile  "Please enter the path to the new master script: "
            NewValue = InputBox(strMessage)
            If NewValue = "" Then
                Exit Sub
            End If
                If objFSO.FileExists(NewValue) Then
                RetrievalFile  = NewValue
                show_button2.disabled = False
            Else
                CreateFile = Msgbox("This file does not exist. Would you like to create it",4)
                If CreateFile = vbYes Then
                    objFSO.CreateTextFile(NewValue)
                    RetrievalFile  = NewValue
                    show_button2.disabled = False
                Else
                    Exit Sub
                End If
            End If
        End If
        Set objFile = objFSO.OpenTextFile(RetrievalFile, 8)
        objFile.WriteLine Chr(39)  "   "  TaskList.Value
        objFile.WriteLine RetrievalArea.Value
        objFile.WriteLine vbCrLf  vbCrLf
        objFile.Close
        strAction = "Appended "  TaskList.Value  " to "  RetrievalFile
        ActionArea.InnerHTML = strAction
    End Sub


    Sub ShowConfigurationScript()
       Set objShell = CreateObject("WScript.Shell")
       strCmdLine = "notepad.exe "  MasterFile
       objShell.Run strCmdLine
       strAction = "Opened file "  MasterFile  " in Notepad"
       ActionArea.InnerHTML = strAction
    End Sub



    Sub ShowRetrievalScript()
       Set objShell = CreateObject("WScript.Shell")
       strCmdLine = "notepad.exe "  RetrievalFile
       objShell.Run strCmdLine
       strAction = "Opened file "  RetrievalFile  " in Notepad"
       ActionArea.InnerHTML = strAction
    End Sub


    /SCRIPT>



    body>

    nbsp;BR>
    table border="0" cellspacing="1" width="100%" id="AutoNumber1">
      tr>
        td width = "50%">b>nbsp;nbsp;Select a manageable component from this list/b>
        /td>
        td width = "50%">b>nbsp;nbsp;Select a task category from this list/b>
        /td>
      /tr>
      tr>
        td width="50%">
          span id="ComponentArea">/span>
        /td>
        td width="50%">span id="CategoryArea">select size="1" name="D1">/select>/span>/td>
      /tr>
    /table>


    nbsp;BR>
    table border="0" cellspacing="1" width="100%" id="AutoNumber2">
      tr>
        td width = "50%">b>nbsp;nbsp;Select an individual task from this list/b>
        /td>
        td width = "50%">b>Task description/b>
        /td>
      /tr>
      tr>
        td width="50%">span id="TaskArea">select size="15" name="D2">/span>/td>
        td width="50%" valign="top">font color="navy">span id="HelpArea">/span>/font>/td>
      /tr>
    /table>




    nbsp;BR>
    table border="0" cellspacing="1" width="100%" id="AutoNumber3">
      tr>
        td width = "50%">b>nbsp;nbsp;Script for carrying out this task/b>
        /td>
        td width = "50%">b>nbsp;nbsp;Script for retrieving the current task setting/b>
        /td>
      /tr>
      tr>
        td width="50%">
      textarea rows="12" name="ScriptArea" cols="90">/textarea>/td>

        td width="50%">
      textarea rows="12" name="RetrievalArea" cols="90">/textarea>/td>

      /tr>
    /table>

    nbsp;BR>
    table border="0" cellspacing="1" width="100%" id="AutoNumber2">
      tr>
        td width="50%">input id=runbutton  class="button" type="button" value="Run Script" name="run_button"  onClick="RunConfigurationScript()">input id=runbutton  class="button" type="button" value="Save Script"  name="save_button"  onClick="SaveConfigurationScript()">input id=runbutton  class="button" type="button" value="Change Value"  name="change_button"  onClick="ChangeValue()">input id=runbutton  class="button" type="button" value="Master Script" name="Master_button"  onClick="MasterConfigurationScript()">input id=runbutton  class="button" type="button" value="ShowScript" name="show_button"  onClick="ShowConfigurationScript()">/td>

        td width="50%">input id=runbutton  class="button" type="button" value="Run Script"  name="run_button2"  onClick="RunRetrievalScript()">input id=runbutton  class="button" type="button" value="Save Script"  name="save_button2"  onClick="SaveRetrievalScript()">input id=runbutton  class="button" type="button" value="Master Script" name="Master_button2" onClick="MasterRetrievalScript()">input id=runbutton  class="button" type="button" value="ShowScript" name="show_button2"  onClick="ShowRetrievalScript()">/td>
      /tr>
    /table>





    nbsp;BR>

    table border="0" cellspacing="1" width="100%" id="AutoNumber2">
      tr>
        td width="100%">nbsp;br>b>Tweakomatic Options/b>nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;input id=runbutton  class="button" type="button" value="Set Computer Name" name="computer_name"  onClick="SetComputerName()">input id=runbutton  class="button" type="button" value="Set Configuration Master Script" name="set_Master_file"  onClick="ChangeMasterFile()">input id=runbutton  class="button" type="button" value="Set Retrieval Master Script" name="set_retrieval_button"  onClick="ChangeRetrievalFile()">/td>
      /tr>
      tr>
        td width="100%">nbsp;br>b>Last Action:nbsp;/b>span id="ActionArea">/span>/td>
      /tr>

    /table>

    /body>

    /html>

    下载此文件
    上一篇:ScriptomaticV2.hta学习脚本好工具
    下一篇:用来通知论坛有新贴子的hta代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    tweakomatic hta 下载 tweakomatic,hta,下载,tweakomatic,