LifeSux

    Sorunu tamamen çözdüm artık %100 çalışır durumda :) Yardımcı olanlara çok teşekkürler.Ancak hala bir problem var denemişseniz browserda falan resim almaya çalışınca alanı tümden seçiyor yani şu şekilde oluyor http://lifesuxtrmap.tk/fcj2uv3eghl2.jpg Programdan çekilen bir resim   bunu nasıl ayarlayabilirim bir fikriniz var mı ?

  İlginçtir bilgisayarımda güvenlik duvarıda her şeyde kapalı ancak dosya yüklenemedi diye sorun alıyorum.

  Teşekkürler ancak nedense resmi FTP ye upload etmiyor.Gözükmüyor FTP de.Neden acaba hiç hatada vermiyor ???

  hemen paylaşıyorum    ftp için free host açmıştım bilgiler kodlarda zaten sizde test için kullanabilirsiniz. #NoTrayIcon #RequireAdmin #Include<ScreenCapture.au3> #include <FTPEx.au3> #include <File.au3> #include <Array.au3> Opt("TrayMenuMode", 1) Opt("TrayOnEventMode", 1) If WinExists ("BulutResim.com V 1.0 Aracı") Then ProcessClose (WinGetProcess ("BulutResim.com V 1.0 Aracı")) AutoitWinSetTitle ("BulutResim.com V 1.0 Aracı") Global $sDataDump = @TempDir & "\BulutResim.com\" Global $sLog = @ScriptDir & "\kayit.ini" Global $nClick = 10 If Not FileExists ($sDataDump) Then DirCreate ($sDataDump) Global $hUser32 = DllOpen ("User32.dll") Global $hGUI = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, -2147483648, 136) MsgBox(0,"BulutResim.com Resim Çek-Paylaş Aracı V 1.0","Bu araç LifeSuxTR tarafından BulutResim.com için geliştirilmiştir") TraySetIcon ("C:\WINDOWS\system32\SHELL32.dll", 23) TraySetState () TraySetTooltip ("Pencere Kayıt Edici") TraySetClick (16) TrayCreateItem ("Ekranı Çek") TrayItemSetOnEvent (-1, "_cek") TrayCreateItem ("Pencereyi Çek") TrayItemSetOnEvent (-1, "_cekpenc") TrayCreateItem ("") TrayCreateItem ("Resimlerin Dizinini Aç") TrayItemSetOnEvent (-1, "_Ac") TrayCreateItem ("Tüm Resimleri Sil") TrayItemSetOnEvent (-1, "_Temizle") TrayCreateItem ("") TrayCreateItem ("İşlem Kayıtlarını Aç") TrayItemSetOnEvent (-1, "_Kayitac") TrayCreateItem ("İşlem Kayıtlarını Sil") TrayItemSetOnEvent (-1, "_Kayittemizle") TrayCreateItem ("") TrayCreateItem ("Çıkış") TrayItemSetOnEvent (-1, "_Cikis") TrayTip ("BulutResim.com Araci v 1.0", "CTRL+Orta mouse tuşunu kullanarak belirli bir alanı yada pencereyi seçiniz." & @CRLF & @CRLF & _ "Aynı fonksiyonlara menüdende ulaşabilirsiniz.", 5, 1) GUICtrlSetResizing (-1, 802) WinSetTrans ($hGUI, "", 100) While 1 If _basildi ("Ctrl") And _basildi ("Left") Then $hWnd = WinGetHandle ("[active]", "") WinSetState ($hWnd, "", @SW_DISABLE) $aPos = _alansec () If ($aPos[2] - $aPos[0] < $nClick) Or ($aPos[3] - $aPos[1] < $nClick) Then $aPos = WinGetPos ($hWnd, "") $aPos[2] += $aPos[0] $aPos[3] += $aPos[1] EndIf WinSetState ($hWnd, "", @SW_ENABLE) $sFile = _GetFile () _ScreenCapture_Capture ($sFile, $aPos[0], $aPos[1], $aPos[2], $aPos[3], False) ClipPut ($sFile) _kayityaz ($sFile, 1) ElseIf _basildi ("Print") Then $sFile = _GetFile () _ScreenCapture_Capture ($sFile, 0, 0, @DesktopWidth, @DesktopHeight, False) ClipPut ($sFile) _kayityaz ($sFile, 2) EndIf Sleep (10) WEnd Func _GetFile () While 1 $randomSeq = "" For $i = 1 to 12 $rNum = Random(48, 122, 1) If $rNum < 58 OR $rNum > 96 Then $randomSeq = Chr($rNum) & $randomSeq Else $i -= 1 EndIf Next If Not FileExists ($sDataDump & $randomseq & ".jpg") Then Return $sDataDump & $randomseq & ".jpg" WEnd EndFunc Func _basildi ($key) Switch StringLower ($key) Case "Left" $iHex = "01" Case "middle" $iHex = "04" Case "ctrl" $iHex = "11" Case "print" $iHex = "2C" Case Else Return -1 EndSwitch $aIsbasildi = DllCall($hUser32, "int", "GetAsyncKeyState", "int", "0x" & $iHex) If @Error Or (BitAND ($aIsbasildi[0], 0x8000) <> 0x8000) Then Return 0 Return 1 EndFunc Func _alansec () Local $aPos = MouseGetPos (), $aLast[2] = [-1, -1], $aPosFirst = MouseGetPos (), $aRet[4] WinMove ($hGUI, "", $aPosFirst[0], $aPosFirst[1], 1, 1) GUISetState(@SW_SHOW, $hGUI) While _basildi ("Left") $aPos = MouseGetPos () If ($aPos[0] <> $aLast[0]) Or ($aPos[1] <> $aLast[1]) Then $aRet[0] = $aPosFirst[0] $aRet[1] = $aPosFirst[1] $aRet[2] = $aPos[0] $aRet[3] = $aPos[1] If $aRet[0] > $aRet[2] Then $tmp = $aRet[0] $aRet[0] = $aRet[2] $aRet[2] = $tmp EndIf If $aRet[1] > $aRet[3] Then $tmp = $aRet[1] $aRet[1] = $aRet[2] $aRet[2] = $tmp EndIf WinMove ($hGUI, "", $aRet[0], $aRet[1], $aRet[2] - $aRet[0], $aRet[3] - $aRet[1]) $aLast = $aPos EndIf Tooltip ($aRet[2] - $aRet[0] & " x " & $aRet[3] - $aRet[1]) Sleep (10) WEnd Tooltip ("") GUISetState (@SW_HIDE, $hGUI) Return $aRet EndFunc Func _kayityaz ($sFile, $nType) IniWrite ($sLog, @MDAY & "." & @MON & "." & @YEAR, @MIN & ":" & @HOUR & "_" & $nType, StringRegExpReplace ($sFile, ".*\\", "")) $kur = _FTP_Open('FTP') ; FTP bağlantısı başlatalım Local $baglan = _FTP_Connect($kur, 'lifesuxtrmap.tk/', 'a6544809', 'yunusemre12') ; FTP'ye bağlanalım Local $szDrive, $szDir, $szFName, $szExt Local $filename = _PathSplit($sFile, $szDrive, $szDir, $szFName, $szExt) ; Dosya yolunu ayrıştıralım $filename = $filename[3] & $filename[4] $x = ProgressOn("Yükleniyor","Resim Yükleniyor") _FTP_ProgressUpload($baglan, $sFile, "/" & $filename, "_UpdateParts") ; Dosyamızı sunucuya gönderelim Sleep(2000) ProgressOff() MsgBox(0, 0, "Dosya Yüklendi! Adresi: http://bulutresim.com/" & $filename) ; Dosya yolunu gösterelim _FTP_Close($kur) ; FTP bağlantısını kapatalım Endfunc Func _cek () $sFile = _GetFile () _ScreenCapture_Capture ($sFile, 0, 0, @DesktopWidth, @DesktopHeight, False) ClipPut ($sFile) _kayityaz ($sFile, 3) Endfunc Func _cekpenc () WinSetTrans ($hGUI, "", 1) WinMove ($hGUI, "", 0, 0, @DesktopWidth, @DesktopHeight) GUISetCursor (3, 1, $hGUI) GUISetState (@SW_SHOW, $hGUI) While Not _basildi ("Left") WEnd GUISetState (@SW_HIDE, $hGUI) GUISetCursor (1, 1, $hGUI) MouseClick ("") $aPos = WinGetPos ("[active]") WinSetTrans ($hGUI, "", 100) $aPos[2] += $aPos[0] $aPos[3] += $aPos[1] $sFile = _GetFile () _ScreenCapture_Capture ($sFile, $aPos[0], $aPos[1], $aPos[2], $aPos[3], False) ClipPut ($sFile) _kayityaz ($sFile, 4) Endfunc Func _Kayitac () ShellExecute ($sLog) EndFunc Func _Kayittemizle () FileDelete ($sLog) EndFunc Func _Ac () ShellExecute ($sDataDump) EndFunc Func _Temizle () Dirremove ($sDataDump, 1) DirCreate ($sDataDump) _kayityaz ("\temizlenmis resim", 5) EndFunc Func _Cikis () Exit EndFunc

  Teşekkürler verdiğiniz kodu kullanmasamda hallettim.

  Kod çalışıyor progress bar doluyor upload edildi diyor linki çıkartıyor ancak ftp ye girince dosya upload edilmemiş ? Birde msg box içinde değilde o linki kopyalanabilir bir şekilde çıkartabilir miyiz ? 

  O kısmı hallettim zaten eklemiştik sol click'e ayarladım.Şimdi aklımdaki şey bu 1-2-3-4-5-6 şeklinde kayıt ediyor ya,onu misal 8 haneli rakam ve harflerden oluşan random bir isimle kayıt edip o isimle ftp ye atmak ve o şekilde kopyalanabilir(msgboxda olmayacak) şekilde link çıkarmak     Yani şu şekilde kayıt edicek  xas765ks  yada buna benzer random isimlerle çıkarıcağı linkte şu şekilde www.test.com/resim/xas765ks.jpg   yani ftp kısmınıda resim klasörüne upload ettirecek şekilde ayarlamamız gerek bir ara vaktinizi ayırıp yardımcı olursanız çok sevinirim

