Amilo Posted May 19, 2012 Share Posted May 19, 2012 (edited) Arkadaslar Ben Bir Gui yaptım Inputları Ayar.ini Den Cekiyor Onları Yaptım Ama Inputa Yazılan Yeni Değeri Bir Tuş İle Ayar.ini Ye Hepsini kaydettirmek İstiyorum Kodum biraz uzun ama yardım ederseniz allah razı olsun derim ; [code]#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=C:\Documents and Settings\Administrator\Desktop\Form1.kxf ;Level $ArdreamMaxLvl = IniRead("Ayar.ini","LEVEL","ArdreamMaxLevel","Bulunamadi") $gamemaxlevel = IniRead("Ayar.ini","LEVEL","GameMaxLevel","Bulunamadi") $darklunarMaxLvl = IniRead("Ayar.ini","LEVEL","DarkLunarMaxLevel","Bulunamadi") $RonakMinLvl = IniRead("Ayar.ini","LEVEL","RonarkLandMinLevel","Bulunamadi") $ArdreamMinLvl = IniRead("Ayar.ini","LEVEL","ArdreamMinLevel","Bulunamadi") $CzMinLvl = IniRead("Ayar.ini","LEVEL","ColonyZoneMinLevel","Bulunamadi") $RonakMaxLvl = IniRead("Ayar.ini","LEVEL","RonarkLandMaxLevel","Bulunamadi") $darklunarminLvl = IniRead("Ayar.ini","LEVEL","DarkLunarMinLevel","Bulunamadi") $Form1 = GUICreate("Form1", 1016, 585, 185, 115) $ArdreamMaxLevel = GUICtrlCreateInput($ArdreamMaxLvl, 400, 96, 113, 21) $gamelevel = GUICtrlCreateInput($gamemaxlevel, 400, 32, 113, 21) $darklunarmax = GUICtrlCreateInput($darklunarMaxLvl, 400, 256, 113, 21) $ronaklandmin = GUICtrlCreateInput($RonakMinLvl, 400, 160, 113, 21) $ardreammin = GUICtrlCreateInput($ArdreamMinLvl, 400, 64, 113, 21) $czmin = GUICtrlCreateInput($CzMinLvl, 400, 128, 113, 21) $ronakmax = GUICtrlCreateInput($RonakMaxLvl, 400, 192, 113, 21) $darklunarmin = GUICtrlCreateInput($darklunarminLvl, 400, 224, 113, 21) $Label11 = GUICtrlCreateLabel("GameMaxLevel", 312, 32, 78, 17) $ColonyZoneMinLevel = GUICtrlCreateLabel("ColonyZoneMinLevel", 288, 128, 104, 17) $ArdreamMinLevel = GUICtrlCreateLabel("ArdreamMinLevel", 304, 64, 86, 17) $Label14 = GUICtrlCreateLabel("ArdreamMaxLevel", 304, 96, 89, 17) $RonarkLandMinLevel = GUICtrlCreateLabel("RonarkLandMinLevel", 288, 160, 106, 17) $RonarkLandMaxLevel = GUICtrlCreateLabel("RonarkLandMaxLevel", 288, 192, 109, 17) $DarkLunarMinLevel = GUICtrlCreateLabel("DarkLunarMinLevel", 296, 224, 97, 17) $DarkLunarMaxLevel = GUICtrlCreateLabel("DarkLunarMaxLevel", 288, 256, 100, 17) $Level = GUICtrlCreateGroup("Level", 272, 0, 265, 337) GUICtrlCreateGroup("", -99, -99, 1, 1) $Odul = GUICtrlCreateGroup("Odul", 0, 0, 273, 337) GUICtrlCreateGroup("", -99, -99, 1, 1) ;Odul $ArdreamMonu = IniRead("Ayar.ini","REWARD","ArdreamMonument","Bulunamadi") $RonakMonu = IniRead("Ayar.ini","REWARD","RonarklandMonument","Bulunamadi") $CzMonu = IniRead("Ayar.ini","REWARD","CZMonument","Bulunamadi") $CswIto = IniRead("Ayar.ini","REWARD","CSWItem","Bulunamadi") $CswNp = IniRead("Ayar.ini","REWARD","CSWLoyalty","Bulunamadi") $FtpLvl1 = IniRead("Ayar.ini","REWARD","FTLevel1","Bulunamadi") $FtpLvl2 = IniRead("Ayar.ini","REWARD","FTLevel2","Bulunamadi") $Ftplv3 = IniRead("Ayar.ini","REWARD","FTLevel3","Bulunamadi") $CzPkIteKarus= IniRead("Ayar.ini","REWARD","CZPKItemKarus","Bulunamadi") $CzPkIteKHuman= IniRead("Ayar.ini","REWARD","CZPKItemElmorad","Bulunamadi") $Input1 = GUICtrlCreateInput($CzMonu, 120, 8, 121, 21) $arderamonunp = GUICtrlCreateInput($ArdreamMonu, 120, 40, 121, 21) $RonarklandMon = GUICtrlCreateInput($RonakMonu , 120, 72, 121, 21) $Input4 = GUICtrlCreateInput($CswIto, 120, 104, 121, 21) $CSWLoyal = GUICtrlCreateInput($CswNp, 120, 136, 121, 21) $Input6 = GUICtrlCreateInput($FtpLvl1 , 120, 168, 121, 21) GUICtrlCreateInput($FtpLvl2 , 120, 200, 121, 21) $Input8 = GUICtrlCreateInput($Ftplv3, 120, 232, 121, 21) $Input9 = GUICtrlCreateInput($CzPkIteKarus, 120, 264, 121, 21) $Input10 = GUICtrlCreateInput($CzPkIteKHuman, 120, 296, 121, 21) $CZMonument = GUICtrlCreateLabel("CZMonument", 48, 8, 68, 17) $ArdreamMonument = GUICtrlCreateLabel("ArdreamMonument", 24, 40, 93, 17) $RonarklandMonument = GUICtrlCreateLabel("RonarklandMonument", 8, 72, 109, 17) $CSWItem = GUICtrlCreateLabel("CSWItem", 56, 104, 49, 17) $CSWLoyalty = GUICtrlCreateLabel("CSWLoyalty", 48, 136, 62, 17) $FTLevel1 = GUICtrlCreateLabel("FTLevel1", 56, 168, 49, 17) $FTLevel2 = GUICtrlCreateLabel("FTLevel2", 56, 200, 49, 17) $FTLevel3 = GUICtrlCreateLabel("FTLevel3", 56, 232, 49, 17) $CZPKItemKarus = GUICtrlCreateLabel("CZPKItemKarus", 40, 264, 79, 17) $CZPKItemElmorad = GUICtrlCreateLabel("CZPKItemElmorad", 24, 296, 90, 17) ; Gelen Np $CzKill= IniRead("Ayar.ini","NP","ColonyZoneKillNP","Bulunamadi") $ArdKill= IniRead("Ayar.ini","NP","ArdreamKillNP","Bulunamadi") $RonakKill= IniRead("Ayar.ini","NP","RonarkLandKillNP","Bulunamadi") $warfroKill= IniRead("Ayar.ini","NP","WarFrontKillNP","Bulunamadi") $CswKill= IniRead("Ayar.ini","NP","CastleSiegeKillNP","Bulunamadi") $CzPartyKill= IniRead("Ayar.ini","NP","ColonyZonePartyKillNP","Bulunamadi") $ArdreamPartyKill= IniRead("Ayar.ini","NP","ArdreamPartyKillNP","Bulunamadi") $RonakPartyKill= IniRead("Ayar.ini","NP","RonarkLandPartyKillNP","Bulunamadi") $warfparty= IniRead("Ayar.ini","NP","WarFrontPartyKillNP","Bulunamadi") $CswParty= IniRead("Ayar.ini","NP","CastleSiegePartyKillNP","Bulunamadi") $Input2 = GUICtrlCreateInput($CzKill, 672, 16, 65, 21) $Input3 = GUICtrlCreateInput($ArdKill, 672, 48, 65, 21) $Input5 = GUICtrlCreateInput($RonakKill, 672, 80, 65, 21) $Input7 = GUICtrlCreateInput($warfroKill, 672, 112, 65, 21) $Input11 = GUICtrlCreateInput($CswKill, 672, 144, 65, 21) $Input12 = GUICtrlCreateInput($CzPartyKill, 672, 176, 65, 21) $Input13 = GUICtrlCreateInput($ArdreamPartyKill, 672, 208, 65, 21) $Input14 = GUICtrlCreateInput($RonakPartyKill, 672, 240, 65, 21) $Input15 = GUICtrlCreateInput($warfparty, 672, 272, 65, 21) ; Giden Np $CswPartDead= IniRead("Ayar.ini","NP","CastleSiegePartyDeadNP","Bulunamadi") $CswpartyKill= IniRead("Ayar.ini","NP","CastleSiegePartyDeadNP","Bulunamadi") $wardead= IniRead("Ayar.ini","NP","WarFrontDeadNP","Bulunamadi") $Cswdead= IniRead("Ayar.ini","NP","CastleSiegeDeadNP","Bulunamadi") $Czdead= IniRead("Ayar.ini","NP","ColonyZoneDeadNP","Bulunamadi") $warpatcydead= IniRead("Ayar.ini","NP","WarFrontPartyDeadNP","Bulunamadi") $ronakparydead= IniRead("Ayar.ini","NP","RonarkLandPartyDeadNP","Bulunamadi") $ardreamdead= IniRead("Ayar.ini","NP","ArdreamDeadNP","Bulunamadi") $ardpartdead= IniRead("Ayar.ini","NP","ArdreamPartyDeadNP","Bulunamadi") $Czpartydead= IniRead("Ayar.ini","NP","ColonyZonePartyDeadNP","Bulunamadi") $ronakdead= IniRead("Ayar.ini","NP","RonarkLandDeadNP","Bulunamadi") $Input18 = GUICtrlCreateInput($wardead, 920, 120, 73, 21) $Input25 = GUICtrlCreateInput($Czdead, 920, 24, 73, 21) $Input26 = GUICtrlCreateInput($Cswdead, 920, 152, 73, 21) $Input29 = GUICtrlCreateInput($warpatcydead, 920, 280, 73, 21) $Input30 = GUICtrlCreateInput($ronakparydead, 920, 248, 73, 21) $Input31 = GUICtrlCreateInput($ardreamdead, 920, 56, 73, 21) $Input32 = GUICtrlCreateInput($ardpartdead, 920, 216, 73, 21) $Input33 = GUICtrlCreateInput($Czpartydead, 920, 184, 73, 21) $Input34 = GUICtrlCreateInput($ronakdead, 920, 88, 73, 21) $ColonyZoneKillNP = GUICtrlCreateLabel("ColonyZoneKillNP", 576, 16, 89, 17) $ArdreamKillNP = GUICtrlCreateLabel("ArdreamKillNP", 592, 48, 71, 17) $RonarkLandKillNP = GUICtrlCreateLabel("RonarkLandKillNP", 576, 80, 91, 17) $WarFrontKillNP = GUICtrlCreateLabel("WarFrontKillNP", 592, 112, 76, 17) $CastleSiegeKillNP = GUICtrlCreateLabel("CastleSiegeKillNP", 576, 144, 88, 17) $ColonyZonePartyKillNP = GUICtrlCreateLabel("ColonyZonePartyKillNP", 560, 176, 113, 17) $ArdreamPartyKillNP = GUICtrlCreateLabel("ArdreamPartyKillNP", 576, 208, 95, 17) $RonarkLandPartyKillNP = GUICtrlCreateLabel("RonarkLandPartyKillNP", 552, 240, 115, 17) $WarFrontPartyKillNP = GUICtrlCreateLabel("WarFrontPartyKillNP", 568, 272, 100, 17) $ColonyZoneDeadNP = GUICtrlCreateLabel("ColonyZoneDeadNP", 816, 24, 102, 17) $ArdreamDeadNP = GUICtrlCreateLabel("ArdreamDeadNP", 832, 56, 84, 17) $RonarkLandDeadNP = GUICtrlCreateLabel("RonarkLandDeadNP", 816, 88, 104, 17) $WarFrontDeadNP = GUICtrlCreateLabel("WarFrontDeadNP", 832, 120, 89, 17) $CastleSiegeDeadNP = GUICtrlCreateLabel("CastleSiegeDeadNP", 816, 152, 101, 17) $ColonyZonePartyDeadNP = GUICtrlCreateLabel("ColonyZonePartyDeadNP", 792, 184, 126, 17) $ArdreamPartyDeadNP = GUICtrlCreateLabel("ArdreamPartyDeadNP", 808, 216, 108, 17) $RonarkLandPartyDeadNP = GUICtrlCreateLabel("RonarkLandPartyDeadNP", 792, 248, 128, 17) $WarFrontPartyDeadNP = GUICtrlCreateLabel("WarFrontPartyDeadNP", 808, 280, 113, 17) $Input16 = GUICtrlCreateInput($CswParty, 672, 304, 65, 21) $CastleSiegePartyKillNP = GUICtrlCreateLabel("CastleSiegePartyKillNP", 552, 304, 112, 17) GUICtrlCreateGroup("Gelen Np", 536, 0, 233, 337) GUICtrlCreateGroup("", -99, -99, 1, 1) ; $Input17 = GUICtrlCreateInput($CswPartDead, 920, 312, 73, 21) $CastleSiegePartyDeadNP = GUICtrlCreateLabel("CastleSiegePartyDeadNP", 792, 312, 125, 17) $Giden = GUICtrlCreateGroup("Giden Np", 768, 0, 233, 337) GUICtrlCreateGroup("", -99, -99, 1, 1) ;Monular $czmonu= IniRead("Ayar.ini","MONUMENT","ColonyZoneMonumentNP","Bulunamadi") $czmonuaktif= IniRead("Ayar.ini","MONUMENT","ColonyZoneMonumentActive","Bulunamadi") $ardreammonuaktif= IniRead("Ayar.ini","MONUMENT","ArdreamMonumentActive","Bulunamadi") $ardmonunp= IniRead("Ayar.ini","MONUMENT","ArdreamMonumentNP","Bulunamadi") $ronakmonuaktif= IniRead("Ayar.ini","MONUMENT","RonarkLandMonumentActive","Bulunamadi") $ronakmonunp= IniRead("Ayar.ini","MONUMENT","RonarkLandMonumentNP","Bulunamadi") $Input19 = GUICtrlCreateInput($czmonuaktif, 160, 360, 105, 21) $Input20 = GUICtrlCreateInput($czmonu, 160, 392, 105, 21) $Input21 = GUICtrlCreateInput($ardreammonuaktif, 160, 424, 105, 21) $Input22 = GUICtrlCreateInput($ardmonunp, 160, 456, 105, 21) $Input23 = GUICtrlCreateInput($ronakmonuaktif, 160, 488, 105, 21) $Input24 = GUICtrlCreateInput($ronakmonunp, 160, 520, 105, 21) $ColonyZoneMonumentActive = GUICtrlCreateLabel("ColonyZoneMonumentActive", 16, 360, 141, 17) $ColonyZoneMonumentNP = GUICtrlCreateLabel("ColonyZoneMonumentNP", 32, 392, 126, 17) $ArdreamMonumentActive = GUICtrlCreateLabel("ArdreamMonumentActive", 32, 424, 123, 17) $ArdreamMonumentNP = GUICtrlCreateLabel("ArdreamMonumentNP", 48, 456, 108, 17) $RonarkLandMonumentActive = GUICtrlCreateLabel("RonarkLandMonumentActive", 16, 488, 143, 17) $Label6 = GUICtrlCreateLabel("RonarkLandMonumentNP", 16, 520, 143, 17) $Group1 = GUICtrlCreateGroup("Monument", 0, 336, 273, 241) GUICtrlCreateGroup("", -99, -99, 1, 1) ; Master kontrol $ardreammaster= IniRead("Ayar.ini","CONTROL","ArdreamMasterCheck","Bulunamadi") $darkmaster= IniRead("Ayar.ini","CONTROL","DarkLunarMasterCheck","Bulunamadi") $Input27 = GUICtrlCreateInput($darkmaster, 416, 400, 121, 21) $Input28 = GUICtrlCreateInput($ardreammaster, 416, 368, 121, 21) $ArdreamMasterCheck = GUICtrlCreateLabel("ArdreamMasterCheck", 304, 368, 106, 17) $DarkLunarMasterCheck = GUICtrlCreateLabel("DarkLunarMasterCheck", 296, 400, 117, 17) $Group2 = GUICtrlCreateGroup("Master Kontrol", 280, 336, 265, 97) GUICtrlCreateGroup("", -99, -99, 1, 1) ; Grade Ayarlari $g1ini = IniRead("Ayar.ini","GRADE","G1","Bulunamadi") $g2ini = IniRead("Ayar.ini","GRADE","G2","Bulunamadi") $g3ini = IniRead("Ayar.ini","GRADE","G3","Bulunamadi") $g4ini = IniRead("Ayar.ini","GRADE","G4","Bulunamadi") $Input35 = GUICtrlCreateInput($g4ini, 384, 552, 121, 21) $Input36 = GUICtrlCreateInput($g1ini, 384, 456, 121, 21) $Input37 = GUICtrlCreateInput($g3ini, 384, 520, 121, 21) $Input38 = GUICtrlCreateInput($g2ini, 384, 488, 121, 21) $G1 = GUICtrlCreateLabel("G1", 336, 456, 18, 17) $G2 = GUICtrlCreateLabel("G2", 336, 488, 18, 17) $G3 = GUICtrlCreateLabel("G3", 336, 520, 18, 17) $G4 = GUICtrlCreateLabel("G4", 336, 552, 18, 17) GUICtrlCreateGroup("Grade Ayarlari", 280, 440, 265, 137) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("XACS V3 Ayarlarını Kaydet", 592, 376, 401, 49) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd [/code] Edited May 19, 2012 by Amilo Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted May 19, 2012 Share Posted May 19, 2012 [codebox] #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Form1", 339, 218, -1, -1, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) $Button1 = GUICtrlCreateButton("Kaydet", 104, 136, 139, 41) $Input1 = GUICtrlCreateInput("", 48, 40, 233, 27) GUICtrlSetFont(-1, 12, 400, 0, "Tahoma") GUISetState(@SW_SHOW) $Ayar = IniRead(@ScriptDir & "\Ayar.ini","Section","Ayar","") GUICtrlSetData($Input1, $Ayar) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $Degistir = GUICtrlRead($Input1) If $Degistir <> "" Then IniWrite(@ScriptDir & "\Ayar.ini","Section","Ayar",$Degistir) Else MsgBox(64,"Divane","Boş geçilemez !") EndIf EndSwitch WEnd [/codebox] Quote Link to comment Share on other sites More sharing options...
Amilo Posted May 19, 2012 Author Share Posted May 19, 2012 [b]baba dediğini yaptım ama anlamadım pek konu yeniledim[/b] Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted May 19, 2012 Share Posted May 19, 2012 [codebox] Case $Button1 $Degistir = GUICtrlRead($Input1) IniWrite(@ScriptDir & "\Ayar.ini","Section","Ayar",$Degistir) [/codebox] [b]Inputtan veri alıp ini dosyasına yazdırma bu şekildedir. Scriptine uyarla.[/b] Quote Link to comment Share on other sites More sharing options...
djonur007 Posted May 19, 2012 Share Posted May 19, 2012 Arkadaşım adam örneği vermiş işte sana daha ne istiyorsun ki? Kimseden kodlarının tamamını düzenlemesini bekleme. Input değeri ayar.ini dosyasını nasıl yazılır örnekte vermiş arkadaş bende biraz açıklama yapayım; [xml] #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Form1", 339, 218, -1, -1, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) $Button1 = GUICtrlCreateButton("Kaydet", 104, 136, 139, 41) $Input1 = GUICtrlCreateInput("", 48, 40, 233, 27) GUICtrlSetFont(-1, 12, 400, 0, "Tahoma") GUISetState(@SW_SHOW) $Ayar = IniRead(@ScriptDir & "\Ayar.ini","Section","Ayar","") GUICtrlSetData($Input1, $Ayar) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $Degistir = GUICtrlRead($Input1) ;İnput1 deki değeri okur. If $Degistir <> "" Then ;Eğer input1 deki değer boş değilse IniWrite(@ScriptDir & "\Ayar.ini","Section","Ayar",$Degistir) ; Değeri ayar.ini ye kaydeder. Else MsgBox(64,"Divane","Boş geçilemez !") ;Eğer input boşsa hata mesajı verir. EndIf EndSwitch WEnd[/xml] Quote Link to comment Share on other sites More sharing options...
Amilo Posted May 19, 2012 Author Share Posted May 19, 2012 [quote name='Baba_' date='19 May 2012 - 22:51 ' timestamp='1337460705' post='1202870'] [codebox] Case $Button1 $Degistir = GUICtrlRead($Input1) IniWrite(@ScriptDir & "\Ayar.ini","Section","Ayar",$Degistir) [/codebox] [b]Inputtan veri alıp ini dosyasına yazdırma bu şekildedir. Scriptine uyarla.[/b] [/quote] anladım reis sağol 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.