Otomatik 7ziple Katılımsız Kurulum

blackman12 · September 27, 2008

Merhaba arkadaşlar dün gece 100lerce katılımsız dosyayı 7ziple tekrar paketlerken işimi kolaylaştırmak için bir autoit kodlaması yaptım ve sizerlede paylaşim dedim.Örneğin siz x.bat dosyanızı program dosyanızı ve ekstra x.bat ile işletilecek dosyalarınızı hazırladınız sfx hazırlamak kaldı.Siz sadece gerekli dosyalarınızı 7ziple gerektiği gibi sıkıştırıyorsunuz ve daha sonra bu programı çalıştırıyorsunuz.1-2 sn bekledikten sonra katılımsız dosyanız hazır.Bir seferliğe mahsus olarak ilk kullanımınızdan önce Kalip.sfx dosyanızı kendinize göre düzenleyin yalnız stringdeki " " boşluğuna dialogtaki " Çıkartılıyor" bölümüne ve version bilgisindeki açıklama bölümüne "" dokunmayın autoiti buna göre ayarladım...

Aslında bu kadar uzun anlattığıma bakmayın.Çok basit olduğunu çalıştırdığınız anda göreceksiniz...

http://www.mediafire.com/?r4zp22dz23m2slq[/CODE]
Reshackerla ilgili bölümler çok basit kodlamalar içerdiğinden reshackerın çalıştığı bölümlerde lütfen elinize kolunuza sahip olun 
Kodlar:
[codebox]
#include <File.au3>