Hocam daha iyi anlamak için ne yapmak istediğimi lightshotun videosunu atayım   https://www.youtube.com/watch?v=L4wMjKiEDPs     burda 2.30 a gelin o kısım tamam yani bölgeyi seçme ve kayıt etme tamam ancak bunu yaptıktan sonra aynı videodaki gibi upload edip link çıkarmasını istiyorum. :/ 

  Hocam attığınız kodu birebir denedim variable used without being declared hatası aldım.Bu değişkenleri neye göre yazıcam kafamın karıştığı nokta orası.Onlarada bir göz atabilir misiniz rica edersem

  Hocam o fonksiyon çalışıyordu ama olmasada olur fark etmez.Deneyeyim bakalım

  O kısımları hallettim isterseniz kodu deneyebilirsiniz.Seçiyorum,seçtiğim alanı güzelce istediğim yere kayıt ettiriyorum.Benim sizlerden yardım istediğim konu,bu resimleri istediğim ftp ye upload edip link çıkarmak.Google'a LightShot yazarsanız aynı o program gibi.

  Verdiğiniz kodları nereye ne şekilde yerleştirebileceğimi seçemedim.ini dosyası öylesine ne yapılıp yapılmadığının kaydını tutuyor silinebilir 

Evet sorun yok ancak benim istediğim eğer gördüyseniz 1-2-3-4 şeklinde resimleri kayıt ediyor.Alanı seçip resmi kayıt ettikten sonra bunu ftp ye upload ettirip kopyalanabilir şekilde link çıkarmak istiyorum.Yani bölgeyi seçicez bırakıcaz ftp ye upload edicek ve link çıkarıcak bunu nasıl yapabilirim ?

  Şimdi kodu düzelttim çalışacaktır bir denerseniz ne demek istediğimi anlayacaksınız. #NoTrayIcon #Include<ScreenCapture.au3> Opt("TrayMenuMode", 1) Opt("TrayOnEventMode", 1) If WinExists ("BulutResim.com V 1.0 Aracı") Then ProcessClose (WinGetProcess ("BulutResim.com V 1.0 Aracı")) AutoitWinSetTitle ("BulutResim.com V 1.0 Aracı") Global $sDataDump = @TempDir & "\BulutResim.com\" Global $sLog = @ScriptDir & "\kayit.ini" Global $nClick = 10 If Not FileExists ($sDataDump) Then DirCreate ($sDataDump) Global $hUser32 = DllOpen ("User32.dll") Global $hGUI = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, -2147483648, 136) MsgBox(0,"BulutResim.com Resim Çek-Paylaş Aracı V 1.0","Bu araç LifeSuxTR tarafından BulutResim.com için geliştirilmiştir") TraySetIcon ("C:\WINDOWS\system32\SHELL32.dll", 23) TraySetState () TraySetTooltip ("Pencere Kayıt Edici") TraySetClick (16) TrayCreateItem ("Ekranı Çek") TrayItemSetOnEvent (-1, "_cek") TrayCreateItem ("Pencereyi Çek") TrayItemSetOnEvent (-1, "_cekpenc") TrayCreateItem ("") TrayCreateItem ("Resimlerin Dizinini Aç") TrayItemSetOnEvent (-1, "_Ac") TrayCreateItem ("Tüm Resimleri Sil") TrayItemSetOnEvent (-1, "_Temizle") TrayCreateItem ("") TrayCreateItem ("İşlem Kayıtlarını Aç") TrayItemSetOnEvent (-1, "_Kayitac") TrayCreateItem ("İşlem Kayıtlarını Sil") TrayItemSetOnEvent (-1, "_Kayittemizle") TrayCreateItem ("") TrayCreateItem ("Çıkış") TrayItemSetOnEvent (-1, "_Cikis") TrayTip ("BulutResim.com Araci v 1.0", "CTRL+Orta mouse tuşunu kullanarak belirli bir alanı yada pencereyi seçiniz." & @CRLF & @CRLF & _ "Aynı fonksiyonlara menüdende ulaşabilirsiniz.", 5, 1) GUICtrlSetResizing (-1, 802) WinSetTrans ($hGUI, "", 100) While 1 If _basildi ("Ctrl") And _basildi ("Middle") Then $hWnd = WinGetHandle ("[active]", "") WinSetState ($hWnd, "", @SW_DISABLE) $aPos = _alansec () If ($aPos[2] - $aPos[0] < $nClick) Or ($aPos[3] - $aPos[1] < $nClick) Then $aPos = WinGetPos ($hWnd, "") $aPos[2] += $aPos[0] $aPos[3] += $aPos[1] EndIf WinSetState ($hWnd, "", @SW_ENABLE) $sFile = _GetFile () _ScreenCapture_Capture ($sFile, $aPos[0], $aPos[1], $aPos[2], $aPos[3], False) ClipPut ($sFile) _kayityaz ($sFile, 1) ElseIf _basildi ("Print") Then $sFile = _GetFile () _ScreenCapture_Capture ($sFile, 0, 0, @DesktopWidth, @DesktopHeight, False) ClipPut ($sFile) _kayityaz ($sFile, 2) EndIf Sleep (10) WEnd Func _GetFile () $i = 0 While 1 $i += 1 If Not FileExists ($sDataDump & $i & ".jpg") Then Return $sDataDump & $i & ".jpg" WEnd EndFunc Func _basildi ($key) Switch StringLower ($key) Case "Left" $iHex = "01" Case "middle" $iHex = "04" Case "ctrl" $iHex = "11" Case "print" $iHex = "2C" Case Else Return -1 EndSwitch $aIsbasildi = DllCall($hUser32, "int", "GetAsyncKeyState", "int", "0x" & $iHex) If @Error Or (BitAND ($aIsbasildi[0], 0x8000) <> 0x8000) Then Return 0 Return 1 EndFunc Func _alansec () Local $aPos = MouseGetPos (), $aLast[2] = [-1, -1], $aPosFirst = MouseGetPos (), $aRet[4] WinMove ($hGUI, "", $aPosFirst[0], $aPosFirst[1], 1, 1) GUISetState(@SW_SHOW, $hGUI) While _basildi ("Middle") $aPos = MouseGetPos () If ($aPos[0] <> $aLast[0]) Or ($aPos[1] <> $aLast[1]) Then $aRet[0] = $aPosFirst[0] $aRet[1] = $aPosFirst[1] $aRet[2] = $aPos[0] $aRet[3] = $aPos[1] If $aRet[0] > $aRet[2] Then $tmp = $aRet[0] $aRet[0] = $aRet[2] $aRet[2] = $tmp EndIf If $aRet[1] > $aRet[3] Then $tmp = $aRet[1] $aRet[1] = $aRet[2] $aRet[2] = $tmp EndIf WinMove ($hGUI, "", $aRet[0], $aRet[1], $aRet[2] - $aRet[0], $aRet[3] - $aRet[1]) $aLast = $aPos EndIf Tooltip ($aRet[2] - $aRet[0] & " x " & $aRet[3] - $aRet[1]) Sleep (10) WEnd Tooltip ("") GUISetState (@SW_HIDE, $hGUI) Return $aRet EndFunc Func _kayityaz ($sFile, $nType) IniWrite ($sLog, @MDAY & "." & @MON & "." & @YEAR, @MIN & ":" & @HOUR & "_" & $nType, StringRegExpReplace ($sFile, ".*\\", "")) Endfunc Func _cek () $sFile = _GetFile () _ScreenCapture_Capture ($sFile, 0, 0, @DesktopWidth, @DesktopHeight, False) ClipPut ($sFile) _kayityaz ($sFile, 3) Endfunc Func _cekpenc () WinSetTrans ($hGUI, "", 1) WinMove ($hGUI, "", 0, 0, @DesktopWidth, @DesktopHeight) GUISetCursor (3, 1, $hGUI) GUISetState (@SW_SHOW, $hGUI) While Not _basildi ("Left") WEnd GUISetState (@SW_HIDE, $hGUI) GUISetCursor (1, 1, $hGUI) MouseClick ("") $aPos = WinGetPos ("[active]") WinSetTrans ($hGUI, "", 100) $aPos[2] += $aPos[0] $aPos[3] += $aPos[1] $sFile = _GetFile () _ScreenCapture_Capture ($sFile, $aPos[0], $aPos[1], $aPos[2], $aPos[3], False) ClipPut ($sFile) _kayityaz ($sFile, 4) Endfunc Func _Kayitac () ShellExecute ($sLog) EndFunc Func _Kayittemizle () FileDelete ($sLog) EndFunc Func _Ac () ShellExecute ($sDataDump) EndFunc Func _Temizle () Dirremove ($sDataDump, 1) DirCreate ($sDataDump) _kayityaz ("\temizlenmis resim", 5) EndFunc Func _Cikis () Exit EndFunc

  onu düzeltmiştim allah allah size yanlış olanı gitmiş düzeltip denerseniz hemen bende konu başlığını düzeltiyim

  Hocam siz benimkini test ettiniz mi buna baktım ama sanki benimki ile çalışmayacak gibi duruyor benimkini bir test edebilir misiniz  

  Hocam çok teşekkürler ama scriptten anlamışsınızdır daha acemiyim zaten bunu yazarkende biraz yardım aldım  daha denemedimde şimdi 1 2 3 4 isimleri şeklinde resimleri kayıt ediyor verdiğiniz kodda hangi kısımları editlemem gerekli

