أخطا في أكواد

w7sH · April 26, 2017

السلام عليكم

عندي لوحة التسجيل اذا ضغطت على الأزرار ماتشتغل مع اني متأكد من جميع الكودات

نطلب مساعدتكم ..

Server

addEventHandler ("onResourceStart", resourceRoot,function ()executeSQLQuery ("CREATE TABLE IF NOT EXISTS `login_register addEventHandler ("onResourceStart", resourceRoot,function ()executeSQLQuery ("CREATE TABLE IF NOT EXISTS `login_register` (l_serial TEXT,l_username TEXT,l_password TEXT)")
end)
addEvent ( "Load", true )
addEventHandler ( "Load", root,function ()
local result = executeSQLQuery ( "SELECT * FROM `login_register` WHERE `l_serial` = ?", getPlayerSerial (source) )
if ( type (result) == "table" and #result == 0) or not result then 
else
triggerClientEvent (source, "Get:Text",source,result) 
end
end)

addEvent("save_",true)
addEventHandler("save_",getRootElement(),function (l_username,l_password)
local account = getAccount (l_username,l_password)
if ( account ~= false ) then
logIn(source, account,l_password)
executeSQLQuery("INSERT INTO login_register(l_serial,l_username,l_password) VALUES(?,?,?)",getPlayerSerial(source),l_username,l_password)
triggerClientEvent (source,"closeall",source)
else
outputChatBox("* كلمة المرور او اسم المستخدم خطاء",source,255,0,0)
end
end)
addEvent("login_",true)
addEventHandler("login_",getRootElement(),function (l_username,l_password)
local account = getAccount (l_username,l_password)
if ( account ~= false ) then
logIn(source, account, l_password)
executeSQLQuery("DELETE FROM `login_register` WHERE `l_serial`=?",getPlayerSerial(source),l_username,l_password)
triggerClientEvent (source,"closeall",source)
else
outputChatBox("* كلمة المرور او اسم المستخدم خطاء",source,255,0,0)
end
end)
addEvent("register_",true) 
addEventHandler("register_",getRootElement(),function (username,password) 
if(password ~= "" and password ~= nil and username ~= "" and username ~= nil) then 
if(addAccount(username,password)) then 
outputChatBox("#00ff00Thank you " .. getPlayerName(source) .. " #FF0000username #00ff00"..username.." #FF0000password #00ff00"..password,source,255,255,0,true) 
else 
outputChatBox("اسم المستخدم مأخوذ",source,255,0,0) 
end 
else 
outputChatBox("* كلمة المرور او اسم المستخدم خطاء",source,255,0,0) 
end 
end)

Client

addEventHandler("onClientGUIClick",resourceRoot,function ()
if ( source == login ) then
if guiGetText (user) ~= '' and guiGetText (pass) ~= '' then 
if guiCheckBoxGetSelected (remember) == true then -- save true
triggerServerEvent("save_",localPlayer,guiGetText (user),guiGetText (pass))
elseif guiCheckBoxGetSelected (remember) == false then -- save false
triggerServerEvent("login_",localPlayer,guiGetText (user),guiGetText (pass))
end
else
outputChatBox("* You Must Write Username Or Password",255,0,0)
end
end
end)
--------------------------------
addEvent("closeall",true)
addEventHandler("closeall",root,
function ()
showCursor(false)
guiSetVisible(wnd, false)
end)
end)
addEventHandler("onClientGUIClick",reg,function () 
triggerServerEvent("register_",localPlayer,guiGetText (user),guiGetText (pass)) 
end,false)

^iiEcoo'x_) · April 26, 2017

addEventHandler("onClientGUIClick",resourceRoot,function ()
if ( source == login ) then
if guiGetText (user) ~= '' and guiGetText (pass) ~= '' then 
if guiCheckBoxGetSelected (remember) == true then -- save true
triggerServerEvent("save_",localPlayer,guiGetText (user),guiGetText (pass))
elseif guiCheckBoxGetSelected (remember) == false then -- save false
triggerServerEvent("login_",localPlayer,guiGetText (user),guiGetText (pass))
end
else
outputChatBox("* You Must Write Username Or Password",255,0,0)
end
end
end)
--------------------------------
addEvent("closeall",true)
addEventHandler("closeall",root,
function ()
showCursor(false)
guiSetVisible(wnd, false)
end)

addEventHandler("onClientGUIClick",reg,function () 
triggerServerEvent("register_",localPlayer,guiGetText (user),guiGetText (pass)) 
end,false)

جربه لو ما زبط اكتب باف 8

debugscript 3

N3xT · April 26, 2017

السيرفر سايد فيه تخبيص على مستوى عالمي

#BrosS · April 26, 2017

unfinished string at line 1

w7sH · April 26, 2017

ماضبط معي اللي حطيته^

هل من مجيب؟

AE. · April 26, 2017

شيل اول سطرين ف السيرفر وحط دا

executeSQLQuery ("CREATE TABLE IF NOT EXISTS `login_register` (l_serial TEXT,l_username TEXT,l_password TEXT)")

Edited April 26, 2017 by 3laa33

w7sH · April 26, 2017

انا كل شي ضابط معي بس أبي أحط تسجيل تلقائي هل أقدر؟

w7sH · April 27, 2017

معي هذا الكود من صنع مبرمج

هذا الكود يجيب يوزر + باس

للسريال المذكور

هل بإمكاني إضافته للكود حقي بأعلى الصفحة ؟

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 
)

