155遊戲天堂私服論壇

 找回密碼
 加入我們
查看: 25073|回復: 79

[分享] 4/16更新!打爛騙子推頂篇!私服所有14大自動程式全包

[複製鏈接]
跳轉到指定樓層
1#
發表於 2011-4-22 05:27 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
(關於打爛騙子推頂篇!私服所有9大自動程式全包內容有所更新共14大)
玩私服所有必備的工具以下新增:
AA1.〝重點分享微軟五星級推薦附正式序號〞
價值NT1萬多,掃描更新.系統優化.錯誤排解.系統加速.驅動更新...等一堆功能全自動
這個檔案需要解壓縮密碼,需要的玩家在本版回覆5次,複製連結給我,我將短消息奉送!
A. 遊戲多開工具
B. 簡體lingm破解版.rar(除冰火外其他90%都可.亂碼請下載lingm官方版.把文字文件複製過去)
為何要用簡體版ㄋ,聰明的你想到了吧!
C. 魔法風硬放大圖.zip
1. 天堂視窗化+(推薦)手動順刀強力版本教學
2. woptiv快速釋放記憶體(控制遊戲多開吃太多cpu而跑不動)
3. Sandboxie沙盤推演(冰火雙開必備程式使用教學請網路搜尋)
4. LH無延遲喝水.rar
5. 遮蔽程式.rar(有些私服開lingm專用冰火不行喔)
6. 反組譯工具.rar(改sfl登入器用的讓它無法檔外掛需要有點調腦常識喔)
7. 天堂3.3韓式DH介面.rar(畫面變美美的)
8. ezscript3.3版.(有使用說明)
9. lh2喝水程式.(sfl的大多開不了)
10. 順刀!私服3.3專用版(自動順刀號呆專用)
各位大大!騙子一堆要下載檔案先看作者等級跟威望
等級低威望負數的大多都是騙子!請小心喔!
我這裡有幾個大家用的到的去下載吧!請自行掃毒後在安心使用.反組譯防毒誤判不用掃
別擔心若無法下載給我短消息將給您載點.優良的分享版需要您的評分與推頂


相信就請下載吧 反正都是來自同一個地方 只是比較便宜

4.17外掛連結.rar

1.32 KB, 下載次數: 1, 下載積分: 金錢 -20

售價: 20 金錢  [記錄]

2#
 樓主| 發表於 2011-4-22 11:13 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
3#
 樓主| 發表於 2011-4-22 11:28 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
4#
發表於 2011-4-22 11:29 | 只看該作者
內容真多~可惜沒錢買~幫你推一下吧~哈哈~

回文是種美德~賺錢賺出心得~
分享來做功德~騙人你就缺德~
5#
 樓主| 發表於 2011-4-22 11:34 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
6#
 樓主| 發表於 2011-4-22 11:43 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
7#
 樓主| 發表於 2011-4-22 11:47 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
8#
 樓主| 發表於 2011-4-22 12:00 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
9#
 樓主| 發表於 2011-4-22 12:10 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
10#
 樓主| 發表於 2011-4-22 12:20 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
11#
 樓主| 發表於 2011-4-22 12:23 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
12#
 樓主| 發表於 2011-4-22 12:29 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
13#
 樓主| 發表於 2011-4-22 12:32 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
14#
 樓主| 發表於 2011-4-22 12:49 | 只看該作者
' Leatrix Latency Fix 1.23 (Install Script)
' To use, simply run this script and restart your computer.
' To run from within batch files, use 'cscript Install.vbs"

  logo = "Leatrix Latency Fix"
  Leatrix_Version = "1.23"

  Const HKEY_LOCAL_MACHINE = &H80000002

  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  Set oZap = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

  Set colOperatingSystems = oZap.ExecQuery("Select * from Win32_OperatingSystem")
  
  Set shell = CreateObject("Shell.Application")
  set wsnet = WScript.CreateObject("WScript.Network")
  computername = ucase(wsnet.computername)

  strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
  oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  if Wscript.Arguments.Count => 1 then
    if (WScript.Arguments.Item(0) = "uac") then Leatrix_Uac = 1 else Leatrix_Uac = 0
  end if
   
  If Instr(1, WScript.FullName, "cscript", vbTextCompare) > 1 Then
    Leatrix_Script = 1
  End If

' Show logo for script users
  if Leatrix_Script = 1 and Leatrix_Uac = 0 then
    wscript.echo "Leatrix Latency Fix " & Leatrix_Version & " Batch Mode."
    wscript.echo ""
  end if

' Latency fix has already been applied
  if CheckFix = true then
    msg = "Leatrix Latency Fix is already installed on this computer."
    if Leatrix_Script = 0 then
      msg = msgbox (msg,48,logo)
    else
      wscript.echo msg
    end if
    wscript.quit
  end if

' Show title for first run
  If Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = logo & " " & Leatrix_Version & chr(13) & chr(13) & "This script will reduce your online gaming latency significantly by increasing the frequency of TCP acknowledgements sent to the game server.  It is designed for Windows XP (SP2 or higher), Windows Vista (SP1 or higher) and Windows 7 only." _
                       & chr(13) & chr(13) & "If you are not logged into your computer with an account which has Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled, you will be prompted to enter the username and password of an account which has Administrator privileges." _
                       & chr(13) & chr(13) & "Leatrix Latency Fix is hosted at www.leatrix.com." _
                       & chr(13) & chr(13) & "Click Ok to begin."
    else
      msg = "Installing..."
    end if

    if Leatrix_Script = 0 then
      msg = msgbox (msg,65,logo)

      ' Does user want to quit
        if msg = 2 then
          wscript.quit
        end if
    else
        wscript.echo msg
    end if  
  end if

