blue_life

Recorderdeki sorun, recorder ile alakalı olabilir. Tabi eminde olamyız. Recorderde sadec F12 ilemi sorun yaşıyorsun? Send ile farklı bir tuş gönderdiğinde çalışıyor mu?

@korasoglu Kusura bakma konu gözümden kaçmış! Sorununu sonuçlandırabildin mi acaba?

@unquiet Bir örnek hazırladım, denersin... [codebox]HotKeySet("+^n", "_Blue_Create_NewFolder") ;Shift-Ctrl-n While 1 Sleep(100) ;Cpu Save WEnd Func _Blue_Create_NewFolder() Local $WinGetActive = WinGetHandle("[active]") ;Active Title ;Local $WinGetActive = WinGetHandle("System (C:)") Local $DesktopHwnd = WinGetHandle("[Class:Progman]") If $DesktopHwnd = $WinGetActive Then If _CreateNewFolder(@DesktopDir) = 0 Then Return SetError(3, 0, 0) Return 1 EndIf ; ----------- Local $Window_Location Local $oShell = ObjCreate("shell.application") ; Get the Windows Shell Object Local $oShellWindows = $oShell.windows ; Get the collection of open shell Windows If IsObj($oShellWindows) = 0 Then Return SetError(1, 0, 0) For $Window In $oShellWindows ; Count all existing shell windows If $Window.hwnd = $WinGetActive Then $Window_Location = $Window.LocationURL $aRet = DllCall('shlwapi.dll', 'long', 'PathCreateFromUrlW', 'wstr', $Window_Location, 'wstr', '', 'dword*', 65534, 'dword', 0) If Not @error And $aRet[0] = 0 Then $Window_Location = $aRet[2] ExitLoop EndIf Next If $Window_Location = "" Or FileExists($Window_Location) = 0 Then Return SetError(2, 0, 0) If _CreateNewFolder($Window_Location) = 0 Then Return SetError(3, 0, 0) Return 1 EndFunc ;==>_Blue_Create_NewFolder Func _CreateNewFolder($Location, $FolderName = "Yeni Klasör") If StringRight($Location, 1) <> "\" Then $Location &= "\" Local $OldFolderName = $FolderName, $I = 1 While FileExists($Location & $FolderName) $FolderName = $OldFolderName & " (" & $I & ")" $I += 1 WEnd If DirCreate($Location & $FolderName) = 0 Then Return SetError(1, 0, 0) Return 1 EndFunc ;==>_CreateNewFolder [/codebox]

Seviklerinle birlikte, sağlıklı, mutlu, huzurlu, özlem ve dileklerini gerçekleştirebileceğin ... nice yıllar dilerim...

sc.exe ile bir servisin çalışıp, çalışmadığını, veyahut sistemde yüklü olup olmadığını tespit edebilirsiniz. Bunun için kullandığımız sc.exe parametresi [b]query [/b]dir. Misal yazdırma birikintisi olan spooler servisini kontrol etmek istediğinizde, [b]sc.exe query spooler[/b] şeklinde bir parametre kullanıp, consolde yazdırılan bilgileri kontrol etmeliyiz. Ams de bu tip veri alınabiliyormu emin deyilim. Aynı şekilde bir servisi sc.exe veyahut net.exe ile başlatıp, durdurabilirsiniz. [b]net.exe stop spooler sc.exe stop spooler net.exe start spooler sc.exe start spooler[/b] Açıkçası genelde başlatma ve durdurma işlemi için net.exe daha sağlıklıydı diye hatırlıyorum...