Opt("WinTitleMatchMode", 2)
$pencereadi = "Resource Hacker"
$programadi = InputBox("7Zipleme Merkezi","Çalışma Adını Gir:")
$cikar = InputBox("7Zipleme Merkezi","Çıkarıldıktan sonra çalışmasını istediğiniz dosyayı girin:","RunHiddenConsole.exe /w x.bat")
$cikar2 = '"' & $cikar & '"'
$programadi2 = '"' & $programadi & '.exe"'
ClipPut($programadi)
ShellExecute("Reshacker.exe","kalip.sfx")
WinWaitActive($pencereadi)
Send("S{Right}5{Right}{Down}{TAB}{Down}{Down}{Down}{Down}{Right}{Right}{Right}{Ri
ght}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}v{Right}{Down}{Right}{Down}{TAB}{Down}
{
Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}")
Send("{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Righ
t}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{
R
ight}{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=" & $cikar2 & @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

FileWrite($dosya2, "copy /b kalip.sfx+config.txt+*.7z " & $programadi2 & @CRLF)
FileWrite($dosya2, "exit")
FileClose($dosya2)
FileMove("olustur.txt","olustur.bat")

ShellExecute("olustur.bat")

Sleep(2000)

FileDelete("config.txt")
FileDelete("olustur.bat")
FileDelete("kalip.sfx")
FileDelete("ResHacker.ini")
FileMove("kalip_original.sfx","kalip.sfx")[/codebox]
Örnek Video Linki:
[CODE]http://www.mediafire.com/?kkja0h34hnpgfu8[/CODE]

eneskul · September 27, 2008

AutoIt kodlamalarını yemedi

tayfundinho10 · September 27, 2008

Blackman12 Bunun videolu anlatımını yapar mısınnn

blackman12 · September 27, 2008

@tayfundinho10 yuh artık katılımsız programın da mı videosunu çekicez?

ajan_21 · September 27, 2008

@tayfundinho10 yuh artık katılımsız programın da mı videosunu çekicez?

Bu Biraz değişik mümkünse bir örnek olarak versen çok iyi olur videolu şekilde.tşkler..

eneskul · September 27, 2008

@Blackman12 olmuyor bu AutoIt İle codlarla yaptım ama hata veriyor...

bi de senin verdiğin gibi olmadı

TEVF · September 27, 2008

walla ben yaptım çatır çatır çalışıyor ve winrarla hazırlamaktan daha basit olmuş çok sağol blackman 12 arkadaş çok kullanışlı bir program olmuş teşşekürler!!

gavara · September 27, 2008

Öncelikle Teşekkürler blackman12

ben bunu daha önce bulmuştum nasıl olsa gerekli düzenlemeleri yapıcam neden uğraşayım dedim bence bunu kullanın daha güzel ve kullanışlı

http://download.softpedia.com/dl/6da56ea22a53261c6e5f732427b309da/48de8e84/100104320/software/authoring/SFXMaker_0.9_Beta.zip[/CODE]

blackman12 · September 27, 2008

Gavara zaten bu fikir sfxmakerı görünce geldi aklıma ama sfxmaker da kendi progress barımızı oluşturamıyorduk o yüzden böyle yaptım...

blackman12 · September 27, 2008

Örnek Video Linki eklenmiştir.Videoda son bölümde çıkan reg dosyası kaydedilsin mi sorusunun bu programla alakası yoktur tamamen benm dikkatsizliğim x.bat dosyasında

start /wait regedit.exe /s reg.reg yazacağım yerde

start /wait reg.reg yazmışım

Edit: Kaynak kodu düzenlenmiştir.File.au3 içeriği çok uzun olduğundan include edilmiştir.

TEVF · September 27, 2008

Açık kaynak kodunda hata ile karşılaşanlar birde şunları deneyin bir kaç tane hata vardı onları buldum şimdi problemsiz kaynak kodları

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=iVista_winicons\Others\Upload Database.ico
#AutoIt3Wrapper_Res_Comment=By_TeZc@N
#AutoIt3Wrapper_Res_Description=By_TeZc@N
#AutoIt3Wrapper_Res_Fileversion=By_TeZc@N
#AutoIt3Wrapper_Res_LegalCopyright=By_TeZc@N
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Func _FileCountLines($sFilePath)
Local $N = FileGetSize($sFilePath) - 1
If @error Or $N = -1 Then Return 0
Return StringLen(StringAddCR(FileRead($sFilePath, $N))) - $N + 1
EndFunc ;==&gt;_FileCountLines

Func _FileCreate($sFilePath)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $hOpenFile
Local $hWriteFile

$hOpenFile = FileOpen($sFilePath, 2)

If $hOpenFile = -1 Then
SetError(1)
Return 0
EndIf

$hWriteFile = FileWrite($hOpenFile, "")

If $hWriteFile = -1 Then
SetError(2)
Return 0
EndIf

FileClose($hOpenFile)
Return 1
EndFunc ;==&gt;_FileCreate

Func _FileListToArray($sPath, $sFilter = "*", $iFlag = 0)
Local $hSearch, $sFile, $asFileList[1]
If Not FileExists($sPath) Then Return SetError(1, 1, "")
If (StringInStr($sFilter, "\")) Or (StringInStr($sFilter, "/")) Or (StringInStr($sFilter, ":")) Or (StringInStr($sFilter, "&gt;")) Or (StringInStr($sFilter, "&lt;")) Or (StringInStr($sFilter, "|")) Or (StringStripWS($sFilter, dirol.gif = "") Then Return SetError(2, 2, "")
If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")
$hSearch = FileFindFirstFile($sPath &amp; "\" &amp; $sFilter)
If $hSearch = -1 Then Return SetError(4, 4, "")
While 1
$sFile = FileFindNextFile($hSearch)
If @error Then
SetError(0)
ExitLoop
EndIf
If $iFlag = 1 And StringInStr(FileGetAttrib($sPath &amp; "\" &amp; $sFile), "D") &lt;&gt; 0 Then ContinueLoop
If $iFlag = 2 And StringInStr(FileGetAttrib($sPath &amp; "\" &amp; $sFile), "D") = 0 Then ContinueLoop
ReDim $asFileList[UBound($asFileList) + 1]
$asFileList[0] = $asFileList[0] + 1
$asFileList[UBound($asFileList) - 1] = $sFile
WEnd
FileClose($hSearch)
Return $asFileList
EndFunc ;==&gt;_FileListToArray

Func _FilePrint($s_File, $i_Show = @SW_HIDE)
Local $a_Ret = DllCall("shell32.dll", "long", "ShellExecute", _
"hwnd", 0, _
"string", "print", _
"string", $s_File, _
"string", "", _
"string", "", _
"int", $i_Show)
If $a_Ret[0] &gt; 32 And Not @error Then
Return 1
Else
SetError($a_Ret[0])
Return 0
EndIf
EndFunc ;==&gt;_FilePrint

Func _FileReadToArray($sFilePath, ByRef $aArray)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $hFile

$hFile = FileOpen($sFilePath, 0)

If $hFile = -1 Then
SetError(1)
Return 0
EndIf

$aArray = StringSplit(StringStripCR(FileRead($hFile, FileGetSize($sFilePath))), @LF)

FileClose($hFile)
Return 1
EndFunc ;==&gt;_FileReadToArray

Func _FileWriteFromArray($sFilePath, $a_Array, $i_Base = 0, $i_UBound = 0)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $hFile
; Check if we have a valid array as input
If Not IsArray($a_Array) Then
SetError(2)
Return 0
EndIf
; determine last entry
Local $last = UBound($a_Array) - 1
If $i_UBound &lt; 1 Or $i_UBound &gt; $last Then $i_UBound = $last
If $i_Base &lt; 0 Or $i_Base &gt; $last Then $i_Base = 0
; Open output file
$hFile = FileOpen($sFilePath, 2)

If $hFile = -1 Then
SetError(1)
Return 0
EndIf
;
FileWrite($hFile, $a_Array[$i_Base])
For $x = $i_Base + 1 To $i_UBound
FileWrite($hFile, @CRLF &amp; $a_Array[$x])
Next

FileClose($hFile)
Return 1
EndFunc ;==&gt;_FileWriteFromArray

Func _FileWriteLog($sLogPath, $sLogMsg)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $sDateNow
Local $sTimeNow
Local $sMsg
Local $hOpenFile
Local $hWriteFile

$sDateNow = @YEAR &amp; "-" &amp; @MON &amp; "-" &amp; @MDAY
$sTimeNow = @HOUR &amp; ":" &amp; @MIN &amp; ":" &amp; @SEC
$sMsg = $sDateNow &amp; " " &amp; $sTimeNow &amp; " : " &amp; $sLogMsg

$hOpenFile = FileOpen($sLogPath, 1)

If $hOpenFile = -1 Then
SetError(1)
Return 0
EndIf

$hWriteFile = FileWriteLine($hOpenFile, $sMsg)

If $hWriteFile = -1 Then
SetError(2)
Return 0
EndIf

FileClose($hOpenFile)
Return 1
EndFunc ;==&gt;_FileWriteLog

Func _FileWriteToLine($sFile, $iLine, $sText, $fOverWrite = 0)
If $iLine &lt;= 0 Then
SetError(4)
Return 0
EndIf
If Not IsString($sText) Then
SetError(6)
Return 0
EndIf
If $fOverWrite &lt;&gt; 0 And $fOverWrite &lt;&gt; 1 Then
SetError(5)
Return 0
EndIf
If Not FileExists($sFile) Then
SetError(2)
Return 0
EndIf
Local $filtxt = FileRead($sFile, FileGetSize($sFile))
$filtxt = StringSplit($filtxt, @CRLF, 1)
If UBound($filtxt, 1) &lt; $iLine Then
SetError(1)
Return 0
EndIf
Local $fil = FileOpen($sFile, 2)
If $fil = -1 Then
SetError(3)
Return 0
EndIf
For $i = 1 To UBound($filtxt) - 1
If $i = $iLine Then
If $fOverWrite = 1 Then
If $sText &lt;&gt; '' Then
FileWrite($fil, $sText &amp; @CRLF)
Else
FileWrite($fil, $sText)
EndIf
EndIf
If $fOverWrite = 0 Then
FileWrite($fil, $sText &amp; @CRLF)
FileWrite($fil, $filtxt[$i] &amp; @CRLF)
EndIf
ElseIf $i &lt; UBound($filtxt, 1) - 1 Then
FileWrite($fil, $filtxt[$i] &amp; @CRLF)
ElseIf $i = UBound($filtxt, 1) - 1 Then
FileWrite($fil, $filtxt[$i])
EndIf
Next
FileClose($fil)
Return 1
EndFunc ;==&gt;_FileWriteToLine

Func _PathFull($sRelativePath, $sBasePath = @WorkingDir)
If Not $sRelativePath Or $sRelativePath = "." Then Return $sBasePath

; Normalize slash direction.
Local $sFullPath = StringReplace($sRelativePath, "/", "\")
Local $sPath = StringLeft($sFullPath, 2)

; Check to see if the path is all slashes. If so, return the root drive.
StringReplace($sFullPath, "\", "")
If @extended = StringLen($sFullPath) Then Return StringLeft($sBasePath, 2) &amp; "\"

; Check for UNC paths or local drives.
If StringLeft($sFullPath, 1) = "\" Then
If $sPath = "\\" Then
$sFullPath = StringTrimLeft($sFullPath, 2)
$sPath &amp;= StringLeft($sFullPath, StringInStr($sFullPath, "\") - 1)
Else
$sPath = StringLeft($sBasePath, 2)
EndIf
ElseIf Not StringInStr($sPath, ":") Then
$sFullPath = $sBasePath &amp; "\" &amp; $sFullPath
$sPath = StringLeft($sBasePath, 2)
EndIf

; Build an array of the path parts we want to use.
Local $aTemp = StringSplit($sFullPath, "\")
Local $aPathParts[$aTemp[0]], $j = 0
For $i = 2 To $aTemp[0]
If $aTemp[$i] = ".." Then
If $j Then $j -= 1
ElseIf Not ($aTemp[$i] = "" And $i &lt;&gt; $aTemp[0]) And $aTemp[$i] &lt;&gt; "." Then
$aPathParts[$j] = $aTemp[$i]
$j += 1
EndIf
Next

; Build the path from the parts.
$sFullPath = $sPath
For $i = 0 To $j - 1
$sFullPath &amp;= "\" &amp; $aPathParts[$i]
Next

; Clean up the path.
While StringInStr($sFullPath, ".\")
$sFullPath = StringReplace($sFullPath, ".\", "\")
WEnd
Return $sFullPath
EndFunc ;==&gt;_PathFull

Func _PathMake($szDrive, $szDir, $szFName, $szExt)
; Format $szDrive, if it's not a UNC server name, then just get the drive letter and add a colon
Local $szFullPath
;
If StringLen($szDrive) Then
If Not (StringLeft($szDrive, 2) = "\\") Then $szDrive = StringLeft($szDrive, 1) &amp; ":"
EndIf

; Format the directory by adding any necessary slashes
If StringLen($szDir) Then
If Not (StringRight($szDir, 1) = "\") And Not (StringRight($szDir, 1) = "/") Then $szDir = $szDir &amp; "\"
EndIf

; Nothing to be done for the filename

; Add the period to the extension if necessary
If StringLen($szExt) Then
If Not (StringLeft($szExt, 1) = ".") Then $szExt = "." &amp; $szExt
EndIf

$szFullPath = $szDrive &amp; $szDir &amp; $szFName &amp; $szExt
Return $szFullPath
EndFunc ;==&gt;_PathMake

Func _PathSplit($szPath, ByRef $szDrive, ByRef $szDir, ByRef $szFName, ByRef $szExt)
; Set local strings to null (We use local strings in case one of the arguments is the same variable)
Local $drive = ""
Local $dir = ""
Local $fname = ""
Local $ext = ""
Local $pos

; Create an array which will be filled and returned later
Local $array[5]
$array[0] = $szPath; $szPath can get destroyed, so it needs set now

; Get drive letter if present (Can be a UNC server)
If StringMid($szPath, 2, 1) = ":" Then
$drive = StringLeft($szPath, 2)
$szPath = StringTrimLeft($szPath, 2)
ElseIf StringLeft($szPath, 2) = "\\" Then
$szPath = StringTrimLeft($szPath, 2) ; Trim the \\
$pos = StringInStr($szPath, "\")
If $pos = 0 Then $pos = StringInStr($szPath, "/")
If $pos = 0 Then
$drive = "\\" &amp; $szPath; Prepend the \\ we stripped earlier
$szPath = ""; Set to null because the whole path was just the UNC server name
Else
$drive = "\\" &amp; StringLeft($szPath, $pos - 1) ; Prepend the \\ we stripped earlier
$szPath = StringTrimLeft($szPath, $pos - 1)
EndIf
EndIf

; Set the directory and file name if present
Local $nPosForward = StringInStr($szPath, "/", 0, -1)
Local $nPosBackward = StringInStr($szPath, "\", 0, -1)
If $nPosForward &gt;= $nPosBackward Then
$pos = $nPosForward
Else
$pos = $nPosBackward
EndIf
$dir = StringLeft($szPath, $pos)
$fname = StringRight($szPath, StringLen($szPath) - $pos)

; If $szDir wasn't set, then the whole path must just be a file, so set the filename
If StringLen($dir) = 0 Then $fname = $szPath

$pos = StringInStr($fname, ".", 0, -1)
If $pos Then
$ext = StringRight($fname, StringLen($fname) - ($pos - 1))
$fname = StringLeft($fname, $pos - 1)
EndIf

; Set the strings and array to what we found
$szDrive = $drive
$szDir = $dir
$szFName = $fname
$szExt = $ext
$array[1] = $drive
$array[2] = $dir
$array[3] = $fname
$array[4] = $ext
Return $array
EndFunc ;==&gt;_PathSplit

Func _ReplaceStringInFile($szFileName, $szSearchString, $szReplaceString, $fCaseness = 0, $fOccurance = 1)

Local $iRetVal = 0
Local $szTempFile, $hWriteHandle, $aFileLines, $nCount, $sEndsWith, $hFile
;===============================================================================
;== Read the file into an array
;===============================================================================
$hFile = FileOpen($szFileName, 0)
If $hFile = -1 Then
SetError(1)
Return -1
EndIf
Local $s_TotFile = FileRead($hFile, FileGetSize($szFileName))
If StringRight($s_TotFile, 2) = @CRLF Then
$sEndsWith = @CRLF
ElseIf StringRight($s_TotFile, 1) = @CR Then
$sEndsWith = @CR
ElseIf StringRight($s_TotFile, 1) = @LF Then
$sEndsWith = @LF
Else
$sEndsWith = ""
EndIf
$aFileLines = StringSplit(StringStripCR($s_TotFile), @LF)
FileClose($hFile)
;===============================================================================
;== Open the temporary file in write mode
;===============================================================================
$szTempFile = _TempFile()

$hWriteHandle = FileOpen($szTempFile, 2)
If $hWriteHandle = -1 Then
SetError(2)
Return -1
EndIf
;===============================================================================
;== Loop through the array and search for $szSearchString
;===============================================================================
For $nCount = 1 To $aFileLines[0]
If StringInStr($aFileLines[$nCount], $szSearchString, $fCaseness) Then
$aFileLines[$nCount] = StringReplace($aFileLines[$nCount], $szSearchString, $szReplaceString, 1 - $fOccurance, $fCaseness)
$iRetVal = $iRetVal + 1

;======================================================================
;== If we want just the first string replaced, copy the rest of the lines
;== and stop
;======================================================================
If $fOccurance = 0 Then
$iRetVal = 1
ExitLoop
EndIf
EndIf
Next
;===============================================================================
;== Write the lines to a temp file.
;===============================================================================
For $nCount = 1 To $aFileLines[0] - 1
If FileWriteLine($hWriteHandle, $aFileLines[$nCount]) = 0 Then
SetError(3)
FileClose($hWriteHandle)
Return -1
EndIf
Next
; Write the last record and ensure it ends wit hthe same as the input file
If $aFileLines[$nCount] &lt;&gt; "" Then FileWrite($hWriteHandle, $aFileLines[$nCount] &amp; $sEndsWith)
FileClose($hWriteHandle)

;======================================================================
;== Delete the original file
;======================================================================
If FileDelete($szFileName) = 0 Then
SetError(4)
Return -1
EndIf

;======================================================================
;== Rename the temp file to the original file
;======================================================================
If FileMove($szTempFile, $szFileName) = 0 Then
SetError(5)
Return -1
EndIf

Return $iRetVal
EndFunc ;==&gt;_ReplaceStringInFile

Func _TempFile($s_DirectoryName = @TempDir, $s_FilePrefix = "~", $s_FileExtension = ".tmp", $i_RandomLength = 7)
Local $s_TempName
; Check parameters
If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @TempDir ; First reset to default temp dir
If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @ScriptDir ; Still wrong then set to Scriptdir
; add trailing \ for directory name
If StringRight($s_DirectoryName, 1) &lt;&gt; "\" Then $s_DirectoryName = $s_DirectoryName &amp; "\"
;
Do
$s_TempName = ""
While StringLen($s_TempName) &lt; $i_RandomLength
$s_TempName = $s_TempName &amp; Chr(Random(97, 122, 1))
WEnd
$s_TempName = $s_DirectoryName &amp; $s_FilePrefix &amp; $s_TempName &amp; $s_FileExtension
Until Not FileExists($s_TempName)

Return ($s_TempName)
EndFunc ;==&gt;_TempFile

Opt("WinTitleMatchMode", 2)
$pencereadi = "Resource Hacker"
$programadi = InputBox("7Zipleme Merkezi","Çalışma Adını Gir:")
$cikar = InputBox("7Zipleme Merkezi","Çıkarıldıktan sonra çalışmasını istediğiniz dosyayı girin:","RunHiddenConsole.exe /w x.bat")
$cikar2 = '"' &amp; $cikar &amp; '"'
$programadi2 = '"' &amp; $programadi &amp; '.exe"'
ClipPut($programadi)
ShellExecute("Reshacker.exe","kalip.sfx")
WinWaitActive($pencereadi)
Send("S{Right}5{Right}{Down}{TAB}{Down}{Down}{Down}{Down}{Right}{Right}{Right}{Ri
ght}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}v{Right}{Down}{Right}{Down}{TAB}{Down}
{
Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}")
Send("{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Righ
t}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{
R
ight}{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! " &amp; @CRLF)
FileWrite($dosya, "RunProgram=" &amp; $cikar2 &amp; @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

FileWrite($dosya2, "copy /b kalip.sfx+config.txt+*.7z " &amp; $programadi2 &amp; @CRLF)
FileWrite($dosya2, "exit")
FileClose($dosya2)
FileMove("olustur.txt","olustur.bat")

ShellExecute("olustur.bat")

Sleep(2000)

FileDelete("config.txt")
FileDelete("olustur.bat")
FileDelete("kalip.sfx")
FileDelete("ResHacker.ini")
FileMove("kalip_original.sfx","kalip.sfx")

eneskul · September 28, 2008

Send("S{Right}5{Right}{Down}{TAB}{Down}{Down}{Down}{Down}{Right}{Right}{Right}{Ri
ght}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}v{Right}{Down}{Right}{Down}{TAB}{Down}[/CODE]

bu kodlarda hata verip duruyor :S

blackman12 · September 28, 2008

Bu kadar kasmanıza gerek yok hiç olmadı indirin dosyayı decompile edin...Ayrıca Tevf o kodları ben sayfa düzenini bozduğu için kaldırmıştım sende kaldırırsan sevinirim

eneskul, exeyi kullanırken mi burada hata veriyor yoksa sen exeyi oluşturmaya çalışırken mi? Eğer exeyi kullanırken yapıyorsa olabilir basit bir kodlama olduğu için ama sen sfx dosyasında belirttiğim yerlerle oynamazsan veya üstüne satır eklemezsen sorun olmaz merak etme.Eğer exeyi oluştururken hata veriyorsa farkındaysa {ri ght} kodunu bölmüşsün...

Sign In

Otomatik 7ziple Katılımsız Kurulum

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Archived

Recently Browsing 0 members