blue_life

@ByAdmin Tabiki mümkün, lakin genelde bu iş için autorun programlarından faydalanılmaktadır. Tabi autoit ilede basit bir gui çalışması yapılabilir. Sonra autorun.inf den, bu yapılacak çalışmaya bir yönlendirme yapılır Bu sayede cd/dvd takılınca autoit ile hazırlanan program çalışıp ve kullanıcı içerisinden istenilen seçeneği çalıştırılabilir. Autorun.inf dosyasının içeriklerini bizimle paylaşırsan, senin yönlendirmeye çalışırız... Kolay gelsin...

Grub4dos ile boot.wim direk rame yükleyip sistemi çalıştırabileceğini sanmıyorum. Dediğim gibi tek başına grub4dos win dosyalarını önyüklemek için tasarlanmamıştır. Bence isodan grub4dos ile çalıştırma yolunu izle! Ya açıktan bir önyükleyici vasıtasıyla, yada bir iso veyahut disk imajında çalıştıracaksın. Diğer şekillerde bir çözüme ulaşabileceğini düşünmüyorum...

Bilen vardır ama haliyle ilgili site incelenmeli ve ona göre kodlama yapılmalı. Lakin uzun iş. Bu yüzden ben herangi bir şey yazmadım. Autoit forumunda arama yaparak şansını denemelisin. Elimde tema var diyorsun ama nasıl bir şey olduğunu örnek ile vermemişsin. Autoi forumlarında skin diye bir arama yaparsan bir çok konu bulabileceğini düşünüyorum. Güzel bir şey bulursan tabi burda da paylaşki başka arkadaşlara katkın olsun. Kolay gelsin... [color="#0000FF"][b]http://www.google.com.tr/search?hl=tr&q=site%3Awww.autoitscript.com%2Fforum+skin[/b][/color]

@muharremerd Bu gün foruma fazla uğramadım, bu nedenle yanıt geçikti Tam olarak ne yapmaya çalışıyorsun? Kısaca boot.wim bulunan bir önyükleyici ile önyükleme yapıp, sonra birden fazla sistemin kurulumunu mu çalıştırmak istiyorsun? Heralde setup.exenin parametre desteği olacaktı. Emin deyilim ama @steve6375 sayfasında görmüştüm. Sayfayı biraz karıştır. [u][b]http://sites.google.com/site/rmprepusb/[/b][/u]

@muharremerd Bir *.wim imajı grub4dos ile boot edip önyüklenemez. bootmgr vs. gibi uygun bir önyükleyici gerekmektedir. Benim BlueXPE için kullandığım yöntemi ben hazırlamadım. Hatırladığım kadarıyla boot-land.net forumlarından Nikzzzz bazı arkadaşların katkılarıyla hazırlmaıştı. Ben direk winbuiler ile ufak ayarlar yapıp kullandığım için detaylı bilgim yok! Istersen googleden biraz araştır... Kolay gelsin... [u][b]http://www.google.com.tr/search?q=wimboot+Nikzzzz[/b][/u]

@hknsl Xp ve benzerleri Fat/Fat16/Fat32/NTFS gibi ortamlardan direk kurulamıyor! Diğer eklemek istediğin bieşenleri rahatlıkla yapabileceğini düşünüyorum. Tabi senin yerinde olsam AeroStudio'dan vazgeçip direk grub4dos ile multiboot menüsünü oluştururdum. Diğer konudaki ikinci mesajda gerekli basit anlatım bulunmaktadır. Bence ordan devam et. Gerekli komutlar zaten indirdiğin içerikte olması lazım. Kolay gelsin...

@hknsl Merahaba; yanlış konuya yazmışsın. Bu konu grub4dos ile alakalı. Gerekli yanıtı ilgili konuya ekledim. Ordan devam edelim. [color="#0000FF"][u][b]http://www.tnctr.com/topic/103344-aero-studio-ile-multiboot-cddvd-yapymy/page__view__findpost__p__951120[/b][/u][/color]

[quote name='hknsl' date='24 Ocak 2011 - 23:52 ' timestamp='1295906523' post='951112'] Merhabalar, Blue Life aero studio ile boot cd oluşturdum. virtual pc de bi sorun olmadan açılıyor ve çalışıyor durumda. Usb den kullanmak istiyorum bu menuyu, içeriği Multiboot usb 1.2 ile usbye taşıdım. Boot ekranı geliyor, neyi seçersem seçiyim siyah ekranda kalıyor :S acaba nerde hata yapıyorum sizce? dvd isosunu usbye aktarırken izlemem gereken en stabil yöntem hangisi acaba. sıfırdan iso içeriğini usb ye o yöntemle aktarmayı denemek istiyorum [/quote] Testelerini Qemu ilemi yapıyorsun? Testlerini gerçek pc yapmalısın. Eklenen bileşenlere göre Qemu'nun sorun çıkarması muhtemel. Gerçek testlerde (bilgisayarı yeniden başlatıp usbden boot ederek) hangi bileşenler ile ilgili sorun yaşadığınızı yazarsanız sizi yönlendirmeye çalışırım. Bu arada xp ve benzerleri haliyle hata vermektedir....

