[Soru] Autoıt De Gelismis Form Tasarlama

[lazenes1]

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

[Mehmet]

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