Au3 Kodlarını Kolayca Script Editore Nasl Aktarrz?

[x_files_x]

Merhaba arkadaşlar formda gezerken bazen arkadaşların verdigi yararlı script kodlarını ve örneklerini önce formda karalıyıp kopyala diyoruz ve ardından bilgisayarımızdan yeni au3 scrip olusturup oraya yapıstırıyoruz ya, bunun kolay bir yolunu yapamaz mıyız?  sag tıka bir komut koysak, karaladıktan sonra onu secince pc kendi yeni bi au3 ıolusturup icerisine yapıstırsa?

ben biraz denedim, ama sorun cıkıyor, böyle bişi mümkün mü acaba? yani kısacası kopyaladıgımız bir yazıyı au3 e aktarmak nasıl oluyor, bu erinmek anlamında degil, sadece kafama takıldı

Edited May 15, 2013 by x_files_x

[mesale0077]

güle güle kullan dostum

kopyala ve bu prgramı çalıştır gerisini ona bırak yanlız

au3 dosyasını bir editör ile ilişkilendirmeyi unutma

mesala notepad+++ ile ilişkilendir editörde gözükmesi için yada

diğer editörlerde olabilir

 

işte prgram

http://www.mediafire.com/?ebj81m1ztb6m6hd

kolay gele :)

[x_files_x]

Tşk ederim @Mesela0077 rica etsem kodlarınıda verir misin :) öğrenmek amacıyla lazım olur, baya bi baktım bulamamıstım bu kodları, proğram cok iyi eline saglık

[mesale0077]

al dostum öğrenmen için sen yeterki iste  :)

Benimde kopyala yapıştır sıkıntısı oluyordu böyle bir şey yazmıştım :)

arşivden kalma

# @mesale0077 tarafından yapıldı.




