111 replies to this topic

[ricktendo]

Here are a couple vids I put together on silent switch making, hope I explained it clear enough for you guys...good luck

Required Programs:
Silent Switch Maker (Tools)
7-Zip (Archiver)
Universal Extractor (Forum)
CMenu or SendToA3X (Addons)
Orca or InstEd (MSI Editors)
Resource Hacker (Optional)
More Info
SFXMaker
Download latest 7zsd.sfx*

Download:
Part 1 (74 MB) YouTube
Part 2 (44 MB) YouTube
Part 3 (58 MB) YouTube
Part 4 (Comming Soon)

RunOnceEx config.txt example:

;!@Install@!UTF-8!
RunProgram="WindowsDefender.msi /qn TRANSFORMS=NoLaunch.mst /norestart"
AutoInstall="hidcon:reg add HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\RunOnceEx\\windefender /v Install /d %%S\\WindowsDefender.exe /f"
GUIMode="2"
;!@InstallEnd@!

Open for questions, any that you may have

[blackman12]

This program is my basic autoit code.But i packed easily my programs with this script.

Program [Script]

http://rapidshare.com/files/152670552/7ziplemeMerkezi.rar.html

Example Video:

http://rapidshare.com/files/152670553/7ziplememerkeziVideo.rar.html

Resource Code:

;-------------------------------------blackman12 tarafından yazılmıştır ---------------------
;-------------------------------------------------Kod Başlangıcı --------------------------------------
#include<File.au3>
Opt("WinTitleMatchMode", 2)
$pencereadi = "Resource Hacker"
$programadi = InputBox("7Zipleme Merkezi","Çalışma Adını Gir:")
if @error Then
	Exit
EndIf
$programadi2 = '"' & $programadi & '.exe"'
$programadi3 = $programadi & ".exe"
ClipPut($programadi)
ShellExecute("Reshacker.exe","kalip.sfx",@ScriptDir,"",@SW_HIDE)
If Not WinActive($pencereadi) Then WinActivate($pencereadi)
WinWaitActive($pencereadi)
Send("S{Right}5{Right}{Down}{TAB}{Down}{Down}{Down}{Down}{Right}{Right}{Right}{Rig
ht}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}v{Right}{Down}{Right}{Down}{TAB}{Down}{
D
own}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}")
Send("{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right
}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{R
i
ght}{Right}{Right}{Right}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}d")
Send("{Right}{Down}{Right}{Down}{TAB}{TAB}{Down}{Down}{Down}{Right}{Right}{Right}{
Right}{Right}{Right}{Right}{Right}{Right}^v{TAB}{TAB}{ENTER}{CTRLDOWN}s{CTRLUP}")
WinClose($pencereadi)
_FileCreate("config.txt")
$dosya = FileOpen("config.txt", 1)
If $dosya = -1 Then
	MsgBox(0, "Hata", "Config.txt Bulunamadı")
	Exit
EndIf

FileWrite($dosya, ";!@Install@!UTF-8! " & @CRLF)
FileWrite($dosya, 'RunProgram="InstallTips.exe"' & @CRLF)
FileWrite($dosya, ";!@InstallEnd@! ")
FileClose($dosya)

_FileCreate("olustur.txt")
$dosya2 = FileOpen("olustur.txt", 1)
If $dosya2 = -1 Then
	MsgBox(0, "Hata", "Olustur.txt Bulunamadı")
	Exit
EndIf

