Tutorial Auto Ip No Config.lua

[sequeled 0]

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

Editado 6 Abril, 2010 por sequeled
esqueci de por um pedaço do codigo

[Mickfern 32]

Cara como o nome já diz é para auto ip, porém, não entendi como funciona. Voce poderia explicar mais o tutorial ? Mesmo assim, muito obrigado.

Concerteza irá ajudar muitas pessoas.

[sequeled 0]

Fala oq vc n intendeu rsrs q eu modifico post explicando xD