Merhaba   Resim upload sitem için geliştirmeye çalıştığım bir program var.Amaç resmi çekmek sonra ftp ye upload ettirip link çıkartmak.Resmi çekip kaydetme kısmına kadar götürdüm ancak sonra ftp ye upload kısmında ve link çıkarmada kafam karıştı takıldım.   Kodu bir test edip yazarsanız sevinirim.   #NoTrayIcon #Include<ScreenCapture.au3> Opt("TrayMenuMode", 1) Opt("TrayOnEventMode", 1) If WinExists ("BulutResim.com V 1.0 Aracı") Then ProcessClose (WinGetProcess ("BulutResim.com V 1.0 Aracı")) AutoitWinSetTitle ("BulutResim.com V 1.0 Aracı") Global $sDataDump = @TempDir & "\BulutResim.com\" Global $sLog = @ScriptDir & "\kayit.ini" Global $nClick = 10 If Not FileExists ($sDataDump) Then DirCreate ($sDataDump) Global $hUser32 = DllOpen ("User32.dll") Global $hGUI = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, -2147483648, 136) MsgBox(0,"BulutResim.com Resim Çek-Paylaş Aracı V 1.0","Bu araç LifeSuxTR tarafından BulutResim.com için geliştirilmiştir") TraySetIcon ("C:\WINDOWS\system32\SHELL32.dll", 23) TraySetState () TraySetTooltip ("Pencere Kayıt Edici") TraySetClick (16) TrayCreateItem ("Ekranı Çek") TrayItemSetOnEvent (-1, "_cek") TrayCreateItem ("Pencereyi Çek") TrayItemSetOnEvent (-1, "_cekpenc") TrayCreateItem ("") TrayCreateItem ("Resimlerin Dizinini Aç") TrayItemSetOnEvent (-1, "_Ac") TrayCreateItem ("Tüm Resimleri Sil") TrayItemSetOnEvent (-1, "_Temizle") TrayCreateItem ("") TrayCreateItem ("İşlem Kayıtlarını Aç") TrayItemSetOnEvent (-1, "_Kayitac") TrayCreateItem ("İşlem Kayıtlarını Sil") TrayItemSetOnEvent (-1, "_Kayittemizle") TrayCreateItem ("") TrayCreateItem ("Çıkış") TrayItemSetOnEvent (-1, "_Cikis") TrayTip ("BulutResim.com Araci v 1.0", "CTRL+Orta mouse tuşunu kullanarak belirli bir alanı yada pencereyi seçiniz." & @CRLF & @CRLF & _ "Aynı fonksiyonlara menüdende ulaşabilirsiniz.", 5, 1) GUICtrlSetResizing (-1, 802) WinSetTrans ($hGUI, "", 100) While 1 If _basildi ("Ctrl") And _basildi ("Middle") Then $hWnd = WinGetHandle ("[active]", "") WinSetState ($hWnd, "", @SW_DISABLE) $aPos = _alansec () If ($aPos[2] - $aPos[0] < $nClick) Or ($aPos[3] - $aPos[1] < $nClick) Then $aPos = WinGetPos ($hWnd, "") $aPos[2] += $aPos[0] $aPos[3] += $aPos[1] EndIf WinSetState ($hWnd, "", @SW_ENABLE) $sFile = _GetFile () _ScreenCapture_Capture ($sFile, $aPos[0], $aPos[1], $aPos[2], $aPos[3], False) ClipPut ($sFile) _kayityaz ($sFile, 1) ElseIf _basildi ("Print") Then $sFile = _GetFile () _ScreenCapture_Capture ($sFile, 0, 0, @DesktopWidth, @DesktopHeight, False) ClipPut ($sFile) _kayityaz ($sFile, 2) EndIf Sleep (10) WEnd Func _GetFile () $i = 0 While 1 $i += 1 If Not FileExists ($sDataDump & $i & ".jpg") Then Return $sDataDump & $i & ".jpg" WEnd EndFunc Func _basildi ($key) Switch StringLower ($key) Case "Left" $iHex = "01" Case "middle" $iHex = "04" Case "ctrl" $iHex = "11" Case "print" $iHex = "2C" Case Else Return -1 EndSwitch $aIsbasildi = DllCall($hUser32, "int", "GetAsyncKeyState", "int", "0x" & $iHex) If @Error Or (BitAND ($aIsbasildi[0], 0x8000) <> 0x8000) Then Return 0 Return 1 EndFunc Func _alansec () Local $aPos = MouseGetPos (), $aLast[2] = [-1, -1], $aPosFirst = MouseGetPos (), $aRet[4] WinMove ($hGUI, "", $aPosFirst[0], $aPosFirst[1], 1, 1) GUISetState(@SW_SHOW, $hGUI) While _basildi ("Middle") $aPos = MouseGetPos () If ($aPos[0] <> $aLast[0]) Or ($aPos[1] <> $aLast[1]) Then $aRet[0] = $aPosFirst[0] $aRet[1] = $aPosFirst[1] $aRet[2] = $aPos[0] $aRet[3] = $aPos[1] If $aRet[0] > $aRet[2] Then $tmp = $aRet[0] $aRet[0] = $aRet[2] $aRet[2] = $tmp EndIf If $aRet[1] > $aRet[3] Then $tmp = $aRet[1] $aRet[1] = $aRet[2] $aRet[2] = $tmp EndIf WinMove ($hGUI, "", $aRet[0], $aRet[1], $aRet[2] - $aRet[0], $aRet[3] - $aRet[1]) $aLast = $aPos EndIf Tooltip ($aRet[2] - $aRet[0] & " x " & $aRet[3] - $aRet[1]) Sleep (10) WEnd Tooltip ("") GUISetState (@SW_HIDE, $hGUI) Return $aRet EndFunc Func _kayityaz ($sFile, $nType) IniWrite ($sLog, @MDAY & "." & @MON & "." & @YEAR, @MIN & ":" & @HOUR & "_" & $nType, StringRegExpReplace ($sFile, ".*\\", "")) Endfunc Func _cek () $sFile = _GetFile () _ScreenCapture_Capture ($sFile, 0, 0, @DesktopWidth, @DesktopHeight, False) ClipPut ($sFile) _kayityaz ($sFile, 3) Endfunc Func _cekpenc () WinSetTrans ($hGUI, "", 1) WinMove ($hGUI, "", 0, 0, @DesktopWidth, @DesktopHeight) GUISetCursor (3, 1, $hGUI) GUISetState (@SW_SHOW, $hGUI) While Not _basildi ("Left") WEnd GUISetState (@SW_HIDE, $hGUI) GUISetCursor (1, 1, $hGUI) MouseClick ("") $aPos = WinGetPos ("[active]") WinSetTrans ($hGUI, "", 100) $aPos[2] += $aPos[0] $aPos[3] += $aPos[1] $sFile = _GetFile () _ScreenCapture_Capture ($sFile, $aPos[0], $aPos[1], $aPos[2], $aPos[3], False) ClipPut ($sFile) _kayityaz ($sFile, 4) Endfunc Func _Kayitac () ShellExecute ($sLog) EndFunc Func _Kayittemizle () FileDelete ($sLog) EndFunc Func _Ac () ShellExecute ($sDataDump) EndFunc Func _Temizle () Dirremove ($sDataDump, 1) DirCreate ($sDataDump) _kayityaz ("\temizlenmis resim", 5) EndFunc Func _Cikis () Exit EndFunc