@baris_42 Ikiside aşağı yukarı aynı işi yapan sürücülerdir. Bizim projede kullanma amacımız, grub4dos ile rame yüklediğmiz boot.gz dosyasına ait sanal bölümü windows kurun algılamasını sağlamak. Ben genelde firadisk kullanıyorum. Winvblock, firadiskten daha yeni ve farklı özellikler mevcut. Mesela boot.gz dosyasını rame yüklemeden de winvblock kullanarak kullanmamaız mümkün. Ama o zaman mavi ekrandaki kurulum yavaş oluyor. Kısaca istediğini kullanabilirsin... Imdisk konusuna gelirsek, bizim projede kullandığımız imdisk, windows ortamında çalışan bir sanal sürücü programıdır. Kurulumun ikinci aşamasında, ilgili orjinal xp iso dosyası imdisk vasıtasıyla X: sürücüsüne takılır ve kurulum X: sürücüsündeki kaynaktan devam eder. Ben sanal sürücü olarak bilgisayarımda da imdisk kullanmaktayım. Sistemi fazla kasmayan küçük bir programdır...

@freea [img]http://i624.photobucket.com/albums/tt321/Blue_Life/00_MB_USB.png[/img] Disk kutusunun üstünde ufak boş küçük bir kutu mevcut! Ona tıklarsan, sistemindeki tüm uygun diskler sürücü kutusunda listelenir. Ama dediğim gibi windosun önyükleme yaptığı diske kurulum yaparsan, windows yerine grub4dos menüsü açılacaktır... Bu arada elindeki usb paketi eski olabilir. Ikinci mesajdan yeni paketi indirirsin...

@freea 1 - As. Öncelikle otomatik ghost paketi çok eskidiği için haliyle yeni grub4dos komutlarında sorun çıkartabilir. Paketteki BGRUB dosyası grub4dos dosyasıdır. Ilgili yeni versiyonu indirip BGRUB dosyası düzenlenmeli... Ben düzenledim. Aşağıdaki linkten indirebilirsin... [color="#0000FF"][u]http://bluelife.zxq.net/Files/Grub4dos/BGRUB/bgrub-0.4.5c-2012-02-01.zip[/u][/color] 2 - USB paketini tabiki normal disklerede uygulayabilirsin. Lakin usb paketini normal diske uyguladığında direk grub4dos menüsü açılacaktır. Yani F11 klevye kısayolu vs. usb paketinde gelmiyor. Ikinci disk için haliyle kullanabilirsin... Tüm paketler aynı klasör altında toplanabilir ama böyle olunca haliyle karışıklı oluyor. Şimdi diyelim usbdeki grub4dosu başlattık ve *.lst dosyası bulunamadı. Haliyle tüm sürücülerde *.lst dosyası aranacak. Bu durumda diğer paketlere ait *.lst dosyası bulunursa haliyle o yüklenecek ve menü sorunlu olacak. Usbde kullandığımız komutlar ile, cd/dvd/hdd de kullandığımız komutlar farklılık gösterebiliyor... Sonraki güncellemelerde, ilgili .lst dosyası bulunamaz ise, anadizindeki menu.lst dosyası aransın ve bulununca yüklensin. Böyle bir seçenek heralde sorun teşkil etmez. Bu sayede senin sorunun da çözülmüş olur. Yani sen ilgili lst dosyaları yerine anadizine menu.lst dosyası eklemen yeterli olacak... Not alıyorum...

@korasoglu Istersen f12 ler arasında ufak bir bekletme yaparak dene. [codebox]#NoTrayIcon Send("{F12}") Sleep(500) Send("{F12}") Exit[/codebox] Bir ihtimalde autoit ile yaptığın program çalıştığında, senin F12 hotkeyini algılayan program henüz çalışmamıştır veyahut henüz hazır deyildir. Istersen başlangıca bir mesaj ekleyerek biraz bekledikten sonra onay verip duruma bak. Eğer bu şekilde işe yararsa, başlangıçta sleep ile biraz bekletme yapabilirsin. [codebox]#NoTrayIcon MsgBox(64,"","F12 tuşuna basılacak") Send("{F12}") Sleep(500) Send("{F12}") Exit[/codebox]

@korasoglu Windows açıldıktan sonra F12 ye bastırmak istiyorsan, bunu yapamamna şaşırdım! Send komutuyla F12 göndermen kafi! [codebox]#NoTrayIcon Send("{F12}{F12}") Exit[/codebox] Kısaca yukarıdaki kodu derleyip, Başlat -> Programlar -> Başlangıç klasörüne kısayolunu atman yeterli. Yada registryden de eklenebilir... Belki anlatmak istediğini tam anlayamamış olabilirim...