@muharremerd Evet iso dosyasından boot etmek gerçekten güzel bir seçenek grub.exe indirdiğiniz grub4dos paketinde de mevcut. Yani işlevi kendisine komut verilebilmesi. Misal aerostudio programıda grub.exe kullanmaktadır. Yani komutu parametre olarak grub.exe ye veriyorlar. Isolinux ile oluşturulan multibootlarda da arasıra görmüştürsün... Diğer konuya gelirsek ben bu komutları sık kullanmıyorum lakin uzun süredir grub4dos ile bu komutlar kullanılabiliyor. Genelde linux sistemler için...

Ben patlayıcı olarak biliyordum

Bende arkadaşlara katılıyorum. Bir siteye girmek isterken modemin reset atması mantıksız... Büyük ihtimal tesadüftür. Bu tip sorunlar genelde modem + adaptorden olabileceği gibi voltaj dalgalanmaları, internet hattı gibi etkenlerden de olması muhtemel. Tabi bir ağda, başka bir pcde çalışan bir programda bu soruna yol açıyor olabilir. Araştırmak lazım...

Partition magic hatırladığım kadarıyla çok eski olması nedeniyle win'ye destek vermiyor. Güncel Acronis Disk Director ile sorununu çözebilirsin. Kolay gelsin..

@asmazh Cevap1:Yardım dosyasından ilgili gui elemanın stylerine bakmalısın. [codebox]#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 #include <GuiEdit.au3> #include <GuiStatusBar.au3> #include <GuiConstantsEx.au3> Opt('MustDeclareVars', 1) $Debug_Ed = False ; Check ClassName being passed to Edit functions, set to True and use a handle to another control to see it work _Main() Func _Main() Local $StatusBar, $hEdit, $hGUI Local $Wow64 = "" If @AutoItX64 Then $Wow64 = "\Wow6432Node" Local $sFile = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE" & $Wow64 & "\AutoIt v3\AutoIt", "InstallDir") & "\include\changelog.txt" ; Create GUI $hGUI = GUICreate("Edit Get Line Count", 400, 300) $hEdit = GUICtrlCreateEdit("", 2, 2, 394, 268,0x0800) GUICtrlSetBkColor(-1,0xffffff) $StatusBar = _GUICtrlStatusBar_Create($hGUI, -1) GUISetState() _GUICtrlEdit_SetText($hEdit, FileRead($sFile)) _GUICtrlStatusBar_SetIcon($StatusBar, 0, 97, "shell32.dll") _GUICtrlStatusBar_SetText($StatusBar, @TAB & "Lines: " & _GUICtrlEdit_GetLineCount($hEdit)) ; Loop until user exits GUICtrlSetData($hEdit,@CRLF & "Günaydın millet!" & @CRLF,1) Do Until GUIGetMsg() = $GUI_EVENT_CLOSE GUIDelete() EndFunc ;==>_Main[/codebox] Cevap2: RunWait adındanda anlaşılacağı üzere, çalıştır ve işlemin bitmesini bekle demektir. Haliyle ilgi program kapatılana kadar senin autoit çalışman durur! Tabi run ile kurulumu başlatıp progresbarı ilerletebilirsin. Ama ilgili kurulan programın ne zamanda kurulacağını bilmediğimiz için progresi düzgün ilerletmek biraz zor. Cevap3: Autoit portable çalışabilmektedir. Yani katılımsız yapması aslında kolay olsa gerek. Bir kaç reg kaydı ve dosyaları ilgili yere kopyalatmak. Winrar veyahut smart install maker gibi bir programla rahatlıkla yapılabilir. Cevap4: Bunun gibi birşey mümkün, lakin böyle bir konuya daha önce ihtiyacım olmadı. Bence bu iş için autoit ile başka bir programı kontrol etmek daha mantıklı. Cevap5: Scite açıkken yukarıdaki dosya menüsündeki Tools - Build ile compile et. Tabi güncel autoit sürümünü kullan. Çok uzun yazmışsın ve biraz kısa kestim kusura bakma

Ordaki 501 MB ile ifade edilen alan bir bölüm deyil. Sen orda sağ tıklayıp ilgili seçenek ile yeni bölüm oluşturabilirsin. 501 MByi -> 931 MB lik kısıma ekleyebilirsin. Ama bölümlenmemiş alan ilgili partitionun önünde olduğu için disk yönetimi işe yaramayabilir. Emin deyilim. Bir deneme yapalım; 931 MB lik alana sağ tıklatıp birimi genişlet seçeneğini seç. Ilgili gelen ekranda 501 MB lik kısım görünüyor mu? Görünmüyorsa herangi uygun bir partition programıyla 931 MB lik alana sağ tıklatıp resize seçeneği ile ilgili alanı 931 MB lik alana ekleyebilirsin. Kolay gelsin...

Bu tip (sistem bölümüyle alakalı) bölümleme işlemlerin windows üzerinden yapmak sakıncalıdır. Bunun için ilgili bölümleme programının kendi sistemiyle pc başlatılmalı! Tabi windows üzerinden kullanılcak partition programlarının sizin windows için uygun olup olmadığınıda dikkat etmek lazım. Partition Magic programının, hatırladığım kadarıyla vista & win7 için desteği yoktu! (Bu sistemlerde sorun çıkarması muhtemlel) Ben bu tip işlemleri çok sık yapıyorum. Kullandığım program eski dostan çalışan Acronis Disk Director. Ve şuana kadar önemli bir sorun yaşamadım. Hiren BootCD nin eski versiyonlarında ADDS mevcuttu!

