blue_life

Bu gün opendns arada çalışıp, arada çalışmıyor. Ilgili dns adresleri; 208.67.222.222,208.67.220.220 Ben uzun yıllardır opendns kullanıyorum ve ilk kez böyle bir sorun ile karşılaştım. Ilgili dnsleri kullanan arkadaşlar bir süreliğine google (8.8.8.8,8.8.4.4) gibi farklı bir dns adresi kullanabilir...

@caglar103 Tabiki bir çok yöntemi var ama benim en çok sevdiğim ve tasye ettiğim yöntem iso yöntemi. Bunun haricinde WinNtSetup programıyla live sistem üzerinden kurulum yapabilirsin. http://www.msfn.org/board/topic/149612-winntsetup-v21/ Aynı şekilde grub4dos vasıtasıyla @wengers44 konusundaki programı kullanabilirsin. http://www.tnctr.com/topic/173379-tam-bootable-usb-disk-hazyrlayycy/ Kısaca farklı, farklı bu konuda bir çok yöntem mevcuttur...

@lazenes1 Böyle bir boot aracına daha önceden ihtiyacım olmadığı için malesef herangi bir bilgim yok. Bazı anakartların biosunu, biostaki bir seçenek vasıtasıyla güncelleyebiliyoruz. Tabi bu seçenek çok eski anakartlarda yoktu. Sonradan yaygınlaştı. Anakartının biosunun bunu destekleyip desteklemediğine bak. Eğer desteklemiyorsa, anakartının üretici sitesinden, ilgili bios yazılımı bios dosaysına ulaşabileceğini düşünüyorum. Anakartının marka modeli nedir?

Bu konu "Windows Xp" forumundan "Katılımsız Kurulum Destek" forumuna taşınmıştır.

[quote name='lazenes1' timestamp='1333556784' date='04 April 2012 - 18:26 '] grub4dos ile .bat dosyalarini nasil calistira bilirim bios update yabcamda batdosyasi acmamlazim yardim miniZibekliyorum[/quote] Grub4dos ile, içerisinde ms-dos işletim sistemi bulunan disket imajını çalıştıracaksın. Misal konuda paylaşılan paketlerde Windows 98 Başlangıç Disketi gibi örnekler vardı. Haliyle disket imajını winimage veyahut ultraiso gibi bir programla açıp, istediğin gibi düzenleyebilirsin. @caglar103 İnan kaç kez yazdığımı hatırlamıyorum. Aynı şeyleri yazmaktan artık sıkılmaya başladım Fat/Fat32/Ntfs dosya sistemlerine ait bir sürücüden, SETUPLDR.BIN dosyasını direk önyükleyerek Windows Xp ve benzerlerini (NT5 oluyor) kuramayız. Bu yöntem sadece CD/DVD için geçerlidir. Konun ilk mesajındaki yardım dosyasını indirip usb bölümünü incelersen gerekli bilgilere ulaşabilirsin. Kısaca ben usb için, iso dosyasından XP kurulumunu çalıştırıyorum. Bu yöntemi kullandığım bilgisayarlarda şuana kadar bir sorun da yaşamadım. [color="#0000FF"][u]http://www.tnctr.com/topic/173188-[/u][/color]

@samosan Windows 98 ve Windows Millenium kurulumu seninde bildiğin üzere NTFS dosya sistemini tanımıyorlar. Eğer harici disk kullanıyorsan, harici diskinde bu sistemleri kurmak için fat/fat32 dosya biçiminde bir bölüm oluşturabilirsin. Yok illa ntfs dosya sisteminden kurulum yapmak istiyorum dersen, bu sistemleri kurmak için kullandığımız dos ortamına ntfs dosya sistemini tanıtıp deneme yapabilirsin. Heralde hiren's bootcd de böyle araçlar olacaktı. Hiren's üzerindeki ms-dos sisteminde ntfs dosya sistemini ilgili araçlar ile tanıtıp, kurulumu çalıştırıp test yapabilirsin. Eğer kurulum sorunsuz gerçekleşirse, bu ntfs dosya sistemini tanıtan araçları windows 98 kur disk imajına ekleyip kullanabiliriz. Diğer bir yöntem olarakta, windows kurulumnu bir disk imajına ekleyip test yapılabilir. Ama büyük ihtimal ms-dos bu ramdeki disk imajını algılasa bile kur sorun çıkartabilir. Test etmek lazım. Kısacası bu sistemler için en mantıklısı fat/fat32 olan bir sürücüden veyahut cd/dvd den kurulum yapmak.