tamamdır halletti msanırım varmış o psu kablosundan görmemişim ben. yine olmazsa yazıca mburadan.

[b]Teknobiyotikten teamin 120 gb ssd sini aldım.Şimdi geriye sadece anakarta bağlamak kaldı. Anakartım asus p8p67 le kasam ise coolermaster haf rc 912.SSD yuvası var kasada Şimdi bu ssd de 2 tane kablo için yer var sanırım 1 tanesi psu diğeri sata kablosu. benim elimde 1 tane kablo var anakarttada 6 gb sata soketleri var acaba sata kablosu bu mudur ? http://i.minus.com/jkoLT8zpjnNn7.JPG kablonun üstünde ASAP e321011 style 21149 VW-1 80 derece 30 v serial ATA 26AWG yazıyor. psudan çıkan kablolar ise bu şekilde acaba hangisi ssd ye takılacak olan ??? http://i.minus.com/j16GsnFE2cWnK.JPG yardım ederseniz çok sevinirim. [/b]

fiyatta indirim yapıldı 300 tl

[center][b]Ürün bu sene ABD den alınmıştır.Sadece 1 kere kutusu açılmıştır ve hiç kullanılmamıştır.Cihaz 1 kere bile çalıştırılmadı. Garantisi ve faturası yok.Kaybettim. Ürünün fotoğrafları: [/b] [img]http://i1263.photobucket.com/albums/ii637/lifesuxtr/68a9c522.jpg[/img] [img]http://i1263.photobucket.com/albums/ii637/lifesuxtr/2d104a8d.jpg[/img] [img]http://i1263.photobucket.com/albums/ii637/lifesuxtr/ad664270.jpg[/img] [img]http://i1263.photobucket.com/albums/ii637/lifesuxtr/7a9a3abc.jpg[/img] [img]http://i1263.photobucket.com/albums/ii637/lifesuxtr/2ada8824.jpg[/img] [img]http://i1263.photobucket.com/albums/ii637/lifesuxtr/c615ac39.jpg[/img] [img]http://i1263.photobucket.com/albums/ii637/lifesuxtr/a791bde6.jpg[/img] [b]Fiyat: 300 TL - EFT yada havale. kargoyu alıcı öder.[/b][/center] [size="5"][u][b]FORUM DIŞINA SATILMIŞTIR[/b][/u][/size]

