DivaneTR

En güzel bu set oturuyor arayüzlerde :) Özellikle imagelist için güzel.

Bir istek üzerine yazdığım fonksiyon. Ne işe yaradığı resimde açıkça görünmektedir. Belirttiğiniz klasörün/sürücünün içeriğini tüm alt klasör ve dosyalarla birlikte listelemenize yarar. :download1:

Farklı bir platform kodluyorum.

Yukarıdaki programlar ile netice alamazsan EASEUS Data Recovery programını da tavsiye ederim.

Bilgisayarıma uygun driverleri nerden temin edebilirim? Wifi ve ethernet kartı dahil hiçbirini görmüyor, dolayısıyla internete de bağlanamıyorum.

_ImageResize fonksiyonunu birçok kişi bilir. Fonksiyonu geliştirerek, belirtilen dosyayı belirtilen boyuta indirgemek için ek bir fonksiyon yazdım. Maximum dosya boyutu koşulu sunan servisler için kullanılması amaçlanarak yazılmıştır. Örneğin Windows logon ekranı için en fazla 245KB boyutunda bir grafik koyabilirsiniz. Bu gibi durumlarda bu fonksiyon işimize yaramaktadır. Fonksiyon belirttiğiniz resim dosyasını en*boy oranını koruyarak adım adım küçültür, ta ki istediğimiz boyuta gelene kadar.   Fonksiyon; Func _ResizeToSize($Input, $Output, $ToSize) $Temp = _TempFile(@TempDir & "\", "", ".jpg") FileCopy($Input, $Temp, 9) $Size = FileGetSize($Temp) $Boyutlar = _GetWHI($File) While $Size >= $ToSize _ImageResize($Input, $Temp, Floor($Boyutlar[0] / 1.05), Floor($Boyutlar[1] / 1.05)) $Boyutlar = _GetWHI($Temp) $Size = FileGetSize($Temp) WEnd FileMove($Temp, $Output, 9) EndFunc ;==>_ResizeToSize Parametreler; $Input = İşlenecek dosyanın tam yolu (Örn : C:\deneme.jpg) $Output = İşlem sonrası kaydedilecek dosya (Örn : C:\deneme_resized.jpg) $ToSize = Kilobyte cinsinden belirleyeceğiniz dosya boyutu (Örn : 250) Gerekli Diğer Fonksiyonlar ; Func _GetWHI($sImage) Local $HIMAGE, $aRet[3] _GDIPlus_Startup() $HIMAGE = _GDIPlus_ImageLoadFromFile($sImage) $aRet[0] = _GDIPlus_ImageGetWidth($HIMAGE) $aRet[1] = _GDIPlus_ImageGetHeight($HIMAGE) $aRet[2] = _GDIPlus_BitmapCreateHBITMAPFromBitmap($HIMAGE) _GDIPlus_ImageDispose($HIMAGE) _GDIPlus_Shutdown() Return $aRet EndFunc ;==>_GetWHI Func _ImageResize($sInImage, $sOutImage, $iW, $iH) Local $sOP, $sOF, $sInExt, $Ext, $hBitmap, $hImage1, $hImage2, $hGraphic, $CLSID, $i = 0 Local $sType = "BMP|GIF|ICO|JPG|JPEG|PNG|TIF|TIFF" If Not FileExists($sInImage) Then Return SetError(1, 0, 0) $sInExt = StringUpper(StringTrimLeft($sInImage, StringInStr($sInImage, ".", 0, -1))) If Not StringRegExp($sInExt, "\A(" & $sType & ")\z", 0) Then Return SetError(2, 0, 0) $sOP = StringLeft($sOutImage, StringInStr($sOutImage, "\", 0, -1)) If Not FileExists($sOP) Then Return SetError(3, 0, 0) $sOF = StringTrimLeft($sOutImage, StringInStr($sOutImage, "\", 0, -1)) $Ext = StringUpper(StringTrimLeft($sOutImage, StringInStr($sOutImage, ".", 0, -1))) If Not StringRegExp($Ext, "\A(" & $sType & ")\z", 0) Or $Ext = "ICO" Then Return SetError(4, 0, 0) If Not IsInt($iW) And Not IsInt($iH) Then Return SetError(5, 0, 0) $hBitmap = _WinAPI_CreateBitmap($iW, $iH, 1, 32) _GDIPlus_Startup() $hImage1 = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap) $hImage2 = _GDIPlus_ImageLoadFromFile($sInImage) $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage1) _GDIPlus_GraphicsSetInterpolationMode($hGraphic, 2) _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage2, 0, 0, $iW, $iH) $CLSID = _GDIPlus_EncodersGetCLSID($Ext) Do $i += 1 Until (Not FileExists($sOP & $i & "_" & $sOF)) $sOutImage = $sOP & $sOF _GDIPlus_GraphicsSetInterpolationMode($hImage1, 2) _GDIPlus_ImageSaveToFileEx($hImage1, $sOutImage, $CLSID) _GDIPlus_ImageDispose($hImage1) _GDIPlus_ImageDispose($hImage2) _GDIPlus_GraphicsDispose($hGraphic) _WinAPI_DeleteObject($hBitmap) _GDIPlus_Shutdown() Return SetError(0, 0, 1) EndFunc ;==>_ImageResize Örnek Kullanım ; $File = @DesktopDir & "\test.jpg" ; full path of file to resize $MaxSize = 250 ; as kilobyte If FileExists($File) And IsNumber($MaxSize) Then $tim = TimerInit() _ResizeToSize($File, @DesktopDir & "\resized.jpg", $MaxSize*1024) MsgBox(64, "Geçen süre", Floor(TimerDiff($tim)) / (1000) & " saniye") Else MsgBox(48,"","hata") EndIf :download1:  

Hmm anladım, dün gece PowerIso ile de denedim yine olmadı. Bir diğer sorunum, mavericks kurabiliyorum sisteme usb bellekten, fakat hiçbir driveri tanımıyor, onun için ne yapabilirim?

TransMac ile USB'ye yazdırdım ama bir türlü boot edemedim. Windows ortamında USB'ye bootable olarak yazdırabileceğim bir araç var mı?

Other seçeneğini aktif ederseniz yükleyebilirsiniz. Daha önce bir bilgisayara öyle format atmıştım.

Doğum günün kutlu olsun hocam, nice mutlu yıllara.

İşin garip yanı hala beceremeyenler var.

  Png grafiklerden arayüz yapmış bir adamın imkansızdan bahsetmesi hiç hoş değil :)