Windows şifresini resetleyebilirsin, lakin dikkat etmen gereken; Daha önce bir takım senin için kişisel dosyalarını windows ile şifrelediysen bu dosyalara bu tür işlemler sonucunda ulaşman zor. Kullandığın sistem nedir? Aşağıdaki minixp çalışmasını indir ve masaüstüne çıkart. Orda mkisofs ile başlayan bir dosya olacak. Onu çalıştır. Işlem sonunda bir iso dosyası oluşacaktır. Bu iso dosyasını cd/dvd ye çek. Hazırladığın cd/dvd ile ilgili bilgisayarı başlatıp gelen menüden BlueXPE yi seç. MiniXP açıldığında şifreni resetleyeceğin programlar aşağıdaki menüde! Kolay gelsin.. [img]http://i.imgur.com/ce3Yh.png[/img] [color="#000080"][b]BlueXPE Light v1.9[/b][/color] [u][color="#0000FF"]http://www.4shared.com/file/Y_WPORQ4/BlueXPE_Light_v19.html[/color][/u]

Resimde görülen 501 MB lik bölümü silemezsin! Çünkü o kısımda herangi bir bölüm yok! Olmayan bir şeyde haliyle silinmez Tabi ordaki alanı 931 MB lik bölüme ekleyebilirsin. Şimdi tam olarak ne yapmak istiyorsun?

@vusal_dayi Gördüğüm kadarıyla Dr.web önyükleme için isolinux.bin dosyasını kullanıyor. Biz grub4dos ile isolinux dosyasını çalıştırabildiğimizden, benim verdiğim komutun da işe yaraması lazım. Ilgili komut ile nasıl bir hata almıştın? Lakin tabi senin kullandığın yöntem (isolinux komutunu, grub4dosa uyarlamak) daha mantıklı.

@vusal_dayi Iso içeriğini roota çıkartıp aşağıdaki kodları kullan! [codebox]title Dr.Web ls /boot/isolinux/isolinux.bin || find --set-root --ignore-floppies /boot/isolinux/isolinux.bin chainloader /boot/isolinux/isolinux.bin[/codebox]

@vusal_dayi Ilgili iso hakkında herangi bir bilgim yok malesef! Ilgili iso içeriği hakkında bilgi verebilrsen seni yönlendirmeye çalışırım. Tabi direk iso dosyasından da çalışabilir, denemek lazım... Kolay gelsin... @BrianOconnor Mantığı anlayınca, aslında en kolay multiboot yapma yöntemlerinden birisi Grub4dos'tur.

Bana yeni pm atamazsın malesef. Özel mesajlardan sıkıldığım için mesaj kutumu dolu bırakıyorum. Bu sayede yeni mesaj gelmiyor. Sana attığım mesaj altına yazarsın. Müsait bir zamanda bakarım... Kolay gelsin...

@SimpsoN_Bart Kütüphaneleri ekleyerek sadece çıkan hataları düzelttim. (Programın işleyişine dokunmadım.) Kolay gelsin... [codebox]#include <WindowsConstants.au3> #include <GUIConstants.au3> #include <Constants.au3> #include <EditConstants.au3> #NoTrayIcon ; Check for program already running $g_szVersion = "ClientNet 1.12" If WinExists($g_szVersion) Then Exit ; It's already running AutoItWinSetTitle($g_szVersion) Opt("GUIResizeMode", $GUI_DOCKAUTO) Opt("GUICloseOnESC", 0) If @OSTYPE <> "WIN32_NT" Then MsgBox(0, "Invalid Operating System", "This program requires WIndows 2000 or later to run.") Exit EndIf Dim $ClientWeb, $ReleaseError Dim $INIfile = @ScriptDir & "\clnetutil.ini" If FileExists($INIfile) Then $ClientWeb = IniRead ($INIfile, "WEBSITE", "web", "" ) EndIf ; == GUI generated with Koda == $Form1 = GUICreate("Client Network Utility", 580, 330, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) Dim $utilitymenu = GUICtrlCreateMenu ("&Network Utility") Dim $traceitem = GUICtrlCreateMenuitem ("Trace Route",$utilitymenu) GUICtrlSetState(-1,$GUI_DEFBUTTON) If Not $ClientWeb Then GUICtrlSetState($traceitem,$GUI_DISABLE) EndIf Dim $space1 = GUICtrlCreateMenuitem ("",$utilitymenu) Dim $repairitem = GUICtrlCreateMenuitem ("Repair Connection",$utilitymenu) Dim $recyitem = GUICtrlCreateMenuitem ("Release/Renew",$utilitymenu) Dim $relitem = GUICtrlCreateMenuitem ("Release Network",$utilitymenu) Dim $renitem = GUICtrlCreateMenuitem ("Renew Network",$utilitymenu) Dim $setmenu = GUICtrlCreateMenu("Settings") Dim $timemenu = GUICtrlCreateMenu("Time Out", $setmenu, 1) Dim $timeitem1 = GUICtrlCreateMenuitem ("3 Seconds",$timemenu) Dim $timeitem2 = GUICtrlCreateMenuitem ("4 Seconds",$timemenu) Dim $timeitem3 = GUICtrlCreateMenuitem ("5 Seconds",$timemenu) GUICtrlSetState($timeitem1,$GUI_CHECKED) Dim $pingmenu = GUICtrlCreateMenu("Host Tests", $setmenu, 1) Dim $pingitem[11][3] $pingitem[1][1] = GUICtrlCreateMenuitem ("www.google.com",$pingmenu) $pingitem[1][2] = "www.google.com" $pingitem[2][1] = GUICtrlCreateMenuitem ("www.yahoo.com",$pingmenu) $pingitem[2][2] = "www.yahoo.com" $pingitem[3][1] = GUICtrlCreateMenuitem ("www.rr.com",$pingmenu) $pingitem[3][2] = "www.rr.com" $pingitem[4][1] = GUICtrlCreateMenuitem ("www.comcast.net",$pingmenu) $pingitem[4][2] = "www.comcast.net" $pingitem[5][1] = GUICtrlCreateMenuitem ("www.charter.net",$pingmenu) $pingitem[5][2] = "www.charter.net" $pingitem[6][1] = GUICtrlCreateMenuitem ("www.verizon.net",$pingmenu) $pingitem[6][2] = "www.verizon.net" $pingitem[7][1] = GUICtrlCreateMenuitem ("www.cox.net",$pingmenu) $pingitem[7][2] = "www.cox.net" $pingitem[8][1] = GUICtrlCreateMenuitem ("www.Level3.net",$pingmenu) $pingitem[8][2] = "www.Level3.net" $pingitem[9][1] = GUICtrlCreateMenuitem ("www.sprint.com",$pingmenu) $pingitem[9][2] = "www.sprint.com" $pingitem[10][1] = GUICtrlCreateMenuitem ("www.adelphia.net",$pingmenu) $pingitem[10][2] = "www.adelphia.net" GUICtrlSetState($pingitem[1][1],$GUI_CHECKED) GUICtrlSetState($pingitem[2][1],$GUI_CHECKED) Dim $webmenu = GUICtrlCreateMenuItem("Client Web Site", $setmenu) Dim $infomenu = GUICtrlCreateMenu("Information",-1,1) Dim $sysitem = GUICtrlCreateMenuitem ("System Information",$infomenu) Dim $netitem = GUICtrlCreateMenuitem ("Network Information",$infomenu) Dim $copymenu = GUICtrlCreateMenu ("Window") Dim $clearitem = GUICtrlCreateMenuitem ("Clear Output",$copymenu) Dim $copyitem = GUICtrlCreateMenuitem ("Copy Window to Clipboard",$copymenu) Dim $helpmenu = GUICtrlCreateMenu ("Help") Dim $instrhelp = GUICtrlCreateMenuitem ("Network Utility Instructions",$helpmenu) Dim $testhelp = GUICtrlCreateMenuitem ("Test Connection Help",$helpmenu) Dim $tracehelp = GUICtrlCreateMenuitem ("Network Utility - Trace Route",$helpmenu) Dim $repairhelp = GUICtrlCreateMenuitem ("Network Utility - Repair Connection",$helpmenu) Dim $recyhelp = GUICtrlCreateMenuitem ("Network Utility - Release/Renew",$helpmenu) Dim $relhelp = GUICtrlCreateMenuitem ("Network Utility - Release Network",$helpmenu) Dim $renhelp = GUICtrlCreateMenuitem ("Network Utility - Renew Network",$helpmenu) Dim $syshelp = GUICtrlCreateMenuitem ("Information - System Information",$helpmenu) Dim $nethelp = GUICtrlCreateMenuitem ("Information - Network Information",$helpmenu) Dim $tohelp = GUICtrlCreateMenuitem ("Settings - Time Out",$helpmenu) Dim $hosthelp = GUICtrlCreateMenuitem ("Settings - Host Tests",$helpmenu) Dim $wshelp = GUICtrlCreateMenuitem ("Settings - Client Web Site",$helpmenu) Dim $abouthelp = GUICtrlCreateMenuitem ("About Network Utility",$helpmenu) $Edit1 = GUICtrlCreateEdit("", 20, 20, 540, 235, $ES_READONLY + $WS_VSCROLL, $WS_EX_CLIENTEDGE) GUICtrlSetFont ($Edit1,9, 400, 0, "Lucida Console") _CLS() GuiCtrlSetBkColor($Edit1,0xf5f5f5) GuiCtrlSetCursor($Edit1,2) $Button1 = GUICtrlCreateButton("Test Connection", 145, 272, 90, 25) $Button2 = GUICtrlCreateButton("Test Custom", 245, 272, 90, 25) $Button3 = GUICtrlCreateButton("Quit", 345, 272, 90, 25) GUISetState(@SW_SHOW) Dim $timeOut = 3000 While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button3 ExitLoop Case $msg = $timeitem1 GUICtrlSetState($timeitem1,$GUI_CHECKED) $timeOut = 3000 GUICtrlSetState($timeitem2,$GUI_UnCHECKED) GUICtrlSetState($timeitem3,$GUI_UnCHECKED) Case $msg = $timeitem2 GUICtrlSetState($timeitem2,$GUI_CHECKED) $timeOut = 4000 GUICtrlSetState($timeitem1,$GUI_UnCHECKED) GUICtrlSetState($timeitem3,$GUI_UnCHECKED) Case $msg = $timeitem3 GUICtrlSetState($timeitem3,$GUI_CHECKED) $timeOut = 5000 GUICtrlSetState($timeitem1,$GUI_UnCHECKED) GUICtrlSetState($timeitem2,$GUI_UnCHECKED) Case $msg = $Button1 _CLS() For $p = 1 To UBound($pingitem) -1 If BitAND(GUICtrlRead($pingitem[$p][1]),$GUI_CHECKED) = $GUI_CHECKED Then ;If GUICtrlRead($pingitem[$p][1]) = 69 Then ;MsgBox(0, "", $pingitem[$p][2]) _PingIt($pingitem[$p][2]) Sleep(1000) EndIf Next If FileExists($INIfile) Then $ClientWeb = IniRead ($INIfile, "WEBSITE", "web", "" ) If $ClientWeb Then _PingIt($ClientWeb) EndIf EndIf GUICtrlSetData($Edit1, "Test Complete" & @crlf, 1) Case $msg = $Button2 $pingValue = InputBox("Test Custom Host", "Enter the URL without HTTP://", "", "", 200, 100, -1, -1) If $pingValue Then If StringInStr($pingValue, "http://") Then MsgBox(0, "Improper Entry", "The URL can't contain http://") ContinueLoop EndIf _CLS() _PingIt($pingValue) EndIf GUICtrlSetData($Edit1, "Test Complete" & @crlf, 1) Case $msg = $clearitem _CLS() Case $msg = $netitem _CLS() $ipinfo = Run(@ComSpec & " /c ipconfig /all", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop GUICtrlSetData($Edit1, StringStripWS($line, 1) & @crlf, 1) Wend Case $msg = $copyitem $clipCopy = GUICtrlRead ($Edit1) ClipPut($clipCopy) Case $msg = $traceitem If $ClientWeb Then $linect = 0 _CLS() HotKeySet("{Esc}", "abortTrace") GUICtrlSetData($Edit1, "Tracing Route To: " & $ClientWeb & " - press Escape to quit" & @crlf, 1) Sleep(1000) $trinfo = Run(@ComSpec & " /c tracert -h 30 -w " & $timeOut & " " & $ClientWeb, @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) While 1 $line = StdoutRead($trinfo, -1) If @error = -1 Then ExitLoop Else GUICtrlSetData($Edit1, $line, 1) EndIf Wend EndIf Case $msg = $sysitem _CLS() _sysInfo() Case $msg = $webmenu If FileExists($INIfile) Then $ClientWeb = IniRead ($INIfile, "WEBSITE", "web", "" ) EndIf $IniValue = InputBox("Client Web Site", "Your Web Site URL without HTTP://", $ClientWeb, "", 200, 100, -1, -1) If $IniValue Then If StringInStr($IniValue, "http://") Then MsgBox(0, "Improper Entry", "The URL can't contain http://") ContinueLoop EndIf IniWrite ( $INIfile, "WEBSITE", "web", $IniValue ) $ClientWeb = $IniValue GUICtrlSetState($traceitem,$GUI_ENABLE) EndIf Case $msg = $pingitem[1][1] If BitAND(GUICtrlRead($pingitem[1][1]),$GUI_CHECKED) Then GUICtrlSetState($pingitem[1][1],$GUI_UNCHECKED) Else GUICtrlSetState($pingitem[1][1],$GUI_CHECKED) EndIf Case $msg = $pingitem[2][1] If BitAND(GUICtrlRead($pingitem[2][1]),$GUI_CHECKED) Then GUICtrlSetState($pingitem[2][1],$GUI_UNCHECKED) Else GUICtrlSetState($pingitem[2][1],$GUI_CHECKED) EndIf Case $msg = $pingitem[3][1] If BitAND(GUICtrlRead($pingitem[3][1]),$GUI_CHECKED) Then GUICtrlSetState($pingitem[3][1],$GUI_UNCHECKED) Else GUICtrlSetState($pingitem[3][1],$GUI_CHECKED) EndIf Case $msg = $pingitem[4][1] If BitAND(GUICtrlRead($pingitem[4][1]),$GUI_CHECKED) Then GUICtrlSetState($pingitem[4][1],$GUI_UNCHECKED) Else GUICtrlSetState($pingitem[4][1],$GUI_CHECKED) EndIf Case $msg = $pingitem[5][1] If BitAND(GUICtrlRead($pingitem[5][1]),$GUI_CHECKED) Then GUICtrlSetState($pingitem[5][1],$GUI_UNCHECKED) Else GUICtrlSetState($pingitem[5][1],$GUI_CHECKED) EndIf Case $msg = $pingitem[6][1] If BitAND(GUICtrlRead($pingitem[6][1]),$GUI_CHECKED) Then GUICtrlSetState($pingitem[6][1],$GUI_UNCHECKED) Else GUICtrlSetState($pingitem[6][1],$GUI_CHECKED) EndIf Case $msg = $pingitem[7][1] If BitAND(GUICtrlRead($pingitem[7][1]),$GUI_CHECKED) Then GUICtrlSetState($pingitem[7][1],$GUI_UNCHECKED) Else GUICtrlSetState($pingitem[7][1],$GUI_CHECKED) EndIf Case $msg = $pingitem[8][1] If BitAND(GUICtrlRead($pingitem[8][1]),$GUI_CHECKED) Then GUICtrlSetState($pingitem[8][1],$GUI_UNCHECKED) Else GUICtrlSetState($pingitem[8][1],$GUI_CHECKED) EndIf Case $msg = $pingitem[9][1] If BitAND(GUICtrlRead($pingitem[9][1]),$GUI_CHECKED) Then GUICtrlSetState($pingitem[9][1],$GUI_UNCHECKED) Else GUICtrlSetState($pingitem[9][1],$GUI_CHECKED) EndIf Case $msg = $pingitem[10][1] If BitAND(GUICtrlRead($pingitem[10][1]),$GUI_CHECKED) Then GUICtrlSetState($pingitem[10][1],$GUI_UNCHECKED) Else GUICtrlSetState($pingitem[10][1],$GUI_CHECKED) EndIf Case $msg = $recyitem _CLS() GUICtrlSetData($Edit1, "Recycling Network Connection" & @crlf, 1) $ipinfo = Run(@ComSpec & " /c ipconfig /release", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ProcessWaitClose($ipinfo) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop GUICtrlSetData($Edit1, $line, 1) Wend sleep(1000) $ipinfo = Run(@ComSpec & " /c ipconfig /renew", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ProcessWaitClose($ipinfo) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop GUICtrlSetData($Edit1, $line, 1) Wend GUICtrlSetData($Edit1, @crlf & "Network Recycle Complete" & @crlf, 1) Case $msg = $repairitem _CLS() GUICtrlSetData($Edit1, "Repairing Network Connection" & @crlf, 1) $ipinfo = Run(@ComSpec & " /c ipconfig /release", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ProcessWaitClose($ipinfo) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop $ReleaseError = 1 GUICtrlSetData($Edit1, $line, 1) Wend sleep(1000) If $ReleaseError = 1 Then $ipinfo = Run(@ComSpec & " /c ipconfig /renew", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ProcessWaitClose($ipinfo) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop GUICtrlSetData($Edit1, $line, 1) Wend sleep(1000) $ipinfo = Run(@ComSpec & " /c ARP -d *", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ProcessWaitClose($ipinfo) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop GUICtrlSetData($Edit1, $line, 1) Wend sleep(1000) $ipinfo = Run(@ComSpec & " /c NBTSTAT -R", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ProcessWaitClose($ipinfo) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop GUICtrlSetData($Edit1, $line, 1) Wend sleep(1000) $ipinfo = Run(@ComSpec & " /c NBTSTAT -RR", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ProcessWaitClose($ipinfo) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop GUICtrlSetData($Edit1, $line, 1) Wend sleep(1000) $ipinfo = Run(@ComSpec & " /c IPCONFIG /flushdns", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ProcessWaitClose($ipinfo) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop GUICtrlSetData($Edit1, $line, 1) Wend sleep(1000) $ipinfo = Run(@ComSpec & " /c IPCONFIG /registerdns", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ProcessWaitClose($ipinfo) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop GUICtrlSetData($Edit1, $line, 1) Wend GUICtrlSetData($Edit1, @crlf & "Network Repair Complete" & @crlf, 1) EndIf Case $msg = $relitem _CLS() GUICtrlSetData($Edit1, "Releasing Network Connection" & @crlf, 1) $ipinfo = Run(@ComSpec & " /c ipconfig /release", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ProcessWaitClose($ipinfo) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop GUICtrlSetData($Edit1, $line, 1) Wend GUICtrlSetData($Edit1, @crlf & "Network IP Released" & @crlf, 1) Case $msg = $renitem _CLS() GUICtrlSetData($Edit1, "Renewing Network Connection" & @crlf, 1) $ipinfo = Run(@ComSpec & " /c ipconfig /renew", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ProcessWaitClose($ipinfo) While 1 $line = StdoutRead($ipinfo, -1) If @error = -1 Then ExitLoop GUICtrlSetData($Edit1, $line, 1) Wend GUICtrlSetData($Edit1, @crlf & "Network IP Renewed" & @crlf, 1) Case $msg = $instrhelp _CLS() GUICtrlSetData($Edit1, "Network Utility Instructions" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "This utility is used to test your network connection status, and the route between your local system and your web site, displaying route points (hops) along the way. It can also be used to reset and renew your local network connection to your router which will often solve connection problems." & @crlf & @crlf & "You can obtain basic information about your system and network connection to assist support personnel in diagnosing a problem from the items on the information menu. Help is available for each function on the help menu." & @crlf & @crlf & "1. To Begin:" & @crlf & "Click on the Settings menu and the Client Web Site selection. Enter your web site URL without the http://." & @crlf & @crlf & "2. If you can't get your email, or reach your web site:" & @crlf & "Click on the test connection button. This will by default Ping Google, Yahoo, and your web site if you have entered one." & @crlf & @crlf & "If there is no response from any attempts, see the help item Repair Network under Network Utility." & @crlf & @crlf & "If Google and Yahoo return but not your web site, see the section Trace Route under Network Utility." & @crlf & @crlf & "If all Ping requests return OK your Internet connection is fine. Note: if you are only having problems sending email, and not receiving it, the problem is most likely the use authentication setting of the outgoing mail server setup in your email software." & @crlf & @crlf & "The steps and tests outlined here should be performed before calling for support. If your connection still appears to be down after performing the tests and all procedures outlined in the Network Repair section, contact your Internet Service Provider for assistance.", 1) Case $msg = $testhelp _CLS() GUICtrlSetData($Edit1, "Help: Test Connection Button" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "Sends Ping commands to test the reachability the hosts selected in the Settings, Host Tests menu and your web site. If all requests time out, it usually means either your local network connection is down, or your ISP connection is down." & @crlf & @crlf & "Set up your web site test by entering your URL in the Settings, Client Web Site menu." & @crlf & @crlf & "Test Custom will prompt you for the host URL to test." & @crlf & @crlf & "Note: A Ping request sends small packets of data to a host computer and waits for a response. Not all web hosts respond to a Ping request, so lack of Ping response does not necessarily mean the host is offline.", 1) Case $msg = $tracehelp _CLS() GUICtrlSetData($Edit1, "Help: Network Utility Menu - Trace Route" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "Sends Ping commands to test the reachability your web site and returns data on each router stop (hop) along the way. Uses the Time Out value from the settings menu" & @crlf & @crlf & "Often when it appears that a web site is unreachable the problem is a router along the route, not the web site. The output from this command can help diagnose these problems." & @crlf & @crlf & "Email connections will often time-out when there is a routing problem and there are too many hops in between you and the mail server. Email can also bounce when there are too many hops in between the mail server and the destination mail server. This can happen even if web sites continue to load." & @crlf & @CRLF & "You may need to drag the window wider to properly see the output.", 1) Case $msg = $recyhelp _CLS() GUICtrlSetData($Edit1, "Help: Network Utility Menu - Release/Renew" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "If you receive no response from the connection test, and the problem is your local network connection, this selection should re-establish communications." & @crlf & @crlf & "Note: for most purposes, the repair connection is the best choice for re-establishing your network connection as it is more thorough.", 1) Case $msg = $repairhelp _CLS() GUICtrlSetData($Edit1, "Help: Network Utility Menu - Repair Network Connection" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "If you receive no response from the connection test, the problem is either your local network connection, or your Internet provider connection." & @crlf & @crlf & "If the problem is your local network connection you may have lost communication with your router. Use the repair selection to re-establish communications and refresh local computer settings including re-registration of the computer NetBIOS network name and flushing the local DNS cache." & @crlf & @crlf & "Note: this should solve most of your local network Internet communication problems. If it doesn't work, you can try rebooting your computer, turning your router off for 15 seconds and restarting it. If none of these attempts work, the problem is most likely a connection issue with your ISP.", 1) Case $msg = $relhelp _CLS() GUICtrlSetData($Edit1, "Help: Network Utility Menu - Release Network" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "Will cause your system to purge the current IP address lease. Can be used to disconnect from the network in an emergency (like worms or hack attacks).", 1) Case $msg = $renhelp _CLS() GUICtrlSetData($Edit1, "Help: Network Utility Menu - Renew Network" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "If you have released your network connection using the release network selection, this selection will re-establish it.", 1) Case $msg = $syshelp _CLS() GUICtrlSetData($Edit1, "Help: Information Menu - System Information" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "This selection will provide a list of basic system information to aid support personnel.", 1) Case $msg = $nethelp _CLS() GUICtrlSetData($Edit1, "Help: Information Menu - Network Information" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "This selection will provide a information about your current network connection to aid support personnel.", 1) Case $msg = $tohelp _CLS() GUICtrlSetData($Edit1, "Help: Settings Menu - Time Out" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "This menu allows you to select the length of time before the Ping requests will time-out. It can be changed if there is heavy network traffic and your tests are timing out.", 1) Case $msg = $hosthelp _CLS() GUICtrlSetData($Edit1, "Help: Settings Menu - Host Tests" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "By default the connection test will Ping Google.com, Yahoo.com, and your web site if you have it set up. This menu allows you to change or select different hosts to test, and includes a list of many popular ISPs that provide cable and DSL services.", 1) Case $msg = $wshelp _CLS() GUICtrlSetData($Edit1, "Help: Settings Menu - Client Web Site" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "Enter the URL of your web site here to utilize the connection and trace route tests. Do not include the http://. This setting will be saved for future use.", 1) Case $msg = $abouthelp MsgBox(0, "About Network Utility", "Client Network Utiltiy v1.11 by Bill Mezian" & @CRLF & "Licensed to Media Coast clients for use in diagnosing connection issues." & @CRLF & "Any other use or redistribution of this software is prohibited.") Case Else ;;;;;;; EndSelect WEnd Exit Func _PingIt($strHost) GUICtrlSetData($Edit1, "Testing Connection " & $strHost & @crlf, 1) Sleep(1000) For $i = 1 to 3 $Preturn = Ping ($strHost, $timeOut) Sleep(1000) If $Preturn Then $Pdisplay = "Host: " & $strHost & " Found: " & $Preturn & " ms Round Trip" Else $Pdisplay = "Host: " & $strHost & " REQUEST TIME OUT" EndIf GUICtrlSetData($Edit1, $Pdisplay & @crlf, 1) Next GUICtrlSetData($Edit1, @crlf, 1) EndFunc Func _sysInfo() $VOL = DriveGetLabel("C:\") $SERIAL = DriveGetSerial("C:\") $TOTAL = DriveSpaceTotal("C:\") $FREE = DriveSpaceFree("C:\") $mem = MemGetStats ( ) GUICtrlSetData($Edit1, "") GUICtrlSetData($Edit1, "System Information" & @crlf & @crlf, 1) GUICtrlSetData($Edit1, "Computer Name: " & @ComputerName & @crlf, 1) GUICtrlSetData($Edit1, "Current User Name: " & @UserName & @crlf, 1) GUICtrlSetData($Edit1, "Operating System: " & @OSTYPE & @crlf, 1) GUICtrlSetData($Edit1, "OS Version: " & @OSVersion & @crlf, 1) GUICtrlSetData($Edit1, "Service Pack: " & @OSServicePack & @crlf, 1) GUICtrlSetData($Edit1, "Processor: " & @OSArch & @crlf, 1) GUICtrlSetData($Edit1, "Memory Load: " & $mem[0] & @crlf, 1) GUICtrlSetData($Edit1, "Total physical RAM: " & $mem[1] & " kb" & @crlf, 1) GUICtrlSetData($Edit1, "Available physical RAM: " & $mem[2] & " kb" & @crlf, 1) GUICtrlSetData($Edit1, "Total Pagefile: " & $mem[3] & " kb" & @crlf, 1) GUICtrlSetData($Edit1, "Available Pagefile: " & $mem[4] & " kb" & @crlf, 1) GUICtrlSetData($Edit1, "Total virtual: " & $mem[5] & " kb" & @crlf, 1) GUICtrlSetData($Edit1, "Available virtual: " & $mem[6] & " kb" & @crlf, 1) GUICtrlSetData($Edit1, "Volume Label: " & $VOL & @crlf, 1) GUICtrlSetData($Edit1, "Serial Number: " & $SERIAL & @crlf, 1) GUICtrlSetData($Edit1, "Total Space: " & Round($TOTAL, 2) & @crlf, 1) GUICtrlSetData($Edit1, "Free Space: " & Round($FREE, 2) & @crlf, 1) GUICtrlSetData($Edit1, "IP Address: " & @IPAddress1 & @crlf, 1) GUICtrlSetData($Edit1, "Startup Directory: " & @StartupDir & @crlf, 1) GUICtrlSetData($Edit1, "Windows Directory: " & @WindowsDir & @crlf, 1) GUICtrlSetData($Edit1, "System Folder: " & @SystemDir & @crlf, 1) GUICtrlSetData($Edit1, "Desktop Directory: " & @DesktopDir & @crlf, 1) GUICtrlSetData($Edit1, "My Documents: " & @MyDocumentsDir & @crlf, 1) GUICtrlSetData($Edit1, "Program Files: " & @ProgramFilesDir & @crlf, 1) GUICtrlSetData($Edit1, "Start Menu: " & @StartMenuDir & @crlf, 1) GUICtrlSetData($Edit1, "Temporary Files: " & @TempDir & @crlf, 1) GUICtrlSetData($Edit1, "Desktop Width: " & @DesktopWidth & @crlf, 1) GUICtrlSetData($Edit1, "Desktop Height: " & @DesktopHeight & @crlf, 1) GUICtrlSetData($Edit1, "Date/Time: " & @MON & "-" & @MDAY & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC& @crlf, 1) EndFunc Func _CLS() GUICtrlSetData($Edit1, "") EndFunc Func abortTrace() GUICtrlSetData($Edit1, @crlf & @crlf & "Command Aborted" & @crlf, 1) $line = "" $trinfo = "" SetError(-1) HotKeySet("{Esc}") EndFunc[/codebox]

