g.a

[b]İkinizede hayırlı olsun devamını dilerim Gayet adildiler, küçük hataları belirtip düzeltmemize izin verip konuları çöpe taşımadılar, gereksiz konuları taşımalarıda, hiç alakası olmayan yerlere açışan konuları çöpe taşımalarıda gayet normal...[/b]

[b][color=#000080]MsgBox[/color][color=#ff8c00]([/color][color=#0000ff]0[/color],[color=#b22222]"Doğum günün kutlu olsun abi [img]http://www.tnctr.com//public/style_emoticons/default/smile.png[/img]"[/color][color=#ff8c00],[/color][color=#b22222]"Nice senelere."[/color][color=#ff8c00])[/color][/b]

/test/ yazan yere /Programlar/ gibi bir şey yazarsın klasörün adı. scriptin yanında olacak ama.. kurulan programın adını ve simgesini gösterir bitince yazar ve 5 sn sonra kapanır. format atarken nasıl olur bilmem #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #NoTrayIcon #RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outfile=TEST.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Local $search = FileFindFirstFile(@DesktopDir & "\test\*.exe") If $search = -1 Then MsgBox(0, "Hata", "Kurulacak Dosya Bulunamadı!") Exit Else $Form1 = GUICreate("Programlar Kuruluyor...", 337, 73, -1, -1, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP), BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) $Label1 = GUICtrlCreateLabel("Kurulan Program:", 72, 27, 261, 17) $Icon1 = GUICtrlCreateIcon("", -0, 16, 16, 36, 36) GUISetState(@SW_SHOW) EndIf While 1 Local $file = FileFindNextFile($search) If @error Then ExitLoop ShellExecute(@ScriptDir & "\test\" & $file) GUICtrlSetImage($Icon1,@ScriptDir & "\test\" & $file) GUICtrlSetData($Label1,"Kurulan Program: " & StringReplace( $file,".exe","")) ProcessWaitClose($file) WEnd FileClose($search) GUICtrlDelete($Icon1) GUICtrlDelete($Label1) GUICtrlCreateLabel("Kurulum Tamamlandı! 5 saniye sonra kapatılacak!", 0, 27, 333, 17, $SS_CENTER) $sure = GUICtrlCreateLabel("", 0, 48, 332, 20, $SS_CENTER) For $i = 5 To 1 Step -1 GUICtrlSetData($sure,$i) Sleep(1000) Next Exit

[b][i]paste.kde.org [/i]bence en güzeli [/b]

Bu kadarda hazırcı olmayın. Koda da tasarım yap buton 1 deki kodlara bakarak düzenle.

[b]Başlığı silip ben yazdım deme.[/b] [spoiler][codebox]#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: G.A #ce ---------------------------------------------------------------------------- #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Konu Editörü : Coded by G.A (TncTR.Com)", 730, 651, 192, 124) GUISetFont(9, 800, 0, "Tahoma") $Label1 = GUICtrlCreateLabel("Oyun Adı:", 8, 8, 64, 18) $inGame = GUICtrlCreateInput("", 121, 6, 601, 22) $Label2 = GUICtrlCreateLabel("Oyun Bilgisi:", 8, 40, 78, 18) $edGI = GUICtrlCreateEdit("", 121, 40, 601, 217) $Label3 = GUICtrlCreateLabel("Oyundan Kareler:", 10, 267, 110, 16) $inI1 = GUICtrlCreateInput("", 121, 264, 601, 22) $inI2 = GUICtrlCreateInput("", 121, 288, 601, 22) $inI3 = GUICtrlCreateInput("", 121, 312, 601, 22) $inI4 = GUICtrlCreateInput("", 121, 336, 601, 22) $Label4 = GUICtrlCreateLabel("Sistem Gereksinimleri:", 8, 368, 136, 18) GUICtrlSetFont(-1, 9, 800, 4, "Tahoma") $Label5 = GUICtrlCreateLabel("İşletim Sistemi:", 47, 388, 97, 18) $Label6 = GUICtrlCreateLabel("İşlemci:", 95, 410, 49, 18) $inOS = GUICtrlCreateInput("", 144, 384, 249, 22) $inIS = GUICtrlCreateInput("", 144, 408, 249, 22) $inRAM = GUICtrlCreateInput("", 472, 384, 249, 22) $indfd = GUICtrlCreateLabel("Ekran Kartı:", 69, 435, 75, 18) $Label7 = GUICtrlCreateLabel("DirectX:", 420, 434, 52, 18) $Label8 = GUICtrlCreateLabel("RAM:", 435, 387, 37, 18) $inGC = GUICtrlCreateInput("", 144, 432, 249, 22) $inDRX = GUICtrlCreateInput("", 472, 432, 249, 22) $inHDD = GUICtrlCreateInput("", 472, 408, 249, 22) $Label9 = GUICtrlCreateLabel("Boş Alan:", 410, 408, 61, 18) $Label10 = GUICtrlCreateLabel("Oynayış Videosu:", 38, 467, 107, 18) $inVD = GUICtrlCreateInput("", 144, 464, 577, 22) $Label11 = GUICtrlCreateLabel("Torrent Bilgileri:", 10, 504, 101, 18) $edTB = GUICtrlCreateEdit("", 144, 496, 577, 105) GUICtrlSetData(-1, "") $Button1 = GUICtrlCreateButton("Kaydet", 560, 608, 163, 33) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $file = FileSaveDialog("Kayıt Yerini Seçin:", @DesktopDir & "\", "Metin Belgesi (*.txt)", 16) If Not @error Then FileWrite($file & ".txt","[center][img]" & GUICtrlRead($inGame) & "[/img][/center]" & @CR & _ "[center][img]http://i.imgur.com/VeuLw.png[/img][/center]" & @CR & _ "[quote]" & GUICtrlRead($edGI) & "[/quote]" & @CR & _ @CRLF & _ @CRLF & _ "[center][img]http://i.imgur.com/6xjhe.png[/img][/center]" & @CR & @CR & _ "[spoiler]" & @CR & _ "[center][img]" & GUICtrlRead($inI1) & "[/img][/center]" & @CR & _ "[center][img]" & GUICtrlRead($inI2) & "[/img][/center]" & @CR & _ "[center][img]" & GUICtrlRead($inI3) & "[/img][/center]" & @CR & _ "[center][img]" & GUICtrlRead($inI4) & "[/img][/center][/spoiler]" & @CR & _ @CRLF & _ @CRLF & _ "[center][img]http://i.imgur.com/syuOX.png[/img][/center]" & @CR & _ "[spoiler][center]" & @CR & _ "[img]http://i.imgur.com/HsA1J.png[/img][b]İşletim Sistemi[/b] = " & GUICtrlRead($inOS) & @CR & _ "[img]http://i.imgur.com/S30It.png[/img][b]İşlemci[/b] = " & GUICtrlRead($inIS) & @CR & _ "[img]http://i.imgur.com/XmRip.png[/img][b]Ram[/b] = " & GUICtrlRead($inRAM) & @CR & _ "[img]http://i.imgur.com/bKg3M.png[/img][b]Boş alan[/b] = " & GUICtrlRead($inHDD) & @CR & _ "[img]http://i.imgur.com/hJIg1.png[/img][b]Ekran kartı[/b] = " & GUICtrlRead($inGC) & @CR & _ "[img]http://i.imgur.com/gPVNA.png[/img][b]DirectX[/b] = " & GUICtrlRead($inDRX) & "[/center][/spoiler]" & @CR & _ @CRLF & _ @CRLF & _ "[center][img]http://i.imgur.com/HhALJ.png[/img][/center]" & @CR & _ "[quote][center][media=" & GUICtrlRead($inVD) & "][/center][/quote]" & @CR & _ @CRLF & _ "[center][img]http://i.imgur.com/yUQQs.png[/img][/center]" & @CR & _ "[quote][quote]" & GUICtrlRead($edTB)& "[/quote][/quote]") EndIf EndSwitch WEnd [/codebox][/spoiler] [b]GUICtrlRead($Nesne Adi) şeklinde okutup metin belgesine yazdırabilirsin.[/b]

[b]@[url="http://www.tnctr.com/user/333740-kocamanadam/"]kocamanadam[/url][/b] [b]Daha yeni kurulduğu ve ayarların yapılmadığı için olabilir mi?[/b] [b]Tasarımı ise ilk girdiğimde değişik geldi fakat beğendim Test amaçlı bende kurmuştum bu temayı IPB ye [/b]

[b]Winrar ile katılımsız kurulum anlatımı:[/b] [code]http://www.tnctr.com/topic/8002-katlymsyz-kurulum-nasyl-yapylyr-i/page__st__200__p__1088252#entry1088252[/code]

[img]http://pixhost.me/avaxhome/ab/7c/001c7cab_medium.jpeg[/img] [b]AVCWare Video Converter Ultimate 7.3.1.20120625 | 36.3 MB[/b] [code]http://filepost.com/files/5m2eedcb http://vip-file.com/download/40850.42496813a72957e7129f6aa7b94f/AVCWare.Video.Converter.Ultimate.7.3.1.20120625.rar.html[/code]

[b]Tüm Müslüman'ların kandili mübarek olsun [/b]