Líderes

Leia este tutorial por favor: http://www.jorgepaulino.com/2009/04/vbnet-extraindo-executaveis-dos.html Após fazer todos esses passos insira o Shell(LocalParaOndeExtraiu), não sei se isso dará certo mas só será possível saber testando, infelizmente não poderei testar para você.

Nao é Self.Inventory.Boots é Self.Equip.Boots 1000 {Use Soft} Self.Mana<200 Self.Equip.Boots(3079)

E aew galera! Venho aki trazer esse script muito bacana. Vou postar do jeito que eu coloquei no meu servidor. O script nao fui eu quem fiz, somente traduzi e arrumei a tag. Espero que gostem. Créditos: Sync StreamSide Shawak Tag em Talkactions.XML: <talkaction log="yes" words="/teleportall" access="5" event="script" value="teleportall.lua"/> Crie um arquivo teleportall.lua na pasta scripts da talkactions do seu servidor e adicione o script. function onSay(cid, words, param, channel) local temple = { x = 1584, y = 85, z = 7 } for _, cid in ipairs(getPlayersOnline()) do if getPlayerGroupId(cid) < 6 then if(param == '') then doTeleportThing(cid, temple) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Todos os players foram teleportados para o templo.") doSendMagicEffect(getCreaturePosition(cid), CONST_ME_GIFT_WRAPS) else local t = string.explode(param, ",") doTeleportThing(cid, { x = t[1], y = t[2], z = t[3] } ) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Todos os players foram teleportados para as coordenadas: [X:"..t[1].."], [Y:"..t[2].."], [Z:"..t[3].."]") doSendMagicEffect(getCreaturePosition(cid), CONST_ME_GIFT_WRAPS) end end end return TRUE end Com esta talkaction podemos teleportar todos online para o templo ou para alguma coordenada [x][y][z] /teleportall -> teleporta todos para o seu templo /teleportall 158, 69, 7 -> teleporta todos os chars para a coordenada [x=158][y=69][z=7] Nesta parte do script vc coloca o seu templo: local temple = { x = 1584, y = 85, z = 7 } E é isso aew galera Se ajudei Rep + clica no verdinho!!!