[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 geçirmeni dilerim...

Şuan Seagate disklerim ve bir tanede Samsung diskim var. Satın aldığımda ilk olarak disklerimi test eder, üretimde hata olup olmadığına bakarım. Hata var ise değiştirme yolunu izlerim. Şuana kadar herangi bir şekilde diskteki arıza nedeniyle veri kaybı yaşamadım

[quote name='blue_life' date='03 April 2012 - 14:58 ' timestamp='1333457900' post='1180391'] Ben spooler servisi için bir örnek veryim, sen kendine göre ayarlarsın. Başarılar dilerim, kolay gelsin... [codebox]OnAutoItExitRegister("_BL_EXIT") ;Çıkış işlemlerini yaptırkmak için OnAutoItExitRegister komutunu tanıtalım Global $hKernel32 = DllOpen("kernel32.dll") If $hKernel32 = -1 Then MsgBox(16, "Error!", "Can't open kernel32.dll") Exit 1 EndIf Global $hAdvapi32 = DllOpen("advapi32.dll") If $hAdvapi32 = -1 Then MsgBox(16, "Error!", "Can't open advapi32.dll") Exit 1 EndIf Local $Service_String = "spooler" ;spooler -> Yazdırma birikitisidir. Local $Service_Query = _BL_Service_QueryStatus($Service_String) If $Service_Query = 0 Then MsgBox(16, $Service_Query, $Service_String & " servisi sistemde yüklü deyil!") Else If $Service_Query > 1 Then MsgBox(64, $Service_Query, $Service_String & " servisi çalışıyor...") Else MsgBox(64, $Service_Query, $Service_String & " servisi sistemde yüklü ama çalışmıyor.") EndIf EndIf Func _BL_EXIT() DllClose($hKernel32) DllClose($hAdvapi32) Exit 0 EndFunc ;==>_BL_EXIT Func _BL_Service_QueryStatus($BServiceName, $BComputerName = "") Local $ADVAPI32_DLL = DllOpen("advapi32.dll") If $ADVAPI32_DLL = -1 Then Return SetError(1, 0, 0) Local $OPEN_SCM = DllCall($hAdvapi32, "ptr", "OpenSCManagerW", "wstr", $BComputerName, "wstr", "ServicesActive", "dword", 1) If @error Then $OPEN_SCM = 0 Else $OPEN_SCM = $OPEN_SCM[0] EndIf Local $BService = DllCall($hAdvapi32, "ptr", "OpenServiceW", "ptr", $OPEN_SCM, "wstr", $BServiceName, "dword", 4) If @error Then $BService = 0 Else $BService = $BService[0] EndIf Local $bSERVICE_STATUS_PROCESS = DllStructCreate("dword[9]") Local $BQSSE = DllCall($hAdvapi32, "int", "QueryServiceStatusEx", "ptr", $BService, "dword", 0, _ "ptr", DllStructGetPtr($bSERVICE_STATUS_PROCESS), "dword", DllStructGetSize($bSERVICE_STATUS_PROCESS), "dword*", 0) If $BQSSE[0] = 0 Then $BQSSE = DllCall($hKernel32, "dword", "GetLastError") $BQSSE = $BQSSE[0] EndIf DllCall($hAdvapi32, "int", "CloseServiceHandle", "ptr", $OPEN_SCM) DllCall($hAdvapi32, "int", "CloseServiceHandle", "ptr", $BService) ;~ Local $bStatus[9] ;~ For $i = 0 To 8 ;~ $bStatus[$i] = DllStructGetData($bSERVICE_STATUS_PROCESS, 1, $i + 1) ;~ Next ;~ Return SetError($BQSSE, 0, $bStatus) Return SetError($BQSSE, 0, DllStructGetData($bSERVICE_STATUS_PROCESS, 1, 2)) EndFunc ;==>_BL_Service_QueryStatus[/codebox] [/quote]

@LifeSux Şimdi baktım ve malesef başarıya ulaşamadım. Lakin düşüncelerimi (yanlışda olabilir, çünkü bu konularda fazla bilgim yok) kısaca yazmak istiyorum. Sen uzaktaki bir bilgisayara mesaj göndermek için, o bilgisayarın uzak ipsini kullanmalısın. Haliyle ilgili bilgisayarda da bağlantı yaptığınız port, modemden ilgili bilgisaraya yönlendirilmiş olması gerek. Şöyle analatayım; 1. bilgisyarımız server olsun. Yani bu 1. bilgisayardan mesaj diğer bilgisayara gönderilecek. Bu bilgisayarın ipleri önemli deyil. 2. bilgisayarımız haliyle cilent oluyor ve uzak ip adresi 78.169.235.1 olsun. Bu bilgisayarın yerel ağdaki ip adresi de 192.168.2.4 olsun. Sen 1. bilgisayardan mesajını 78.169.235.1 ip adresine göndereceksin ve mesajı gönderdiğinde bu mesaj ikinci bilgisayarımızın modemine ulacaşacak. Modemden bu bilginin yönlendirileceği kısımı haliyle nat bölümünden ayarlıyoruz. Işte ilgili kullandığımız port için ilgili yerel ağdaki ipmize yönledirme yapacağız. Yani 192.168.2.4 de yönlendirme yapacağız. Bu sayede modem ilgili porttan gelen veriyi 192.168.2.4 göndermiş olacak ve ikinci bilgisayarımızda çalışan client programı bu mesajı okuyacak. Benim bildiğim kadarıyla böyle bir şeydi. Eğer hızlı bir ftp sunucun var ise, yapmak istediğin ftp sunucusuylada yapabilirsin. Yani serverden gönderilecek mesaj, ftpdeki bir dosyaya aktarılır ve client bu aktarılan dosyadaki mesajı okur. Forumda buna benzer örnekler vardı diye hatırlıyorum. Ftp hesabın yoksa, free hesapta açabilirsin. Free hizmet veren sitelere googlede ufak aramalar sonucu ulaşabileceğini düşünüyorum. Fazla yardımcı olamadım kusura bakma, kolay gelsin...

Kısaca ne aradığına bağlı. Misal sen bir text verip, içinde neyi arayacağını söyle ve sana örnek verelim. Ben bu komutlar için çok basit bir örnek vermeye çalıştım. Aslında nadir kullandığım bir komut. Diğer string komutlarıyla da bu komtuların yapabildiği yapılabilir ama diğerinde çok uzun bir kod yazarken bunda kısaca bir kod işimizi görebiliyor. Ben genelde replace ve içerikte bir şey araken kullanıyorum. Msail uzak ipmizi basit bir yol ile alalım [code]Global $UzakIP Global $InetRead = InetRead("http://www.cmyip.com",1) If @error = 0 Then $UzakIP = StringRegExp(BinaryToString($InetRead), '((?:\d+)(?:\.\d+){3})', 3) If IsArray($UzakIP) = 1 Then MsgBox(64,"Ip adresim",$UzakIP[0]) EndIf[/code] Edit:Ben uyku moduna geçiyorum... Kısaca bu komutlar çok işlevzel ama anlamak için çok kurcalamak gerekli. Ben ihtiyacım olduğunda karıştırarak ihtiyacımı giderebiliyorum. Aslında böyle basit örneklerle ilgili bir konu açıp bir toparlama yapsak fena olmaz. Çalışmalarınızda başarılar dilerim, kolay gelsin arkadaşlar...

@radyofon Evet haklısın. arada ufak bir karakter hayati önem taşıyabiliyor burda olduğu gibi. Neyse ilgili kısmı düzeltelim. 0-9 kısaca 0123456789 anlamını taşımaktadır. A-Z ise kendileriyle birlikte arasındaki ingilizce harlfer. Tabi tek tek karakterleride yazabiliriz. O zaman daha uzun bir kodumuz olacak. Ayrıca bu komutlardaki string büyük ve küçük harlere de farklı olabiliyor.

Açıkçası çok fazla kullanmadığımız komutlar. StringRegExp ve StringRegExpReplace için basit bir örnek verelim. Ama gerçekten bu komutların çok geniş bir kullanım yelpazesi vardır. [codebox]Local $Value = "Selam Millet 1-2-3" ;String içinde rakam varmı bakalım. Olumlu sonuçlar 1 ile döner ;Ayrıntılı bilgi için yardım dosyasına bakınız. MsgBox(64,"StringRegExp",StringRegExp($Value,"[0-9]")) ;String içinde rakam harici bir şey varmı bakalım. Olumlu sonuçlar 1 ile döner MsgBox(64,"StringRegExp",StringRegExp($Value,"[^0-9]")) ;String içinde rakam haricindekinleri silelim MsgBox(64,"StringRegExpReplace",StringRegExpReplace($Value,"[0-9]","")) ;String içindeki rakamları silelim MsgBox(64,"StringRegExpReplace",StringRegExpReplace($Value,"[^0-9]","")) ;A-Z dahil arasındaki büyük harfleri silelim MsgBox(64,"StringRegExpReplace",StringRegExpReplace($Value,"[A-Z]","")) ;Şimdi a-z dahil arasındaki küçük harfleri silelim MsgBox(64,"StringRegExpReplace",StringRegExpReplace($Value,"[a-z]","")) ;Şimdi ise sesli harfleri silelim MsgBox(64,"StringRegExpReplace",StringRegExpReplace($Value,"[aeıioöuüAEIİOÖUÜ]","")) ;Şimdi ise sesli harfler dışındakinleri silelim MsgBox(64,"StringRegExpReplace",StringRegExpReplace($Value,"[^aeıioöuüAEIİOÖUÜ]","")) ;Umarım bu kısım anlaşılmıştır[/codebox]

@kingeser Az önce baktım ve gerçekten görsellik olarak güzel bir çalışma olmuş Ayrıca pencere boyutunu fazla büyük tutmaman da hoş. Sorunlara gelirsek; Net framework 2.0 veyahut üst versiyonunu istiyor. Aksi taktirde program açılıp, hemen kapanıyor. Heralde kullandığın bir plugin buna neden olmuştur. Neyse çokta öenmli bir sorun sayılmaz. Ayarlar penceresinden yapılan aryarlar, sanraki açılışta algılanmıyor. Kurulum tamamnlandaığında programın kapanması içinde bir seçenek olursa fena olmaz. vs. vs. Çalışmalarında başarılar dilerim, kolay gelsin...

Aslında [b]$GUI_ip = GUICtrlCreateCombo("", 130, 148, 150, 20, 10485763)[/b] satırındaki 10485763 stilini silerseniz de iş görür. Ayrıca bu şekilde combodaki listeyide kullanabilirsiniz. [b]$GUI_ip = GUICtrlCreateCombo("", 130, 148, 150, 20)[/b]

@caspertweti Hayır sen dosyaları hatalı konuma koyduğun için, kurulumda iso dosyaları bulunamıyor ve senden iso dosyalaırnın konumunu göstermeni istiyor. Bu ayarları boot.gz oluşturuken programın arayüzündeki setting tuşundan ayarlayabiliyorsun! Pakette hatırladığım kadarıyla video olacaktı. Videodaki ilgili iso dosyasının ismini belirlediğimiz kısımları incele.... Diğer projedeki yaşadığın sorunda aşağı yukarı aynı sayılır...

ControlSend işe yaramıyorsa, send komutunu niye kullanmıyorsun? [code]Local $WinHwnd = WinGetHandle("[CLASS:Notepad]") ;Başlıktan Handlesini alalım ;Pencere aktif ise send komutu çalışacak! If BitAND(WinGetState($WinHwnd), Then Send("Selam millet") EndIf[/code]

@Festae Emin deyiyim ama aşağıdaki örneği kendine göre düzenlersen çalışabilir... [codebox]Run("notepad.exe") Local $WinHwnd = WinGetHandle("[CLASS:Notepad]") ;Başlıktan Handlesini alalım ControlFocus($WinHwnd, "", "Edit1") ;focus yapalım, sen bu satırı silebilirsin. ;controlID kısmını boş bırakırsan, focus olan controlide mesaj gider ControlSend($WinHwnd, "", "", "This is a line of text in the notepad window")[/codebox]

@Amilo Tıklatma işini tamam yapamıyor ve yardım istiyor olabilirsin. Ama diğerlerini yapamazmısın? Guini ve içindeki ie objelerini hazırladıktan sonra, kodlarını verirsen yardımcı oluruz...

@bmozdemir _Update_ListView fonksiyonunda ini dosyasını silip yeniden yazabilirsin. Çok fazla inceleyemem kusura bakma. Kısaca düzenlersek; [codebox]#include <array.au3> Global $ScriptDir = @ScriptDir If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\" Global $INI_FILE = $ScriptDir & "InventoryData.ini" Global $BLUE_ARRAY Global $i = 1 Global $MainForm = GUICreate("Form1", 623, 442) Global $ListView1 = GUICtrlCreateListView("Sıra|Product Code|Make|Model|Current Stock|Date Modified", 16, 8, 586, 390) GUICtrlSendMsg(-1, 4126, 0, 100) GUICtrlSendMsg(-1, 4126, 1, 100) GUICtrlSendMsg(-1, 4126, 2, 100) GUICtrlSendMsg(-1, 4126, 3, 82) GUICtrlSendMsg(-1, 4126, 4, 80) GUICtrlSendMsg(-1, 4126, 5, 120) _Update_ListView() ;ListView Güncelle Global $Button1 = GUICtrlCreateButton("Add A Product", 16, 408, 91, 25) Global $Button2 = GUICtrlCreateButton("Edit A Product", 120, 408, 91, 25) Global $Button3 = GUICtrlCreateButton("Delete A Product", 224, 408, 107, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 _Add_Edit_AProduct() Case $Button2 _Add_Edit_AProduct("Edit") Case $Button3 _DeleteItem() EndSwitch WEnd Func _READ_INI() Local $RETURN_ARRAY[25][8] ;GCID,Product Code,Make,Model,Current Stock,Date Modified= $RAD_ISName = IniReadSectionNames($INI_FILE) If Not @error Then For $i = 1 To $RAD_ISName[0] If StringLeft($RAD_ISName[$i], 0) <> "" Then ContinueLoop $RETURN_ARRAY[0][0] += 1 If UBound($RETURN_ARRAY, 1) <= $RETURN_ARRAY[0][0] Then ReDim $RETURN_ARRAY[$RETURN_ARRAY[0][0] + 25][8] $RETURN_ARRAY[$RETURN_ARRAY[0][0]][1] = $RETURN_ARRAY[0][0] $RETURN_ARRAY[$RETURN_ARRAY[0][0]][2] = IniRead($INI_FILE, $RAD_ISName[$i], "Product Code", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][3] = IniRead($INI_FILE, $RAD_ISName[$i], "Make", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][4] = IniRead($INI_FILE, $RAD_ISName[$i], "Model", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][5] = IniRead($INI_FILE, $RAD_ISName[$i], "Current Stock", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][6] = IniRead($INI_FILE, $RAD_ISName[$i], "Date Modified", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][7] = $RAD_ISName[$i] Next EndIf If UBound($RETURN_ARRAY, 1) <> ($RETURN_ARRAY[0][0] + 1) Then ReDim $RETURN_ARRAY[$RETURN_ARRAY[0][0] + 1][8] Return $RETURN_ARRAY EndFunc ;==>_READ_INI Func _Update_ListView() Local $FileWrite = True If IsArray($BLUE_ARRAY) = 0 Then $BLUE_ARRAY = _READ_INI() ;Read_Ini_File $FileWrite = False EndIf Local $SIRA = 1, $WriteData For $i = 1 To $BLUE_ARRAY[0][0] If $BLUE_ARRAY[$i][0] = -1 Then ContinueLoop If $BLUE_ARRAY[$i][0] > 0 Then GUICtrlDelete($BLUE_ARRAY[$i][0]) $BLUE_ARRAY[$i][1] = $SIRA $BLUE_ARRAY[$i][0] = GUICtrlCreateListViewItem($BLUE_ARRAY[$i][1] & "|" & $BLUE_ARRAY[$i][2] & "|" & $BLUE_ARRAY[$i][3] & _ "|" & $BLUE_ARRAY[$i][4] & "|" & $BLUE_ARRAY[$i][5] & "|" & $BLUE_ARRAY[$i][6], $ListView1) If $FileWrite = True Then $WriteData &= "[" & $BLUE_ARRAY[$i][1] & "]" & @LF & _ "Product Code=" & $BLUE_ARRAY[$i][2] & @LF & "Make=" & $BLUE_ARRAY[$i][2] & @LF & _ "Model=" & $BLUE_ARRAY[$i][2] & @LF & "Current Stock=" & $BLUE_ARRAY[$i][2] & @LF & _ "Date Modified=" & $BLUE_ARRAY[$i][2] & @LF & @LF $SIRA += 1 Next If $FileWrite = True Then FileDelete($INI_FILE) FileWrite($INI_FILE,$WriteData) EndIf EndFunc ;==>_Update_ListView Func _Add_Edit_AProduct($AType = "Add") Local $GuiRead Local $i, $No, $productCode, $make, $Deneme, $model, $currentStock, $dataModified If $AType <> "Add" Then $GuiRead = GUICtrlRead($ListView1) If $GuiRead = 0 Then MsgBox(48, "Error!", "Not select item!", 0, $MainForm) SetError(1, 0, 0) EndIf If IsArray($BLUE_ARRAY) = 0 Or $GuiRead = 0 Then Return SetError(2, 0, 0) $BLUE_ARRAY[0][1] = 0 For $i = 1 To $BLUE_ARRAY[0][0] If $GuiRead = $BLUE_ARRAY[$i][0] Then $BLUE_ARRAY[0][1] = $i $No = $BLUE_ARRAY[$i][1] $productCode = $BLUE_ARRAY[$i][2] $make = $BLUE_ARRAY[$i][3] $model = $BLUE_ARRAY[$i][4] $currentStock = $BLUE_ARRAY[$i][5] $dataModified = $BLUE_ARRAY[$i][6] ExitLoop EndIf Next If $BLUE_ARRAY[0][1] = 0 Then Return SetError(3, 0, 0) EndIf GUISetState(@SW_DISABLE, $MainForm) Local $Form2 = GUICreate("Product Inventory", 336, 258, 302, 218) Local $aInput1 = GUICtrlCreateInput($productCode, 16, 24, 193, 21) Local $aInput2 = GUICtrlCreateInput($make, 16, 64, 193, 21) Local $aInput3 = GUICtrlCreateInput($model, 16, 104, 193, 21) Local $aInput4 = GUICtrlCreateInput($currentStock, 16, 144, 193, 21) Local $aInput5 = GUICtrlCreateInput($dataModified, 16, 184, 193, 21) Local $aLabel1 = GUICtrlCreateLabel($i, 16, 1, 30, 16, 0x1000) GUICtrlCreateLabel("Product Code", 224, 24, 69, 17) GUICtrlCreateLabel("Make", 224, 64, 31, 17) GUICtrlCreateLabel("Model", 224, 104, 33, 17) GUICtrlCreateLabel("Current Stock", 224, 144, 69, 17) GUICtrlCreateLabel("Date Modified", 224, 184, 70, 17) Local $cButton3 = GUICtrlCreateButton("Add Product", 120, 216, 91, 25) If $AType <> "Add" Then GUICtrlSetData($cButton3, "Edit Product") GUISetState(@SW_SHOW, $Form2) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 ExitLoop Case $cButton3 $productCode = StringStripWS(GUICtrlRead($aInput1), 3) If $productCode = "" Then MsgBox(48, "Error!", "Enter product Code", 0, $Form2) GUICtrlSetState($aInput1, 256) ContinueCase EndIf $make = StringStripWS(GUICtrlRead($aInput2), 3) If $make = "" Then MsgBox(48, "Error!", "Enter make", 0, $Form2) GUICtrlSetState($make, 256) ContinueCase EndIf $model = StringStripWS(GUICtrlRead($aInput3), 3) If $model = "" Then MsgBox(48, "Error!", "Enter model", 0, $Form2) GUICtrlSetState($model, 256) ContinueCase EndIf $currentStock = StringStripWS(GUICtrlRead($aInput4), 3) If $currentStock = "" Then MsgBox(48, "Error!", "Enter current stock ", 0, $Form2) GUICtrlSetState($currentStock, 256) ContinueCase EndIf $dataModified = StringStripWS(GUICtrlRead($aInput5), 3) ; ------------------------------- If $AType = "Add" Then For $i = 1 To $BLUE_ARRAY[0][0] If $BLUE_ARRAY[$i][1] = $productCode Then GUICtrlSetState($aInput1, 256) MsgBox(0, "Error", "The product is already in the database") ContinueCase EndIf Next $BLUE_ARRAY[0][0] += 1 ReDim $BLUE_ARRAY[$BLUE_ARRAY[0][0] + 1][8] $BLUE_ARRAY[0][1] = $BLUE_ARRAY[0][0] EndIf $BLUE_ARRAY[$BLUE_ARRAY[0][1]][1] = $i $BLUE_ARRAY[$BLUE_ARRAY[0][1]][2] = $productCode $BLUE_ARRAY[$BLUE_ARRAY[0][1]][3] = $make $BLUE_ARRAY[$BLUE_ARRAY[0][1]][4] = $model $BLUE_ARRAY[$BLUE_ARRAY[0][1]][5] = $currentStock $BLUE_ARRAY[$BLUE_ARRAY[0][1]][6] = $dataModified IniWrite($INI_FILE, "" & $i, "Product Code", $productCode) IniWrite($INI_FILE, "" & $i, "Make", $make) IniWrite($INI_FILE, "" & $i, "Model", $model) IniWrite($INI_FILE, "" & $i, "Current Stock", $currentStock) IniWrite($INI_FILE, "" & $i, "Date Modified", $dataModified) _Update_ListView() ExitLoop EndSwitch WEnd GUISwitch($MainForm) GUISetState(@SW_ENABLE, $MainForm) GUIDelete($Form2) EndFunc ;==>_Add_Edit_AProduct Func _DeleteItem() Local $GuiRead = GUICtrlRead($ListView1), $GuiRead2, $SINSTR If $GuiRead <> 0 Then For $i = 1 To $BLUE_ARRAY[0][0] If $GuiRead = $BLUE_ARRAY[$i][0] Then GUICtrlDelete($BLUE_ARRAY[$i][0]) IniDelete("InventoryData.ini", "" & $BLUE_ARRAY[$i][7]) $BLUE_ARRAY[$i][0] = -1 _Update_ListView() ExitLoop EndIf Next EndIf EndFunc ;==>_DeleteItem[/codebox]

@caspertweti USBMENU\USBMENU.LST dosyasına aşağıdaki kodları ekleyeceksin... Unutmadan aşağıdaki kodlar standar olarak ilgili kaynaktaki I386/SETUPLDR.BIN dosyasını önyükler. Sizin önyüklüme dosyanız farklıysa haliyle hata mesajı çıkacaktır. Uygun kodlar boot.gz yanında oluşan menu.lst dosyasında yazıyordu. [codebox]title Windows XP/2003 Kurulumu - ISO # http://www.tnctr.com/index.php?showtopic=173188 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 GZFILE=/WINXP/BOOT.GZ set BOOTFILE=/I386/SETUPLDR.BIN if exist %GZFILE% || find --set-root --ignore-floppies %GZFILE% || echo -> %GZFILE% bulunamadi! if exist %GZFILE% && set EXIST=1 if %EXIST%==1 && echo ---------------------------------------------------- if %EXIST%==1 && echo Loading Windows XP Professional if %EXIST%==1 && echo Please wait... if %EXIST%==1 && echo ---------------------------------------------------- if %EXIST%==1 && map --mem %GZFILE% (0xFF) if %EXIST%==1 && map --hook && root (0xFF) && chainloader (0xFF)%BOOTFILE% || chainloader () && boot boot || echo -> Onyukleme basarisiz! && echo && pause --wait=5 <<< Klasik Menuye Don ... title Windows XP/2003 Kurulumu2 - ISO # http://www.tnctr.com/index.php?showtopic=173188 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 GZFILE=/NT5/BOOT.GZ set BOOTFILE=/I386/SETUPLDR.BIN if exist %GZFILE% || find --set-root --ignore-floppies %GZFILE% || echo -> %GZFILE% bulunamadi! if exist %GZFILE% && set EXIST=1 if %EXIST%==1 && echo ---------------------------------------------------- if %EXIST%==1 && echo Loading Windows XP Professional if %EXIST%==1 && echo Please wait... if %EXIST%==1 && echo ---------------------------------------------------- if %EXIST%==1 && map --mem %GZFILE% (0xFF) if %EXIST%==1 && map --hook && root (0xFF) && chainloader (0xFF)%BOOTFILE% || chainloader () && boot boot || echo -> Onyukleme basarisiz! && echo && pause --wait=5 <<< Klasik Menuye Don ...[/codebox]

@serhadocak Malesef bazen böyle nadir durumlar olabiliyor. Misal bir arkadaşın laptobu vardı ve elimizdeki flash disk ile boot edemedik. Heralde usb flash disk 3.0 hızındayıdı. http://tr.wikipedia.org/wiki/USB Kısaca flash diski açılış menüsünde hiç görünmüyorduk ama windowsta sorunsuz çalışıyordu. Işte malum sorun nedeniyle farklı bir flash disk vasıtasıyla xpyi kurmuşturk. Demek istediğim bazı flash diskler, nadirde olsa bazı bilgisayarlarda sorun çıkartabilir. Lakin senin flash ile yaşadığın sorun farklı. Çünkü flash disk anakartının biosu tarafından algılanmış ve çalıştırılmış. Sonra grub4dos sorun çıkartmış. Gerçekten ilginç bir durum. Basit bir deneme yapalım. 1 - Windowsta ilgili flash diske format at. Yani bilgisayarıma girip, ilgili sürücüye sağ tıklatıp biçimlendir vs. yapıyorsun. 2 - Grub4dos dosyalarını flash diskine manuel olarak kopyala. MB_USB.exe yi kullanmayacaksın. Yani USB_ROOT klasöründeki tüm dosyaları flash diskine kopyala. 3 - Flash diskine kopyaladığın usbdr dosyasından bir kopya da oluşturup ismini ntldr yap. Format attığın işletim sistemi windows7 ise ntldr yerine bootmgr olacak. 4 - Daha sonrada flash diskini ilgili bilgisayarda denersin. Flash diskindeki doslar usbdr ntldr veyahut bootmgr USBMENU diğerleri önemsiz... [notice]Edit: @serhadocak arkadaşımızın yaşadığı sorun çözülmüştü. Kısaca diskin ilk kısmına yazdığımız grub4dos mbr bilgisinin (önyükleme bilgisinin) sorun çıkartması gibi görünüyor. Sorunu çözmek için, diskin ilk kısmına grub4dos mbr bilgisi yazdırmak yerine aktif bölüme grub4dos pbr bilgisi yazdırdık ve işe yaradı. Programın sonraki versiyonlarında bu durum için bir seçenek eklemeye çalışağım. Çalışmalarınızda başarılar dilerim....[/notice]

@bmozdemir Çok fazla bakmadım. Ama ufak ekler yaptım. Sen diğer kısımları kendine göre düzenlersin... [codebox]#include <array.au3> Global $ScriptDir = @ScriptDir If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\" Global $INI_FILE = $ScriptDir & "InventoryData.ini" Global $BLUE_ARRAY Global $i = 1 Global $MainForm = GUICreate("Form1", 623, 442) Global $ListView1 = GUICtrlCreateListView("Sıra|Product Code|Make|Model|Current Stock|Date Modified", 16, 8, 586, 390) GUICtrlSendMsg(-1, 4126, 0, 100) GUICtrlSendMsg(-1, 4126, 1, 100) GUICtrlSendMsg(-1, 4126, 2, 100) GUICtrlSendMsg(-1, 4126, 3, 82) GUICtrlSendMsg(-1, 4126, 4, 80) GUICtrlSendMsg(-1, 4126, 5, 120) _Update_ListView() ;ListView Güncelle Global $Button1 = GUICtrlCreateButton("Add A Product", 16, 408, 91, 25) Global $Button2 = GUICtrlCreateButton("Edit A Product", 120, 408, 91, 25) Global $Button3 = GUICtrlCreateButton("Delete A Product", 224, 408, 107, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 _Add_Edit_AProduct() Case $Button2 _Add_Edit_AProduct("Edit") Case $Button3 _DeleteItem() EndSwitch WEnd Func _READ_INI() Local $RETURN_ARRAY[25][8] ;GCID,Product Code,Make,Model,Current Stock,Date Modified= $RAD_ISName = IniReadSectionNames($INI_FILE) If Not @error Then For $i = 1 To $RAD_ISName[0] If StringLeft($RAD_ISName[$i], 0) <> "" Then ContinueLoop $RETURN_ARRAY[0][0] += 1 If UBound($RETURN_ARRAY, 1) <= $RETURN_ARRAY[0][0] Then ReDim $RETURN_ARRAY[$RETURN_ARRAY[0][0] + 25][8] $RETURN_ARRAY[$RETURN_ARRAY[0][0]][1] = $RETURN_ARRAY[0][0] $RETURN_ARRAY[$RETURN_ARRAY[0][0]][2] = IniRead($INI_FILE, $RAD_ISName[$i], "Product Code", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][3] = IniRead($INI_FILE, $RAD_ISName[$i], "Make", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][4] = IniRead($INI_FILE, $RAD_ISName[$i], "Model", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][5] = IniRead($INI_FILE, $RAD_ISName[$i], "Current Stock", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][6] = IniRead($INI_FILE, $RAD_ISName[$i], "Date Modified", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][7] = $RAD_ISName[$i] Next EndIf If UBound($RETURN_ARRAY, 1) <> ($RETURN_ARRAY[0][0] + 1) Then ReDim $RETURN_ARRAY[$RETURN_ARRAY[0][0] + 1][8] Return $RETURN_ARRAY EndFunc ;==>_READ_INI Func _Update_ListView() If IsArray($BLUE_ARRAY) = 0 Then $BLUE_ARRAY = _READ_INI() ;Read_Ini_File EndIf Local $SIRA = 1 For $i = 1 To $BLUE_ARRAY[0][0] If $BLUE_ARRAY[$i][0] = -1 Then ContinueLoop If $BLUE_ARRAY[$i][0] > 0 Then GUICtrlDelete($BLUE_ARRAY[$i][0]) $BLUE_ARRAY[$i][1] = $SIRA $BLUE_ARRAY[$i][0] = GUICtrlCreateListViewItem($BLUE_ARRAY[$i][1] & "|" & $BLUE_ARRAY[$i][2] & "|" & $BLUE_ARRAY[$i][3] & _ "|" & $BLUE_ARRAY[$i][4] & "|" & $BLUE_ARRAY[$i][5] & "|" & $BLUE_ARRAY[$i][6], $ListView1) $SIRA += 1 Next EndFunc ;==>_Update_ListView Func _Add_Edit_AProduct($AType = "Add") Local $GuiRead Local $i, $No, $productCode, $make, $Deneme, $model, $currentStock, $dataModified If $AType <> "Add" Then $GuiRead = GUICtrlRead($ListView1) If $GuiRead = 0 Then MsgBox(48, "Error!", "Not select item!", 0, $MainForm) SetError(1, 0, 0) EndIf If IsArray($BLUE_ARRAY) = 0 Or $GuiRead = 0 Then Return SetError(2, 0, 0) $BLUE_ARRAY[0][1] = 0 For $i = 1 To $BLUE_ARRAY[0][0] If $GuiRead = $BLUE_ARRAY[$i][0] Then $BLUE_ARRAY[0][1] = $i $No = $BLUE_ARRAY[$i][1] $productCode = $BLUE_ARRAY[$i][2] $make = $BLUE_ARRAY[$i][3] $model = $BLUE_ARRAY[$i][4] $currentStock = $BLUE_ARRAY[$i][5] $dataModified = $BLUE_ARRAY[$i][6] ExitLoop EndIf Next If $BLUE_ARRAY[0][1] = 0 Then Return SetError(3, 0, 0) EndIf GUISetState(@SW_DISABLE, $MainForm) Local $Form2 = GUICreate("Product Inventory", 336, 258, 302, 218) Local $aInput1 = GUICtrlCreateInput($productCode, 16, 24, 193, 21) Local $aInput2 = GUICtrlCreateInput($make, 16, 64, 193, 21) Local $aInput3 = GUICtrlCreateInput($model, 16, 104, 193, 21) Local $aInput4 = GUICtrlCreateInput($currentStock, 16, 144, 193, 21) Local $aInput5 = GUICtrlCreateInput($dataModified, 16, 184, 193, 21) Local $aLabel1 = GUICtrlCreateLabel($i, 16, 1, 30, 16, 0x1000) GUICtrlCreateLabel("Product Code", 224, 24, 69, 17) GUICtrlCreateLabel("Make", 224, 64, 31, 17) GUICtrlCreateLabel("Model", 224, 104, 33, 17) GUICtrlCreateLabel("Current Stock", 224, 144, 69, 17) GUICtrlCreateLabel("Date Modified", 224, 184, 70, 17) Local $cButton3 = GUICtrlCreateButton("Add Product", 120, 216, 91, 25) If $AType <> "Add" Then GUICtrlSetData($cButton3, "Edit Product") GUISetState(@SW_SHOW, $Form2) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 ExitLoop Case $cButton3 $productCode = StringStripWS(GUICtrlRead($aInput1), 3) If $productCode = "" Then MsgBox(48, "Error!", "Enter product Code", 0, $Form2) GUICtrlSetState($aInput1, 256) ContinueCase EndIf $make = StringStripWS(GUICtrlRead($aInput2), 3) If $make = "" Then MsgBox(48, "Error!", "Enter make", 0, $Form2) GUICtrlSetState($make, 256) ContinueCase EndIf $model = StringStripWS(GUICtrlRead($aInput3), 3) If $model = "" Then MsgBox(48, "Error!", "Enter model", 0, $Form2) GUICtrlSetState($model, 256) ContinueCase EndIf $currentStock = StringStripWS(GUICtrlRead($aInput4), 3) If $currentStock = "" Then MsgBox(48, "Error!", "Enter current stock ", 0, $Form2) GUICtrlSetState($currentStock, 256) ContinueCase EndIf $dataModified = StringStripWS(GUICtrlRead($aInput5), 3) ; ------------------------------- If $AType = "Add" Then For $i = 1 To $BLUE_ARRAY[0][0] If $BLUE_ARRAY[$i][1] = $productCode Then GUICtrlSetState($aInput1, 256) MsgBox(0, "Error", "The product is already in the database") ContinueCase EndIf Next $BLUE_ARRAY[0][0] += 1 ReDim $BLUE_ARRAY[$BLUE_ARRAY[0][0] + 1][8] $BLUE_ARRAY[0][1] = $BLUE_ARRAY[0][0] EndIf $BLUE_ARRAY[$BLUE_ARRAY[0][1]][1] = $i $BLUE_ARRAY[$BLUE_ARRAY[0][1]][2] = $productCode $BLUE_ARRAY[$BLUE_ARRAY[0][1]][3] = $make $BLUE_ARRAY[$BLUE_ARRAY[0][1]][4] = $model $BLUE_ARRAY[$BLUE_ARRAY[0][1]][5] = $currentStock $BLUE_ARRAY[$BLUE_ARRAY[0][1]][6] = $dataModified IniWrite($INI_FILE, "" & $i, "Product Code", $productCode) IniWrite($INI_FILE, "" & $i, "Make", $make) IniWrite($INI_FILE, "" & $i, "Model", $model) IniWrite($INI_FILE, "" & $i, "Current Stock", $currentStock) IniWrite($INI_FILE, "" & $i, "Date Modified", $dataModified) _Update_ListView() ExitLoop EndSwitch WEnd GUISwitch($MainForm) GUISetState(@SW_ENABLE, $MainForm) GUIDelete($Form2) EndFunc ;==>_Add_Edit_AProduct Func _DeleteItem() Local $GuiRead = GUICtrlRead($ListView1), $GuiRead2, $SINSTR If $GuiRead <> 0 Then For $i = 1 To $BLUE_ARRAY[0][0] If $GuiRead = $BLUE_ARRAY[$i][0] Then GUICtrlDelete($BLUE_ARRAY[$i][0]) IniDelete("InventoryData.ini", "" & $BLUE_ARRAY[$i][7]) $BLUE_ARRAY[$i][0] = -1 _Update_ListView() ExitLoop EndIf Next EndIf EndFunc ;==>_DeleteItem[/codebox]

@LifeSux Ilgili komutları çok fazla kullanmadım ve şuan yeterli zamanım da yok. Önümüzdeki hafta içi bu konuya bakmaya çalışacağım. Yalnız uzak bilgisayar ile bağlantı kuracağına göre senin kullandığın ip yerel olduğu için hatalıdır. Kısacası uzak ip adresini kullanman belki sorunu çözebilir. [code]#include <Inet.au3> Local $PublicIP = _GetIP() MsgBox(0, "IP Address", "Your IP Address is: " & $PublicIP)[/code] Umarım çözebilirsin, kolay gelsin...

@serhadocak Gördüğüm kadarıyla flash diskin başlangıçta çalışıyor ve mbr bilgisinden önyükleme gerçekleştiriliyor. Sonraki aşamada grub4dos usb belleğine ait bölüm içindeki usbdr dosyasına ulaşamıyor. Sorun bundan kaynaklı! Flash diskine mb_usb.exe ile kurulum yaparken, biçimlendir seçeneğini seçmişmiydin? İlk kurulumda bu gerekiydi...