#Soking · April 27, 2017

وش تبي تسوي

w7sH · April 27, 2017

^^^^^^^^^^^^^

iMr.WiFi..! · April 27, 2017

أخوي انا مسوي نظام التسجيل التلقائي + مهو مشفر تفضل :

بس لاتضيف حقوقك

تعلم من الاكواد

Edited April 27, 2017 by iMr.WiFi..!

w7sH · April 27, 2017

13 hours ago, w7sH said:

معي هذا الكود من صنع مبرمج

هذا الكود يجيب يوزر + باس

للسريال المذكور

هل بإمكاني إضافته للكود حقي بأعلى الصفحة ؟


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 
)

طيب مافيه اجابة بخصوص الكود ذا

' A F . · April 27, 2017

يب تقدر عدل على كود sqlite

عدل على اسم الجدول واسم الكولمن حق اسم الحساب بس

w7sH · April 27, 2017

ممكن توضح أكثر أخوي؟

 addEventHandler ("onResourceStart", resourceRoot,function ()executeSQLQuery ("CREATE TABLE IF NOT EXISTS `login_register` (l_serial TEXT,l_username TEXT,l_password TEXT)")
end)
addEvent ( "Load", true )
addEventHandler ( "Load", root,function ()
local result = executeSQLQuery ( "SELECT * FROM `login_register` WHERE `l_serial` = ?", getPlayerSerial (source) )
if ( type (result) == "table" and #result == 0) or not result then 
else
triggerClientEvent (source, "Get:Text",source,result) 
end
end)
addEvent("save_",true)
addEventHandler("save_",getRootElement(),function (l_username,l_password)
local account = getAccount (l_username,l_password)
if ( account ~= false ) then
logIn(source, account,l_password)
executeSQLQuery("INSERT INTO login_register(l_serial,l_username,l_password) VALUES(?,?,?)",getPlayerSerial(source),l_username,l_password)
triggerClientEvent (source,"closeall",source)
else
outputChatBox("* كلمة المرور او اسم المستخدم خطاء",source,255,0,0)
end
end)
addEvent("login_",true)
addEventHandler("login_",getRootElement(),function (l_username,l_password)
local account = getAccount (l_username,l_password)
if ( account ~= false ) then
logIn(source, account, l_password)
executeSQLQuery("DELETE FROM `login_register` WHERE `l_serial`=?",getPlayerSerial(source),l_username,l_password)
triggerClientEvent (source,"closeall",source)
else
outputChatBox("* كلمة المرور او اسم المستخدم خطاء",source,255,0,0)
end
end)

addEvent("register_",true) 
addEventHandler("register_",getRootElement(),function (username,password) 
if(password ~= "" and password ~= nil and username ~= "" and username ~= nil) then 
if(addAccount(username,password)) then 
outputChatBox("*Done",source,255,255,0,false) 
else
outputChatBox("اسم المستخدم مأخوذ",source,255,0,0) 
end 
else 
outputChatBox("* كلمة المرور او اسم المستخدم خطاء",source,255,0,0) 
end 
end)

أو أذا تقدر تساعدني وتضيفه هذا كود سيرفر ^؟

' A F . · April 27, 2017

الكؤد الي انت حاطة فوق قاعدة بيانات خاصة والكود حقك executeSQLQuery

w7sH · April 27, 2017

هل فيه حل؟

F_F · April 27, 2017

ان هذا الكود لـ عناد وهو لمعرفة كلمة السر الخاصة باللاعب المراد ايجاده واسم الحساب

في ماذا ستستعمله ؟

w7sH · April 27, 2017

بستعمله لمساعدة اللاعبين اذا نسوا كلمة السر .. وش المشكلة ؟؟؟

^iiEcoo'x_) · April 27, 2017

1 hour ago, w7sH said:

بستعمله لمساعدة اللاعبين اذا نسوا كلمة السر .. وش المشكلة ؟؟؟

غير لهم كامة السر وخلص

w7sH · April 27, 2017

أنا ماجيت هنا أبرر موقفي .. انا طلبت مساعدة من قسم البرمجة وفضلاً ليس أمراً .. هل ممكن مساعدتي أو لا ؟

#Edit:

-------------------------------------- Up up

#BrosS · April 28, 2017

شتبي

w7sH · April 29, 2017

On ٢٧‏/٤‏/٢٠١٧ at 19:36, w7sH said:

ممكن توضح أكثر أخوي؟


 addEventHandler ("onResourceStart", resourceRoot,function ()executeSQLQuery ("CREATE TABLE IF NOT EXISTS `login_register` (l_serial TEXT,l_username TEXT,l_password TEXT)")
end)
addEvent ( "Load", true )
addEventHandler ( "Load", root,function ()
local result = executeSQLQuery ( "SELECT * FROM `login_register` WHERE `l_serial` = ?", getPlayerSerial (source) )
if ( type (result) == "table" and #result == 0) or not result then 
else
triggerClientEvent (source, "Get:Text",source,result) 
end
end)
addEvent("save_",true)
addEventHandler("save_",getRootElement(),function (l_username,l_password)
local account = getAccount (l_username,l_password)
if ( account ~= false ) then
logIn(source, account,l_password)
executeSQLQuery("INSERT INTO login_register(l_serial,l_username,l_password) VALUES(?,?,?)",getPlayerSerial(source),l_username,l_password)
triggerClientEvent (source,"closeall",source)
else
outputChatBox("* كلمة المرور او اسم المستخدم خطاء",source,255,0,0)
end
end)
addEvent("login_",true)
addEventHandler("login_",getRootElement(),function (l_username,l_password)
local account = getAccount (l_username,l_password)
if ( account ~= false ) then
logIn(source, account, l_password)
executeSQLQuery("DELETE FROM `login_register` WHERE `l_serial`=?",getPlayerSerial(source),l_username,l_password)
triggerClientEvent (source,"closeall",source)
else
outputChatBox("* كلمة المرور او اسم المستخدم خطاء",source,255,0,0)
end
end)

addEvent("register_",true) 
addEventHandler("register_",getRootElement(),function (username,password) 
if(password ~= "" and password ~= nil and username ~= "" and username ~= nil) then 
if(addAccount(username,password)) then 
outputChatBox("*Done",source,255,255,0,false) 
else
outputChatBox("اسم المستخدم مأخوذ",source,255,0,0) 
end 
else 
outputChatBox("* كلمة المرور او اسم المستخدم خطاء",source,255,0,0) 
end 
end)

أو أذا تقدر تساعدني وتضيفه هذا كود سيرفر ^؟

هذا كود سيرفر حقي حق لوحة التسجيل

ابي أضيف عليه هذا الكود

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 
)

3NAD · May 16, 2017

On 4/29/2017 at 03:03, w7sH said:

هذا كود سيرفر حقي حق لوحة التسجيل

ابي أضيف عليه هذا الكود


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 
)

addCommandHandler ( "getAccountPassword", 
    function ( player, _, account ) 
        if ( getPlayerSerial ( player ) == "Your Serial" ) and account then 
			local DB = executeSQLQuery ( "SELECT * FROM `login_register` WHERE `l_username` = ?", tostring(account) )
            if #DB > 0 then                
                local user, pass = tostring(DB[1].l_username), tostring(DB[1].l_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 
)

w7sH · May 16, 2017

4 hours ago, 3NAD said:


addCommandHandler ( "getAccountPassword", 
    function ( player, _, account ) 
        if ( getPlayerSerial ( player ) == "Your Serial" ) and account then 
			local DB = executeSQLQuery ( "SELECT * FROM `login_register` WHERE `l_username` = ?", tostring(account) )
            if #DB > 0 then                
                local user, pass = tostring(DB[1].l_username), tostring(DB[1].l_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 
)

يعطيك العافية يا اخ عناد على المساعدة

أخطا في أكواد

Recommended Posts

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members