' Attempt to apply latency fix
  For Each subkey In arrSubKeys
    err = oReg.SetDwordValue (HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency","1")
  Next

' If fix completed successfully
  if CheckFix = true then
    Success
    wscript.quit
  end if

' If fix did not complete successfully, run it again with UAC prompt
  if CheckFix = false and Leatrix_Uac = 0 then
    if Leatrix_Script = 0 then
      msg = "Either your Windows account does not have Administrator privileges, or you are using Windows Vista or Windows 7 with User Account Control enabled."
      msg = msg + chr(13) + chr(13) & "User Account Control forces programs to run under regular user privileges, even if you are logged into your computer with an account which has Administrator privileges.  It's enabled by default on computers running Windows Vista and Windows 7."
      msg = msg + chr(13) + chr(13) & "To get around this, you will be prompted to enter your Windows logon details.  In the next window, check the radio button for 'The following user' and enter the username and password of a Windows account which has Administrator privileges.  The username must be in the format '" & computername & "\username'."
      msg = msg + chr(13) + chr(13) & "Click Ok to continue"
      msg = msgbox (msg,49,logo)

  ' Does user want to quit
    if msg = 2 then
      wscript.quit
    end if

  ' Rerun script with UAC prompt
    shell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  else
    wscript.echo "Logon failure.  You must be logged in with Administrator privileges in order to use batch mode."
    wscript.quit
  end if
  end if

' Check if script completed successfully with UAC prompt
  if Leatrix_Uac = 1 then
    if CheckFix = false then
      msg = "There was an error (" & err.number & ")." & chr(13) & chr(13) & "Ensure that you entered a valid username and password.  The username must have Administrator privileges on this computer." & chr(13) & chr(13) & "Click Ok to close the script."
        if Leatrix_Script = 0 then
          msg = msgbox (msg,48,logo)
        end if
    else
      Success
    end if
  end if

  wscript.quit

  Function CheckFix()
  ' Checks to see if any of the settings have been applied
    StopCheck = 0
    For Each subkey In arrSubKeys
      oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & subkey,"TcpAckFrequency",CheckFix
      if CheckFix = 1 then
      else StopCheck = 1
      end if
    Next
    if StopCheck = 1 then CheckFix = false else CheckFix = true
  end function

  Function Success()
    if Leatrix_Script = 0 then
      msg = "Leatrix Latency Fix has been installed successfully."
      msg = msg & chr(13) & "You need to restart your computer for the changes to take effect." & chr(13)
      msg = msg & chr(13) & "Do you want to restart your computer now?"
      msg = msgbox (msg,68,logo)
      if msg = 6 then
                For Each objOperatingSystem in colOperatingSystems
                        objOperatingSystem.Reboot()
                Next        
      end if
    else
      wscript.echo "Leatrix Latency Fix has been installed successfully."
      wscript.echo "You need to restart your computer for the changes to take effect."
    end if
  end function
15#
發表於 2011-4-22 12:52 | 只看該作者
真的麼@@??
16#
發表於 2011-4-22 13:00 | 只看該作者
打爛騙子~酷喔~幫你推一個~哈哈~

回文是種美德~賺錢賺出心得~
分享來做功德~騙人你就缺德~
17#
發表於 2011-4-22 13:33 | 只看該作者
沒錢買推一下
18#
發表於 2011-4-22 13:38 | 只看該作者
WEKESFFFFFFFFFFFFFFSDFSFSFES
19#
發表於 2011-4-22 13:42 | 只看該作者
WEEFEFSEFSEFEF
20#
發表於 2011-4-22 13:56 | 只看該作者
WADDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
21#
發表於 2011-4-22 14:44 | 只看該作者
dsddddddddd
22#
發表於 2011-4-22 14:45 | 只看該作者
= =?
這是啥阿!!
23#
發表於 2011-4-22 15:22 | 只看該作者
厲害!!
24#
發表於 2011-4-22 15:47 | 只看該作者
好用嗎?
25#
 樓主| 發表於 2011-4-22 17:10 | 只看該作者
保證可以用的加速器
保證可以用的加速器
保證可以用的加速器
26#
 樓主| 發表於 2011-4-22 17:45 | 只看該作者
保證可以用的加速器
保證可以用的加速器
保證可以用的加速器
27#
 樓主| 發表於 2011-4-22 18:29 | 只看該作者
保證可以用的加速器
保證可以用的加速器
保證可以用的加速器
28#
發表於 2011-4-22 18:31 | 只看該作者
內容真多~可惜沒錢買~幫你推一下吧~哈哈~

回文是種美德~賺錢賺出心得~
分享來做功德~騙人你就缺德~
29#
 樓主| 發表於 2011-4-22 18:34 | 只看該作者
保證可以用的加速器
保證可以用的加速器
保證可以用的加速器
30#
發表於 2011-4-22 18:37 | 只看該作者
一堆程式碼.....看不懂是來幹嘛的?
您需要登錄後才可以回帖 登錄 | 加入我們

本版積分規則

155遊戲天堂論壇免責聲明:本站無架設或協助架設或間接架設或參予任何伺服器架設,本站為討論區。
155遊戲天堂論壇只是一個遊戲討論平台,在本站上法律問題一切都由發布者會員自行承擔法律責任。呼籲會員遵守法律。
不得在本站張貼盜版遊戲。如會員在本站張貼盜版遊戲,該會員要負責賠償本站名譽損失以及著作權所有人。請務必獲得合法授權才來張貼至本站。
詳細請參閱本站著作權聲明:http://game155.com/lineage/bbs/viewthread.php?tid=259

GMT+8, 2026-6-8 07:33

快速回復 返回頂部 返回列表