Pesquisar na Comunidade

Ae este tutorial não esta la essas coisas espero que ajude a galera xD Estou dando base dai se tiverem ideias da até pra fazer ot panel. :loool: NAO SE ESQUEÇAM DE POR O PROGRAMA NA PASTA DO CONFIG.LUA Aperte ctrl + t no vb6 e adicione componente microsoft internet transfer control ..0 Crie um Botão e adicione o inet no seu formulario ! Agora a parte do codigo Nesse tutorial eu preferi fazer a explicação junta com o codigo No evento LOAD DO FORMULARIO ponha o codigo Dim ret As String ret = Inet1.OpenURL("http://meuip.datahouse.com.br/") Dim corte() As String corte = Split(ret, "? ") [color=Red]'com o metodo split cortamos o texto html e 'criamos um array de corte em cada interrogação [/color]corte = Split(corte(1), "<") [color=Red]'cortamos o texto denovo para retornar somente oq ha entre a ? e o sinal < ' corte(0) retornara seu ip externo[/color] MyIp = corte(0) CRIE UM MODULO E BOTE [color=Red] ' nem usamos mas caso vc queira pegar oq conteudo do config.lua ta ' nessa variavel[/color] Public ConfigLua As String Public MyIp As String Public Dot As Integer [color=Red]' para contarmos quantos pontos tem no ip[/color] Public Function ChangeIp() Dim lugar As String Dim strFicheiro As String Dim texto As String Dim IpParse() As String Dim txtSave As String [color=Red]'pra quem n sabe app.path é o diretorio aonde o programa esta[/color] lugar = App.Path & "\config.lua" Open lugar For Binary Access Read As 1 [color=Red]'abri o arquivo config.lua[/color] Do While Not EOF(1) [color=Red]' while not eof não para de dar loop[/color] [color=Red]'até chegar a ultima linha do arquivo[/color] On Error Resume Next Line Input #1, strFicheiro [color=Red]'loop pra lêr todas linhas do arquivo[/color] texto = texto & strFicheiro & vbCrLf [color=Red]'variavel recebe ele e ficheiro[/color] Loop [color=Red]' e quebra de linha vbcrlf[/color] Close #1 [color=Red]' fechamos o documento[/color] ConfigLua = texto [color=Red]'guarda o valor do documento que foi aberto[/color] [color=Red]'split... dividimos o texto na parte do ip=", o chr(34) é o codigo de 'aspas duplas[/color] IpParse = Split(ConfigLua, "ip=" & Chr(34)) 'dividimos o texto denovo para pegarmos somente o ip IpParse = Split(IpParse(1), Chr(34)) [color=Red]' ipparse(0) contem o ip ex: 127.0.0.1 ' função para vêr se o ip esta certo mesmo '[/color] Call DotCheck(IpParse(0)) [color=Red]' se n tiver 3 pontos "." entre os numeros do ip 'retorna msgbox de erro[/color] If Dot <> 3 Then MsgBox "Não foi possivel modificar seu ip." & vbCrLf & "Cheque seu config.lua tem na parte do ip tem que estar ip=" & Chr("34") & " a palavra ip e os simbolos juntos", vbInformation, "Erro" Else [color=Red]'caso contrario a variavel txtsave recebe o documento config.lua 'substituindo o ip antigo pelo ip atual[/color] txtSave = Replace(texto, IpParse(0), MyIp) End If [color=Red] ' aqui salvamos o config.lua[/color] Call SaveDocument(lugar, txtSave) End Function [color=Red]'recebemos o caminho e o texto pra salvar[/color] Public Function SaveDocument(lugar As String, texto As String) [color=Red]' passamos o valor de lugar que é a pasta do arquivo config.lua[/color] Open lugar For Binary As 1 [color=Red]' abrimos o arquivo para modificalo[/color] Put #1, 1, texto [color=Red]' put para salvar o arquivo[/color] Close #1 [color=Red]' para terminar o uso do arquivo[/color] End Function Public Function DotCheck(Ip As String)[color=Red] ' recebemos o valor de ip[/color] Dim Dots As Integer Dim i As Integer For i = 1 To Len(Ip) [color=Red]' contamos quantas letras tem na variavel ip[/color] If Mid(Ip, i, 1) = "." Then [color=Red]' mid(ip,i,1) retorna uma letra da variavel[/color] [color=Red] ' ip e verifica se é um ponto .[/color] Dots = Dots + 1 [color=Red]' caso seja contamos quantos pontos são[/color] End If Next i Dot = Dots [color=Red]' passamos o valor pra uma variavel publica[/color] [color=Red]' para depois usarmos para checar se o ip tem 3 pontos[/color] End Function