Ben çok uzun yıllardır nod32 kullanıyorum ve şuana kadar herangi bir virüs sıkıntım olmadı! Kısaca nod32 karalamayın. Ayrıca bunlar bir program ve programlar bazı etkenlerden dolayı düzgün çalışamayabilir... Nod32 belki en iyi antivirüs programı olmayabilir (benim için en iyiler arasında) ama gerçekten benim gözümde başarılı bir antivürüs programdır. Ayrıca antivürüs programlarının başarılı olmasındaki en büyük etken haliyle güncelleme dosyalarıdır. Kısaca yeni çıkan bir virüs için hangi antivirüs erken davranıp güncelleme ile bu bilgileri sunarsa, o anlar için diğerlerinden daha başarılı olacaktır! Karşık mı yazdım Unutmadan, bazı zararlı olmayan dosyaların antvirüs programları tarafından zararlı olarak gösterilmesi bence başarı deyil, başarısızlıktır...

@mustafakara Malesef isteğini tam anlamadım. Ama senin için biraz düzenleme yaptım. Kurcalarsın, kolay gelsin... [codebox];#include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <GuiSlider.au3> Opt('MustDeclareVars', 1) Opt("GUIOnEventMode", 1) Global $mylist Global $hSlider Global $baslik = "ayarlar" Global $oku = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Speech\Voices", "DefaultTokenId") Global $oku1 = RegRead($oku & "\Attributes", "Name") ornek() Func ornek() Local $mygui = GUICreate($baslik, 600, 300) GUICtrlCreateLabel("kişi", 176, 2, 300, 20, 1) GUISetOnEvent(-3, "_close") $mylist = GUICtrlCreateList("", 176, 32, 300, 30) GUICtrlSetFont(-1, 16, 800) sesler($mylist) _GUICtrlListBox_SelectString($mylist, $oku1) GUICtrlSetOnEvent($mylist, "_mylist") GUICtrlCreateLabel("hız:", 176, 85, 300, 20, 1) GUICtrlSetFont(-1, 12, 800) $hSlider = GUICtrlCreateSlider(176, 100, 300, 27, 0x50010019) GUICtrlSetOnEvent($hSlider, "_hSlider") _GUICtrlSlider_SetLineSize($hSlider, 5) ;_Slider_defaultpoz($hSlider,0) Local $button1 = GUICtrlCreateButton("ekran okuyucuyu aç", 176, 145, 300, 27) GUISetState() _Speak($oku1, 2, 100, $baslik & "sayfa") ; --------------------- Local $Gui_Ctrl_Total = 3 Local $Gui_Ctrl_List[$Gui_Ctrl_Total +1][3] = [[$Gui_Ctrl_Total], _ [$mylist,GUICtrlGetHandle($mylist),"Aktif olan Liste"], _ [$hSlider,GUICtrlGetHandle($hSlider),"Aktif olan Slider"], _ [$button1,GUICtrlGetHandle($button1),"Aktif olan ekran okuyucuyu aç butonu"]] ; --------------------- Local $SilerRead1,$SilerRead2 While 1 $Gui_Ctrl_List[0][1] = __WinAPI_GetFocus() If $Gui_Ctrl_List[0][1] <> $Gui_Ctrl_List[0][2] Then $Gui_Ctrl_List[0][2] = $Gui_Ctrl_List[0][1] For $I = 1 to $Gui_Ctrl_List[0][0] If $Gui_Ctrl_List[$I][1] = $Gui_Ctrl_List[0][1] Then Switch $I Case 1 ;Liste _Speak($oku1, 2, 100, $Gui_Ctrl_List[$I][2] & " Seçili olan: " & GUICtrlRead($Gui_Ctrl_List[$I][0])) Case 2 ;Slider _Speak($oku1, 2, 100, $Gui_Ctrl_List[$I][2] & " Oran: " & GUICtrlRead($Gui_Ctrl_List[$I][0])) Case Else ;Diğerleri _Speak($oku1, 2, 100, $Gui_Ctrl_List[$I][2]) EndSwitch ExitLoop EndIf Next EndIf $SilerRead1 = GUICtrlRead($hSlider) If $SilerRead1 <> $SilerRead2 Then $SilerRead2 = $SilerRead1 _Speak($oku1, 2, 100, "Oran: " & $SilerRead2) EndIf Sleep(50) ;Cpu save WEnd EndFunc ;==>ornek Func _close() Exit EndFunc ;==>_close Func _mylist() _Speak(GUICtrlRead($mylist), 2, 100, GUICtrlRead($mylist)) EndFunc ;==>_mylist Func _hSlider() ;_Slider_defaultpoz($hSlider,1) Local $seviye = _GUICtrlSlider_GetPos($hSlider) _Speak($oku1, 2, 100, $seviye & "%") EndFunc ;==>_hSlider Func sesler($listem) Local $yol = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\" For $i = 1 To 10 Local $var = RegEnumKey($yol, $i) If @error <> 0 Then ExitLoop Local $oku = RegRead($yol & $var & "\Attributes", "Name") GUICtrlSetData($listem, $oku) Next EndFunc ;==>sesler Func _default_reg() Local $yol = "HKEY_CURRENT_USER\Software\Microsoft\Speech\Voices" ;RegWrite( EndFunc ;==>_default_reg Func _Speak($sVoice, $iRate, $iVol, $s_txt) Local $objSpeech = ObjCreate("Sapi.SpVoice") $objSpeech.Voice = $objSpeech.GetVoices("Name=" & $sVoice).Item(0) $objSpeech.Rate = $iRate $objSpeech.Volume = $iVol $objSpeech.Speak($s_txt) EndFunc ;==>_Speak Func __WinAPI_GetFocus() Local $aResult = DllCall("user32.dll", "hwnd", "GetFocus") If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc ;==>__WinAPI_GetFocus[/codebox]

