figde Posted November 30, 2010 Share Posted November 30, 2010 [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] Link to comment Share on other sites More sharing options...
DarkLenoX Posted December 4, 2010 Share Posted December 4, 2010 bende buna benzer bişey yapıyorumda otomatik Program Yükleme Yapıyorum Mesela şu Yükleniyor Yazısı İlerliyorya Onu Nasıl Yapıcağımı Anlatırmısın Link to comment Share on other sites More sharing options...
Game.Over Posted December 18, 2010 Share Posted December 18, 2010 [quote name='DarkLenoX' date='04 Aralık 2010 - 19:54 ' timestamp='1291485881' post='921398'] bende buna benzer bişey yapıyorumda otomatik Program Yükleme Yapıyorum Mesela şu Yükleniyor Yazısı İlerliyorya Onu Nasıl Yapıcağımı Anlatırmısın [/quote] Kullanıcı Zaten AutoIt Kodlarını Vermiş Kodları İncelersen Görürsün Zaten Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.