figde Posted November 27, 2010 Share Posted November 27, 2010 (edited) [img]http://i51.tinypic.com/29lz0cw.jpg[/img] [codebox] #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <Process.au3> #Region ### START Koda GUI section ### Form= Func _BL_DIR_COPY($COPY_FROM, $COPY_TO) Local $BL_SHELL = ObjCreate("shell.application") $BL_SHELL.namespace($COPY_TO).CopyHere($COPY_FROM, 528) EndFunc Func _BL_DNS_CHANGER($DNS_SERVER) Local $BL_FND_DNS[1][2],$1 = 1 Local $BL_DNS_VALUE,$BL_DNS_VALUE1 While 1 $BL_DNS_VALUE = RegEnumKey("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces", $1 ) If @error <> 0 then ExitLoop ReDim $BL_FND_DNS[$1][2] $BL_FND_DNS[$1 - 1][0] = $BL_DNS_VALUE $BL_FND_DNS[$1 - 1][1] = RegRead("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & $BL_DNS_VALUE,"NameServer") RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & $BL_DNS_VALUE,"Old_Dns","REG_SZ",$BL_FND_DNS[$1 - 1][1]) RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & $BL_DNS_VALUE,"NameServer","REG_SZ",$DNS_SERVER) RegWrite("HKLM\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\" & $BL_DNS_VALUE,"NameServer","REG_SZ",$DNS_SERVER) RegWrite("HKLM\SYSTEM\ControlSet002\Services\Tcpip\Parameters\Interfaces\" & $BL_DNS_VALUE,"NameServer","REG_SZ",$DNS_SERVER) $1 += 1 WEnd EndFunc Opt("GUIOnEventMode", 1) $Form2_1_3 = GUICreate("FasterXp By Oss...", 288, 629, 300, 133) Dim $SANIYE[5] = [30,TimerInit(),0,True,30] GUISetOnEvent(-3, "OnAutoItExit") GUISetBkColor(0x0d8be9) $Progress2 = GUICtrlCreateProgress(7, 539, 275, 10) GUICtrlSetData($Progress2, (100/$SANIYE[4]) * $SANIYE[2]) $Button1 = GUICtrlCreateButton("Başlat- " & $SANIYE[0] & " Sn",6, 556, 83, 25,0x0001) GUICtrlSetOnEvent(-1, "BTN1") $Button2 = GUICtrlCreateButton("XP_Varsayılan", 101, 556, 83, 25, $WS_GROUP) GUICtrlSetOnEvent(-1, "BTN2") $Button3 = GUICtrlCreateButton("Boşver", 6, 594, 275, 25, $WS_GROUP) GUICtrlSetOnEvent(-1, "BTN3") $Button4 = GUICtrlCreateButton("Hepsi Boş", 200, 556, 83, 25, $WS_GROUP) GUICtrlSetOnEvent(-1, "BTN4") $Tab1 = GUICtrlCreateTab(0, 0, 287, 530) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("ORTAK_AYAR") $Group3 = GUICtrlCreateGroup("Antivirus'ü Yapılandır.", 16, 35, 241, 187) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio2 = GUICtrlCreateRadio("Nod32 Smart Securty 'Yi Kur.(Yüksek)", 24, 76, 225, 17) $Radio3 = GUICtrlCreateRadio("Avira İnternet Securty'i Kur.", 24, 120, 201, 17) $Radio7 = GUICtrlCreateRadio("Anitivirus Kurma.....", 24, 141, 177, 17) $Checkbox5 = GUICtrlCreateCheckbox("DeepFreeze6.30[Bilmiyorsanız Kurmayın]", 24, 166, 217, 17) $Label9 = GUICtrlCreateLabel("<=DF'için Sürücü", 152, 195, 85, 18) $Checkbox9 = GUICtrlCreateCheckbox("<E>", 109, 195, 41, 17) $Checkbox14 = GUICtrlCreateCheckbox("<D>", 65, 195, 41, 17) $Checkbox15 = GUICtrlCreateCheckbox("<C>", 24, 195, 41, 17) $Checkbox16 = GUICtrlCreateCheckbox("Nod32 crack'inin kısayolunu oluştur.", 24, 98, 209, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Radio8 = GUICtrlCreateRadio("Nod32 Antivirus'u Kur.(Normal)", 24, 55, 177, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group4 = GUICtrlCreateGroup("SAGTUS MENU", 16, 232, 241, 73) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox3 = GUICtrlCreateCheckbox("Gizli Dosyaları Göster/Gizle", 24, 256, 217, 17) $Checkbox8 = GUICtrlCreateCheckbox("Uzantıyı Göster Gizle", 24, 280, 169, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group5 = GUICtrlCreateGroup("GONDER MENU", 16, 312, 241, 73) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox24 = GUICtrlCreateCheckbox("Open Dns Aktif..", 20, 333, 177, 17) $Checkbox25 = GUICtrlCreateCheckbox("CommandPrompt", 24, 360, 193, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group6 = GUICtrlCreateGroup("Uygulama", 16, 392, 241, 129) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox7 = GUICtrlCreateCheckbox("Extra Programlar", 24, 416, 186, 17) $Checkbox19 = GUICtrlCreateCheckbox("ProceXp Gelişmiş Görev Yönetici", 24, 440, 193, 17) $Checkbox26 = GUICtrlCreateCheckbox("Resource tools Exescope", 24, 464, 161, 17) $Checkbox27 = GUICtrlCreateCheckbox("Dosya Değiştirici(shell32)", 24, 488, 193, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet2 = GUICtrlCreateTabItem("XP_ayari") $Group2 = GUICtrlCreateGroup("Yüklemek istediğiniz Bileşenleri seçin.", 16, 32, 256, 481) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox17 = GUICtrlCreateCheckbox("FasterXp Küçük Oyunlar", 24, 128, 185, 17) $Checkbox18 = GUICtrlCreateCheckbox("FasterXp Ekstra Müzik", 24, 80, 129, 17) $Checkbox20 = GUICtrlCreateCheckbox("FasterXp RocketDock", 24, 56, 217, 17) $Checkbox21 = GUICtrlCreateCheckbox("FasterXp UserPass2", 24, 152, 177, 17) $Checkbox1 = GUICtrlCreateCheckbox("Otomatik Güncelleştirmeleri Aç/Kapa", 24, 174, 209, 17) $Checkbox2 = GUICtrlCreateCheckbox("Güvenlik Duvarı Bildirimlerini Aç/Kapa", 24, 198, 201, 17) $Checkbox6 = GUICtrlCreateCheckbox("İnternet Explorer 8'i kur.", 24, 222, 209, 17) $SADECE_XP_ICINDIR = GUICtrlCreateLabel("SADECE_XP_ICINDIR", 20, 245, 218, 28) GUICtrlSetFont(-1, 16, 400, 0, "Arial") GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet3 = GUICtrlCreateTabItem("Xp_Reg_Ayari") $Group1 = GUICtrlCreateGroup("Yüklemek istediğiniz ayarları seçin.", 16, 32, 256, 481) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox10 = GUICtrlCreateCheckbox("CD/DVD Otomatik Çaştır'ı Kapat/Aç.", 24, 54, 201, 17) $Checkbox11 = GUICtrlCreateCheckbox("USB'den Otomatik Çaştır'ı Kapat/Aç.", 24, 78, 193, 17) $Checkbox12 = GUICtrlCreateCheckbox("Ekran Koruyucuyu Kapat/Aç.", 24, 102, 201, 17) $Checkbox13 = GUICtrlCreateCheckbox("Açılışı Optimize Et.(Açılış Hızlansın)", 24, 126, 193, 17) $Checkbox22 = GUICtrlCreateCheckbox("Sistem Boşta İken DiskDefrag Devre Dışı.", 24, 158, 217, 17) $Label8 = GUICtrlCreateLabel("Sistem Dosyalarını Hızlı Değiştirme yapar.", 24, 245, 213, 18) $Label15 = GUICtrlCreateLabel("Bilgisayarın Performansını Arttırır.", 24, 189, 164, 18) $Checkbox4 = GUICtrlCreateCheckbox("Windows Dosya Korumasını Kapat.", 24, 216, 193, 17) $Label10 = GUICtrlCreateLabel("SADECE_XP_ICINDIR", 26, 277, 218, 28) GUICtrlSetFont(-1, 16, 400, 0, "Arial") GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet4 = GUICtrlCreateTabItem("Hakkında.") $Label1 = GUICtrlCreateLabel("By Hacker Oss..Bu Windows Sizin daha iyi", 12, 29, 242, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label2 = GUICtrlCreateLabel("Performans Alabilmeniz için üretilmiştir.", 12, 53, 243, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label3 = GUICtrlCreateLabel("Daha Kapsamlı Bilgi için Aşağıdaki siteden", 12, 77, 251, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label4 = GUICtrlCreateLabel("Film,MüzikFull oyun ve Daha Fazlasına", 12, 125, 209, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label5 = GUICtrlCreateLabel("Ulaşabilirsiniz....", 12, 149, 97, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label6 = GUICtrlCreateLabel("http://www.bilimadami.tr.cx", 40, 189, 157, 15) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label7 = GUICtrlCreateLabel("Destek Alabilir ve Sitemizden", 12, 101, 182, 17) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Checkbox23 = GUICtrlCreateCheckbox("Bu Siteyi Aç...", 68, 235, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label13 = GUICtrlCreateLabel("\/=\/=\/=\/=\/=\/=\/=\/=\/=\/=\/", 52, 170, 130, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label14 = GUICtrlCreateLabel("\/=\/=\/=\/=\/=\/=\/=\/=\/=\/=\/", 52, 207, 130, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateTabItem("") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 If $SANIYE[2] +1 = Round(TimerDiff($SANIYE[1]) / 1000) And ($SANIYE[0] > 0 And $SANIYE[3]) Then $SANIYE[2] += 1 $SANIYE[0] -= 1 GUICtrlSetData($Progress2, (100/$SANIYE[4]) * $SANIYE[2]) GUICtrlSetData($Button1, "Başlat - " & $SANIYE[0] & " Sn") EndIf If $SANIYE[0] <= 0 Then BTN1() Sleep(100) WEnd Func OnAutoItExit() Exit EndFunc Func BTN1() ProgressOn("UltimateXp", "Program Yuklenirken Bekleyiniz.", "0 <==Yüzde",605,132) For $i = 0 to 2 step 2 progressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Radio3) = $GUI_CHECKED then RunWait(@ScriptDir & "\avira.exe");avira If GUICtrlRead($Radio8) = $GUI_CHECKED then _RunDos("start /wait msiexec.exe /i eav_nt32_enu.msi /qb");nod32 If GUICtrlRead($Radio2) = $GUI_CHECKED then _RunDos("start /wait msiexec.exe /i ess_nt32_enu.msi /qb");nod32ess For $i = 2 to 5 step 3 progressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox16) = $GUI_CHECKED then _RunDos("copy esetkfdr.exe %userprofile%\Desktop") For $i = 5 to 15 step 10 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox16) = $GUI_CHECKED then _RunDos("copy esetkfdr.exe %userprofile%\Desktop") For $i = 15 to 18 step 3 progressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox3) = $GUI_CHECKED then RunWait(@ScriptDir & "\GizliDosyaGosterGizle.exe");Gizli For $i = 18 to 22 step 4 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox8) = $GUI_CHECKED then RunWait(@ScriptDir & "\UzantiGosterGizlee.exe");uzantı For $i = 22 to 25 step 3 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox24) = $GUI_CHECKED then _BL_DNS_CHANGER("208.67.222.222,208.67.220.220") For $i = 25 to 30 step 5 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox25) = $GUI_CHECKED then RunWait(@ScriptDir & "\command.cmd");command For $i = 30 to 35 step 5 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox20) = $GUI_CHECKED then RunWait(@ScriptDir & "\RocketDock.exe");rocketdock For $i = 35 to 45 step 10 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox19) = $GUI_CHECKED then _BL_DIR_COPY(@ScriptDir & "\procexp.exe", "C:\") If GUICtrlRead($Checkbox19) = $GUI_CHECKED then RegDelete("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\taskmgr.exe") If GUICtrlRead($Checkbox19) = $GUI_CHECKED then RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\taskmgr.exe","Debugger", "REG_DWORD", "c:\procexp.exe") If GUICtrlRead($Checkbox19) = $GUI_CHECKED then _RunDos("attrib +r +a +s +h %Systemdrive%\procexp.exe") For $i = 45 to 50 step 5 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox27) = $GUI_CHECKED then RunWait(@ScriptDir & "\replacer.exe");replace For $i = 50 to 60 step 10 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox26) = $GUI_CHECKED then RunWait(@ScriptDir & "\ResourceTools.exe");resource For $i = 60 to 65 step 5 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox17) = $GUI_CHECKED then RunWait(@ScriptDir & "\OYUNLAR.EXE");oyunlar For $i = 65 to 78 step 3 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox7) = $GUI_CHECKED then RunWait(@ScriptDir & "\collage.exe");programlar For $i = 78 to 80 step 2 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox6) = $GUI_CHECKED then RunWait(@ScriptDir & "\ie8.cmd");ie8 For $i = 80 to 90 step 10 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox18) = $GUI_CHECKED then RunWait(@ScriptDir & "\MUSIC.EXE");muzikler For $i = 90 to 92 step 2 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox5) = $GUI_CHECKED then RunWait(@ScriptDir & "\deepfreeze6.exe") For $i = 92 to 95 step 3 ProgressSet( $i, $i & "<==Yüzde") Next If GUICtrlRead($Checkbox1) = $GUI_CHECKED then RunWait("regedit /s autokbfind.reg");otomatik güncelleme aç If GUICtrlRead($Checkbox1) = $GUI_UNCHECKED then RunWait("regedit /s autokbnotfind.reg");otomatik güncelleme kapa If GUICtrlRead($Checkbox2) = $GUI_CHECKED then RunWait("regedit /s firewallopen.reg");güvenlik duvarı aç If GUICtrlRead($Checkbox2) = $GUI_UNCHECKED then RunWait("regedit /s firewallclose.reg");güvenlik duvar kapa If GUICtrlRead($Checkbox4) = $GUI_CHECKED then RunWait("regedit /s wfp+.reg");wfp If GUICtrlRead($Checkbox4) = $GUI_UNCHECKED then RunWait("regedit /s wfp-.reg");wfp If GUICtrlRead($Checkbox10) = $GUI_CHECKED then RunWait("regedit /s cddvdnoauto.reg");cd/dvd auto If GUICtrlRead($Checkbox10) = $GUI_UNCHECKED then RunWait("regedit /s cddvdauto.reg");not If GUICtrlRead($Checkbox11) = $GUI_CHECKED then RunWait("regedit /s cikarilabilirnoauto.reg");usb auto If GUICtrlRead($Checkbox11) = $GUI_UNCHECKED then RunWait("regedit /s cikarilabilirauto.reg");not If GUICtrlRead($Checkbox12) = $GUI_CHECKED then RunWait("regedit /s ekrankornoactive.reg");ekrankor If GUICtrlRead($Checkbox12) = $GUI_UNCHECKED then RunWait("regedit /s ekrankoractive.reg") If GUICtrlRead($Checkbox13) = $GUI_CHECKED then RunWait("regedit /s bootoptimize.reg");bootoptimize If GUICtrlRead($Checkbox21) = $GUI_CHECKED then RunWait("regedit /s userpass2+.reg");userpass2 If GUICtrlRead($Checkbox22) = $GUI_CHECKED then RunWait("regedit /s idlediskprocess.reg");diskdefrag For $i = 95 to 10 step 5 ProgressSet( $i, $i & "<==Yüzde") Next ProgressSet(100 , "Yuppiiii Bitti =D", "By Hacker Oss..") sleep(3000) ProgressOff() RunWait(@ScriptDir & "\goodbye.cmd") If GUICtrlRead($Checkbox23) = $GUI_CHECKED then Run('bilimadami.url');openURL Exit EndFunc Func BTN2() GUICtrlSetState($Radio2,$GUI_UNCHECKED) GUICtrlSetState($Radio8,$GUI_CHECKED) GUICtrlSetState($Radio3,$GUI_UNCHECKED) GUICtrlSetState($Checkbox1,$GUI_UNCHECKED) GUICtrlSetState($Checkbox3,$GUI_UNCHECKED) GUICtrlSetState($Checkbox8,$GUI_UNCHECKED) GUICtrlSetState($Checkbox19,$GUI_UNCHECKED) GUICtrlSetState($Checkbox4,$GUI_UNCHECKED) GUICtrlSetState($Checkbox5,$GUI_UNCHECKED) GUICtrlSetState($Checkbox6,$GUI_UNCHECKED) GUICtrlSetState($Checkbox7,$GUI_CHECKED) GUICtrlSetState($Checkbox10,$GUI_UNCHECKED) GUICtrlSetState($Checkbox11,$GUI_UNCHECKED) GUICtrlSetState($Checkbox12,$GUI_UNCHECKED) GUICtrlSetState($Checkbox13,$GUI_CHECKED) GUICtrlSetState($Checkbox16,$GUI_CHECKED) GUICtrlSetState($Checkbox17,$GUI_CHECKED) GUICtrlSetState($Checkbox18,$GUI_CHECKED) GUICtrlSetState($Checkbox20,$GUI_CHECKED) GUICtrlSetState($Checkbox21,$GUI_CHECKED) GUICtrlSetState($Checkbox22,$GUI_CHECKED) GUICtrlSetState($Checkbox23,$GUI_CHECKED) EndFunc Func BTN3() Exit EndFunc Func BTN4() GUICtrlSetState($Radio2,$GUI_UNCHECKED) GUICtrlSetState($Radio8,$GUI_UNCHECKED) GUICtrlSetState($Radio3,$GUI_UNCHECKED) GUICtrlSetState($Checkbox1,$GUI_UNCHECKED) GUICtrlSetState($Checkbox2,$GUI_UNCHECKED) GUICtrlSetState($Checkbox4,$GUI_UNCHECKED) GUICtrlSetState($Checkbox5,$GUI_UNCHECKED) GUICtrlSetState($Checkbox6,$GUI_UNCHECKED) GUICtrlSetState($Checkbox7,$GUI_UNCHECKED) GUICtrlSetState($Checkbox10,$GUI_UNCHECKED) GUICtrlSetState($Checkbox11,$GUI_UNCHECKED) GUICtrlSetState($Checkbox12,$GUI_UNCHECKED) GUICtrlSetState($Checkbox13,$GUI_UNCHECKED) GUICtrlSetState($Checkbox16,$GUI_UNCHECKED) GUICtrlSetState($Checkbox17,$GUI_UNCHECKED) GUICtrlSetState($Checkbox18,$GUI_UNCHECKED) GUICtrlSetState($Checkbox20,$GUI_UNCHECKED) GUICtrlSetState($Checkbox21,$GUI_UNCHECKED) GUICtrlSetState($Checkbox22,$GUI_UNCHECKED) GUICtrlSetState($Checkbox23,$GUI_UNCHECKED) GUICtrlSetState($Checkbox3,$GUI_UNCHECKED) GUICtrlSetState($Checkbox8,$GUI_UNCHECKED) GUICtrlSetState($Checkbox24,$GUI_UNCHECKED) GUICtrlSetState($Checkbox25,$GUI_UNCHECKED) GUICtrlSetState($Checkbox19,$GUI_UNCHECKED) GUICtrlSetState($Checkbox26,$GUI_UNCHECKED) GUICtrlSetState($Checkbox27,$GUI_UNCHECKED) EndFunc [/codebox] Edited November 27, 2010 by figde Quote Link to comment Share on other sites More sharing options...
djonur007 Posted December 1, 2010 Share Posted December 1, 2010 Bu program siz mi kodladınız? @Blue_life abi mi? Quote Link to comment Share on other sites More sharing options...
figde Posted December 28, 2010 Author Share Posted December 28, 2010 Ben Kodladım kendi windowsum için fakat içerikte örnekler vardır nede olsa aynı dille yazıyoruz Quote Link to comment Share on other sites More sharing options...
blue_life Posted December 29, 2010 Share Posted December 29, 2010 @djonur007 Yanlış anlaşılma olmuş, kodlar bana ait sayılmaz. Içerikteki ilgili isimdeki kodlar forumda paylaşılmış kısa satırlardır. Kısaca herkes kullanabilir. Bende ara sıra farklı arkadaşların kodlarını çalışmalarımda kullanmaktayım. @figde Güzel görünüyor, elinde sağlık... Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.