@LifeSux Aşağıdaki örneği şimdi denedim ve çalışıyor. Kodların başlangıcına ufak bir açıklama ekledim... Ayrıca gmail ayarlarından pop3 desteğinin açılması gerekiyordu. Çok uzun zaman önce bakmıştım ve net hatırlamıyorum. Kolay gelsin... [codebox];################################## ; Include ;################################## #Include<file.au3> ; Ornek olarak ;gmail adrsin ; bluelife[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com olsun ;kullanıcı adın haliyle;bluelife ;maile giriş şifrende; tnctr olsun ;o zaman göndereceğin adreste deneme[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com olsun ;################################## ; Variables ;################################## Global $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED Global $FromAddress = "bluelife[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com" ; address from where the mail should come Global $Username = "bluelife" ; username for the account used from where the mail gets sent - REQUIRED Global $Password = "tnctr" ; password for the account used from where the mail gets sent - REQUIRED ; -------------- Global $ToAddress = "deneme[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com" ; destination address of the email - REQUIRED Global $FromName = "Konu Test" ; name from who the email was sent Global $Subject = "Selam Dünyalı!" ; subject from the email - can be anything you want it to be Global $Body = "Test" ; the messagebody from the mail - can be left blank but then you get a blank mail Global $AttachFiles = "" ; the file you want to attach- leave blank if not needed Global $Importance = "Normal" ; Send message priority: "High", "Normal", "Low" ; -------------- ;~ $IPPort = 25 ; port used for sending the mail ;~ $ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS ;~ $CcAddress = "[email protected]" ; address for cc - leave blank if not needed ;~ $BccAddress = "[email protected]" ; address for bcc - leave blank if not needed Global $CcAddress = "" ; address for cc - leave blank if not needed Global $BccAddress = "" ; address for bcc - leave blank if not needed Global $IPPort=465 ; GMAIL port used for sending the mail Global $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS ;################################## ; Script ;################################## Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") Global $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc) EndIf ; ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console If FileExists($S_Files2Attach[$x]) Then $objEmail.AddAttachment ($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 then $IPPort = 25 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf If $ssl Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf ;Update settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail="" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler Func MyErrFunc() $HexNumber = Hex($oMyError.number, $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1); something to check for when this function returns Return EndFunc ;==>MyErrFunc[/codebox] Edit:Forum mail adreslerini engellemiş. Ilgili kısımları kendine göre düzenlersin...

