x_files_x Posted May 15, 2013 Share Posted May 15, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted May 15, 2013 Share Posted May 15, 2013 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 :) Quote Link to comment Share on other sites More sharing options...
x_files_x Posted May 15, 2013 Author Share Posted May 15, 2013 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 Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted May 15, 2013 Share Posted May 15, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
x_files_x Posted May 15, 2013 Author Share Posted May 15, 2013 Tşkler :) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.