• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Cybernavigator

[VB6] POST Action [Sample]

8 mensagens neste tópico

Boas, não consegui arranjar tutoriais para ligar a um site (por exemplo), nem arranjei tutoriais de sockets...

Enfim, se calhar nem soube onde procurar, mas continuando...

Eu keria fazer um progr k pedi-se "Username:" "Password:" e envia-se os dados para um website...

Mas até agora só consegui mesmo fazer a parte de inserir o username e password  :-[ lol, sou um novato...

Tou desde ontem à 1am a procurar códigos e cenas do género, é a primeira vez k mexo nisto...

Então a ideia é fazer um login a partir do programa e gravar as cookies, porque eh um site k só permite login com cookies activas...

Sendo o VB6 um programa como é tenho a certeza k dá pa fazer isso...

E como vcs são uns fixes tenho a certeza k me vão ajudar e arranjar um samplezito... não?!  :cheesygrin:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

bom, há algum tempo eu tinha encontrado um tut deste tipo que procuras, tava em ingles, mas em traduzi-o ;)

Este programa vai mostrar como fazer uma espécie de autorização em conexão com um forum nos teus programas feitos em VB, neste caso tens de ter uma conta neste forúm para conseguires acessar o programa =)

Ok vamos começar.

Primeiro abre o Visual Basic 6.0, e escolhe Standard EXE.

Agora Project > References

E selecciona Microsoft XML, V4.0

Se não o vês na lista, faz o download http://www.dlldump.com/download-dll-files_new.php/dllfiles/M/msxml4.dll/4.10.9404.06/download.html

Quando o download concluído coloca-o na tua pasta system32.

Agora clica Apply e ok.

Agora declara a seguinte variável:

Dim auth As ServerXMLHTTP40

Depois no form_load põe isto:

Set auth = New ServerXMLHTTP40

Agora cria duas textboxes.

Uma vai ser para o utilizador pôr o seu nome de utilizador... Chama-lhe Text1

A outra para pôr a sua pass... Chama-lhe Text2

Agora faz um botão de login, e no código do botão mete:

auth.open "POST", "http://extreme-tutorials.co.uk/index.php?act=Login&CODE=01&CookieDate=1"

auth.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

auth.send "UserName=" & Text1.Text & "&PassWord=" & Text2.Text & "&x=21&y=17"

file = auth.responseText

If InStr(file, "<h4>Attention!</h4>") Then
MsgBox "Register an account today at www.extreme-Tutorials.co.uk"
Else
MsgBox "Correct"
End If

Agora onde diz msgbox "correct" apenas muda isso para Form2.show ou para o que queres que aconteça se o login estiver correcto ;)

Nota: Para prevenir que as pessoas recebam a mensagem de erro de ficheiro não encontrado ou inválido, inclui msxml4.dll e qualquer outra .OCX ou .DLL com o teu programa =)

Fonte (inglês): http://www.modport.co.uk/index.php?showtopic=3943

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

obrigadissimo. eu csgui d outra maneira com o httpwrapper.

posso postar a font com o module e o tut se quiserem.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

obrigadissimo. eu csgui d outra maneira com o httpwrapper.

posso postar a font com o module e o tut se quiserem.

Sim se poderes coilocar isso a comunidade agradece !  ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

bom, csgui acabar o bot, a ideia era ligar ao site gaiaonline.com com duas contas e fazer um trade automatico, usei o httpwrapper pa o fazer, deixo aqui a source amanha. podem usar a source para verem como faz post e get no site. deixem-me so fazer os comentarios pra n se perderem e posto isso.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Aki está... Deixo o anexo.

Postem qualquer duvida.

Depois faço um tutorial...  :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora