blue_life

[codebox]FileInstall("PowerISO5.exe", @TempDir & "\PowerISO5.exe") ;Setup DOSYAMIZI AUTOİT İÇİNE GÖMELİM VE TEMP'E ÇIKARALIM ShellExecuteWait(@TempDir & "\PowerISO5.exe", "/S", "", "", @SW_HIDE);KATILIMSIZ PARAMETRESİYLE KURALIM Sleep(500);Biraz bekleyelim FileDelete(@TempDir & "\PowerISO5.exe");KURULUM BİTTİ TEMPDEN SİLELİM ; --------------------- Local $Pid = RunWait(@ProgramFilesDir & "\PowerISO\PowerISO.exe", @ProgramFilesDir & "\PowerISO") ;Programı çalıştırıp pidini alalım WinWait("PowerISO", "Kayıt kodu gir...") ControlCommand("PowerISO", "Kayıt kodu gir...", "Button2", "Check", "") Send("TEAM CRUDE{TAB}CPPCFN6ZAY8QR7TXB4ULXR53C{ENTER}") Send("{ENTER}") Sleep(1000);Biraz bekleyelim Yani bir saniye ProcessClose($Pid) ;Programımızı kapatalım[/codebox]

@zeki ural Ubuntu hakkında fazla bilgim yok ama grub4dos ile çalıştırabileceğini düşünüyorum. Kısaca ubuntuyu kurarken ilgili kurulduğu bölümün başına pbr (önyükleme) bilgisini yazmıştır. Sen ilgili bölümü önyükleyerek çalıştırmayı denedin mi? Grub4dos komut istemine geç ve orda; [b]find[/b] yazıp [b]Enter[/b] tuşuna bas. Bu işlem sonunda grub4dos kullanılabilir sürücüleri listeleyecektir. Ilgili ubuntuya ait bölümü bulmakta zorluk çekersen, bölümün tipine bakabilirsin. Bunun için; [b]parttype (hd0,4)[/b] yazıp [b]Enter[/b] tuşuna basman gerekiyor. (hd0,4) seninde anlayacağın üzere birinci diskteki 5. bölüm anlamını taşımaktadır. Daha sonra önyüklemeyi denersin. [b]root (hd0,4) Enter chainloader +1 Enter boot[/b] Ayrıca bu işlem için daha kolay bir yöntem olarak Plop BootManageri deneyebilirsin. Pbr bilgisinden önyükleme başarısız olur ise, heralde ubuntu da grub kullanıyordur. Ubuntunun konfigürasyon dosyasını (menu.lst olabilir) çalıştırmayı deneyebilirsin. Neyse umarım başarırsın, sonucu yazmayı unutma!

Resim dosyasının adını Resim.png, ses dosyasının adınıda Muzik.mp3 yapıp, autoit script dosyasının yanına koyunuz. Sonra aşağdıdaki kodları compile edip exeye çeviriniz. Gördüğünüz üzere FileInstall komutuyla ilgili dosyaları autoit içine alıyoruz ve çalıştığında temp klasörüne çıkartıp çalıştırıyoruz. Neyse kolay gelsin... [codebox]#NoTrayIcon #include <WindowsConstants.au3> #include <GuiConstantsEx.au3> #include <GDIPlus.au3> Global $Resim = __TempFile(".png") Global $MP3 = __TempFile(".mp3") FileInstall("Resim.png", $Resim, 1) ;Resmi autoit içine alalım FileInstall("Muzik.mp3", $MP3, 1) ;MP3ü autoit içine alalım If FileExists($MP3) = 1 Then SoundPlay($MP3, 0) Global $ResW, $ResH _My_Gui() Sleep(5000) FileDelete($Resim) FileDelete($MP3) Exit Func SetBitmap($hGUI, $hImage, $iOpacity) Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend $hScrDC = _WinAPI_GetDC(0) $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC) $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage) $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap) $tSize = DllStructCreate($tagSIZE) $pSize = DllStructGetPtr($tSize) $ResW = _GDIPlus_ImageGetWidth($hImage) $ResH = _GDIPlus_ImageGetHeight($hImage) DllStructSetData($tSize, "X", $ResW) DllStructSetData($tSize, "Y", $ResH) $tSource = DllStructCreate($tagPOINT) $pSource = DllStructGetPtr($tSource) $tBlend = DllStructCreate($tagBLENDFUNCTION) $pBlend = DllStructGetPtr($tBlend) DllStructSetData($tBlend, "Alpha", $iOpacity) DllStructSetData($tBlend, "Format", 1) _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA) _WinAPI_ReleaseDC(0, $hScrDC) _WinAPI_SelectObject($hMemDC, $hOld) _WinAPI_DeleteObject($hBitmap) _WinAPI_DeleteDC($hMemDC) EndFunc ;==>SetBitmap Func _My_Gui() Local $yGUI = GUICreate("", 1, 1, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) _GDIPlus_Startup() Local $yImage = _GDIPlus_ImageLoadFromFile($Resim) SetBitMap($yGUI, $yImage, 255) Local $Gui_X = @DesktopWidth - ($ResW + 5) Local $Gui_Y = @DesktopHeight - ($ResH + 5) Local $Shell_Pos = WinGetHandle("[CLASS:Shell_TrayWnd]") ;CLASS:Progman If $Shell_Pos <> "" Then $Shell_Pos = WinGetPos($Shell_Pos) If UBound($Shell_Pos) = 4 Then If $Shell_Pos[1] < 1 Then If $Shell_Pos[0] > 0 Then $Gui_X = @DesktopWidth - ($Shell_Pos[2] + ($ResW + 5)) Else If $Shell_Pos[0] < 1 Then $Gui_Y = @DesktopHeight - ($Shell_Pos[3] + ($ResH + 5)) EndIf EndIf EndIf WinMove($yGUI, "", $Gui_X, $Gui_Y, $ResW, $ResH) GUISetState(@SW_SHOW) EndFunc ;==>_My_Gui Func __TempFile($s_FileExtension = ".tmp", $s_DirectoryName = @TempDir, $s_FilePrefix = "~", $i_RandomLength = 7) ; Check parameters If IsKeyword($s_FilePrefix) Then $s_FilePrefix = "~" If IsKeyword($s_FileExtension) Then $s_FileExtension = ".tmp" If IsKeyword($i_RandomLength) Then $i_RandomLength = 7 If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @TempDir ; First reset to default temp dir If Not FileExists($s_DirectoryName) Then $s_DirectoryName = @ScriptDir ; Still wrong then set to Scriptdir ; add trailing \ for directory name If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\" ; Local $s_TempName Do $s_TempName = "" While StringLen($s_TempName) < $i_RandomLength $s_TempName = $s_TempName & Chr(Random(97, 122, 1)) WEnd $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension Until Not FileExists($s_TempName) Return $s_TempName EndFunc ;==>__TempFile [/codebox]

@iso_manyak Usbde sürücündeki iso dosyasından kurulumu yapıyorsan, ilgili sorun nadirde olsa bazı bilgisayarlarda çıkmaktadır malesef Ben sayısını hatırlayamacağım kadar çok bilgisayara iso dosyasından xp kurdum ve henüz ilgili soruna rastlamadım. Bazı arkdaşlar, anakartının biosundaki sata/ahci ayarını değiştirerek ilgili sorunu geçebildi. İstersen bir dene. Ilgili bilgisayarda hata çıkmış olabilir ama farlı bilgisyarlarda bu hataya düşme ihtimalin çok az. @ozanaus Rica ederim, kolay gelsin...

@MeHMeTBeN Png için udfler kullanmak gerekiyordu. Yani üzerinde uğraşılması gereken bir konu Şuan için buna malesef vakit ayıramam... Eğer arkaplanı sabit bir renk olarak kullanacaksan, png formatını bmpye dönüştürmeden önce arkaplanı ilgili renk ile doldur. Tasarımda fazla anlamıyorum ama photoshopta çok basit bir işlemdi...

@ozanaus Ilgili konudasın zaten. Konun birinci mesajındaki yardım dosyasını aç ve incele. [color="#0000FF"]http://bluelife.zxq.net/Files/Grub4dos/Rehber.zip[/color] Yardım dosyası tamamen bitmemişti ama umarım bir gün bakıp tamamlayabilirim

[codebox]_BL_MSG_BOX("Lisans No", "1234-1234-1234-1234") ;Diğer kodlarına burdan devam edeceksin... ; Bunları au3 dosyasının en sonuna ekle Func _BL_MSG_BOX($Title = "", $Text = "") Local $GUI_MSG = GUICreate("Lisans No", 300, 100, -1, -1, BitOR(0x00040000, 0x00C00000)) Local $GUI_MSG_EDIT = GUICtrlCreateEdit($Text, 0, 0, 300, 65,0x0800) GUICtrlSetResizing(-1, 0x0066) GUICtrlSetBkColor(-1, 0xFFFFFF) GUICtrlSetColor(-1, 0x0000FF) Local $GUI_MSG_OK = GUICtrlCreateButton("Tamam", 5, 70, 290, 25,1) GUISetState(@SW_SHOW, $GUI_MSG) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3,$GUI_MSG_OK ExitLoop EndSwitch WEnd GUIDelete($GUI_MSG) EndFunc[/codebox]

Tam anlayamadım ama aşağıdaki gibi bir şey mi istiyorsun? [codebox]_BL_MSG_BOX("Lisans No", "1234-1234-1234-1234") ;Diğer kodlarına burdan devam edeceksin... ; Bunları au3 dosyasının en sonuna ekle Func _BL_MSG_BOX($Title = "", $Text = "") Local $GUI_MSG = GUICreate("Lisans No", 400, 150, -1, -1, BitOR(0x00040000, 0x00C00000)) Local $GUI_MSG_EDIT = GUICtrlCreateEdit($Text, 0, 0, 400, 150,0x0800) GUICtrlSetResizing(-1, 0x0066) GUICtrlSetBkColor(-1, 0xFFFFFF) GUICtrlSetColor(-1, 0x0000FF) GUISetState(@SW_SHOW, $GUI_MSG) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 ExitLoop EndSwitch WEnd GUIDelete($GUI_MSG) EndFunc[/codebox]

Yardım dosyasındaki [b]MouseClick [/b]komutunu inceleyiniz! MouseClick ( "button" [, x, y [, clicks [, speed]]] )

Power, hdd, işlemci fanı gibi hayati önem taşıyan fanlardan vs. vs. olma ihtimalleri var? İlgili bilgisyar masaüstü mü? Eğer masaüstüyse kasanı açıp fanları ve kabloaları kontrol et. Sorun çözülmediysa bilgisayardaki gereksiz bileşenleri çıkar. Misal pc yuvasındaki kartlar vs. Ayrıca cd/dvd sürücüler gibi aygıtları çıkartıp test et. Sorun yine çözülmediysa, harddiskini test yazılımlarıyla tet et... Hdtune, hddscan vs. gibi yazılımlar bu konuda fena deyil. Sorun yine devam ediyorsa, belkide en başta yapman gerekenlerden birisi olarak, sistemindeki sıcaklık değerlerini takip et. Bunun için HWMonitor veyahut everest gibi bir yazılım kullanabilirsin.. http://www.cpuid.com/softwares/hwmonitor.html Neyse sen yazdıklarımı bir dene. Duruma göre sonuçları değerlendiririz...

@MeHMeTBeN Verdiğin örnekleri, tek bir örnekte veriyorum. Yani Başlata bastığında sırasıyla üç döngüyede girecek. Dur ile çıkabilirsin... Inceleyiniz... [codebox]Global $DONGU = True ;Döngüdeyken bu değer false ise döngüden çıkalım Global $Form1 = GUICreate("Form1", 153, 193, 192, 124) Global $basla = GUICtrlCreateButton("Başlat", 32, 40, 75, 25) Global $dur = GUICtrlCreateButton("Dur", 32, 96, 75, 25) GUIRegisterMsg(273, "MY_WM_COMMAND") ;Registermsg GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $basla $DONGU = True ;Döngüyü true yapalım $deneme1 = 0 Do MsgBox(0, "dur butonu yokmu ", $deneme1) $deneme1 = $deneme1 + 1 Until $DONGU = False ;DONGU değişkeni false olana kadar devam edelim ; -------------------------- $DONGU = True ;Döngüyü true yapalım For $on = 1 To 100 Step 1 MsgBox(0, "100'ekadar saymadan durdurun beni ", $on) If $DONGU = False Then ExitLoop ;DONGU false ise çıkalım Next ; -------------------------- $DONGU = True ;Döngüyü true yapalım While $DONGU = True ; DONGU true iken devam edelim ClipPut("butonsuz duramam ") Send("^v") Sleep(50) WEnd EndSwitch WEnd Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam) Switch BitAND($wParam, 0x0000FFFF) Case $dur $DONGU = False ;Değeri false yapalım EndSwitch Return "GUI_RUNDEFMSG" EndFunc ;==>MY_WM_COMMAND[/codebox]

@TurkLeecH Notepad sadece @lf veyahut @cr olunca ilgili karakter şeklinde görünüyordu. Ilgili karakterleri @crlf ile replace yaparsan sorunun düzelecektir. Basit bir örnek vermem gerekirse; [codebox]Global $Text = "Selam Millet" & @lf & "Nasılsınız" & @cr & "Ben BlueLife" & @crlf & "www.tnctr.com" ; Bu yazımız olsun! $Text = StringRegExpReplace($Text,"[" & @cr & @lf & "]",@crlf) ;@cr ve @lf leri @crfl yapalım ve yazımız notepad ekranında düzgün görünsün. ClipPut($Text) ;Isterseniz clipboarda kopyalayıp, notepade yapıştırarak test yapalım MsgBox(64,"",$Text)[/codebox]

@hakanight Ilgili çalışman çok uzun ve gui yapısında çok fazla sorun var. İşlemler -> SANIL YUKLE guileri için örnek ekledim. Diğer guiler içinde benzer bir düzenleme yapıp, çalışmanı düzenle. Takıldığın kısımda yardım istersin... http://bluelife.zxq.net/Garbage/_sanalika.hkn.zip

@beyoğlu Modemdeki port hıznı gösteren alan ile dnsin herangi bir alakası olacağını düşünmüyorum. Ttnet ile iletişime geçtiğin için hızını tekrar yükseltmişlerdir. Bunu bazı bölgedeki kullanıcılara yapıyorlar malesef. İtiraz gelince düzeltiyorlar. Bana da yapmışlardı ve müşteri hizmetlerini durumu anlatıp tekrar yükseltmelerini sağlamıştım. Kısaca ilgili hız ile dns konusunun bir alakası yok. @kamuran731 Evet ilgili satır hatalıymış. Aşağıdaki hatalı satrı yerine; [b]$NETWORKADAPTERDNS2 = $OBJITEM.DNSServerSearchOrder(1[/b]) aşağıdakini kullanmalısınız; [b]$NETWORKADAPTERDNS2 = $OBJITEM.DNSServerSearchOrder()[/b]

Ben sabah bir kaç dosya indirmiştim ve telefon numarasını sallmıştım Aktivasyon kodu yazdığım maaile gelmişti... Letitbit bu aralar fazla kullanılmaya başladığından, bu tür yollarla daha fazla gelir elde etmeye çalışıyor ve bu haliyle doğal. Yani bu tip sorun yaşayan kullanıcılar premium üyelik almaya zorlanıyor. Bu şekilde kullanan sayısı artarsa yeni kısıtlamaların da gelmesi muhtemel Ara sıra film indirmek için Skymonk kullanıyorum ve her bir indirmede yaklaşık 90 - 100 kb/s ile indirme yapıyorum. Yani aynı anda birden fazla indirme yaparak Letitbit'ten yüksek hızda veri çekilebiliyor. Lakin Skymonk bana güven vermedi Bu nedenle sanal sistem (vmware) üzerindeki xpden download yapıyorum