http://www.tnctr.com/topic/190983-telefon-rehberi/

Güvenli modda açıp combofix ile taramayı deneyiniz.

textbox1.text.ToString bu şekilde dene.

Yok abi burası medeniyetin doğduğu yer. Fakat o medeniyet hala 0 yaşında :) Hiçbir gelişme yok, 100 yıl önce nasıldıysa bugün de öyle. Urfa değişmez.

Abi zaten başlık fiyatları yüzünden millet sevdiğine kavuşamıyor :D Bi liste çıkarıyorlar damada padişah fermanı gibi.

Harran üni nasıl bilmiyorum ama şehre uzak. Ayrıca şehirde kiralar da çok yüksek. Öğrenci için nasıl bir yer bilemem, doğma büyüme Urfalıyım, ben bile orda okumayı istemediğimden uzaklarda okuyorum :)

Başka hata yok gibi. Scripti çalıştırdıktan sonra Winrar klasörünü kontrol et, rarreg.key kopyalanmış mı diye.

Temp klasöründe rarreg.key dosyası var mı? Onu fileinstall etmemişsin?

cmdow.exe kullanmana gerek yok, quick batch file compiler programıyla bat veya cmd dosyalarını gizli veya görünür şekilde exe formatına derleyebilirsin.

Henüz fırsat bulamadım, buradaki dökümanı inceleyerek yapabilirsiniz. http://www.autoitscript.com/autoit3/docs/libfunctions/_IEFormElementSetValue.htm

FileCreateShortcut ("C:\Program Files (x86)\BocekYazilim\Okey+\Okey.exe", @DesktopDir & "\kisayoladi.lnk")

Programı sanırım kendi bilgisayarıma kurup üzerinde çalışma imkanım olmayacak. Müsait bir zamanda teamviewer bağlantısı ile inceleyebilirim veya benzeri bir uygulama yazıp onun üzerinde çalışabilirim. Zaman buldukça ilgileneceğim.