@turkey2008abc Yaşadığın sorunu çözmene sevindim... @gmdarkness Malesef ilgili sorun, bazı donanımlarda yaşanabiliyor. Ben henüz bu tip hata veren bir donanıma ratlamadım. Çok sık sistem kurulumu yapmıyorum ama bu yöntemle yaptığım xp kurulumlarının sayısını unuttum. Kısacası baya bir kurulum yaptım. Bu konu için ilgili konuda açıklama vardı. Bazı bilgisayarlarda, anakartın biosundaki sata/ahci ayarlarını değiştirerek ilgili sorun giderilmişti. Farklı yöntem olarak, @awengers44 in konusundaki programı kullanabilirsin... Bu arada senin bilgisayarında çıkan sorun, haliyle diğer bir çok bilgisayarda çıkmayak! [u][b]http://www.tnctr.com/topic/173379-tam-bootable-usb-disk-hazyrlayycy/[/b][/u] @caglar103 Sorunu çözmüşsün, lakin ilgili emulation hataları için, usb sürücüsünüzdeki ilgili dosyayı birlştirmelisiniz. Buna dair önceki konularda ufak bir anlatım yapmıştım... @ibrahim64 Malesef ilgili isoyu direk usbden çalıştıramazsın. Ilgili iso içeriğindeki dosyalar için ayrı ayrı konudaki anlatımları takip ederek, hepsini usbden çalıştırabilirsin. Lakin Windows 98 için, usb diskinin dosya formatı fat/fat32 olmalı!

@KintaRo Yeni program şimdi baktım. Gerçekten güzel olmuş Benim önerim, (tabi seni zorlamayak ve mümkünse) 800x600 ekran çözünürlülüğü için, programın ekranını biraz küçültmen Yada, program 800x600 ve altında bir çözünürlülükte çalışıyorsa tam ekran yapılabilir. Düşünmek lazım...

[img]http://i44.tinypic.com/2duhzqr.jpg[/img] Doğum günün kutlu olsun kardeşim. Sevidklerinle birlikte, sağlıklı,mutlu, huzurlu ... nice yıllar dilerim...

@turkey2008abc Iso dosyası düzgün çalıştı ama, tarama yaptğımda yüklü işletim sistemini mi algılamadı diyorsun? Tam anlayamadım malesef Arıca usbde içinmi yoksa, cd/dvd için mi multiboot oluşturuyorsun? Grub4dos komutunda bir sorun görünmüyor... Usb için; [codebox]title Boot W7RepDisc32.iso if %@root:~1,3%==hd0 && geometry (hd1) && map --unhook && map (hd0) (hd1) && map (hd1) (hd0) && map --hook && set PART=%@root:~5,1% && root (hd1,%PART%) || echo !!! clear set ISOFILE=/multiboot/ISOS/W7RepDisc32.iso set BOOTFILE=/BOOTMGR if exist %ISOFILE% || find --set-root --ignore-floppies %ISOFILE% || echo -> %ISOFILE% bulunamadi! if exist %ISOFILE% && map %ISOFILE% (0xFF) if exist %ISOFILE% && map --hook && root (0xFF) && chainloader (0xFF)%BOOTFILE% || chainloader () && boot boot || echo -> Onyukleme basarisiz! && echo && pause --wait=5 <<< Klasik Menuye Don ...[/codebox] Cd/dvd için; [codebox]title Boot W7RepDisc32.iso set ISOFILE=/multiboot/ISOS/W7RepDisc32.iso set BOOTFILE=/BOOTMGR if exist %ISOFILE% || find --set-root --ignore-floppies %ISOFILE% || echo -> %ISOFILE% bulunamadi! if exist %ISOFILE% && map %ISOFILE% (0xFF) if exist %ISOFILE% && map --hook && root (0xFF) && chainloader (0xFF)%BOOTFILE% || chainloader () && boot boot || echo -> Onyukleme basarisiz! && echo && pause --wait=5 <<< Klasik Menuye Don ...[/codebox]

