it seems unpacked already but there is a setup file! sfx may be??
This post has been edited by alperefe: 15 January 2006 - 04:19 AM
Posted 15 January 2006 - 04:18 AM
This post has been edited by alperefe: 15 January 2006 - 04:19 AM
Posted 15 January 2006 - 05:33 PM
Posted 17 January 2006 - 07:37 AM
Posted 17 January 2006 - 01:42 PM
Posted 18 January 2006 - 11:52 PM
; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author: A.N.Other <myemail@nowhere.com>
;
; Script Function:
; Template AutoIt script.
;
; ----------------------------------------------------------------------------
AutoITSetOption ("SendKeyDelay", 20)
AutoItSetOption("WinDetectHiddenText", 1)
AutoItSetOption("TrayIconDebug", 1)
Run (@WindowsDir & "\Temp\cfosspeed\setup.exe")
WinActivate ("cFosSpeed Installation Wizard")
WinWaitActive ("cFosSpeed Installation Wizard")
;ControlClick ("cFosSpeed Installation Wizard", "", "&Next")
Send ("!N")
ControlClick ("cFosSpeed Installation Wizard", "If you accept", "Button1")
Send ("!N")
WinWaitActive ("cFosSpeed Installation Wizard", "Set system restore")
ControlClick ("cFosSpeed Installation Wizard", "Set system restore", "Button1")
Send ("!N")
WinWaitActive ("cFosSpeed Installation Wizard", "installation directory")
Send ("!N")
$ret = 0
While $ret == 0
$ret = WinWaitActive ("cFosSpeed Installation Wizard", "TCP receiver window", 5)
if $ret == 0 then WinActivate ("cFosSpeed Installation Wizard", "TCP receiver window")
Wend
Send ("!N")
$ret = 0
While $ret == 0
$ret = WinWaitActive ("cFosSpeed Installation Wizard", "Installation successful", 5)
if $ret == 0 then WinActivate ("cFosSpeed Installation Wizard", "Installation successful")
Wend
ControlClick ("cFosSpeed Installation Wizard", "", "Finish")
; Now close the **** Explorer window it opens
$ret = 0
While $ret == 0
$ret = WinWaitActive ("cFos Traffic Shaping", "", 5)
if $ret == 0 then WinActivate ("cFos Traffic Shaping")
Wend
WinClose ("cFos Traffic Shaping")
; Move the desktop icons and move the start menu
FileMove (@DesktopDir & "\cFos Traffic Shaping.lnk", @ProgramsCommonDir & "\cFosSpeed Traffic Shaping\cFos Traffic Shaping.lnk")
FileMove (@DesktopDir & "\cFosSpeed Features.lnk", @ProgramsCommonDir & "\cFosSpeed Traffic Shaping\cFosSpeed Features.lnk")
DirMove (@ProgramsCommonDir & "\cFosSpeed Traffic Shaping", @ProgramsCommonDir & "\Network Utilities\cFosSpeed Traffic Shaping")
Exit
Posted 23 March 2008 - 01:32 AM
Quote
Posted 23 March 2008 - 11:37 AM
This post has been edited by radix: 24 March 2008 - 11:48 AM
Posted 23 March 2008 - 08:44 PM
cfos.JPG (38.79K)
This post has been edited by johndoe74: 23 March 2008 - 08:50 PM
Posted 24 March 2008 - 01:09 AM
johndoe74, on Mar 24 2008, 04:44 AM, said:
This post has been edited by radix: 24 March 2008 - 07:00 AM
Posted 24 March 2008 - 10:40 AM
shaping.JPG (99.13K)
Posted 24 March 2008 - 10:51 AM
johndoe74, on Mar 24 2008, 06:40 PM, said:
untitled.JPG (108.8K)
This post has been edited by radix: 24 March 2008 - 10:52 AM
Posted 24 March 2008 - 11:46 AM
Opt("TrayIconDebug", 1)
Opt("SendKeyDelay", 200)
; Executable file name
$EXECUTABLE = "cfosspeed-v420.exe"
; Installation folder
$INSTALLLOCATION = @ProgramFilesDir & "\cFosSpeed"
; Set system restore point
$RestorePoint = "0"
; Optimize TCP receiver window size
$Optimize = "1"
; Registration
; If you want to try cfosspeed for 30 days, let $Registration = "0". Else set $Registration = "1" and read below.
; In order to register cfosspeed silently, you need to install cfosspeed, copy key file into installation folder
; and reboot computer. After logon, when cfosspeed start, enter the password.
; Then goto this registry key: HKEY_LOCAL_MACHINE\SOFTWARE\cFos\cFosSpeed and copy the value from valuename Password2 below
; at $Password without commas and backslash. Copy your key file in the same folder with installer and compiled script and repack.
$Registration = "0"
$KeyFileName = "key.cfosspeed"
$Password = ""
; Run cfosspeed on Windows startup
$Autostart = "1"
If FileExists($INSTALLLOCATION & "\cfosspeed.exe") Then
MsgBox(0x40010, @ScriptName, "Please uninstall previous version of cfosspeed before using this script", 4)
Exit
EndIf
; Read from registry if System Restore is turn on or off
$DisableSR = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore", "DisableSR")
; Run the installer
Run($EXECUTABLE)
; Welcome to cFosSpeed v4.20!
WinWait("cFosSpeed Installation Wizard", "Welcome to cFosSpeed v4.20!")
WinActivate("cFosSpeed Installation Wizard", "Welcome to cFosSpeed v4.20!")
ControlClick("cFosSpeed Installation Wizard", "", "Button2")
; cFosSpeed 4.20.1389 Nutzungslizenz und Gewährleistung
WinWait("cFosSpeed Installation Wizard", "cFosSpeed 4.20.1389 Nutzungslizenz und Gewährleistung")
WinActivate("cFosSpeed Installation Wizard", "cFosSpeed 4.20.1389 Nutzungslizenz und Gewährleistung")
ControlCommand("cFosSpeed Installation Wizard", "", "Button1", "Check", "")
ControlClick("cFosSpeed Installation Wizard", "", "Button3")
; Start checking for two windows with "Set system restore point." and "You are online with the following connection:" text inside
AdlibEnable('_Adlib')
; Specify an installation directory.
WinWait("cFosSpeed Installation Wizard", "Specify an installation directory.")
WinActivate("cFosSpeed Installation Wizard", "Specify an installation directory.")
If $DisableSR = "0" Then
ControlClick("cFosSpeed Installation Wizard", "", "Button5")
EndIf
If $DisableSR = "1" Then
ControlClick("cFosSpeed Installation Wizard", "", "Button4")
EndIf
; Optimize TCP receiver window size. (Recommended)
WinWait("cFosSpeed Installation Wizard", "Optimize TCP receiver window size. (Recommended)")
WinActivate("cFosSpeed Installation Wizard", "Optimize TCP receiver window size. (Recommended)")
If $Optimize = "0" Then
ControlCommand("cFosSpeed Installation Wizard", "", "Button1", "UnCheck", "")
EndIf
If $DisableSR = "0" Then
ControlClick("cFosSpeed Installation Wizard", "", "Button7")
EndIf
If $DisableSR = "1" Then
ControlClick("cFosSpeed Installation Wizard", "", "Button6")
EndIf
; Installation successful.
WinWait("cFosSpeed Installation Wizard", "Installation successful.")
WinActivate("cFosSpeed Installation Wizard", "Installation successful.")
If $DisableSR = "0" Then
ControlClick("cFosSpeed Installation Wizard", "", "Button8")
EndIf
If $DisableSR = "1" Then
ControlClick("cFosSpeed Installation Wizard", "", "Button7")
EndIf
; Stop checking for two windows with "Set system restore point." and "You are online with the following connection:" text inside
AdlibDisable()
Sleep(2000)
; Kill browser process
$PID = ProcessExists("IEXPLORE.EXE")
If $PID Then
ProcessClose($PID)
EndIf
$PID = ProcessExists("Opera.exe")
If $PID Then
ProcessClose($PID)
EndIf
$PID = ProcessExists("firefox.exe")
If $PID Then
ProcessClose($PID)
EndIf
; Registration
If $Registration = "1" Then
FileCopy($KeyFileName, $INSTALLLOCATION, 1)
RegWrite("HKLM\SOFTWARE\cFos\cFosSpeed", "Password2", "REG_BINARY", $Password)
EndIf
; Block cfosspeed to run on Windows startup
If $Autostart = "0" Then
RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "cFosSpeed")
EndIf
; Delete shortcut cFosSpeed Features from Desktop folder
FileDelete(@DesktopDir & "\cFosSpeed Features.lnk")
Func _Adlib()
; Set system restore point.
If WinExists("cFosSpeed Installation Wizard", "Set system restore point.") Then
WinActivate("cFosSpeed Installation Wizard", "Set system restore point.")
If $RestorePoint = "0" Then
ControlCommand("cFosSpeed Installation Wizard", "", "Button1", "UnCheck", "")
EndIf
ControlClick("cFosSpeed Installation Wizard", "", "Button4")
EndIf
; You are online with the following connection:
If WinExists("cFosSpeed Installation Wizard", "You are online with the following connection:") Then
WinActivate("cFosSpeed Installation Wizard", "You are online with the following connection:")
ControlClick("cFosSpeed Installation Wizard", "", "Button1")
If $DisableSR = "0" Then
ControlClick("cFosSpeed Installation Wizard", "", "Button6")
EndIf
If $DisableSR = "1" Then
ControlClick("cFosSpeed Installation Wizard", "", "Button5")
EndIf
EndIf
EndFunc
This post has been edited by radix: 25 March 2008 - 12:28 PM
Posted 24 March 2008 - 03:00 PM
Posted 24 March 2008 - 09:58 PM
%ProgramFiles%\cFosSpeed\traffic_shaping\calibration_e.htm
Posted 25 March 2008 - 01:46 AM
johndoe74, on Mar 25 2008, 05:58 AM, said:
%ProgramFiles%\cFosSpeed\traffic_shaping\calibration_e.htm
This post has been edited by radix: 25 March 2008 - 02:14 AM
Posted 04 May 2008 - 03:46 AM
#NoTrayIcon
; Options
AutoItSetOption("TrayIconHide", 1)
AutoItSetOption("WinTitleMatchMode", 4)
AutoItSetOption("WinWaitDelay", 1)
$g_szVersion = "cFosSpeed AutoIt v3 Script 1.0"
If WinExists($g_szVersion) Then Exit; It's already running
AutoItWinSetTitle($g_szVersion)
; Executable file name
$EXECUTABLE = "cfosspeed-v420.exe"
; Set system restore point
$RestorePoint = "0"
; Optimize TCP receiver window size
$Optimize = "1"
; Registration
; If you want to try cfosspeed for 30 days, let $Registration = "0". Else set $Registration = "1".
$Registration = "1"
$KeyFileName = "key.cfosspeed"
$Password = "XXXX-XXXX-XXXX-XXXX"; Replace with you own password
; Run cfosspeed on Windows startup
$Autostart = "1"
$dirold = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\cFosSpeed", "InstallLocation")
If FileExists($dirold & "\cfosspeed.exe") Then
MsgBox(0x40010, @ScriptName, "Please uninstall previous version of cfosspeed before using this script", 4)
Exit
EndIf
; Read from registry if System Restore is turn on or off
$DisableSR = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore", "DisableSR")
; Run the installer
Run(@ScriptDir & "\" & $EXECUTABLE)
; Welcome to cFosSpeed v4.20!
WinWait("cFosSpeed Installation Wizard", "Welcome to cFosSpeed v4.20!")
WinSetState("cFosSpeed Installation Wizard", "Welcome to cFosSpeed v4.20!", @SW_SHOWMINNOACTIVE)
ControlCommand("cFosSpeed Installation Wizard", "Welcome to cFosSpeed v4.20!", "ComboBox1", "SelectString", "English")
WinWait("cFosSpeed Installation Wizard", "English")
ControlClick("cFosSpeed Installation Wizard", "", "Button2")
; cFosSpeed 4.20.1389 Nutzungslizenz und Gewährleistung
WinWait("cFosSpeed Installation Wizard", "cFosSpeed 4.20.1389 Nutzungslizenz und Gewährleistung")
WinSetState("cFosSpeed Installation Wizard", "cFosSpeed 4.20.1389 Nutzungslizenz und Gewährleistung", @SW_SHOWMINNOACTIVE)
ControlCommand("cFosSpeed Installation Wizard", "", "Button1", "Check", "")
ControlClick("cFosSpeed Installation Wizard", "", "Button3")
; Start checking for two windows with "Set system restore point." and "You are online with the following connection:" text inside
AdlibEnable('_Adlib')
; Specify an installation directory.
WinWait("cFosSpeed Installation Wizard", "Specify an installation directory.")
WinSetState("cFosSpeed Installation Wizard", "Specify an installation directory.", @SW_SHOWMINNOACTIVE)
Switch $DisableSR
Case 0
ControlClick("cFosSpeed Installation Wizard", "", "Button5")
Case 1
ControlClick("cFosSpeed Installation Wizard", "", "Button4")
EndSwitch
; Optimize TCP receiver window size. (Recommended)
WinWait("cFosSpeed Installation Wizard", "Optimize TCP receiver window size. (Recommended)")
WinSetState("cFosSpeed Installation Wizard", "Optimize TCP receiver window size. (Recommended)", @SW_SHOWMINNOACTIVE)
If $Optimize = "0" Then
ControlCommand("cFosSpeed Installation Wizard", "", "Button1", "UnCheck", "")
EndIf
Switch $DisableSR
Case 0
ControlClick("cFosSpeed Installation Wizard", "", "Button7")
Case 1
ControlClick("cFosSpeed Installation Wizard", "", "Button6")
EndSwitch
; Installation successful.
WinWait("cFosSpeed Installation Wizard", "Installation successful.")
WinSetState("cFosSpeed Installation Wizard", "Installation successful.", @SW_SHOWMINNOACTIVE)
Switch $DisableSR
Case 0
ControlClick("cFosSpeed Installation Wizard", "", "Button8")
Case 1
ControlClick("cFosSpeed Installation Wizard", "", "Button7")
EndSwitch
; Stop checking for two windows with "Set system restore point." and "You are online with the following connection:" text inside
AdlibDisable()
$dir = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\cFosSpeed", "InstallLocation")
; Prevent browser from poping up
IniWrite($dir & "\cfosspeed.ini", "All", "ts_advice", 1)
; Registration
If $Registration = "1" Then
Run($dir & "\setup.exe -brandkey " & @ScriptDir & "\" & $KeyFileName)
WinWait("cFosSpeed Registration Wizard", "cFosSpeed Registration.")
WinSetState("cFosSpeed Registration Wizard", "cFosSpeed Registration.", @SW_SHOWMINNOACTIVE)
ControlCommand("cFosSpeed Registration Wizard", "cFosSpeed Registration.", "ComboBox1", "SelectString", "English")
ControlClick("cFosSpeed Registration Wizard", "&Next >", "Button2")
WinWait("cFosSpeed Registration Wizard", "If you accept the license agreement, check the 'I agree' field and click Next, otherwise, click Cancel.")
WinSetState("cFosSpeed Registration Wizard", "If you accept the license agreement, check the 'I agree' field and click Next, otherwise, click Cancel.", @SW_SHOWMINNOACTIVE)
ControlCommand ("cFosSpeed Registration Wizard", "I agree.", "Button1", "Check", "")
ControlClick("cFosSpeed Registration Wizard", "&Next >", "Button3")
WinWait("cFosSpeed Registration Wizard", "cFosSpeed will be registered to:")
WinSetState("cFosSpeed Registration Wizard", "cFosSpeed will be registered to:", @SW_SHOWMINNOACTIVE)
Sleep(100)
ControlSend("cFosSpeed Registration Wizard", "Password:", "Edit1", $Password)
ControlClick("cFosSpeed Registration Wizard", "&Next >", "Button3")
WinWait("cFosSpeed Registration Wizard", "Registration complete.")
WinSetState("cFosSpeed Registration Wizard", "Registration complete.", @SW_SHOWMINNOACTIVE)
ControlClick("cFosSpeed Registration Wizard", "Finish", "Button4")
EndIf
; Block cfosspeed to run on Windows startup
If $Autostart = "0" Then
RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "cFosSpeed")
EndIf
; Delete shortcut "cFosSpeed Features" from Desktop folder
FileDelete(@DesktopDir & "\cFosSpeed Features.lnk")
Exit
Func _Adlib()
; Set system restore point.
If WinExists("cFosSpeed Installation Wizard", "Set system restore point.") Then
WinSetState("cFosSpeed Installation Wizard", "Set system restore point.", @SW_SHOWMINNOACTIVE)
If $RestorePoint = "0" Then
ControlCommand("cFosSpeed Installation Wizard", "", "Button1", "UnCheck", "")
EndIf
ControlClick("cFosSpeed Installation Wizard", "", "Button4")
EndIf
; You are online with the following connection:
If WinExists("cFosSpeed Installation Wizard", "You are online with the following connection:") Then
WinSetState("cFosSpeed Installation Wizard", "You are online with the following connection:", @SW_SHOWMINNOACTIVE)
ControlClick("cFosSpeed Installation Wizard", "", "Button1")
Switch $DisableSR
Case 0
ControlClick("cFosSpeed Installation Wizard", "", "Button6")
Case 1
ControlClick("cFosSpeed Installation Wizard", "", "Button5")
EndSwitch
EndIf
EndFunc
This post has been edited by artbio: 04 May 2008 - 08:33 AM