Pablo Abreu Diniz

up

up

up porque realmente preciso mtttt

Então, primeiramente obrigado a todos que lerem e tentarem ajudar, realmente preciso fazer isso :( Eu tenho um servidor de um jogo (tibia) que é feito através de módulos C++, LUA e XML (porém, os editáveis são só em LUA e XML) Para rodar o jogo, tem um cliente específico (otclientv8) (open source) em que há diversos módulos feitos com LUA que pode editar a vontade. Para realizar uma ligação "servidor <-> client" eu posso fazer através de envio de protocolo numa função chamada Extended OpCode, na parte do cliente do jogo, fica assim: if protocolGame then local myValue = math.random(1, 2) protocolGame:sendExtendedOpcode(52, myValue) end Aí, para receber em meu servidor eu uso: function onExtendedOpcode(cid, opcode, buffer) if opcode == 52 then local myValue = tonumber(buffer) if myValue == 1 then doPlayerSay(cid, 'valor eh 1') elseif myValue == 2 then doPlayerSay(cid, 'valor eh 2') else doPlayerSay(cid, 'valor indefinido') end end end Só que, o problema é o seguinte, no meu servidor falta a função para enviar uma informação de volta pro cliente, essa função tenho apenas em C++, que é exatamente esta: int32_t LuaInterface::luaDoSendPlayerExtendedOpcode(lua_State* L) { //doPlayerSendExtendedOpcode(cid, opcode, buffer) std::string buffer = popString(L); int32_t opcode = popNumber(L); ScriptEnviroment* env = getEnv(); if(Player* player = env->getPlayerByUID(popNumber(L))) { player->sendExtendedOpcode(opcode, buffer); lua_pushboolean(L, true); } lua_pushboolean(L, false); return 1; } Não entendo de C++ e vim aqui perguntar 2 coisas: Teria como alguém me ajudar? Ou com poucas informações como estas fica complicado? Entrego qualquer que seja o que precisa, porque estou precisando muuuuuito fazer isto!! Agradeço pela atenção

Boa tarde senhoras e senhores, então... Eu estou utilizando um código para Abrir uma planilha do excel, salvar foto de um determinado intervalo de células, (o nome da imagem salva tem que ser o mesmo nome do que está escrito na célula B10) e fechar o excel (Bom, não sei se é porque até agora não rodou 100%, mas até então não está fechando o excel, mas deve ser culpa de um outro erro), Mas o meu problema atual é que não está funcionando a parte de pegar o conteúdo da célula B10 aí então fica toda hora travando... Alguem poderia me ajudar ? Sub Abrir_Copiar_Colar() Dim FSO As Object Dim Pasta As String Dim Planilha As Object Dim OpenBook As String Set FSO = CreateObject("Scripting.FileSystemObject") Pasta = "C:\Users\pablo.diniz\Desktop\Projetos Terminados\357\OAE\EXCE OAE" 'Pasta com as planilhas que serão abertas e copiadas Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For Each Planilha In FSO.GetFolder(Pasta).Files If InStr(1, Planilha, ".xls") = 0 Then GoTo PRÓXIMO Workbooks.Open (Planilha) OpenBook = ActiveWorkbook.Name Dim Nome As String Nome = Worksheets(1).Range("B10") Range("B116:AL210").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\pablo.diniz\Desktop\teste2\" & Nome & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True PRÓXIMO: Next Application.ScreenUpdating = True MsgBox "Dados Copiados com Sucesso!", vbInformation, "Aviso" Application.Calculation = xlCalculationAutomatic End Sub Grato.