blackman12 Posted September 27, 2008 Share Posted 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}{Right}{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}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{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ı") ExitEndIfFileWrite($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ı") ExitEndIfFileWrite($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] Link to comment Share on other sites More sharing options...
eneskul Posted September 27, 2008 Share Posted September 27, 2008 AutoIt kodlamalarını yemedi Link to comment Share on other sites More sharing options...
tayfundinho10 Posted September 27, 2008 Share Posted September 27, 2008 Blackman12 Bunun videolu anlatımını yapar mısınnn Link to comment Share on other sites More sharing options...
blackman12 Posted September 27, 2008 Author Share Posted September 27, 2008 @tayfundinho10 yuh artık katılımsız programın da mı videosunu çekicez? Link to comment Share on other sites More sharing options...
ajan_21 Posted September 27, 2008 Share Posted 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.. Link to comment Share on other sites More sharing options...
eneskul Posted September 27, 2008 Share Posted September 27, 2008 @Blackman12 olmuyor bu AutoIt İle codlarla yaptım ama hata veriyor... bi de senin verdiğin gibi olmadı Link to comment Share on other sites More sharing options...
TEVF Posted September 27, 2008 Share Posted 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!! Link to comment Share on other sites More sharing options...
gavara Posted September 27, 2008 Share Posted 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] Link to comment Share on other sites More sharing options...
blackman12 Posted September 27, 2008 Author Share Posted 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... Link to comment Share on other sites More sharing options...
blackman12 Posted September 27, 2008 Author Share Posted 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. Link to comment Share on other sites More sharing options...
TEVF Posted September 27, 2008 Share Posted 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 ;==>_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 ;==>_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, ">")) Or (StringInStr($sFilter, "<")) 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 & "\" & $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 & "\" & $sFile), "D") <> 0 Then ContinueLoop If $iFlag = 2 And StringInStr(FileGetAttrib($sPath & "\" & $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 ;==>_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] > 32 And Not @error Then Return 1 Else SetError($a_Ret[0]) Return 0 EndIf EndFunc ;==>_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 ;==>_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 < 1 Or $i_UBound > $last Then $i_UBound = $last If $i_Base < 0 Or $i_Base > $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 & $a_Array[$x]) Next FileClose($hFile) Return 1 EndFunc ;==>_FileWriteFromArray Func _FileWriteLog($sLogPath, $sLogMsg) ;============================================== ; Local Constant/Variable Declaration Section ;============================================== Local $sDateNow Local $sTimeNow Local $sMsg Local $hOpenFile Local $hWriteFile $sDateNow = @YEAR & "-" & @MON & "-" & @MDAY $sTimeNow = @HOUR & ":" & @MIN & ":" & @SEC $sMsg = $sDateNow & " " & $sTimeNow & " : " & $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 ;==>_FileWriteLog Func _FileWriteToLine($sFile, $iLine, $sText, $fOverWrite = 0) If $iLine <= 0 Then SetError(4) Return 0 EndIf If Not IsString($sText) Then SetError(6) Return 0 EndIf If $fOverWrite <> 0 And $fOverWrite <> 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) < $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 <> '' Then FileWrite($fil, $sText & @CRLF) Else FileWrite($fil, $sText) EndIf EndIf If $fOverWrite = 0 Then FileWrite($fil, $sText & @CRLF) FileWrite($fil, $filtxt[$i] & @CRLF) EndIf ElseIf $i < UBound($filtxt, 1) - 1 Then FileWrite($fil, $filtxt[$i] & @CRLF) ElseIf $i = UBound($filtxt, 1) - 1 Then FileWrite($fil, $filtxt[$i]) EndIf Next FileClose($fil) Return 1 EndFunc ;==>_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) & "\" ; Check for UNC paths or local drives. If StringLeft($sFullPath, 1) = "\" Then If $sPath = "\\" Then $sFullPath = StringTrimLeft($sFullPath, 2) $sPath &= StringLeft($sFullPath, StringInStr($sFullPath, "\") - 1) Else $sPath = StringLeft($sBasePath, 2) EndIf ElseIf Not StringInStr($sPath, ":") Then $sFullPath = $sBasePath & "\" & $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 <> $aTemp[0]) And $aTemp[$i] <> "." Then $aPathParts[$j] = $aTemp[$i] $j += 1 EndIf Next ; Build the path from the parts. $sFullPath = $sPath For $i = 0 To $j - 1 $sFullPath &= "\" & $aPathParts[$i] Next ; Clean up the path. While StringInStr($sFullPath, ".\") $sFullPath = StringReplace($sFullPath, ".\", "\") WEnd Return $sFullPath EndFunc ;==>_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) & ":" 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 & "\" 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 = "." & $szExt EndIf $szFullPath = $szDrive & $szDir & $szFName & $szExt Return $szFullPath EndFunc ;==>_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 = "\\" & $szPath; Prepend the \\ we stripped earlier $szPath = ""; Set to null because the whole path was just the UNC server name Else $drive = "\\" & 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 >= $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 ;==>_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] <> "" Then FileWrite($hWriteHandle, $aFileLines[$nCount] & $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 ;==>_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) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" ; Do $s_TempName = "" While StringLen($s_TempName) < $i_RandomLength $s_TempName = $s_TempName & Chr(Random(97, 122, 1)) WEnd $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension Until Not FileExists($s_TempName) Return ($s_TempName) EndFunc ;==>_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 = '"' & $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") Link to comment Share on other sites More sharing options...
eneskul Posted September 28, 2008 Share Posted September 28, 2008 Send("S{Right}5{Right}{Down}{TAB}{Down}{Down}{Down}{Down}{Right}{Right}{Right}{Right}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}v{Right}{Down}{Right}{Down}{TAB}{Down}[/CODE] bu kodlarda hata verip duruyor :S Link to comment Share on other sites More sharing options...
blackman12 Posted September 28, 2008 Author Share Posted 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... Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.