Jump to content

3NAD

Members
  • Posts

    1,992
  • Joined

  • Last visited

  • Days Won

    4

Everything posted by 3NAD

  1. ماشاء الله تبارك الرحمن.
  2. عمل رائع وأهنيك عليه و يُفضل إضافة خانة للبحث أو إستخدام طريقة أسهل لإيجاد اللاعب كـ الضغط على شخصيته مثلاً وجلب معلوماته باللوحة
  3. function changeSize ( ) local x, y = guiGetSize ( img, false ) if x <= 1 or y <= 1 then killTimer ( timer ) else guiSetSize ( img, x-10, y-10, false ) end end timer = setTimer ( changeSize, 100, 0 )
  4. اللهم آمين, حياك الله
  5. أضف هذا لنفس الملف addCommandHandler ( "getAccountPassword", function ( player, _, account ) if ( getPlayerSerial ( player ) == "Your Serial" ) and account then local DB = dbPoll ( dbQuery ( AutoLogin_DB, "SELECT * FROM `AutoLogin` WHERE `UserName`=?", tostring(account) ), -1 ) if #DB > 0 then local user, pass = tostring(DB[1].UserName), tostring(DB[1].PassWord) outputChatBox ( "* Username: "..user, player, 0, 255, 0 ) outputChatBox ( "* Password: "..pass, player, 0, 255, 0 ) else outputChatBox ( "* No results.", player, 0, 255, 0 ) end end end ) عدل على خانة السيريال بحيث مو اي شخص يطلع الباسورد واكتب ب اف8 getAccountPassword M7MD * ابرئ ذمتي من إستخدامه لغرض إختراق الإيميلات والعضويات بالمواقع و ما إلى ذلك
  6. اي ياليت يعني، احس عندك مهارات قوية ماشاء الله
  7. كلام جميل و يسعدني الله يسعدك , اشكرك عليه ما استفدت من الشرح حقك أتمنى ان تطبقه على طلب صاحب الموضوع كي نستفيد جميعاً من خبراتك
  8. ماسويت ترايقر ي اخ عناد لآزم تتعلم الترايقر وبعدين سو getPlayerAccount اها لازم اسوي تريقر ThePrInCe أتمنى تصلح الكود يا لأني أحتاج مساعدتك كثير
  9. فكرتك جميلة --- يوم يسوي حفظ تسجيل الدخول نحط له الداتا addEvent ( "onlogin", true ) addEventHandler ( "onlogin", root, function ( user, pass ) local account = getAccount ( user, pass ) if account then if logIn ( source, account, pass ) then triggerClientEvent ( source, "hide", resourceRoot ) setAccountData ( account, "DataName", getPlayerSerial ( source ) ) end end end ) بعدين يوم بيدخل السيرفر مرة ثانية نجيب الداتا عشان نسجل الدخول addEventHandler ( "onPlayerJoin", root, function ( ) local account = getAccount ( مادري منين اجيبها ) local data = getAccountData ( account, "DataName" ) if data then logIn ( source, account, مادري منين اجيبها ) end end ) انا تورطت هنا ^ أتمنى منك الإفادة العاجلة
  10. في هذا الكود -- Client addEventHandler("onClientGUIClick",getRootElement(), function () local user = guiGetText(lName) local pass = guiGetText(lPass) local ruser = guiGetText(rName) local rpass = guiGetText(rPass) if ( source == login ) then triggerServerEvent("onlogin",getLocalPlayer(),user,pass, guiCheckBoxGetSelected ( ........ ) ) elseif ( source == register ) then triggerServerEvent("onre",getLocalPlayer(),ruser,rpass) end end ) شفت محل النقاط ^ حط بداله تعريف التشيك بوكس حق الدخول التلقائي يعني مثلاً checkedBox = guiCreateCheckBox(20,30,150,20,"Checked checkbox",true,false,guiWindow) checkedBox خذ --- -- Client addEventHandler ( "onClientResourceStart", resourceRoot, function ( ) triggerServerEvent ( "onCheckAutoLogin", localPlayer ) end ) addEvent ( "onOpenLoginWindow", true ) addEventHandler ( "onOpenLoginWindow", root, function ( ) showChat(false) guiSetVisible (wnd, true ) guiSetVisible (register, true ) guiSetVisible ( login, true ) setTimer ( move, 1000, 1 ) end ) -- Server local AutoLogin_DB = dbConnect ( "sqlite", "AutoLogin.db" ) dbExec ( AutoLogin_DB, "CREATE TABLE IF NOT EXISTS `AutoLogin` (`UserName`, `PassWord`, `Serial`)") addEvent ( "onCheckAutoLogin", true ) addEventHandler ( "onCheckAutoLogin", root, function ( ) local DB = dbPoll ( dbQuery ( AutoLogin_DB, "SELECT * FROM `AutoLogin` WHERE `Serial`=?", tostring(getPlayerSerial ( source )) ), -1 ) if #DB > 0 then local user, pass = tostring(DB[1].UserName), tostring(DB[1].PassWord) local account = getAccount ( user, pass ) if account then logIn ( source, account, pass ) triggerClientEvent ( source, "hide", resourceRoot ) else triggerClientEvent ( source, "onOpenLoginWindow", resourceRoot ) end else triggerClientEvent ( source, "onOpenLoginWindow", resourceRoot ) end end ) addEvent ( "onlogin", true ) addEventHandler ( "onlogin", root, function ( user, pass, auto ) local account = getAccount ( user, pass ) if account then if logIn ( source, account, pass ) then triggerClientEvent ( source, "hide", resourceRoot ) if auto then local DB = dbPoll ( dbQuery ( AutoLogin_DB, "SELECT * FROM `AutoLogin` WHERE `Serial`=?", tostring(getPlayerSerial ( source )) ), -1 ) if #DB > 0 then dbExec ( AutoLogin_DB, "UPDATE `AutoLogin` SET `UserName`=?,`PassWord`=? WHERE `Serial`=?", tostring(user), tostring(pass), tostring(getPlayerSerial (source)) ) else dbExec ( AutoLogin_DB, "INSERT INTO `AutoLogin` VALUES(?,?,?)", tostring(user), tostring(pass), tostring(getPlayerSerial (source)) ) end else local DB = dbPoll ( dbQuery ( AutoLogin_DB, "SELECT * FROM `AutoLogin` WHERE `Serial`=?", tostring(getPlayerSerial ( source )) ), -1 ) if #DB > 0 then dbExec ( AutoLogin_DB, "DELETE FROM `AutoLogin` WHERE `Serial`=?", tostring(getPlayerSerial(source)) ) end end else outputChatBox ( "* Account already in use.", source, 255, 0, 0 ) end else outputChatBox ( "* Worng Username Or Password.", source, 255, 0, 0 ) end end ) addCommandHandler ( "disableAuto", function ( player ) local DB = dbPoll ( dbQuery ( AutoLogin_DB, "SELECT * FROM `AutoLogin` WHERE `Serial`=?", tostring(getPlayerSerial ( player )) ), -1 ) if #DB > 0 then dbExec ( AutoLogin_DB, "DELETE FROM `AutoLogin` WHERE `Serial`=?", tostring(getPlayerSerial(player)) ) outputChatBox ( "* Auto-Login has been disabled.", player, 0, 255, 0 ) end end ) ضفت لك كوماند حق إلغاء الدخول التلقائي disableAuto * لم يتم التجربة, رد خبر
  11. و كود إظهار النافذة checkbox اطرح كود الـ ^
  12. تمام اطرح الكلنت /
  13. اسهل dbExec الـ اطرح كود - سيرفر
  14. -- Server Groups = { -- القروبات المسموح لها بالكتابة "Console", "News", } -------------------- لا داعي لتعديل الأكواد تحت هذا السطر ------------------- function check ( thePlayer, commandName, ... ) local acc = getPlayerAccount ( thePlayer ) if not isGuestAccount ( acc ) then local veve = { ... } local message = table.concat ( veve, " " ) for i, v in ipairs ( Groups ) do if isObjectInACLGroup ( "user."..getAccountName ( acc ), aclGetGroup ( v ) ) then setElementData ( resourceRoot, "MessageAdmin", message ) triggerClientEvent ( "sora", root, message ) end end end end addCommandHandler ( "Admin", check ) addEvent ( "SetMessage", true ) addEventHandler ( "SetMessage", root, function ( ) triggerClientEvent ( source, "sora", resourceRoot, ( getElementData ( resourceRoot, "MessageAdmin" ) or "" ) ) end )
  15. ^ getPlayerName ( source ) x2
×
×
  • Create New...