[center][img]http://img715.imageshack.us/img715/3078/cbba14e5c586495bb3d3147.png[/img] [size=4][color=#990000][b]!!!!SATILIK ÇOK UCUZA KASA + SAMSUNG SYNCMASTER-943!!!![/b][/color][/size] [b]İçerik: Kasa+samsung syncmaster-943 monitör + monitör görüntü kablosu + monitör güç kablosu Satma nedenim: Kendime yeni bir sistem topladım.Sistemin tek eksiği SSD kaldı.SSD almak için eski sistemimi satmaya karar verdim.Sisteme format attım ve temel bazı driverları kurdum.Sistem 3 sene kullanılmıştır.[/b] [b]Sistemin Özellikleri: [/b][img]http://img836.imageshack.us/img836/7998/40558dade88d4034874163a.png[/img] [img]http://img69.imageshack.us/img69/236/f2be645a78734ae483faa49.png[/img] [img]http://img138.imageshack.us/img138/4613/803ba61b33fb4fa58f0e2dd.png[/img] [img]http://img826.imageshack.us/img826/1396/2845f943a1494e838b3f0ef.png[/img] [img]http://img11.imageshack.us/img11/1131/f0b5b0829848474996da564.png[/img] [img]http://img266.imageshack.us/img266/1015/189255a6034a425cbee9cda.png[/img] [img]http://img515.imageshack.us/img515/121/818d2ff16d944774a90fcf9.png[/img] [b]Monitör ve kasadan resimler: [/b]http://prntscr.com/dmr4l http://prntscr.com/dmr6c http://prntscr.com/dmr8g http://prntscr.com/dmr9y http://prntscr.com/dmret http://prntscr.com/dmrgu [color=#3300FF][b]FİYAT:[/b][/color] [b]Tekliflerinizi PM ile gönderiniz. Kargo alıcıya aittir.Olabildiğince ucuza bırakıcam.EFT yada havale. Güncelleme: artık 2 sini ayrı ayrı satıyorum.birlikte almak isterseniz oda olur. kasa 250 tl monitör 100 tl [/b][/center]

maxicep