lazenes1 Posted March 4, 2012 Share Posted March 4, 2012 Arkadaslar bu konu altinda birkac soru ile basinizi agirticam simdiden ozur dilerim oncelikle bir keygen hazirli yorum kodlari programa degilde ini dosyasina ekleyip cagirmak isti yorum yani yeni kod eklemek icin programi zirt-pirt build etmek zor 2.sorum ise yaklasik bir haftadir ugrasi yorum forma giris cikis efekti muzik ve kayan yazi eklemem lazin yani keygen programlarinda oldugu gibi 3. sorum ve sonucusu forma ekledigim bmb programin icine entegre etmem lazim resource hack programi ile pro nun icine bakinca gorunecek birde formun kenarli olmayacak yani windows border kisacasi pencere kenarlari koda da bu sekilde duzenlen miyo yardimlarinizi bekliyorum Quote Link to comment Share on other sites More sharing options...
Mehmet Posted March 5, 2012 Share Posted March 5, 2012 (edited) blue_life arkadaşımızdan alıntıdır ben biraz kendime göre düzenledim ama kayan yazıyı yapamadım daha doğrusu yaptım ama kayan yazıyı ekleyince nedense sorun oluyor neyse ben bu şekilde vereyim sana kodlarını örneğiyle beraber sen kendine göre düzenlersin arka planda müzik çalıyor. Resim koymak istersen fileinstal ile ekleyip temp'e çıkarır ordan çekersin [img]http://i.imgur.com/NTjME.jpg[/img] [codebox] #NoTrayIcon #include <ButtonConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> _ProcessCheck() Global $BlueForum = GUICreate("ESeT KeYGeN MeHMeTBeN", 320, 132, -1, -1, -2146959360) Global $hakkinda = GUICtrlCreateButton("Hakkında", 199, 96, 75, 25) Global $KAPAT = GUICtrlCreateButton("Kapat", 32, 96, 75, 25) GUIRegisterMsg(0x0201, "_blue_life_WinMove") WinSetTrans($BlueForum, "", 170) WinSetOnTop($BlueForum, "", 1) GUISetState(@SW_SHOW) GUISetBkColor (0xffffff) Local $Read_Value1, $Read_Value2 Global $Total = 20 Global $SerialList[$Total +1][2] =[[$Total], _ ["EAV-06525342","6dbv4r5fc2"], _ ["EAV-06073044","7wrkmhr8r5"], _ ["EAV-06892943","7vvj7f248p"], _ ["EAV-06892939","sjvsjtdp62"], _ ["EAV-06892938","ecnkj2dhek"], _ ["EAV-06892935","vhejrd4knb"], _ ["EAV-06891916","3wxcnxhupv"], _ ["EAV-06891903","x2bdjewscd"], _ ["EAV-07001512","dj2cw5kuck"], _ ["EAV-07001507","m3sdanw8jf"], _ ["EAV-07001499","bncdtk2r24"], _ ["EAV-07001502","vhjem7bnsc"], _ ["EAV-07001500","6655nmb8bh"], _ ["EAV-49976703","brxkscdmeb"], _ ["EAV-51270852","7ehuvnussm"], _ ["EAV-51526916","kpvr48kr5n"], _ ["EAV-49984358","hn8jvnf6t2"], _ ["EAV-49981514","pbmv3b7822"], _ ["EAV-49981665","fev3t4unba"], _ ["EAV-49981693","h8n6ukbxf2"]] Global $Random = Random(1,$SerialList[0][0],1) GUICtrlCreateLabel("User Name:",15,5,93,15) Local $User = GUICtrlCreateInput($SerialList[$Random][0], 15, 20, 140, 21,0x0800) GUICtrlSetBkColor(-1,0xFFFFFF) GUICtrlCreateLabel("Serial:",165,5,93,15) Local $Serial = GUICtrlCreateInput($SerialList[$Random][1], 165, 20, 140, 21,0x0800) GUICtrlSetBkColor(-1,0xFFFFFF) Local $Button1 = GUICtrlCreateButton("Değiştir", 14, 47, 292, 22) DirCreate(@TempDir & "\mny") FileInstall("MNY.mp3", @TempDir & "\mny\MNY.mp3") Sleep(1000) SoundPlay(@TempDir & "\mny\MNY.mp3", 0) SoundSetWaveVolume(40) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 FileDelete(@TempDir & "\mny\MNY.mp3") Exit Case $Button1 $Random += 1 If $SerialList[0][0] < $Random Then $Random = 1 GUICtrlSetData($User,$SerialList[$Random][0]) GUICtrlSetData($Serial,$SerialList[$Random][1]) Case $hakkinda MsgBox(4096, "Hakkında", "Bu keygen benim tarafımdan yapılmıştır", 10) Case $KAPAT Exit EndSwitch WEnd Func _ProcessCheck() Local $Plist If @Compiled Then $Plist = ProcessList(@ScriptName) For $i = 1 To $Plist[0][0] If $Plist[$i][1] = @AutoItPID Then ContinueLoop ;Çalıştırdığımız programın pid bilgisi listen alınana uyuyorsa atlıyoruz. If FileGetLongName(_ProcessGetLocation($Plist[$i][1])) = FileGetLongName(@AutoItExe) Then ;Dosya konumları bir birine uyuyorsa, uygulamayı kapatıyoruz ProcessClose($Plist[$i][1]) EndIf Next EndIf EndFunc ;==>_ProcessCheck Func _blue_life_WinMove($hwnd) If BitAND(WinGetState($hwnd), 32) Then Return "GUI_RUNDEFMSG" DllCall("user32.dll", "long", "SendMessage", "hwnd", $hwnd, "int", 0x0112, "int", 0xF009, "int", 0) EndFunc [/codebox] Örneği ve mp3 linkden indirip incelersin [code]http://www.mediafire.com/?n1o9dp33xvstt7g[/code] Edited March 5, 2012 by MeHMeTBeN 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.