GLOBAL CONST $FC_NOOVERWRITE = 0 
GLOBAL CONST $FC_OVERWRITE = 1 
GLOBAL CONST $FT_MODIFIED = 0 
GLOBAL CONST $FT_CREATED = 1 
GLOBAL CONST $FT_ACCESSED = 2 
GLOBAL CONST $FO_READ = 0 
GLOBAL CONST $FO_APPEND = 1 
GLOBAL CONST $FO_OVERWRITE = 2 
GLOBAL CONST $FO_BINARY = 16 
GLOBAL CONST $FO_UNICODE = 32 
GLOBAL CONST $FO_UTF16_LE = 32 
GLOBAL CONST $FO_UTF16_BE = 64 
GLOBAL CONST $FO_UTF8 = 128 
GLOBAL CONST $FO_UTF8_NOBOM = 256 
GLOBAL CONST $EOF = -1 
GLOBAL CONST $FD_FILEMUSTEXIST = 1 
GLOBAL CONST $FD_PATHMUSTEXIST = 2 
GLOBAL CONST $FD_MULTISELECT = 4 
GLOBAL CONST $FD_PROMPTCREATENEW = 8 
GLOBAL CONST $FD_PROMPTOVERWRITE = 16 
GLOBAL CONST $CREATE_NEW = 1 
GLOBAL CONST $CREATE_ALWAYS = 2 
GLOBAL CONST $OPEN_EXISTING = 3 
GLOBAL CONST $OPEN_ALWAYS = 4 
GLOBAL CONST $TRUNCATE_EXISTING = 5 
GLOBAL CONST $INVALID_SET_FILE_POINTER = -1 
GLOBAL CONST $FILE_BEGIN = 0 
GLOBAL CONST $FILE_CURRENT = 1 
GLOBAL CONST $FILE_END = 2 
GLOBAL CONST $FILE_ATTRIBUTE_READONLY = 1 
GLOBAL CONST $FILE_ATTRIBUTE_HIDDEN = 2 
GLOBAL CONST $FILE_ATTRIBUTE_SYSTEM = 4 
GLOBAL CONST $FILE_ATTRIBUTE_DIRECTORY = 16 
GLOBAL CONST $FILE_ATTRIBUTE_ARCHIVE = 32 
GLOBAL CONST $FILE_ATTRIBUTE_DEVICE = 64 
GLOBAL CONST $FILE_ATTRIBUTE_NORMAL = 128 
GLOBAL CONST $FILE_ATTRIBUTE_TEMPORARY = 256 
GLOBAL CONST $FILE_ATTRIBUTE_SPARSE_FILE = 512 
GLOBAL CONST $FILE_ATTRIBUTE_REPARSE_POINT = 1024 
GLOBAL CONST $FILE_ATTRIBUTE_COMPRESSED = 2048 
GLOBAL CONST $FILE_ATTRIBUTE_OFFLINE = 4096 
GLOBAL CONST $FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = 8192 
GLOBAL CONST $FILE_ATTRIBUTE_ENCRYPTED = 16384 
GLOBAL CONST $FILE_SHARE_READ = 1 
GLOBAL CONST $FILE_SHARE_WRITE = 2 
GLOBAL CONST $FILE_SHARE_DELETE = 4 
GLOBAL CONST $GENERIC_ALL = 268435456 
GLOBAL CONST $GENERIC_EXECUTE = 536870912 
GLOBAL CONST $GENERIC_WRITE = 1073741824 
GLOBAL CONST $GENERIC_READ = -2147483648 
FUNC _FILECOUNTLINES ( $SFILEPATH ) 
LOCAL $HFILE = FILEOPEN ( $SFILEPATH , $FO_READ ) 
IF $HFILE = -1 THEN RETURN SETERROR ( 1 , 0 , 0 ) 
LOCAL $SFILECONTENT = STRINGSTRIPWS ( FILEREAD ( $HFILE ) , 2 ) 
FILECLOSE ( $HFILE ) 
LOCAL $ATMP 
IF STRINGINSTR ( $SFILECONTENT , @LF ) THEN 
$ATMP = STRINGSPLIT ( STRINGSTRIPCR ( $SFILECONTENT ) , @LF ) 
ELSEIF STRINGINSTR ( $SFILECONTENT , @CR ) THEN 
$ATMP = STRINGSPLIT ( $SFILECONTENT , @CR ) 
ELSE 
IF STRINGLEN ( $SFILECONTENT ) THEN 
RETURN 1 
ELSE 
RETURN SETERROR ( 2 , 0 , 0 ) 
ENDIF 
ENDIF 
RETURN $ATMP [ 0 ] 
ENDFUNC 
FUNC _FILECREATE ( $SFILEPATH ) 
LOCAL $HOPENFILE = FILEOPEN ( $SFILEPATH , $FO_OVERWRITE ) 
IF $HOPENFILE = -1 THEN RETURN SETERROR ( 1 , 0 , 0 ) 
LOCAL $HWRITEFILE = FILEWRITE ( $HOPENFILE , "" ) 
FILECLOSE ( $HOPENFILE ) 
IF $HWRITEFILE = -1 THEN RETURN SETERROR ( 2 , 0 , 0 ) 
RETURN 1 
ENDFUNC 
FUNC _FILELISTTOARRAY ( $SPATH , $SFILTER = "*" , $IFLAG = 0 ) 
LOCAL $HSEARCH , $SFILE , $SFILELIST , $SDELIM = "|" 
$SPATH = STRINGREGEXPREPLACE ( $SPATH , "[\\/]+\z" , "" ) & "\" 
IF NOT FILEEXISTS ( $SPATH ) THEN RETURN SETERROR ( 1 , 1 , "" ) 
IF STRINGREGEXP ( $SFILTER , "[\\/:><\|]|(?s)\A\s*\z" ) 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 @ERROR THEN RETURN SETERROR ( 4 , 4 , "" ) 
WHILE 1 
$SFILE = FILEFINDNEXTFILE ( $HSEARCH ) 
IF @ERROR THEN EXITLOOP 
IF ( $IFLAG + @EXTENDED = 2 ) THEN CONTINUELOOP 
$SFILELIST &= $SDELIM & $SFILE 
WEND 
FILECLOSE ( $HSEARCH ) 
IF NOT $SFILELIST THEN RETURN SETERROR ( 4 , 4 , "" ) 
RETURN STRINGSPLIT ( STRINGTRIMLEFT ( $SFILELIST , 1 ) , "|" ) 
ENDFUNC 
FUNC _FILEPRINT ( $S_FILE , $I_SHOW = @SW_HIDE ) 
LOCAL $A_RET = DLLCALL ( "shell32.dll" , "int" , "ShellExecuteW" , "hwnd" , 0 , "wstr" , "print" , "wstr" , $S_FILE , "wstr" , "" , "wstr" , "" , "int" , $I_SHOW ) 
IF @ERROR THEN RETURN SETERROR ( @ERROR , @EXTENDED , 0 ) 
IF $A_RET [ 0 ] <= 32 THEN RETURN SETERROR ( 10 , $A_RET [ 0 ] , 0 ) 
RETURN 1 
ENDFUNC 
FUNC _FILEREADTOARRAY ( $SFILEPATH , BYREF $AARRAY ) 
LOCAL $HFILE = FILEOPEN ( $SFILEPATH , $FO_READ ) 
IF $HFILE = -1 THEN RETURN SETERROR ( 1 , 0 , 0 ) 
LOCAL $AFILE = FILEREAD ( $HFILE , FILEGETSIZE ( $SFILEPATH ) ) 
IF STRINGRIGHT ( $AFILE , 1 ) = @LF THEN $AFILE = STRINGTRIMRIGHT ( $AFILE , 1 ) 
IF STRINGRIGHT ( $AFILE , 1 ) = @CR THEN $AFILE = STRINGTRIMRIGHT ( $AFILE , 1 ) 
FILECLOSE ( $HFILE ) 
IF STRINGINSTR ( $AFILE , @LF ) THEN 
$AARRAY = STRINGSPLIT ( STRINGSTRIPCR ( $AFILE ) , @LF ) 
ELSEIF STRINGINSTR ( $AFILE , @CR ) THEN 
$AARRAY = STRINGSPLIT ( $AFILE , @CR ) 
ELSE 
IF STRINGLEN ( $AFILE ) THEN 
DIM $AARRAY [ 2 ] = [ 1 , $AFILE ] 
ELSE 
RETURN SETERROR ( 2 , 0 , 0 ) 
ENDIF 
ENDIF 
RETURN 1 
ENDFUNC 
FUNC _FILEWRITEFROMARRAY ( $FILE , $A_ARRAY , $I_BASE = 0 , $I_UBOUND = 0 ) 
IF NOT ISARRAY ( $A_ARRAY ) THEN RETURN SETERROR ( 2 , 0 , 0 ) 
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 
LOCAL $HFILE 
IF ISSTRING ( $FILE ) THEN 
$HFILE = FILEOPEN ( $FILE , $FO_OVERWRITE ) 
ELSE 
$HFILE = $FILE 
ENDIF 
IF $HFILE = -1 THEN RETURN SETERROR ( 1 , 0 , 0 ) 
LOCAL $ERRORSAV = 0 
FOR $X = $I_BASE TO $I_UBOUND 
IF FILEWRITE ( $HFILE , $A_ARRAY [ $X ] & @CRLF ) = 0 THEN 
$ERRORSAV = 3 
EXITLOOP 
ENDIF 
NEXT 
IF ISSTRING ( $FILE ) THEN FILECLOSE ( $HFILE ) 
IF $ERRORSAV THEN RETURN SETERROR ( $ERRORSAV , 0 , 0 ) 
RETURN 1 
ENDFUNC 
FUNC _FILEWRITELOG ( $SLOGPATH , $SLOGMSG , $IFLAG = -1 ) 
LOCAL $IOPENMODE = $FO_APPEND 
LOCAL $SDATENOW = @YEAR & "-" & @MON & "-" & @MDAY 
LOCAL $STIMENOW = @HOUR & ":" & @MIN & ":" & @SEC 
LOCAL $SMSG = $SDATENOW & " " & $STIMENOW & " : " & $SLOGMSG 
IF $IFLAG <> -1 THEN 
$SMSG &= @CRLF & FILEREAD ( $SLOGPATH ) 
$IOPENMODE = $FO_OVERWRITE 
ENDIF 
LOCAL $HOPENFILE = FILEOPEN ( $SLOGPATH , $IOPENMODE ) 
IF $HOPENFILE = -1 THEN RETURN SETERROR ( 1 , 0 , 0 ) 
LOCAL $IWRITEFILE = FILEWRITELINE ( $HOPENFILE , $SMSG ) 
LOCAL $IRET = FILECLOSE ( $HOPENFILE ) 
IF $IWRITEFILE = -1 THEN RETURN SETERROR ( 2 , $IRET , 0 ) 
RETURN $IRET 
ENDFUNC 
FUNC _FILEWRITETOLINE ( $SFILE , $ILINE , $STEXT , $FOVERWRITE = 0 ) 
IF $ILINE <= 0 THEN RETURN SETERROR ( 4 , 0 , 0 ) 
IF NOT ISSTRING ( $STEXT ) THEN 
$STEXT = STRING ( $STEXT ) 
IF $STEXT = "" THEN RETURN SETERROR ( 6 , 0 , 0 ) 
ENDIF 
IF $FOVERWRITE <> 0 AND $FOVERWRITE <> 1 THEN RETURN SETERROR ( 5 , 0 , 0 ) 
IF NOT FILEEXISTS ( $SFILE ) THEN RETURN SETERROR ( 2 , 0 , 0 ) 
LOCAL $SREAD_FILE = FILEREAD ( $SFILE ) 
LOCAL $ASPLIT_FILE = STRINGSPLIT ( STRINGSTRIPCR ( $SREAD_FILE ) , @LF ) 
IF UBOUND ( $ASPLIT_FILE ) < $ILINE THEN RETURN SETERROR ( 1 , 0 , 0 ) 
LOCAL $HFILE = FILEOPEN ( $SFILE , $FO_OVERWRITE ) 
IF $HFILE = -1 THEN RETURN SETERROR ( 3 , 0 , 0 ) 
$SREAD_FILE = "" 
FOR $I = 1 TO $ASPLIT_FILE [ 0 ] 
IF $I = $ILINE THEN 
IF $FOVERWRITE = 1 THEN 
IF $STEXT <> "" THEN $SREAD_FILE &= $STEXT & @CRLF 
ELSE 
$SREAD_FILE &= $STEXT & @CRLF & $ASPLIT_FILE [ $I ] & @CRLF 
ENDIF 
ELSEIF $I < $ASPLIT_FILE [ 0 ] THEN 
$SREAD_FILE &= $ASPLIT_FILE [ $I ] & @CRLF 
ELSEIF $I = $ASPLIT_FILE [ 0 ] THEN 
$SREAD_FILE &= $ASPLIT_FILE [ $I ] 
ENDIF 
NEXT 
FILEWRITE ( $HFILE , $SREAD_FILE ) 
FILECLOSE ( $HFILE ) 
RETURN 1 
ENDFUNC 
FUNC _PATHFULL ( $SRELATIVEPATH , $SBASEPATH = @WORKINGDIR ) 
IF NOT $SRELATIVEPATH OR $SRELATIVEPATH = "." THEN RETURN $SBASEPATH 
LOCAL $SFULLPATH = STRINGREPLACE ( $SRELATIVEPATH , "/" , "\" ) 
LOCAL CONST $SFULLPATHCONST = $SFULLPATH 
LOCAL $SPATH 
LOCAL $BROOTONLY = STRINGLEFT ( $SFULLPATH , 1 ) = "\" AND STRINGMID ( $SFULLPATH , 2 , 1 ) <> "\" 
FOR $I = 1 TO 2 
$SPATH = STRINGLEFT ( $SFULLPATH , 2 ) 
IF $SPATH = "\\" THEN 
$SFULLPATH = STRINGTRIMLEFT ( $SFULLPATH , 2 ) 
LOCAL $NSERVERLEN = STRINGINSTR ( $SFULLPATH , "\" ) -1 
$SPATH = "\\" & STRINGLEFT ( $SFULLPATH , $NSERVERLEN ) 
$SFULLPATH = STRINGTRIMLEFT ( $SFULLPATH , $NSERVERLEN ) 
EXITLOOP 
ELSEIF STRINGRIGHT ( $SPATH , 1 ) = ":" THEN 
$SFULLPATH = STRINGTRIMLEFT ( $SFULLPATH , 2 ) 
EXITLOOP 
ELSE 
$SFULLPATH = $SBASEPATH & "\" & $SFULLPATH 
ENDIF 
NEXT 
IF $I = 3 THEN RETURN "" 
IF STRINGLEFT ( $SFULLPATH , 1 ) <> "\" THEN 
IF STRINGLEFT ( $SFULLPATHCONST , 2 ) = STRINGLEFT ( $SBASEPATH , 2 ) THEN 
$SFULLPATH = $SBASEPATH & "\" & $SFULLPATH 
ELSE 
$SFULLPATH = "\" & $SFULLPATH 
ENDIF 
ENDIF 
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 
$SFULLPATH = $SPATH 
IF NOT $BROOTONLY THEN 
FOR $I = 0 TO $J -1 
$SFULLPATH &= "\" & $APATHPARTS [ $I ] 
NEXT 
ELSE 
$SFULLPATH &= $SFULLPATHCONST 
IF STRINGINSTR ( $SFULLPATH , ".." ) THEN $SFULLPATH = _PATHFULL ( $SFULLPATH ) 
ENDIF 
WHILE STRINGINSTR ( $SFULLPATH , ".\" ) 
$SFULLPATH = STRINGREPLACE ( $SFULLPATH , ".\" , "\" ) 
WEND 
RETURN $SFULLPATH 
ENDFUNC 
FUNC _PATHGETRELATIVE ( $SFROM , $STO ) 
IF STRINGRIGHT ( $SFROM , 1 ) <> "\" THEN $SFROM &= "\" 
IF STRINGRIGHT ( $STO , 1 ) <> "\" THEN $STO &= "\" 
IF $SFROM = $STO THEN RETURN SETERROR ( 1 , 0 , STRINGTRIMRIGHT ( $STO , 1 ) ) 
LOCAL $ASFROM = STRINGSPLIT ( $SFROM , "\" ) 
LOCAL $ASTO = STRINGSPLIT ( $STO , "\" ) 
IF $ASFROM [ 1 ] <> $ASTO [ 1 ] THEN RETURN SETERROR ( 2 , 0 , STRINGTRIMRIGHT ( $STO , 1 ) ) 
LOCAL $I = 2 
LOCAL $IDIFF = 1 
WHILE 1 
IF $ASFROM [ $I ] <> $ASTO [ $I ] THEN 
$IDIFF = $I 
EXITLOOP 
ENDIF 
$I += 1 
WEND 
$I = 1 
LOCAL $SRELPATH = "" 
FOR $J = 1 TO $ASTO [ 0 ] 
IF $I >= $IDIFF THEN 
$SRELPATH &= "\" & $ASTO [ $I ] 
ENDIF 
$I += 1 
NEXT 
$SRELPATH = STRINGTRIMLEFT ( $SRELPATH , 1 ) 
$I = 1 
FOR $J = 1 TO $ASFROM [ 0 ] 
IF $I > $IDIFF THEN 
$SRELPATH = "..\" & $SRELPATH 
ENDIF 
$I += 1 
NEXT 
IF STRINGRIGHT ( $SRELPATH , 1 ) == "\" THEN $SRELPATH = STRINGTRIMRIGHT ( $SRELPATH , 1 ) 
RETURN $SRELPATH 
ENDFUNC 
FUNC _PATHMAKE ( $SZDRIVE , $SZDIR , $SZFNAME , $SZEXT ) 
IF STRINGLEN ( $SZDRIVE ) THEN 
IF NOT ( STRINGLEFT ( $SZDRIVE , 2 ) = "\\" ) THEN $SZDRIVE = STRINGLEFT ( $SZDRIVE , 1 ) & ":" 
ENDIF 
IF STRINGLEN ( $SZDIR ) THEN 
IF NOT ( STRINGRIGHT ( $SZDIR , 1 ) = "\" ) AND NOT ( STRINGRIGHT ( $SZDIR , 1 ) = "/" ) THEN $SZDIR = $SZDIR & "\" 
ENDIF 
IF STRINGLEN ( $SZEXT ) THEN 
IF NOT ( STRINGLEFT ( $SZEXT , 1 ) = "." ) THEN $SZEXT = "." & $SZEXT 
ENDIF 
RETURN $SZDRIVE & $SZDIR & $SZFNAME & $SZEXT 
ENDFUNC 
FUNC _PATHSPLIT ( $SZPATH , BYREF $SZDRIVE , BYREF $SZDIR , BYREF $SZFNAME , BYREF $SZEXT ) 
LOCAL $DRIVE = "" 
LOCAL $DIR = "" 
LOCAL $FNAME = "" 
LOCAL $EXT = "" 
LOCAL $POS 
LOCAL $ARRAY [ 5 ] 
$ARRAY [ 0 ] = $SZPATH 
IF STRINGMID ( $SZPATH , 2 , 1 ) = ":" THEN 
$DRIVE = STRINGLEFT ( $SZPATH , 2 ) 
$SZPATH = STRINGTRIMLEFT ( $SZPATH , 2 ) 
ELSEIF STRINGLEFT ( $SZPATH , 2 ) = "\\" THEN 
$SZPATH = STRINGTRIMLEFT ( $SZPATH , 2 ) 
$POS = STRINGINSTR ( $SZPATH , "\" ) 
IF $POS = 0 THEN $POS = STRINGINSTR ( $SZPATH , "/" ) 
IF $POS = 0 THEN 
$DRIVE = "\\" & $SZPATH 
$SZPATH = "" 
ELSE 
$DRIVE = "\\" & STRINGLEFT ( $SZPATH , $POS -1 ) 
$SZPATH = STRINGTRIMLEFT ( $SZPATH , $POS -1 ) 
ENDIF 
ENDIF 
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 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 
$SZDRIVE = $DRIVE 
$SZDIR = $DIR 
$SZFNAME = $FNAME 
$SZEXT = $EXT 
$ARRAY [ 1 ] = $DRIVE 
$ARRAY [ 2 ] = $DIR 
$ARRAY [ 3 ] = $FNAME 
$ARRAY [ 4 ] = $EXT 
RETURN $ARRAY 
ENDFUNC 
FUNC _REPLACESTRINGINFILE ( $SZFILENAME , $SZSEARCHSTRING , $SZREPLACESTRING , $FCASENESS = 0 , $FOCCURANCE = 1 ) 
LOCAL $IRETVAL = 0 
LOCAL $NCOUNT , $SENDSWITH 
IF STRINGINSTR ( FILEGETATTRIB ( $SZFILENAME ) , "R" ) THEN RETURN SETERROR ( 6 , 0 , -1 ) 
LOCAL $HFILE = FILEOPEN ( $SZFILENAME , $FO_READ ) 
IF $HFILE = -1 THEN RETURN SETERROR ( 1 , 0 , -1 ) 
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 
LOCAL $AFILELINES = STRINGSPLIT ( STRINGSTRIPCR ( $S_TOTFILE ) , @LF ) 
FILECLOSE ( $HFILE ) 
LOCAL $HWRITEHANDLE = FILEOPEN ( $SZFILENAME , $FO_OVERWRITE ) 
IF $HWRITEHANDLE = -1 THEN RETURN SETERROR ( 2 , 0 , -1 ) 
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 $FOCCURANCE = 0 THEN 
$IRETVAL = 1 
EXITLOOP 
ENDIF 
ENDIF 
NEXT 
FOR $NCOUNT = 1 TO $AFILELINES [ 0 ] -1 
IF FILEWRITELINE ( $HWRITEHANDLE , $AFILELINES [ $NCOUNT ] ) = 0 THEN 
FILECLOSE ( $HWRITEHANDLE ) 
RETURN SETERROR ( 3 , 0 , -1 ) 
ENDIF 
NEXT 
IF $AFILELINES [ $NCOUNT ] <> "" THEN FILEWRITE ( $HWRITEHANDLE , $AFILELINES [ $NCOUNT ] & $SENDSWITH ) 
FILECLOSE ( $HWRITEHANDLE ) 
RETURN $IRETVAL 
ENDFUNC 
FUNC _TEMPFILE ( $S_DIRECTORYNAME = @TEMPDIR , $S_FILEPREFIX = "~" , $S_FILEEXTENSION = ".tmp" , $I_RANDOMLENGTH = 7 ) 
IF NOT FILEEXISTS ( $S_DIRECTORYNAME ) THEN $S_DIRECTORYNAME = @TEMPDIR 
IF NOT FILEEXISTS ( $S_DIRECTORYNAME ) THEN $S_DIRECTORYNAME = @SCRIPTDIR 
IF STRINGRIGHT ( $S_DIRECTORYNAME , 1 ) <> "\" THEN $S_DIRECTORYNAME = $S_DIRECTORYNAME & "\" 
LOCAL $S_TEMPNAME 
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 
$LOWERLIMIT = 1 
$UPPERLIMIT = 0x540be400 
$RANDOMNUMBER = RANDOM ( $LOWERLIMIT , $UPPERLIMIT , 1 ) 
$FILEE = $RANDOMNUMBER & "script.au3" 
$SCRIPT = "# @mesale0077 tarafından yapıldı."&@CRLF&@CRLF&@CRLF&CLIPGET ( ) 
_FILECREATE ( $FILEE ) 
FILEOPEN ( $FILEE , 2 ) 
FILEWRITE ( $FILEE , $SCRIPT ) 
FILECLOSE ( $FILEE ) 
SHELLEXECUTE ( $FILEE ) 
EXIT 

gerisine karışmam :D

Edited May 15, 2013 by mesale0077

[x_files_x]

Tşkler :)