Mesajdaki $Form1 = ile başlayan satırdkai kullandığın değişkenler büyük ihtimal tanıtılmamış olabilir. Ilgili değişkenleri tanımla veyahut kullanma. Kullanmak istemezsen kısaca aşağıdaki gibi düzenle! [color="#0000FF"][b]$Form1 = GuiCreate("başlık",580,330)[/b][/color] Kolay gelsin...

@x_files_x Bu konuda fazla bilgim olmadığı için yanıt yazamyacaktım, lakin yine de ufak bir yönlendirme yapmak istedim. Şimdi ilgili klasörlere virüs bulaşması için haliyle, sisteminde virüs olması lazım. Şuan senin yaptığın düşmanın nerde olduğunu bilmeden kendini savunduğunu sanmaktan başka bir şey deyil. Neyse denetim almak için windows içindeki CACLS.EXE programını kullanabilirsin. Heralde o işe yarıyordu. Komut istmini aç ve komut isteminde CACLS.EXE yazıp paremetrelerine bak! Senin için uygun parametreyi bulunca bunu autoit koduna dönüştürürsün. Unlocker programınında parametre desteği vardı. Bunun içinde ek kodlar ile yapacağın autoit çalışmasıyla, bir tıklamada ilgili klasör ve dosyalardan kurtulman mümkün. Çok fazla yardımcı olamadım ama bence sistemdeki virüsü temizleme yoluna gitmen en mantıklısı. Kolay gelsin..

@Aqil990 Hangi yöntem senin hoşuna giderse tabiki onu kullanacaksın. Benim verdiğim örnekte 250 rakamı zamanı belirliyor. Bu çok düşük bir değer orayı yükseltirsen (misal 1 saniye yap, yani 1000) sorun çıkmaz... Neyse kolay gelsin...