LifeSux

September 9, 2013

Hata vermesi için hata fonksiyonu oluşturmanız lazım. Yani şu şekilde:
$x = ProgressOn("Yükleniyor","Resim Yükleniyor")
$uploadresim = _FTP_ProgressUpload($baglan, $sFile, "/" & $filename, "_UpdateParts") ; Dosyamızı sunucuya gönderelim
Sleep(2000)
ProgressOff()

if $uploadresim = 1 Then
MsgBox(64, 0, "Dosya Yüklendi! Adresi: http://bulutresim.com/" & $filename) ; Dosya yolunu gösterelim
else
MsgBox(16, 0, "Dosya yüklenemedi.")
endif
Bende dosya yükleniyor. Güvenlik duvarınızdan programınıza izin vermeniz gerekebilir.

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ı ?

September 8, 2013

Hata vermesi için hata fonksiyonu oluşturmanız lazım. Yani şu şekilde:
$x = ProgressOn("Yükleniyor","Resim Yükleniyor")
$uploadresim = _FTP_ProgressUpload($baglan, $sFile, "/" & $filename, "_UpdateParts") ; Dosyamızı sunucuya gönderelim
Sleep(2000)
ProgressOff()

if $uploadresim = 1 Then
MsgBox(64, 0, "Dosya Yüklendi! Adresi: http://bulutresim.com/" & $filename) ; Dosya yolunu gösterelim
else
MsgBox(16, 0, "Dosya yüklenemedi.")
endif
Bende dosya yükleniyor. Güvenlik duvarınızdan programınıza izin vermeniz gerekebilir.

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

September 8, 2013

Sunucu adını lifesuxtrmap.tk/ değil lifesuxtrmap.tk yapmalısınız ve dosyanın internetten görülebilmesi için public_html dizinine yüklenmesi gerekiyor. Ayrıca kolaylık olması açısından adresin panoya kopyalanmasını sağladım.

[spoiler]

#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, "/public_html/" & $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

ClipPut("http://bulutresim.com/" & $filename)

_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

[/spoiler]

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

September 8, 2013

kodlarınızı paylaşsaydınızda bizde hatalarını komple baksaydık yarım yarım istekte bulunuyorsunuz

çözdüyseniz ne mutlu

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

September 8, 2013

$LOWERLIMIT = 1
$UPPERLIMIT = 0x540be400
$RANDOMNUMBER = RANDOM ( $LOWERLIMIT , $UPPERLIMIT , 1 )
$FILEE = $RANDOMNUMBER & "deneme.jpg"

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

September 8, 2013

Son verdiğim kodda hata varmış. Düzeltilmiş hali:

[spoiler]

 
#NoTrayIcon
 
 
#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 ("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, ".*\\", ""))

$kur = _FTP_Open('FTP') ; FTP bağlantısı başlatalım
 
Local $baglan = _FTP_Connect($kur, 'sunucu', 'kullaniciadi', 'sifre') ; 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]
 
_Ftp_FilePut($baglan, $sFile, "/" & $filename) ; Dosyamızı sunucuya gönderelim
 
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

[/spoiler]

İlerleme çubuklu hali:

[spoiler]

 
#NoTrayIcon
 
 
#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 ("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, ".*\\", ""))

$kur = _FTP_Open('FTP') ; FTP bağlantısı başlatalım
 
Local $baglan = _FTP_Connect($kur, 'sunucu', 'kullaniciadi', 'sifre') ; 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 _UpdateParts($percent)
ProgressSet($percent ,"Yükleniyor %" & $percent,"Resim Yükleniyor %" & $percent)
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

[/spoiler]

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 ?

September 8, 2013

arayüzü daha tasarlamadım

demo görüntüler deneme aşamasında

böyle bir şey düşünüyorum sizce nasıl acaba

autoit ile yaptım :)

lakin site sahibi hazırlıyornuş

şuan çalışıyor link paylaşımı daha sonra yapmayı düşünüyorum

iyice sorunsuz çalışması lazım benim için

yenileme koymadım çünkü geri dönüşlere izin vermiyor ie :)

Hocam çok iyi olmuş kaynak kodları yayınlama imkanınız var mı ?

Bu arada 10 numara çalışıyor sistemin çalışma mekanizmasını acayip merak ettim :dribble:

September 7, 2013

bunlari ie fonksiyonu ile hallediliyor

sen galiba upload sitesi yapmayı düşünüyorsun

ilk önce upload siteni oluştur ona göre içerikten yapılabilinir

her pc ftp gönderimine izin vermeye bilir antiler ve güvenlik duvarı nedeniyle