Aslında bunun için bir çok örnek verilebilir. Ben bu gün farklı bir örnek vermek istiyorum. Lakin farklı sistemlerde sorunsuz çalışmırmı denemek lazım Hazırladğım örneği ve ilgili resimleri aşağıdaki linkten indirebilirsiniz. [color="#0000FF"][u]http://bluelife.zxq.net/Files/Autoit/Samples/Button_Animate_Test.zip[/u][/color] Kullandığım free ftpdeki sorunlara karşı, kodlarımızı burdan da verelim. [codebox]Global $Total_Button = 2 Global $Buttons[$Total_Button + 1][7] = [[$Total_Button, 0], _ ;nid, nhwnd, x_pos, y_pos, w_pos,h_pos ["", "", 50, 40, 64, 64, "_Button_1"], _ ;Button_1 ["", "", 120, 40, 64, 64, "_Button_2"]] ;Button_2 Local $Form1 = GUICreate("BlueLife Button Test", 230, 150) GUISetBkColor(0x0000FF) ;Beyaz $Buttons[1][0] = GUICtrlCreatePic("Turkey.bmp", $Buttons[1][2], $Buttons[1][3], $Buttons[1][4], $Buttons[1][5]) $Buttons[1][1] = GUICtrlGetHandle(-1); Handlesini alıyoruz $Buttons[2][0] = GUICtrlCreatePic("Close.bmp", $Buttons[2][2], $Buttons[2][3], $Buttons[2][4], $Buttons[2][5]) $Buttons[2][1] = GUICtrlGetHandle(-1); Handlesini alıyoruz GUIRegisterMsg(32, "_Blue_Button_Animation") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch WEnd Func _Button_1() MsgBox(64, "BlueLife", "Ne Mutlu Türküm Diyene!") EndFunc ;==>_Button_1 Func _Button_2() MsgBox(64, "BlueLife", "Bye bye!") Exit EndFunc ;==>_Button_2 Func _Blue_Button_Animation($hWnd, $Msg, $wParam, $lParam) Local $GID = $Buttons[0][1] If $GID = $wParam Then $GID = $Buttons[0][2] Switch BitShift($lParam, 16) Case 512 ;Contiune Case 513 GUICtrlSetPos($Buttons[$GID][0], $Buttons[$GID][2] + 0.5, $Buttons[$GID][3] + 0.5, $Buttons[$GID][4] + 1, $Buttons[$GID][5] + 1) Case 514 GUICtrlSetPos($Buttons[$GID][0], $Buttons[$GID][2] - 0.5, $Buttons[$GID][3] - 0.5, $Buttons[$GID][4] + 1, $Buttons[$GID][5] + 1) Call($Buttons[$GID][6]) EndSwitch Else If $GID <> 0 Then $GID = $Buttons[0][2] GUICtrlSetPos($Buttons[$GID][0], $Buttons[$GID][2], $Buttons[$GID][3], $Buttons[$GID][4], $Buttons[$GID][5]) $Buttons[0][1] = 0 EndIf For $GID = 1 To $Buttons[0][0] If $wParam = $Buttons[$GID][1] Then GUICtrlSetPos($Buttons[$GID][0], $Buttons[$GID][2] - 0.5, $Buttons[$GID][3] - 0.5, $Buttons[$GID][4] + 1, $Buttons[$GID][5] + 1) $Buttons[0][1] = $Buttons[$GID][1] $Buttons[0][2] = $GID ExitLoop EndIf Next EndIf EndFunc ;==>_BlueButtonAnimation[/codebox] Neyse umarım faydalı bir örnek olmuştur. Çalışmalarınızda başarılar dilerim arkadaşlar, kolay gelsin...