ShellExecuteWait("7z.exe","a -t7z -x@exclude.lst -m0=lzma -mx=9 archive.7z *",@ScriptDir,"",@SW_HIDE)
AdlibEnable("cmd")
FileWrite($dosya2, "copy /b kalip.sfx+config.txt+archive.7z " & $programadi2 & @CRLF)
FileWrite($dosya2, "exit")
FileClose($dosya2)
FileMove("olustur.txt","olustur.bat")
ShellExecute("olustur.bat","",@ScriptDir,"",@SW_HIDE)
Sleep(2000)
FileDelete("config.txt")
FileDelete("olustur.bat")
FileDelete("kalip.sfx")
FileDelete("ResHacker.ini")
FileDelete("archive.7z")
FileDelete("ayarlar.ini")
FileMove("kalip_original.sfx","kalip.sfx")
FileMove($programadi3,@DesktopDir & "\" & $programadi3,1)
FileSetAttrib("otomatik.exe","+S")
FileSetAttrib("kalip.sfx","+S")
FileSetAttrib("7z.exe","+S")
FileSetAttrib("exclude.lst","+S")
FileSetAttrib("goster.jpg","+S")
FileSetAttrib("InstallTips.exe","+S")
FileSetAttrib("Reshacker.exe","+S")
FileSetAttrib("cmd.cmd","+S")
ShellExecuteWait("cmd.cmd","",@ScriptDir,"",@SW_HIDE)
FileSetAttrib("otomatik.exe","-S")
FileSetAttrib("kalip.sfx","-S")
FileSetAttrib("7z.exe","-S")
FileSetAttrib("exclude.lst","-S")
FileSetAttrib("goster.jpg","-S")
FileSetAttrib("InstallTips.exe","-S")
FileSetAttrib("Reshacker.exe","-S")
FileSetAttrib("cmd.cmd","-S")
Sleep(100)
if ProcessExists("cmd.exe") then
	ProcessClose("cmd.exe")
EndIf

_FileCreate("ayarlar.txt")
$dosya3 = FileOpen("ayarlar.txt", 1)
If $dosya3 = -1 Then
	MsgBox(0, "Hata", "Ayarlar.ini Bulunamadı")
	Exit
EndIf

FileWrite($dosya3, "[KOMUT]" & @CRLF)
FileWrite($dosya3, '0=Komut' & @CRLF & @CRLF)
FileWrite($dosya3, "[YAZ]" & @CRLF)
FileWrite($dosya3, "0=Açıklama" & @CRLF)
FileClose($dosya3)
FileMove("ayarlar.txt","Ayarlar.ini",1)

Func cmd()
	if ProcessExists("7z.exe") then
		Sleep(1000)
	EndIf
EndFunc
;-------------------------------------------------Kod Sonu---------------------------------------------
;--------------------------------------- blackman12 tarafından yazılmıştır --------------------------

[ricktendo]

Part 3 on how to make a RunOnceEx addon is up, Part 4 we will discus different ways to copy files from different places (outside and inside the sfx)

[dolivas]

Rick this is awesome keep up the excellent work and I hope to see more do you have a Donate button..... I have been using this method for a while now when you sent this to me months ago. I see you are using Vista now how are you adding the addons / programs during Vista install?

Thank YOU......

Edited by dolivas, 25 October 2008 - 01:07 AM.

[ricktendo]

Well I use Vista and XP (Spanish because I have a spanish UpdatePack now)

I add addons to Vista with WPI and I also add some with GImageX (zipped programs with shortcuts that don't have any reg entries sendto style)

As for the Donate button, PayPal does not work in my country. Have to use Xoom but that costs 6 bucks depending on amount :S

[jdd]

hey rick i want to learn how to make this one but i dont want to download it one by one
can u upload the video to youtube

[Raoul]

Thanks for this, will try it with Skype.

[ricktendo]

hey rick i want to learn how to make this one but i dont want to download it one by one
can u upload the video to youtube

Sorry I only have a 256 kbps connection and 7zipping it and uploading via FTP is fastest for me...7-zip reduces the video by allot

BTW you dont have to download all the sections to start viewing, they are cut. You can watch part 2 without the need to dl part 1

If somebody wants to upload them to their YouTube account feel free I wont mind

[freeheart4sale]

question about the Universal Extractor, there are several diff installs on their site, do i need all of them,
UniExtract installer, binary archive, source code, etc.... thank you


i figured it out, da! sorry for the post!

Edited by freeheart4sale, 11 November 2008 - 12:51 PM.

[freeheart4sale]

ok is part 4 video ready yet? lol! i'm ready to give this a wack or 2 or 3 or 4 lol! thanks

Edited by freeheart4sale, 11 November 2008 - 01:23 PM.

[ricktendo]

ok is part 4 video ready yet? lol! i'm ready to give this a wack or 2 or 3 or 4 lol! thanks

Today...btw you dont need to have 4 to begin viewing 1, 2 and 3

[mona]

a very good Tutorial thank rick i hope continue learning Tutorial

[ricktendo]

Sorry I forgot its patch tuesday...will have to wait until I release my spanish updaepack

BTW the audio may be messed up cuz camtasia 6 sucks

[war59312]

...If somebody wants to upload them to their YouTube account feel free I wont mind

Done!

Part 1:

Part 2:

Part 3: http://www.youtube.com/watch?v=vM4ojIh1m0w

Part 4: Coming Soon

Enjoy,

Will

Edited by war59312, 13 November 2008 - 12:24 AM.

[ENU_user]

heya rick! check out tutorial phraseexpress serious Competition

pretty good application , i thought it can help you if you liked it enough

liked that idea for the runoce -ai switch

Edited by ENU_user, 27 November 2008 - 02:16 PM.

[ricktendo]

Seems nice but the last thing I need is more programs running in the bg, my pc is slow enough

[mona]

hi rick i want help me when i add reg to config dont good work on RunOnceEx?  why.rar   11.53K   14 downloads

[ricktendo]

I think you have to make it CAPITOL "S"

;!@Install@!UTF-8!
RunProgram="Windows_Live_Mail.msi /qn /norestart"
AutoInstall="hidcon:reg add HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\RunOnceEx\\WindowsLive /v Install /d %%S\\WindowsLiveMail.exe /f"
GUIMode="2"
;!@InstallEnd@!

[mona]

I think you have to make it CAPITOL "S"

;!@Install@!UTF-8!
RunProgram="Windows_Live_Mail.msi /qn /norestart"
AutoInstall="hidcon:reg add HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\RunOnceEx\\WindowsLive /v Install /d %%S\\WindowsLiveMail.exe /f"
GUIMode="2"
;!@InstallEnd@!

When i use This config dont write in registry "S"

Edited by mona, 28 November 2008 - 12:29 AM.