@pilgetir Sıkıştırma ve şifreleme konusunda 7z.exe, rar.exe vs. den prametre kullanarak yararlanabilirsin... 7z içni basit bir örnek vermek istiyorum... Öncelikle 7zip klasöründeki, 7z.exe dosyasını au3 scripth dosyasının yanına kopyalayın. Isterseniz ilgili dosyayı fileinstall ile autoit içine de alabilirsiniz. Çalıştıracağınız zaman temp klasörüne çıkartıp işlem yaptırmanız kafi. Bir dosya sıkıştırmak için; [codebox]Global $7z_exe = @ScriptDir & '\7z.exe' If FileExists($7z_exe) = 0 Then MsgBox(16,"Hata",$7z_exe & " bulunamadı!") Exit EndIf Global $Pass = "123" Global $7zFile,$Instr Global $File = FileOpenDialog("Sıkıştırılacak dsoyanı seç!", @ScriptDir & "\", "Tüm Dosyalar (*.*)") If Not @error Then $7zFile = $File $Instr = StringInStr($7zFile,".",0,-1) If $Instr > 0 And StringInStr(StringTrimLeft($7zFile,$Instr),"\") = 0 Then $7zFile = StringLeft($7zFile,$Instr-1) $7zFile &= ".7z" RunWait($7z_exe & ' a -p' & $Pass & ' "' & $7zFile & '" "' & $File & '"',"",@SW_HIDE) EndIf[/codebox] Bir klasörü sıkıştırmak için; [codebox]Global $7z_exe = @ScriptDir & '\7z.exe' If FileExists($7z_exe) = 0 Then MsgBox(16,"Hata",$7z_exe & " bulunamadı!") Exit EndIf Global $Pass = "123" Global $7zFile,$Instr Global $File = FileSelectFolder("Sıkıştırılacak klasörünü seç!", "", 5,@ScriptDir) If Not @error Then $7zFile = $File $Instr = StringInStr($7zFile,".",0,-1) If $Instr > 0 And StringInStr(StringTrimLeft($7zFile,$Instr),"\") = 0 Then $7zFile = StringLeft($7zFile,$Instr-1) $7zFile &= ".7z" RunWait($7z_exe & ' a -p' & $Pass & ' "' & $7zFile & '" "' & $File & '"',"",@SW_HIDE) EndIf[/codebox] Aynı şekilde ilgli programları ams projelerinizde de benzer şekilde parametre ile çalıştırarak kullanabilirsiniz. Kolay gelsin...

@turkey2008abc Yaşadığın sorun hakkında bilgi verirsen, hatanın neden olduğunu anlayabiliriz. Şuana kadar projede nadir rastlanan bir sorun mevcut. Ben bir çok bilgisayara kurulum yapmama rağmen henüz rastlamadım. Sorun kısaca txt ekranındaki (mavi ekrandaki) kurulumda, disk seçme ekranından önce gelen siyah ekranda takılma olması. Kısaca bazı donanımlarda ilgili kullandığımız firadisk/winvblock sürücüsü sorun çıkartıyor gibi. Bu sorunumu yaşadın?

@turkey2008abc Win7 kurulumunu direk iso dosyasından çalıştırabilirsin! Bunun için basit bir hazırlık yapman gerekiyor... Aşağıdaki konuyu incele! [color="#0000FF"][u]http://www.tnctr.com/index.php?showtopic=159142[/u][/color]

@lemoncher2 Kısaca bu iş için bir ini dosyası kullanabilirsin. Keyde kullanıcının ismi, valuede şifre olabilir. Misal aşağıdaki gibi bir şey; [codebox][UsersInfo] Tnctr=123Denem BlueLife=Deneme123[/codebox] Kısaca alt alta kullanıcı ismini ve şifresini yazarsın. Haliyle örnekteki Tnctr kullanıcı ismi, 123deneme şifre oluyor. Girilen kullanıcı ismi yoksa, program hata verir. Kullanıcı ismi var ise ve şifre hatalıysa program daha farklı bir hata verir. Işte ilgili ini dosyasını hazırlayıp, internetten ulaşılabilcek bir link ayarlarsın. Yazacağın programla bunu okutur istediğin gibi işlem yapabilirsin.... Seni yanlış anlamışta olabilirim, neyse kolay gelsin...

MertCanDinler O zaman ilgili hatalı çıkan karakterleri replace yap (StringReplace)! Zaten normalde bu hatanın çıkmaması lazımdı. Hata için örnek bir site verirsen, haliyle seni daha iyi yönlendirmemiz mümkün!

@mustafakara Bir örnek yaptım ama kodlarındaki hataları düzeltmedim. Neyse örneği incele. Benim bir süre kaçmam gerekiyor. Kolay gelsin... [codebox];#include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <GuiSlider.au3> Opt('MustDeclareVars', 1) Opt("GUIOnEventMode", 1) Global $mylist Global $hSlider Global $baslik = "ayarlar" Global $oku = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Speech\Voices", "DefaultTokenId") Global $oku1 = RegRead($oku & "\Attributes", "Name") ornek() Func ornek() Local $mygui = GUICreate($baslik, 600, 300) GUICtrlCreateLabel("kişi", 176, 2, 300, 20, 1) GUISetOnEvent(-3, "_close") $mylist = GUICtrlCreateList("", 176, 32, 300, 30) GUICtrlSetFont(-1, 16, 800) sesler($mylist) _GUICtrlListBox_SelectString($mylist, $oku1) GUICtrlSetOnEvent($mylist, "_mylist") GUICtrlCreateLabel("hız:", 176, 85, 300, 20, 1) GUICtrlSetFont(-1, 12, 800) $hSlider = GUICtrlCreateSlider(176, 100, 300, 27, 0x50010019) GUICtrlSetOnEvent($hSlider, "_hSlider") _GUICtrlSlider_SetLineSize($hSlider, 5) ;_Slider_defaultpoz($hSlider,0) Local $button1 = GUICtrlCreateButton("ekran okuyucuyu aç", 176, 145, 300, 27) GUISetState() _Speak($oku1, 2, 100, $baslik & "sayfa") ; --------------------- Local $Gui_Ctrl_Total = 3 Local $Gui_Ctrl_List[$Gui_Ctrl_Total +1][3] = [[$Gui_Ctrl_Total], _ [$mylist,GUICtrlGetHandle($mylist),"Aktif olan Liste"], _ [$hSlider,GUICtrlGetHandle($hSlider),"Aktif olan Slider"], _ [$button1,GUICtrlGetHandle($button1),"Aktif olan ekran okuyucuyu aç butonu"]] ; --------------------- While 1 $Gui_Ctrl_List[0][1] = __WinAPI_GetFocus() If $Gui_Ctrl_List[0][1] <> $Gui_Ctrl_List[0][2] Then $Gui_Ctrl_List[0][2] = $Gui_Ctrl_List[0][1] For $I = 1 to $Gui_Ctrl_List[0][0] If $Gui_Ctrl_List[$I][1] = $Gui_Ctrl_List[0][1] Then _Speak($oku1, 2, 100, $Gui_Ctrl_List[$I][2]) ExitLoop EndIf Next EndIf Sleep(50) ;Cpu save WEnd EndFunc ;==>ornek Func _close() Exit EndFunc ;==>_close Func _mylist() _Speak(GUICtrlRead($mylist), 2, 100, GUICtrlRead($mylist)) EndFunc ;==>_mylist Func _hSlider() ;_Slider_defaultpoz($hSlider,1) Local $seviye = _GUICtrlSlider_GetPos($hSlider) _Speak($oku1, 2, 100, $seviye & "%") EndFunc ;==>_hSlider Func sesler($listem) Local $yol = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\" For $i = 1 To 10 Local $var = RegEnumKey($yol, $i) If @error <> 0 Then ExitLoop Local $oku = RegRead($yol & $var & "\Attributes", "Name") GUICtrlSetData($listem, $oku) Next EndFunc ;==>sesler Func _default_reg() Local $yol = "HKEY_CURRENT_USER\Software\Microsoft\Speech\Voices" ;RegWrite( EndFunc ;==>_default_reg Func _Speak($sVoice, $iRate, $iVol, $s_txt) Local $objSpeech = ObjCreate("Sapi.SpVoice") $objSpeech.Voice = $objSpeech.GetVoices("Name=" & $sVoice).Item(0) $objSpeech.Rate = $iRate $objSpeech.Volume = $iVol $objSpeech.Speak($s_txt) EndFunc ;==>_Speak Func __WinAPI_GetFocus() Local $aResult = DllCall("user32.dll", "hwnd", "GetFocus") If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc ;==>__WinAPI_GetFocus[/codebox]

[notice]Kısaba bu programı, flash oyunlarını bir klasör altında toplayıp, hızlı bir şekilde başlatabilmek için hazırladım. Doğruyu söylemek gerekirse,yiyenimiçin hazırlamıştım. Flash oyunlarını sevenler için, bence kullanışlı bir program oldu. Flash Oyun Paketi v1.0 + 5 Adet Flash Oyun Yaklaşık 8 MB https://app.box.com/s/e0own86z62l529wrqv7y Flash Oyun Paketi v1.0 + 47 Adet Flash Oyun Yaklaşık 135 MB https://app.box.com/s/qgeq0dt1gbl3c0rtd762 Bazı Özellikleri 1 - Flash oyununa farenizle çift tıklatarak hızlı bir şekilde başlatabilirsiniz. 2 - Flash oyunlardaki linklerin %95 ini engelleyebilirsiniz. Malum her yerde reklam içerek linkler oluyor. 3 - Flash oyunları 800x600 boyutlarındaki bir ekran ile açılmaktadır. Ekran çözünürlülüğünüz 800x600 ise, veyahut daha düşük ise, flash oyunları tam ekran açılır. 4 - Istediğin kadar flash oyunu ekleyebilirsiniz. Bunun için FlashGame klasörüne oyunlarınızı atmanız yeterli... 5 - Oyunun açılmış ekrana, farklı bir flash dosyası sürükleyip çalıştırabilirsiniz. 6 - Oyunun açılmış ekranında bazı klevye kısayollarını kullanabilrisiniz. Misal Esc = Oyunun penceresini kapatır, F5 = Oyunu yeniden başlatır, Delete = Sadece oyunu kapatır. vs. vs. gibi.. Çift tıklattığınızda açılan pencere için örnek vermem gerekirse; [/notice]

@mustafakara Aslında varsayılan olarak gemesi daha mantıklı. Heralde geliştiricilerin gözünden kaçmış... Aşağıdakini örneği dene... [codebox];#include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <GuiConstantsEx.au3> #include <GuiSlider.au3> Opt('MustDeclareVars', 1) Example() Func Example() Local $mylist, $msg GUICreate("ayarlar", 600, 300) GUICtrlCreateLabel("kişi", 176, 2, 300, 20, 1) $mylist = GUICtrlCreateList("", 176, 32, 300, 30) GUICtrlSetFont(-1, 16, 800) Local $oku = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Speech\Voices", "DefaultTokenId") Local $oku1 = RegRead($oku & "\Attributes", "Name") _GUICtrlListBox_SelectString($mylist, $oku1) GUICtrlCreateLabel("hız:", 176, 85, 300, 20, 1) GUICtrlSetFont(-1, 12, 800) Local $hSlider = GUICtrlCreateSlider(176, 100, 300, 40, 0x50010019) _GUICtrlSlider_SetLineSize($hSlider, 5) GUICtrlCreateButton("ekran okuyucuyu aç", 176, 135, 300, 25) GUISetState() While 1 $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd EndFunc ;==>Example[/codebox]