{Manipulando arquivos de configuração .ini} O que é um arquivo INI ? Um arquivo INI é um arquivo texto usado para armazenar/fornecer configurações pessoais para sistemas/usuários ; Um arquivo INI é um arquivo com dados externo ao programa principal e esta formatado em : Secções(FileName) , Entradas e Valores. Como por exemplo: Eu quero que o usuário digite algo em um "EditBox" mas que o que ele digite fique guardado e sempre seja usado, então irei gravar o que ele digitou em um arquivo .ini (Chamado de arquivo de inicialização mas também pode ser chamado de configuração) e quando eu quizer usar o que o usuário digitou eu busco dentro do arquivo .ini. Funções Primeiramente em seu projeto do VB adicione um novo "Module" chamado "INIread.vb" e outro chamado "INIwrite.vb". (para criar um novo module, clique com botão direito no primeiro item da lista do Solution Explorer, Add > Module) Dentro do INIread.vb apague tudo e cole isso: Option Strict Off Option Explicit On Module INIread Public Function ReadIniValue(ByRef INIpath As String, ByRef KEY As String, ByRef Variable As String) As String Dim NF As Short Dim Temp As String Dim LcaseTemp As String Dim ReadyToRead As Boolean AssignVariables: NF = FreeFile ReadIniValue = "" KEY = "[" & LCase(KEY) & "]" Variable = LCase(Variable) EnsureFileExists: FileOpen(NF, INIpath, OpenMode.Binary) FileClose(NF) SetAttr(INIpath, FileAttribute.Archive) LoadFile: FileOpen(NF, INIpath, OpenMode.Input) While Not EOF(NF) Temp = LineInput(NF) LcaseTemp = LCase(Temp) If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False If LcaseTemp = KEY Then ReadyToRead = True If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then If InStr(LcaseTemp, Variable & "=") = 1 Then ReadIniValue = Mid(Temp, 1 + Len(Variable & "=")) FileClose(NF) : Exit Function End If End If End While FileClose(NF) End Function End Module E dentro do INIwrite.vb cole isso: Option Strict Off Option Explicit On Module INIwrite Public Function WriteIniValue(ByRef INIpath As String, ByRef PutKey As String, ByRef PutVariable As String, ByRef PutValue As String) As Object Dim Temp As String Dim LcaseTemp As String Dim ReadKey As String Dim ReadVariable As String Dim LOKEY As Short Dim HIKEY As Short Dim KEYLEN As Short Dim VAR As Short Dim VARENDOFLINE As Short Dim NF As Short Dim X As Short AssignVariables: NF = FreeFile ReadKey = vbCrLf & "[" & LCase(PutKey) & "]" & Chr(13) KEYLEN = Len(ReadKey) ReadVariable = Chr(10) & LCase(PutVariable) & "=" EnsureFileExists: FileOpen(NF, INIpath, OpenMode.Binary) FileClose(NF) SetAttr(INIpath, FileAttribute.Archive) LoadFile: FileOpen(NF, INIpath, OpenMode.Input) Temp = InputString(NF, LOF(NF)) Temp = vbCrLf & Temp & "[]" FileClose(NF) LcaseTemp = LCase(Temp) LogicMenu: LOKEY = InStr(LcaseTemp, ReadKey) If LOKEY = 0 Then GoTo AddKey HIKEY = InStr(LOKEY + KEYLEN, LcaseTemp, "[") VAR = InStr(LOKEY, LcaseTemp, ReadVariable) If VAR > HIKEY Or VAR < LOKEY Then GoTo AddVariable GoTo RenewVariable AddKey: Temp = Left(Temp, Len(Temp) - 2) Temp = Temp & vbCrLf & vbCrLf & "[" & PutKey & "]" & vbCrLf & PutVariable & "=" & PutValue GoTo TrimFinalString AddVariable: Temp = Left(Temp, Len(Temp) - 2) Temp = Left(Temp, LOKEY + KEYLEN) & PutVariable & "=" & PutValue & vbCrLf & Mid(Temp, LOKEY + KEYLEN + 1) GoTo TrimFinalString RenewVariable: Temp = Left(Temp, Len(Temp) - 2) VARENDOFLINE = InStr(VAR, Temp, Chr(13)) Temp = Left(Temp, VAR) & PutVariable & "=" & PutValue & Mid(Temp, VARENDOFLINE) GoTo TrimFinalString TrimFinalString: Temp = Mid(Temp, 2) Do Until InStr(Temp, vbCrLf & vbCrLf & vbCrLf) = 0 Temp = Replace(Temp, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf) Loop Do Until Right(Temp, 1) > Chr(13) Temp = Left(Temp, Len(Temp) - 1) Loop Do Until Left(Temp, 1) > Chr(13) Temp = Mid(Temp, 2) Loop OutputAmendedINIFile: FileOpen(NF, INIpath, OpenMode.Output) PrintLine(NF, Temp) FileClose(NF) End Function End Module Pronto as funções agora estão funcionando em seu projeto. Aparecerá 2 warnings mas ignore. Como usar as funções? Vamos definir uma variável "File" que será o caminho do arquivo .ini. Dim File as String Agora vamos atribuir um valor para a variável file. File = "C:\teste.ini" E agora? Como escrever/gravar ou ler este arquivo? Para escrever/gravar: WriteIniValue(File, "Teste", "Valor1", "Oi") Código inteiro (Coloque em algum botão ou algo do tipo): Dim File as String File = "C:\teste.ini" WriteIniValue(File, "Teste", "Valor1", "Oi") O arquivo .ini após ele executar isso ficara assim: [Teste] Valor1=Oi Agora vamos ler e exibir o que está escrito no arquivo .ini (Coloque em algum botão ou algo do tipo) Dim Str as String Str = ReadIniValue(File, "Teste", "Valor1") MsgBox(Str) Com essas funções você pode criar várias idéias, use a sabedoria e crie idéias perfeitas com isto.

OTL 1.4.0a ( Auto-IP | Auto-Restarter) http://www.megaupload.com/?d=8A3M5W0W Ta aí o download ;p Créditos Notorious (Rafael Canovas)

Espera, você editou o ID? 6529 Se sim, deve ser problema no macro ai voce teria que reportar pro mega corrigir.