asmazh Posted January 19, 2011 Share Posted January 19, 2011 (edited) [color="#FF0000"]Bu Arada Hazırladığım Bir Proghe Buyrun Burada ÇokluMSN Crack i...[/color] [color="#FF0000"]BİR TEŞEKKÜR YETER...![/color] [codebox] #NoTrayIcon #NoAutoIt3Execute #include <GuiConstantsEx.au3> #include <GuiStatusBar.au3> #include <GuiToolbar.au3> #include <WindowsConstants.au3> #include <Constants.au3> #include <GuiButton.au3> #include <EditConstants.au3> #include <GUIConstants.au3> #include <ButtonConstants.au3> #include <StaticConstants.au3> #include <GUIListBox.au3> #include <GuiEdit.au3> #include <ProgressConstants.au3> #include <IE.au3> Opt('TrayIconHide', 1) Opt('MustDeclareVars', 1) Example() Func Example() Local $Button_1, $Button_2, $Button_3 , $combo , $isletim , $progress , $ins , $label1 , $label2 ,$label3 ,$msg Local $buttonclose , $zaten, $hGui ,$label4 , $label88 ,$hToolbar , $var ,$hProgress ,$label4 , $label5,$msg GUICreate("Çoklu MSN vs3.3.6.1",250,200) GuiSetIcon("iconnn.ico") GUISetBkColor( 0x0D7ED2) If @OSTYPE = "WIN32_WINDOWS" Then Else $progress = GUICtrlCreateProgress(5, 115, 100, 13, $PBS_MARQUEE) $hProgress = GUICtrlGetHandle($progress) _SendMessage($hProgress, $PBM_SETMARQUEE, True, 900) EndIf GUICtrlCreateLabel("Msn Sürümünüz ;",5,10) GUICtrlCreateLabel("System Version ;",5,60) $isletim = GUICtrlCreateCombo(@OSVersion,5,80,100,20) $combo = GUICtrlCreateCombo("DİĞER",5,30,100,20) GUICtrlSetData(-1, "Msn 7 - 7.5|Msn 8 - 8.5|Msn 9 - 9.5") $Button_1 = GUICtrlCreateButton("CRACK", 120, 15, 123) GUICtrlCreateGroup("BİLGİLENDİRME",5,150,240,40) $buttonclose = GUICtrlCreateButton( ">>> ÇIKIŞ <<<", 120,115,120) GUICtrlSetColor(-1, 0xE60000) $Button_3 = GUICtrlCreateButton("Crack'ı Kaldır",120,50,123) $ins = GUICtrlCreateButton("Hakkında", 120, 85, 123) GUISetState() $var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger", "MultipleInstances") ;İFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF; If $var = 1 Then _GUICtrlButton_Enable($Button_1, False) If $var = 1 Then GUICtrlCreateLabel("Çoklu msn özelliği zaten aktif.",20,168) GUICtrlSetColor(-1, 0xE60000) ; If $var = 1 Then _GUICtrlButton_Enable($Button_3) If $var = "" Then _GUICtrlButton_Enable($Button_1 ,True) If $var = "" Then _GUICtrlButton_Enable($Button_3 ,False) If $var = ""Then $label3 = GUICtrlCreateLabel("Crack ' e tıklayarak çoklu msn açabilirsiniz.",20,168) ;İFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF; While 1 $msg = GUIGetMsg() ; Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $ins GuiSetIcon("iconn.ico") MsgBox(262176,"Hakkında","Yapımcı : AsmazH [ Mahmut TAŞKIRAN ]" & @CRLF & "Sürüm : 3.6.6.1" & @CRLF & "Mail : AsmazHiletisim[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com " & @CRLF & "" & @CRLF & "Programın yazılma amacı kullanıcıya kolaylık sağlamaktır. Tamamen ücretsizdir" & @CRLF & "herhangi bir kısıtlaması yoktur. " & @CRLF & "") GuiSetIcon("iconnn.ico") Case $msg = $Button_1 RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger","MultipleInstances", "REG_DWORD", "1") $var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger", "MultipleInstances") GUICtrlDelete($label3) GUICtrlDelete($label4) GUICtrlDelete($label5) if $var = 1 Then $label1= GUICtrlCreateLabel("Çoklu msn açabilirsiniz.",90,168) if $var = 1 then $label2= GUICtrlCreateLabel("( BAŞARILI ) ",20,168) if $var = "" then GUICtrlCreateLabel("( BAŞARISIZ ) ",20,168) if $var = "" Then GUICTRLCREATELABEL("Daha sonra tekrar deneyiniz.",90,168) _GUICtrlButton_Enable($Button_3) _GUICtrlButton_Enable($Button_1,False) GUICtrlSetColor(-1, 0xF10303) ; WinSetTitle($hGui, "", " Çoklu MSN Aktif") Sleep(800) WinSetTitle($hGui, "", " Çoklu MSN vs3.6.6.1") Case $msg = $buttonclose Exit Case $msg = $Button_3 RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger","MultipleInstances") GUICtrlDelete($label1) GUICtrlDelete($label2) GUICtrlDelete($label3) $var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger", "MultipleInstances") if $var = 1 then $label4 = GUICtrlCreateLabel("Kaldırılamadı daha sonra tekrar deneyiniz.",20,168) if $var = "" then $label5 = GUICtrlCreateLabel("Crack kaldırıldı. Çoklu msn açılmaz.",20,168) _GUICtrlButton_Enable($Button_1) _GUICtrlButton_Enable($Button_3,False) GUICtrlSetColor(-1, 0xff0000) ; WinSetTitle($hGui, "", " Çoklu MSN Kaldırıldı") Sleep(800) WinSetTitle($hGui, "", " Çoklu MSN vs3.6.6.1") EndSelect WEnd EndFunc [/codebox] [color="#FF0000"] BİR TEŞEKKÜR YETER...![/color] Edited January 19, 2011 by KintaRo Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 21, 2011 Share Posted February 21, 2011 (edited) Ne gerek var bu kadar koda ki ; bunu regeditten çok kolay bişekilde yapabiliriz... [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger] satırına gidip MultipleInstances satırında 0 olan değer 1 yapın yeter. isteyenlere hazır reg kaydı [code]Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger] "PrimaryService"=".NET Messenger Service" "InstallationDirectory"="C:\\Program Files\\Windows Live\\Messenger\\" "MultipleInstances"=dword:00000001 [/code] isteyenlere autoit kodu [code]RegWrite("HKLM\SOFTWARE\Microsoft\Windows Live\Messenger", "PrimaryService", "REG_SZ", ".NET Messenger Service") RegWrite("HKLM\SOFTWARE\Microsoft\Windows Live\Messenger", "InstallationDirectory", "REG_SZ", "C:\Program Files\Windows Live\Messenger\") RegWrite("HKLM\SOFTWARE\Microsoft\Windows Live\Messenger", "MultipleInstances", "REG_DWORD", "1") [/code] Edited February 21, 2011 by ASEV13 Quote Link to comment Share on other sites More sharing options...
samokantur Posted February 21, 2011 Share Posted February 21, 2011 [quote name='ASEV13' date='21 Şubat 2011 - 17:42 ' timestamp='1298310766' post='967290'] Ne gerek var bu kadar koda ki ; bunu regeditten çok kolay bişekilde yapabiliriz... [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger] satırına gidip MultipleInstances satırında 0 olan değer 1 yapın yeter. isteyenlere hazır reg kaydı [code]Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger] "PrimaryService"=".NET Messenger Service" "InstallationDirectory"="C:\\Program Files\\Windows Live\\Messenger\\" "MultipleInstances"=dword:00000001 [/code] isteyenlere autoit kodu [code]RegWrite("HKLM\SOFTWARE\Microsoft\Windows Live\Messenger", "PrimaryService", "REG_SZ", ".NET Messenger Service") RegWrite("HKLM\SOFTWARE\Microsoft\Windows Live\Messenger", "InstallationDirectory", "REG_SZ", "C:\Program Files\Windows Live\Messenger\") RegWrite("HKLM\SOFTWARE\Microsoft\Windows Live\Messenger", "MultipleInstances", "REG_DWORD", "1") [/code] [/quote] MultipleInstances bende bu kod yok))... Quote Link to comment Share on other sites More sharing options...
Code-Name-X Posted February 21, 2011 Share Posted February 21, 2011 o kod değil zaten sen oluşturuyorsun MultipleInstances dword değerini 1 veriyorsun Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 21, 2011 Share Posted February 21, 2011 (edited) [quote name='samokantur' date='21 Şubat 2011 - 17:46 ' timestamp='1298310989' post='967291'] MultipleInstances bende bu kod yok))... [/quote] ozamn senoluştur kardeş sağ tıkla ve yeni bir dwor ekle de adını ise MultipleInstances olarak değiştir ve değerini ise 1 yap tamamdır çoklu olarak kullanırsın msn Edited February 21, 2011 by ASEV13 Quote Link to comment Share on other sites More sharing options...
Code-Name-X Posted February 21, 2011 Share Posted February 21, 2011 ya da benim kullandığım bi pro var çoklu msn yapılandırıcı googleden aratırsan bulursun çok hoş ben kullanıyorum herşe bi aradaa Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 21, 2011 Share Posted February 21, 2011 (edited) ne gerek var proya ya... şu kodu yeni bi metin belgesi oluştur ve içine yapıştır farklı kaydet de kaydederken çoklu msn.reg olrak kaydet ve 2 kere tıkla tamam [code]Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger] "PrimaryService"=".NET Messenger Service" "InstallationDirectory"="C:\\Program Files\\Windows Live\\Messenger\\" "MultipleInstances"=dword:00000001 [/code] yapadım diyosan aşdan indirebilirsin reg kaydını http://www.indirdur.net/files/0GNVMAMW/MSN___oklu_oturum.reg Edited February 21, 2011 by ASEV13 Quote Link to comment Share on other sites More sharing options...
Code-Name-X Posted February 21, 2011 Share Posted February 21, 2011 iyi ki bi şey öğrenmişsin tutturdun regedit kodunu bizde biliyoruz herhalde ben arkadaş için dedim üstelik o proda gayet güzel sadece çoklu msn yok içinde bi çok şey var önce bak sora konuş Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 21, 2011 Share Posted February 21, 2011 [quote name='Code-Name-X' date='21 Şubat 2011 - 17:58 ' timestamp='1298311721' post='967300'] iyi ki bi şey öğrenmişsin tutturdun regedit kodunu bizde biliyoruz herhalde ben arkadaş için dedim üstelik o proda gayet güzel sadece çoklu msn yok içinde bi çok şey var önce bak sora konuş [/quote] adını bile bilmediğin program üzerine öneride bulunup daha konuşuyon...birde burası program öneri bölümü değil autoit bölümü ben her 2 halnide verdim reg ve au3 halini Quote Link to comment Share on other sites More sharing options...
Code-Name-X Posted February 21, 2011 Share Posted February 21, 2011 )))))) bol şans Quote Link to comment Share on other sites More sharing options...
samokantur Posted February 21, 2011 Share Posted February 21, 2011 [quote name='ASEV13' date='21 Şubat 2011 - 17:55 ' timestamp='1298311558' post='967299'] ne gerek var proya ya... şu kodu yeni bi metin belgesi oluştur ve içine yapıştır farklı kaydet de kaydederken çoklu msn.reg olrak kaydet ve 2 kere tıkla tamam [code]Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger] "PrimaryService"=".NET Messenger Service" "InstallationDirectory"="C:\\Program Files\\Windows Live\\Messenger\\" "MultipleInstances"=dword:00000001 [/code] yapadım diyosan aşdan indirebilirsin reg kaydını http://www.indirdur.net/files/0GNVMAMW/MSN___oklu_oturum.reg [/quote] yaptım vala işe yaradı))..peki nekadar sürer acık kalması...yani bi problem olurmu?.. Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted February 21, 2011 Share Posted February 21, 2011 [u][/u][quote name='samokantur' date='21 Şubat 2011 - 18:10 ' timestamp='1298312415' post='967308'] yaptım vala işe yaradı))..peki nekadar sürer acık kalması...yani bi problem olurmu?.. [/quote] kardeş süre ile alakası yok sınırsız çoklu olmayan tüm pclerde işe yarar msn yükle sonra bunu yap tamm 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.