LifeSux Posted September 6, 2013 Share Posted September 6, 2013 (edited) 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 Edited September 6, 2013 by LifeSux Quote Link to comment Share on other sites More sharing options...
reyiz Posted September 6, 2013 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 6, 2013 Author Share Posted 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 Quote Link to comment Share on other sites More sharing options...
reyiz Posted September 6, 2013 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 6, 2013 Author Share Posted 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 Quote Link to comment Share on other sites More sharing options...
reyiz Posted September 6, 2013 Share Posted September 6, 2013 (edited) (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. Edited September 6, 2013 by reyiz Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 6, 2013 Author Share Posted 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 Quote Link to comment Share on other sites More sharing options...
reyiz Posted September 6, 2013 Share Posted September 6, 2013 (edited) ... Edited November 8, 2013 by reyiz Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 6, 2013 Author Share Posted 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 Quote Link to comment Share on other sites More sharing options...
reyiz Posted September 6, 2013 Share Posted September 6, 2013 Sorun yok şimdi. Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 6, 2013 Author Share Posted 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 ? Quote Link to comment Share on other sites More sharing options...
reyiz Posted September 6, 2013 Share Posted September 6, 2013 Verdiğim kodlar işe yaramadı mı? ini dosyası ile ne yapmaya çalışıyorsunuz? Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 6, 2013 Author Share Posted 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 Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted September 6, 2013 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 6, 2013 Author Share Posted 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. Quote Link to comment Share on other sites More sharing options...
reyiz Posted September 6, 2013 Share Posted September 6, 2013 (edited) ... Edited November 8, 2013 by reyiz Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 6, 2013 Author Share Posted 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 Quote Link to comment Share on other sites More sharing options...
reyiz Posted September 6, 2013 Share Posted September 6, 2013 Iniye yazma kodunu tekrardan ekleyebilirsin. Sorun olmaz. Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 6, 2013 Author Share Posted 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 Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 6, 2013 Author Share Posted 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. :/ Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted September 6, 2013 Share Posted September 6, 2013 http://www.autoitscript.com/forum/topic/122168-tinypicsharer-v-1034-new-version-08-june-2013/page-2 burdaki konuyu incele ben müsait değilim kusura bakma editlemek isterdim Quote Link to comment Share on other sites More sharing options...
reyiz Posted September 6, 2013 Share Posted September 6, 2013 (edited) ... Edited November 8, 2013 by reyiz Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted September 6, 2013 Share Posted September 6, 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 Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 7, 2013 Author Share Posted 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 Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted September 7, 2013 Share Posted September 7, 2013 $LOWERLIMIT = 1 $UPPERLIMIT = 0x540be400 $RANDOMNUMBER = RANDOM ( $LOWERLIMIT , $UPPERLIMIT , 1 ) $FILEE = $RANDOMNUMBER & "deneme.jpg" 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.