@mustafakara Öncelikle mesajını farketmemişim. Geç yanıt için kusura bakma. Konuya gelirsek; servis sırasıyla alakalı malesef herangi bir malumatım yok.

@hsrt02 Yukarıdaki yazdıklarım gerçek bilgisyar içindi zaten Kısaca xp kurda ilgili sata/ahci sürücüleriniz olmadığı için ilgili sorunu yaşıyorsunuz.... Edit; Bir çok biosta farklı yerlerdedir. Bazılarında ise (genelde dizüstü vs. ler) ilgili ayar yokturdur. Kullandığınız bilgisayar masaüstümü nedir? Marka modeli varsa üretici sitesindeki dökümanlarda yazıyordur. Sen en iyisi biosa bir göz gezdir...

@hsrt02 Yaşadığın sorunun grub4dos ile bir ilgisi yok sayılır. Kısaca xp kur senin disk sürücülerini tanımamış. Bu durum xp kurlarda sık sık yaşanmaktadır. Çözüm olarak ilgili bilgisayardaki anakartın biosuna girip, sata/ahci modunu ide yaparsan kuruluma devam edebilirsin. Diğer bir taraftan ilgili xpkura sata sürücülerini ekleyip, tekrar boot.gz oluşturursanda kuruluma devam edebilirsin. Ayrıtılı bilgi için googlede [b]xp kur harddiski görmüyor[/b] şeklinde bir arama yapabilirsiniz. Not:Qemu ile testlerde haliyle sadece usb sürücünüz görünür. Qemu ile kurulum yapmayınız. Qemu sadece menüyü kontrol etmek ve tasarlamak için paketlere eklenmişti...

@recep1905 Bazen kullandığım free ftp sunucunsunda bu tip hatalar olabiliyor. Bir süre sonra düzelecektir. Lakin senin için yinede farklı bir yere upload ediyorum... [color="#0000FF"][u]http://www.mediafire.com/?dprmreya7gg7h4g[/u][/color]

@mustafakara Yukarıda spooler (yazdırma birikintisi) için örnek vermiştim. Kısaca spooler servisinin otomatik başlatmak için HKLM\SYSTEM\CurrentControlSet\Services\Spooler anahtarındaki Start değerinin 2 olması gerekiyor. Kod olarak verirsem; RegWrite('HKLM\SYSTEM\CurrentControlSet\Services\Spooler', 'Start', 'REG_DWORD', '2') Ayrıca start değeri 3 olursa elle başlatma (manuel) , 4 olursa kapalı (disabled) oluyordu.

Cümleten hayırlı cumalar...

İlk mesajda yazdığım üzere, opendnsi baya uzun süredir kullanıyorum. Gerçekten hızlı ve güvenli bir dns sunucusu. Bu gün yaşanan sorunlar her zaman, herangi bir dns sunucusunda da olabilir. Dns sunucusu olarak benim birinci önceliğim halen opendnstir ve tavsiye ederim. Ayrıca ne olduğunu bilmediğiniz dns sunucularını hızlı diye aldanıp kullanmayınız! Bilmediğiniz dns sunucuları güvenlik riskini haliyle arttırır... Not:Şuan opendns çalışıyor...

Programı başlattığında direk rr3 tuşuna mı basacak? Eğer öyleyse aşağıdaki kodlar işine yarayacaktır. Kurcala, kolay gelsin... [code]HotKeySet("{ESC}", "_EXIT") MsgBox(64,"","rr3 tuşu devamlı gönderilecek. Işlemi iptal etmek için Esc tuşuna basabilirsin.") While 1 Sleep(50) ;Cpu Save Send("rr3") WEnd Func _EXIT() Exit 0 EndFunc ;==>Terminate[/code]

Birden bire internetim kesildi ve sitelere giremez oldum. Modeme vs. baktım ip alıyor. Firewallı kontrol ettim. Açıkçası dns sorunu ilk başta aklıma gelmedi. Az kalsın ttneti araycak ve biraz ses tonumu yükseltecektim Sonra aklıma dns geldi