ilgili konuyu sana gönderdim incele bence

birde laptop olan arkadaşlarda mause orta tuşu olayı yok onuda düşünün lütfen

mause ile videodaki gibi alan seç yap bence daha iyi olur

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

September 6, 2013

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. :/

September 6, 2013

Iniye yazma kodunu tekrardan ekleyebilirsin. Sorun olmaz.

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

September 6, 2013

_kayityaz fonksiyonu madem çalışmıyor bende onu dosyayı yüklemek için kullandım.

Şu şekilde olacak:


#NoTrayIcon


#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 ("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)
   $kur = _FTP_Open('FTP') ; FTP bağlantısı başlatalım
 
Local $baglan = _FTP_Connect($kur, 'ftp.tnctr.com', 'tnctr', 'sifre') ; FTP'ye bağlanalım
 
_Ftp_FilePut($baglan, $dosyayolu, $ftpyolu) ; Dosyamızı sunucuya gönderelim
 
$filenameftp = $sFile
 
MsgBox(0, 0, "Dosya Yüklendi! Adresi: http://bulutresim.com/" & $filenameftp) ; 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

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

September 6, 2013

arkadaş maus ile seçilen alanı resim yapıp ftp yapmak istiyor

maus ile alan seçme forumda vardı galiba

yada autoit sitesinde böyle bir konu var zaten incelerseniz yapabilirsiniz

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.

September 6, 2013

Verdiğim kodlar işe yaramadı mı? ini dosyası ile ne yapmaya çalışıyorsunuz?

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

September 6, 2013

Sorun yok şimdi.

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 ?

September 6, 2013

Ne demeye çalıştığınızı anlamadım. Konu başlığı nereden çıktı şimdi?

Ş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

September 6, 2013

(34,36) : ERROR: _Aç(): undefined function.

hatası veriyor. _Aç fonksiyonu bulunamadı diyor. Ayrıca fonksiyonların isimlerinde Türkçe karakter kullanmamalısınız.

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

September 6, 2013

; TnC-TR
 
#include <FTPEx.au3>
#include <File.au3>
#include <Array.au3>
 
$kur = _FTP_Open('FTP') ; FTP bağlantısı başlatalım
 
Local $baglan = _FTP_Connect($kur, 'ftp.tnctr.com', 'tnctr', 'sifre') ; FTP'ye bağlanalım
 
_Ftp_FilePut($baglan, $dosyayolu, $ftpyolu) ; Dosyamızı sunucuya gönderelim
 
$filenameftp = $sFile ; Dosya adını alalım
 
MsgBox(0, 0, "Dosya Yüklendi! Adresi: http://bulutresim.com/" & $filenameftp) ; Dosya yolunu gösterelim
 
_FTP_Close($kur) ; FTP bağlantısını kapatalım

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

September 6, 2013

; TnC-TR

#include <FTPEx.au3>
#include <File.au3>
#include <Array.au3>

$kur = _FTP_Open('FTP') ; FTP bağlantısı başlatalım

Local $baglan = _FTP_Connect($kur, 'ftp.tnctr.com', 'tnctr', 'sifre') ; FTP'ye bağlanalım

_Ftp_FilePut($baglan, $dosyayolu, $ftpyolu) ; Dosyamızı sunucuya gönderelim

Local $szDrive, $szDir, $szFName, $szExt
Local $filename = _PathSplit($dosyayolu, $szDrive, $szDir, $szFName, $szExt) ; Dosya yolunu ayrıştıralım

$filenameftp = $filename[3] & $filename[4] ; Dosya adını ve uzantısını birleştirelim

MsgBox(0, 0, "Dosya Yüklendi! Adresi: http://bulutresim.com/" & $filenameftp) ; Dosya yolunu gösterelim

_FTP_Close($kur) ; FTP bağlantısını kapatalım

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

September 6, 2013

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

August 14, 2012

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

August 13, 2012

[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]

August 12, 2012

fiyatta indirim yapıldı 300 tl

August 12, 2012

[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]

August 12, 2012

[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]

August 10, 2012

maxicep

Sign In

LifeSux

Posts

Joined

Last visited

Content Type

Profiles

Forums

Calendar

Posts posted by LifeSux

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ücretsiz Sms Gönderme Hizmetimiz

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ftp Ye Resim Upload Edip Link Almak

Ssd Yi Bağlamak

Ssd Yi Bağlamak

Satılık Ipod Classic 160 Gb Sılver

Satılık Ipod Classic 160 Gb Sılver

Acil Satılık Kasa + Samsung Syncmaster-943

Telefonlarla Ilgili Site

Browse

Activity