Jump to content

cfosspeed


alperefe

Recommended Posts


how about deleting the d@mn file that it loads ?
%ProgramFiles%\cFosSpeed\traffic_shaping\calibration_e.htm

That's the last solution. Better to delete the entire folder or move it somewhere (on %systemdrive%)

and after 2 seconds to move back on it place.

Try again.

Edited by radix
Link to comment
Share on other sites

  • 1 month later...

The script posted by radix worked, but wasn't enough for me. The registration doesn't work if you install on another machine. In some situations the browser still pops up. So I took that script, edited it and this came up:

#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

Edited by artbio
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...